Added a FIXME comment.

diff --git a/deletemem.pl b/deletemem.pl
index f65314b..f2260ca 100755 (executable)
--- a/deletemem.pl
+++ b/deletemem.pl
@@ -81,7 +81,7 @@ sub delmember{
   $sth->finish;
   $query="Insert into deletedborrowers values (";
   foreach my $temp (@data){
-    $query=$query."'$temp',";
+    $query=$query."'$temp',";          # FIXME - .=
   }
   $query=~ s/\,$/\)/;
   #  print $query;

diff --git a/mancredit.pl b/mancredit.pl
index e91c856..ffbdfe0 100755 (executable)
--- a/mancredit.pl
+++ b/mancredit.pl
@@ -37,7 +37,7 @@ if ($add){
   my $itemnum=$input->param('itemnum');
   my $desc=$input->param('desc');
   my $amount=$input->param('amount');
-  $amount=$amount*-1;
+  $amount=$amount*-1;                  # FIXME - $amount = -$amount;
   my $type=$input->param('type');
   manualinvoice($bornum,$itemnum,$desc,$type,$amount);
   print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$bornum");