small bugfix

[koha.git] / telnet / borrwraper.pl

diff --git a/telnet/borrwraper.pl b/telnet/borrwraper.pl
index 4548f6f..f3d4f9c 100755 (executable)
--- a/telnet/borrwraper.pl
+++ b/telnet/borrwraper.pl
@@ -1,7 +1,25 @@
 #!/usr/bin/perl
 
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
 use DBI;
-use C4::Database;
+use C4::Context;
 use C4::Circulation::Issues;
 use C4::Circulation::Main;
 use C4::InterfaceCDK;
@@ -13,40 +31,38 @@ my %env = (
   logintime  => "", lasttime => $ARGV[6], tempuser => "", debug => "9",
   telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5], bcard=>$ARGV[7]
       );
-my ($env) = \%env;                                                                  
+my ($env) = \%env;
 
 startint();
-  helptext('');                                                                    
-my $done;                                                                        
-my ($items,$items2,$amountdue);                                                  
-my $itemsdet;                                                                    
-$env->{'sysarea'} = "Issues";                                                    
-$done = "Issues";                                                                
+  helptext('');
+my $done;
+my ($items,$items2,$amountdue);
+my $itemsdet;
+$env->{'sysarea'} = "Issues";
+$done = "Issues";
 my $i=0;
-my $dbh=&C4Connect;                                                              
+my $dbh = C4::Context->dbh;
   my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = C4::Circulation::Borrower::findborrower($env,$dbh);
-#    my $time=localtime(time);                                                     
-#    open (FILE,">>/tmp/$<_$ARGV[6]");                                             
+#    my $time=localtime(time);
+#    open (FILE,">>/tmp/$<_$ARGV[6]");
 #    print FILE "borrower found $bornum";
 #    close FILE;
-  $env->{'loanlength'}="";                                                       
-  if ($reason ne "") {                                                           
-    $done = $reason;                                                             
-  } elsif ($env->{'IssuesAllowed'} eq '0') {                                     
-    error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");                
-  } else {                                                                       
-    $env->{'bornum'} = $bornum;                                                  
-    $env->{'bcard'}  = $borrower->{'cardnumber'};                                
-    ($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm    
-    $done = "No";                                                                
-    my $it2p=0;                                                                  
-    while ($done eq 'No'){                                                       
-      ($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);                                    
-    }                                                                            
-    
-  } 
+  $env->{'loanlength'}="";
+  if ($reason ne "") {
+    $done = $reason;
+  } elsif ($env->{'IssuesAllowed'} eq '0') {
+    error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");
+  } else {
+    $env->{'bornum'} = $bornum;
+    $env->{'bcard'}  = $borrower->{'cardnumber'};
+    ($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm
+    $done = "No";
+    my $it2p=0;
+    while ($done eq 'No'){
+      ($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);
+    }
+
+  }
   if ($done ne 'Issues'){
-      $dbh->disconnect;                                                                
       die "test";
   }
-$dbh->disconnect;