[Koha-cvs] CVS: koha/telnet startint.pl,1.2,1.3

[Andrew Arensburger]

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

Modified Files:
        startint.pl 
Log Message:
Removed trailing whitespace.


Index: startint.pl
===================================================================
RCS file: /cvsroot/koha/koha/telnet/startint.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** startint.pl 14 Aug 2002 18:12:54 -0000      1.2
--- startint.pl 13 Oct 2002 10:47:00 -0000      1.3
***************
*** 21,32 ****
  use strict;
  #use C4::Security;
! #use C4::Database;                                                            
       
! use C4::Circulation::Main;                                                    
      
! #use C4::Circulation::Issues;                                                 
       
! #use C4::Circulation::Returns;                                                
       
! #use C4::Circulation::Renewals;                                               
       
! #use C4::Circulation::Borrower;                                               
       
! #use C4::Reserves;                                                            
       
! use C4::InterfaceCDK;                                                         
      
  #use C4::Security;
  
--- 21,32 ----
  use strict;
  #use C4::Security;
! #use C4::Database;
! use C4::Circulation::Main;
! #use C4::Circulation::Issues;
! #use C4::Circulation::Returns;
! #use C4::Circulation::Renewals;
! #use C4::Circulation::Borrower;
! #use C4::Reserves;
! use C4::InterfaceCDK;
  #use C4::Security;
  
***************
*** 50,68 ****
  
  
! #start interface                                                              
    
! &startint(\%env,'Circulation');                                               
     
! getbranch(\%env);                                                             
     
! getprinter(\%env);                                                            
     
! my $donext = 'Circ';                                                          
    
! my $reason;                                                                   
    
! my $data;                                                                     
    
! while ($donext ne 'Quit') {                                                   
    
!   if ($donext  eq "Circ") {                                                   
    
!     ($reason,$data) = menu(\%env,'console','Circulation',                     
     
!     ('Issues','Returns','Select Branch','Select Printer'));                   
  
!   } else {                                                                    
    
!     $data = $donext;                                                          
    
!   }                                                                           
    
!   if ($data eq 'Issues') {                                                    
    
     my 
@args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}","$env{'lasttime'}");
    open (FILE,">>/tmp/$<_$$");
--- 50,68 ----
  
  
! #start interface
! &startint(\%env,'Circulation');
! getbranch(\%env);
! getprinter(\%env);
! my $donext = 'Circ';
! my $reason;
! my $data;
! while ($donext ne 'Quit') {
!   if ($donext  eq "Circ") {
!     ($reason,$data) = menu(\%env,'console','Circulation',
!     ('Issues','Returns','Select Branch','Select Printer'));
!   } else {
!     $data = $donext;
!   }
!   if ($data eq 'Issues') {
     my 
@args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}","$env{'lasttime'}");
    open (FILE,">>/tmp/$<_$$");
***************
*** 71,75 ****
     close FILE;
     system(@args);
!   } elsif ($data eq 'Returns') {                                              
    
     my 
@args=('returnswrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}");
     open (FILE,">>/tmp/$<_$$");
--- 71,75 ----
     close FILE;
     system(@args);
!   } elsif ($data eq 'Returns') {
     my 
@args=('returnswrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}");
     open (FILE,">>/tmp/$<_$$");
***************
*** 78,96 ****
     close FILE;
     system(@args);
! #    $donext=Returns(\%env); #C4::Circulation::Returns                        
      
!   } elsif ($data eq 'Select Branch') {                                        
    
!     getbranch(\%env);                                                         
     
!   } elsif ($data eq 'Select Printer') {                                       
    
!     getprinter(\%env);                                                        
     
! #  } elsif ($data eq 'Borrower Enquiries') {                                  
     
!     #  $donext=Borenq($env); #C4::Circulation::Borrower - conversion          
    
! #  } elsif ($data eq 'Reserves'){                                             
     
! #    $donext=EnterReserves(\%env); #C4::Reserves                              
      
!   } elsif ($data eq 'Quit') {                                                 
    
!     $donext = $data;                                                          
    
!     &endint(\%env);            
      die;
!   }                                                                           
    
  }
!     &endint(\%env);            
      die;
--- 78,96 ----
     close FILE;
     system(@args);
! #    $donext=Returns(\%env); #C4::Circulation::Returns
!   } elsif ($data eq 'Select Branch') {
!     getbranch(\%env);
!   } elsif ($data eq 'Select Printer') {
!     getprinter(\%env);
! #  } elsif ($data eq 'Borrower Enquiries') {
!     #  $donext=Borenq($env); #C4::Circulation::Borrower - conversion
! #  } elsif ($data eq 'Reserves'){
! #    $donext=EnterReserves(\%env); #C4::Reserves
!   } elsif ($data eq 'Quit') {
!     $donext = $data;
!     &endint(\%env);
      die;
!   }
  }
!     &endint(\%env);
      die;