[Koha-cvs] CVS: koha/C4 Circmain.pm,1.5,1.6
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 09:36:29 CEST 2002
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)
}
More information about the Koha-cvs
mailing list