FIX: Incorrect parameters given to function Stats::UpdateStats in
authorplugz <plugz>
Fri, 20 Jun 2003 12:48:09 +0000 (12:48 +0000)
committerplugz <plugz>
Fri, 20 Jun 2003 12:48:09 +0000 (12:48 +0000)
issuebook and returnbook functions

C4/Circulation/Circ2.pm

index bf67807..833f990 100755 (executable)
@@ -628,7 +628,7 @@ sub issuebook {
                                                createcharge($env, $dbh, $iteminformation->{'itemnumber'}, $patroninformation->{'borrowernumber'}, $charge);
                                                $iteminformation->{'charge'} = $charge;
                                        }
                                                createcharge($env, $dbh, $iteminformation->{'itemnumber'}, $patroninformation->{'borrowernumber'}, $charge);
                                                $iteminformation->{'charge'} = $charge;
                                        }
-                                       &UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'});
+                                       &UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$patroninformation->{'borrowernumber'});
                                        renewbook($env,$dbh, $patroninformation->{'borrowernumber'}, $iteminformation->{'itemnumber'});
                                        $noissue=1;
                                } else {
                                        renewbook($env,$dbh, $patroninformation->{'borrowernumber'}, $iteminformation->{'itemnumber'});
                                        $noissue=1;
                                } else {
@@ -760,7 +760,7 @@ sub issuebook {
                        $iteminformation->{'charge'}=$charge;
                }
                # Record the fact that this book was issued.
                        $iteminformation->{'charge'}=$charge;
                }
                # Record the fact that this book was issued.
-               &UpdateStats($env,$env->{'branchcode'},'issue',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'});
+               &UpdateStats($env,$env->{'branchcode'},'issue',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$patroninformation->{'borrowernumber'});
        }
 
        if ($iteminformation->{'charge'}) {
        }
 
        if ($iteminformation->{'charge'}) {
@@ -892,7 +892,7 @@ sub returnbook {
        }
        # update stats?
        # Record the fact that this book was returned.
        }
        # update stats?
        # Record the fact that this book was returned.
-       UpdateStats(\%env, $branch ,'return','0','',$iteminformation->{'itemnumber'});
+       UpdateStats(\%env, $branch ,'return','0','',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$borrower->{'borrowernumber'});
        return ($doreturn, $messages, $iteminformation, $borrower);
 }
 
        return ($doreturn, $messages, $iteminformation, $borrower);
 }