[Koha-cvs] CVS: koha/C4 Circmain.pm,1.5,1.6

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv4803

Modified Files:
        Circmain.pm 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: Circmain.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circmain.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Circmain.pm 11 Oct 2002 12:36:26 -0000      1.5
--- Circmain.pm 13 Oct 2002 07:36:27 -0000      1.6
***************
*** 1,5 ****
! package C4::Circmain; #assumes C4/Circulation
  
! #package to deal with circulation 
  
  
--- 1,7 ----
! package C4::Circmain;
  
! # $Id$
! 
! #package to deal with circulation
  
  
***************
*** 37,44 ****
  
  use vars qw($VERSION @ISA @EXPORT);
!   
  # set the version for version checking
  $VERSION = 0.01;
!     
  @ISA = qw(Exporter);
  @EXPORT = qw(&Start_circ);
--- 39,46 ----
  
  use vars qw($VERSION @ISA @EXPORT);
! 
  # set the version for version checking
  $VERSION = 0.01;
! 
  @ISA = qw(Exporter);
  @EXPORT = qw(&Start_circ);
***************
*** 56,86 ****
    while ($donext ne 'Quit') {
      if ($donext  eq "Circ") {
!       #($reason,$data) = menu($env,'console','Circulation', 
        #  ('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
        #&startint($env,"Menu");
        ($reason,$data) = menu($env,'console','Circulation',
!         ('Issues','Returns','Select Branch','Select Printer')); 
      } else {
        $data = $donext;
      }
!     if ($data eq 'Issues') {  
!       $donext=Issue($env); #C4::Circulation::Issues 
      } elsif ($data eq 'Returns') {
!       $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)  
  }
- 
- 
- END { }       # module clean-up code here (global destructor)
--- 58,85 ----
    while ($donext ne 'Quit') {
      if ($donext  eq "Circ") {
!       #($reason,$data) = menu($env,'console','Circulation',
        #  ('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
        #&startint($env,"Menu");
        ($reason,$data) = menu($env,'console','Circulation',
!         ('Issues','Returns','Select Branch','Select Printer'));
      } else {
        $data = $donext;
      }
!     if ($data eq 'Issues') {
!       $donext=Issue($env); #C4::Circulation::Issues
      } elsif ($data eq 'Returns') {
!       $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)
  }