[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.58,1.59

[Jerome Vizcaino]

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

Modified Files:
        Circ2.pm 
Log Message:
FIX: Incorrect parameters given to function Stats::UpdateStats in
issuebook and returnbook functions


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -C2 -r1.58 -r1.59
*** Circ2.pm    5 Jun 2003 17:03:34 -0000       1.58
--- Circ2.pm    20 Jun 2003 12:48:09 -0000      1.59
***************
*** 629,633 ****
                                                $iteminformation->{'charge'} = 
$charge;
                                        }
!                                       
&UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'});
                                        renewbook($env,$dbh, 
$patroninformation->{'borrowernumber'}, $iteminformation->{'itemnumber'});
                                        $noissue=1;
--- 629,633 ----
                                                $iteminformation->{'charge'} = 
$charge;
                                        }
!                                       
&UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$patroninformation->{'borrowernumber'});
                                        renewbook($env,$dbh, 
$patroninformation->{'borrowernumber'}, $iteminformation->{'itemnumber'});
                                        $noissue=1;
***************
*** 761,765 ****
                }
                # Record the fact that this book was issued.
!               
&UpdateStats($env,$env->{'branchcode'},'issue',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'});
        }
  
--- 761,765 ----
                }
                # Record the fact that this book was issued.
!               
&UpdateStats($env,$env->{'branchcode'},'issue',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$patroninformation->{'borrowernumber'});
        }
  
***************
*** 893,897 ****
        # update stats?
        # Record the fact that this book was returned.
!       UpdateStats(\%env, $branch 
,'return','0','',$iteminformation->{'itemnumber'});
        return ($doreturn, $messages, $iteminformation, $borrower);
  }
--- 893,897 ----
        # update stats?
        # Record the fact that this book was returned.
!       UpdateStats(\%env, $branch 
,'return','0','',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$borrower->{'borrowernumber'});
        return ($doreturn, $messages, $iteminformation, $borrower);
  }