From 5c91d43a43b801bbc1952613ac2061fa7c517d60 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Sun, 13 Oct 2002 05:49:13 +0000
Subject: [PATCH] Added some FIXME comments.

---
 C4/Accounts.pm     |  2 ++
 C4/Accounts2.pm    |  4 ++++
 memberentry.pl     |  3 ++-
 modbib.pl          |  3 ++-
 search.pl          | 14 +++++++-------
 thesaurus_popup.pl |  2 +-
 6 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 29696733ee..ac7dcc5fae 100755
--- 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 72cc2c74cc..56564f4f9a 100755
--- 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 d9c0804a70..39321ac765 100755
--- 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 84d992db01..859dbe3117 100755
--- 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 19ae914106..546edecd5d 100755
--- 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 dfd0a197a0..3443dd2043 100755
--- 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>
-- 
2.39.5