1 package C4::Circmain; #asummes 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 @EXPORT_OK %EXPORT_TAGS);
20 # set the version for version checking
24 @EXPORT = qw(&Start_circ);
25 %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
27 # your exported package globals go here,
28 # as well as any optionally exported functions
30 @EXPORT_OK = qw($Var1 %Hashit);
33 # non-exported package globals go here
34 use vars qw(@more $stuff);
36 # initalize package globals, first exported ones
41 # then the others (which are still accessible as $Some::Module::stuff)
45 # all file-scoped lexicals must be created before
46 # the functions below that use them.
48 # file-private lexicals go here
52 # here's a file-private function as a closure,
53 # callable as &$priv_func; it cannot be prototyped.
58 # make all your functions, whether exported or not;
64 &startint($env,'Circulation');
70 while ($donext ne 'Quit') {
71 if ($donext eq "Circ") {
72 #($reason,$data) = menu($env,'console','Circulation',
73 # ('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
74 #&startint($env,"Menu");
75 ($reason,$data) = menu($env,'console','Circulation',
76 ('Issues','Returns','Select Branch','Select Printer'));
80 if ($data eq 'Issues') {
81 $donext=Issue($env); #C4::Circulation::Issues
82 } elsif ($data eq 'Returns') {
83 $donext=Returns($env); #C4::Circulation::Returns
84 } elsif ($data eq 'Select Branch') {
86 } elsif ($data eq 'Select Printer') {
88 } elsif ($data eq 'Borrower Enquiries') {
89 # $donext=Borenq($env); #C4::Circulation::Borrower - conversion
90 } elsif ($data eq 'Reserves'){
91 $donext=EnterReserves($env); #C4::Reserves
92 } elsif ($data eq 'Quit') {
100 END { } # module clean-up code here (global destructor)