[Koha-devel] CVS: koha/sec writeoff.pl,1.1.1.1,1.2

[Chris Cormack]

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)address@hidden;
+   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);
  }