Update of /cvsroot/koha/koha/sec In directory usw-pr-cvs1:/tmp/cvs-serv5450/sec Modified Files: writeoff.pl Log Message: Getting writeoff stats being stored as well Index: writeoff.pl =================================================================== RCS file: /cvsroot/koha/koha/sec/writeoff.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** writeoff.pl 2000/12/19 23:45:57 1.1.1.1 --- writeoff.pl 2001/03/27 21:45:50 1.2 *************** *** 7,10 **** --- 7,11 ---- use CGI; use C4::Database; + use C4::Stats; my $input=new CGI; *************** *** 44,48 **** --- 45,51 ---- sub writeoff{ my ($bornum,$accountnum,$itemnum,$accounttype,$amount)=@_; + my $user=$input->remote_user; my $dbh=C4Connect; + my $env; my $query="Update accountlines set amountoutstanding=0 where "; if ($accounttype eq 'Res'){ *************** *** 68,70 **** --- 71,74 ---- # print $query; $dbh->disconnect; + UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum); }