[Koha-cvs] CVS: koha/telnet borrwraper.pl,1.2,1.2.2.1

[Andrew Arensburger]

Update of /cvsroot/koha/koha/telnet
In directory usw-pr-cvs1:/tmp/cvs-serv30229

Modified Files:
      Tag: arensb-context
        borrwraper.pl 
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.
Removed trailing whitespace, 'cos it was bugging me.


Index: borrwraper.pl
===================================================================
RCS file: /cvsroot/koha/koha/telnet/borrwraper.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** borrwraper.pl       14 Aug 2002 18:12:54 -0000      1.2
--- borrwraper.pl       4 Oct 2002 03:01:38 -0000       1.2.2.1
***************
*** 20,24 ****
  
  use DBI;
! use C4::Database;
  use C4::Circulation::Issues;
  use C4::Circulation::Main;
--- 20,24 ----
  
  use DBI;
! use C4::Context;
  use C4::Circulation::Issues;
  use C4::Circulation::Main;
***************
*** 32,70 ****
    telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => 
$ARGV[5], bcard=>$ARGV[7]
        );
! my ($env) = \%env;                                                            
      
  
  startint();
!   helptext('');                                                               
     
! my $done;                                                                     
   
! my ($items,$items2,$amountdue);                                               
   
! my $itemsdet;                                                                 
   
! $env->{'sysarea'} = "Issues";                                                 
   
! $done = "Issues";                                                             
   
  my $i=0;
! my $dbh=&C4Connect;                                                           
   
    my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = 
C4::Circulation::Borrower::findborrower($env,$dbh);
! #    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);
                                    
!     }                                                                         
   
!     
!   } 
    if ($done ne 'Issues'){
-       $dbh->disconnect;                                                       
         
        die "test";
    }
- $dbh->disconnect;                                                             
   
--- 32,68 ----
    telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => 
$ARGV[5], bcard=>$ARGV[7]
        );
! my ($env) = \%env;
  
  startint();
!   helptext('');
! my $done;
! my ($items,$items2,$amountdue);
! my $itemsdet;
! $env->{'sysarea'} = "Issues";
! $done = "Issues";
  my $i=0;
! 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]");
  #    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);
!     }
! 
!   }
    if ($done ne 'Issues'){
        die "test";
    }