[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.49,1.50

[Ambrose Li]

Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1:/tmp/cvs-serv6503/C4/Circulation

Modified Files:
        Circ2.pm 
Log Message:
Changed the 3 "this does nothing" lines to set the flag. Is this right?


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -r1.49 -r1.50
*** Circ2.pm    5 Feb 2003 06:28:56 -0000       1.49
--- Circ2.pm    5 Feb 2003 07:55:42 -0000       1.50
***************
*** 1029,1039 ****
      if ($doreturn) {
        doreturn($borrower->{'borrowernumber'}, 
$iteminformation->{'itemnumber'});
!       $messages->{'WasReturned'};     # FIXME - This does nothing
      }
      ($borrower) = getpatroninformation(\%env, $currentborrower, 0);
  # transfer book to the current branch
      my ($transfered, $mess, $item) = transferbook($branch, $barcode, 1);
!     if ($transfered) {        # FIXME - perl -wc complains about this line.
!       $messages->{'WasTransfered'};   # FIXME - This does nothing
      }
  # fix up the accounts.....
--- 1029,1039 ----
      if ($doreturn) {
        doreturn($borrower->{'borrowernumber'}, 
$iteminformation->{'itemnumber'});
!       $messages->{'WasReturned'} = 1; # FIXME is the "= 1" right?
      }
      ($borrower) = getpatroninformation(\%env, $currentborrower, 0);
  # transfer book to the current branch
      my ($transfered, $mess, $item) = transferbook($branch, $barcode, 1);
!     if ($transfered) {
!       $messages->{'WasTransfered'} = 1; # FIXME is the "= 1" right?
      }
  # fix up the accounts.....
***************
*** 1042,1046 ****
        updateitemlost($iteminformation->{'itemnumber'});
        fixaccountforlostandreturned($iteminformation, $borrower);
!       $messages->{'WasLost'};         # FIXME - This does nothing
      }
  # fix up the overdues in accounts...
--- 1042,1046 ----
        updateitemlost($iteminformation->{'itemnumber'});
        fixaccountforlostandreturned($iteminformation, $borrower);
!       $messages->{'WasLost'} = 1; # FIXME is the "= 1" right?
      }
  # fix up the overdues in accounts...