From 5c91d43a43b801bbc1952613ac2061fa7c517d60 Mon Sep 17 00:00:00 2001 From: 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
"; $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"; -- 2.39.5