Added some FIXME comments.

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 2969673..ac7dcc5 100755 (executable)
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -133,6 +133,7 @@ sub reconcileaccount {
     my $title = $itemdata->{'title'};
     if (length($title) > 15 ) {$title = substr($title,0,15);}
     $line= $line.$itemdata->{'barcode'}." $title ".$data->{'description'};
+                               # FIXME - .=
     $line = fmtstr($env,$line,"L65")." ".fmtdec($env,$amount,"52");
     push @accountlines,$line;
     $i++;
@@ -173,6 +174,7 @@ sub recordpayment{
      if ($accdata->{'amountoutstanding'} < $amountleft) {
         $newamtos = 0;
        $amountleft = $amountleft - $accdata->{'amountoutstanding'};
+                               # FIXME - -=
      }  else {
         $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
        $amountleft = 0;

diff --git a/C4/Accounts2.pm b/C4/Accounts2.pm
index 72cc2c7..56564f4 100755 (executable)
--- a/C4/Accounts2.pm
+++ b/C4/Accounts2.pm
@@ -99,6 +99,7 @@ sub recordpayment{
      if ($accdata->{'amountoutstanding'} < $amountleft) {
         $newamtos = 0;
        $amountleft = $amountleft - $accdata->{'amountoutstanding'};
+                               # FIXME - -=
      }  else {
         $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
        $amountleft = 0;
@@ -375,6 +376,7 @@ sub fixcredit{
     if ($accdata->{'amountoutstanding'} < $amountleft) {
         $newamtos = 0;
        $amountleft = $amountleft - $accdata->{'amountoutstanding'};
+                               # FIXME - -=
      }  else {
         $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
        $amountleft = 0;
@@ -406,6 +408,7 @@ sub fixcredit{
      if ($accdata->{'amountoutstanding'} < $amountleft) {
         $newamtos = 0;
        $amountleft = $amountleft - $accdata->{'amountoutstanding'};
+                               # FIXME - -=
      }  else {
         $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
        $amountleft = 0;
@@ -458,6 +461,7 @@ sub refund{
      if ($accdata->{'amountoutstanding'} > $amountleft) {
         $newamtos = 0;
        $amountleft = $amountleft - $accdata->{'amountoutstanding'};
+                               # FIXME - -=
      }  else {
         $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
        $amountleft = 0;

diff --git a/memberentry.pl b/memberentry.pl
index d9c0804..39321ac 100755 (executable)
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -86,7 +86,7 @@ if ($delete){
     if (! $cardnumber) {                       # If DB has no values, start at 1000000
       $cardnumber = 1000000;
     } else {
-      $cardnumber = $cardnumber + 1;
+      $cardnumber = $cardnumber + 1;           # FIXME - $cardnumber++;
     }
   
     while ($i <8) {                    # step from char 1 to 7.
@@ -94,6 +94,7 @@ if ($delete){
       my $temp2 = substr($cardnumber,$i,1);    # sequence left to right, 1 char at a time
   #print "$temp2<br>";
       $sum = $sum + ($temp1*$temp2);   # mult each char 1-7 by its corresponding weighting
+                                       # FIXME - +=
       $i++;                            # increment counter
     }
     my $rem = ($sum%11);                       # remainder of sum/11 (eg. 9999999/11, remainder=2)

diff --git a/modbib.pl b/modbib.pl
index 84d992d..859dbe3 100755 (executable)
--- a/modbib.pl
+++ b/modbib.pl
@@ -53,11 +53,12 @@ my %inputs;
 
 # have to get all subtitles, subjects and additional authors
 for (my $i = 1; $i < $subjectcount; $i++) {
-  $sub = $sub . "|" . $subject->[$i]->{'subject'};
+  $sub = $sub . "|" . $subject->[$i]->{'subject'};     # FIXME - .=
 } # for
 
 for (my $i = 1; $i < $addauthorcount; $i++) {
   $additional = $additional . "|" . $addauthor->[$i]->{'author'};
+                                                       # FIXME - .=
 } # for
 
 

diff --git a/search.pl b/search.pl
index 19ae914..546edec 100755 (executable)
--- a/search.pl
+++ b/search.pl
@@ -133,31 +133,31 @@ foreach my $result (@results) {
 my $search="num=20";
 my $searchdesc='';
 if ($keyword){
-    $search=$search."&keyword=$keyword";
+    $search=$search."&keyword=$keyword";               # FIXME - .=
     $searchdesc.="keyword $keyword, ";
 }
 if (my $subjectitems=$query->param('subjectitems')){
-    $search=$search."&subjectitems=$subjectitems";
+    $search=$search."&subjectitems=$subjectitems";     # FIXME - .=
     $searchdesc.="subject $subjectitems, ";
 }
 if ($subject){
-    $search=$search."&subject=$subject";
+    $search=$search."&subject=$subject";               # FIXME - .=
     $searchdesc.="subject $subject, ";
 }
 if ($author){
-    $search=$search."&author=$author";
+    $search=$search."&author=$author";                 # FIXME - .=
     $searchdesc.="author $author, ";
 }
 if ($class){
-    $search=$search."&class=$class";
+    $search=$search."&class=$class";                   # FIXME - .=
     $searchdesc.="class $class, ";
 }
 if ($title){
-    $search=$search."&title=$title";
+    $search=$search."&title=$title";                   # FIXME - .=
     $searchdesc.="title $title, ";
 }
 if ($dewey){
-    $search=$search."&dewey=$dewey";
+    $search=$search."&dewey=$dewey";                   # FIXME - .=
     $searchdesc.="dewey $dewey, ";
 }
 $search.="&ttype=$ttype";

diff --git a/thesaurus_popup.pl b/thesaurus_popup.pl
index dfd0a19..3443dd2 100755 (executable)
--- a/thesaurus_popup.pl
+++ b/thesaurus_popup.pl
@@ -42,7 +42,7 @@ my $dbh = C4::Context->dbh;
 # make the page ...
 print $input->header;
 if ($op eq "select") {
-       $subject = $subject."|$freelib_text";
+       $subject = $subject."|$freelib_text";           # FIXME - .=
 }
 print <<"EOF";
        <html>