Added a FIXME comment.

diff --git a/acqui.simple/bulkmarcimport.pl b/acqui.simple/bulkmarcimport.pl
index 9bf652b..27966da 100755 (executable)
--- a/acqui.simple/bulkmarcimport.pl
+++ b/acqui.simple/bulkmarcimport.pl
@@ -416,7 +416,7 @@ RECORD:
        my $biblioitemnumber=0;
        if ($sth->rows) {
            ($biblionumber, $biblioitemnumber) = $sth->fetchrow;
-           my $title=$title;
+           my $title=$title;                   # FIXME - WTF?
 #title already in the database
        } else {
            my $q_title=$dbh->quote("$title");

diff --git a/acqui.simple/processz3950queue b/acqui.simple/processz3950queue
index 43329fc..20e899b 100755 (executable)
--- a/acqui.simple/processz3950queue
+++ b/acqui.simple/processz3950queue
@@ -193,7 +193,7 @@ while (1) {
                                                $result.=$marcdata;
                                            }
                                            my $scantimerend=time();
-                                           ($numresults<$numrecords+40) ? ($numrecords=$numresults) : ($numrecords=$numrecords+40);
+                                           ($numresults<$numrecords+40) ? ($numrecords=$numresults) : ($numrecords=$numrecords+40); # FIXME - +=
                                            my $elapsed=$scantimerend-$scantimerstart;
                                            if ($elapsed) {
                                                my $speed=int($numresults/$elapsed*100)/100;

diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index a5aa115..fbfec7b 100755 (executable)
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -66,7 +66,7 @@ my $biblio = {
 }; # my $biblio
 
 if ($quantrec != 0){
-  $cost=$cost / $quantrec;
+  $cost=$cost / $quantrec;             # FIXME - /=
 }
 
 my $gst=$input->param('gst');