1 package C4::Circmain; #assumes C4/Circulation
3 #package to deal with circulation
9 use C4::Circulation::Main;
10 use C4::Circulation::Issues;
11 use C4::Circulation::Returns;
12 use C4::Circulation::Renewals;
13 use C4::Circulation::Borrower;
18 use vars qw($VERSION @ISA @EXPORT);
20 # set the version for version checking
24 @EXPORT = qw(&Start_circ);
30 &startint($env,'Circulation');
36 while ($donext ne 'Quit') {
37 if ($donext eq "Circ") {
38 #($reason,$data) = menu($env,'console','Circulation',
39 # ('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
40 #&startint($env,"Menu");
41 ($reason,$data) = menu($env,'console','Circulation',
42 ('Issues','Returns','Select Branch','Select Printer'));
46 if ($data eq 'Issues') {
47 $donext=Issue($env); #C4::Circulation::Issues
48 } elsif ($data eq 'Returns') {
49 $donext=Returns($env); #C4::Circulation::Returns
50 } elsif ($data eq 'Select Branch') {
52 } elsif ($data eq 'Select Printer') {
54 } elsif ($data eq 'Borrower Enquiries') {
55 # $donext=Borenq($env); #C4::Circulation::Borrower - conversion
56 } elsif ($data eq 'Reserves'){
57 $donext=EnterReserves($env); #C4::Reserves
58 } elsif ($data eq 'Quit') {
66 END { } # module clean-up code here (global destructor)