Added some FIXME comments.

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;

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;

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)

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
 
 

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";

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>