[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;