Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Fixes to interface

Browse source
This commit is contained in:
olwen 1999-11-30 21:33:17 +00:00
parent 2a2e2ef664
commit 646084c055
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
C4/Circulation.pm
View file

@ -62,11 +62,15 @@ sub Start_circ{
#start interface
&startint($env,'Circulation');
my $donext = 'Circ';
while ($donext eq 'Circ') {
clearscreen();
my ($reason,$data) = menu('console','Circulation',
('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
debug_msg($env,"data = $data");
my $reason;
my $data;
while ($donext ne 'Quit') {
if ($donext eq "Circ") {
clearscreen();
($reason,$data) = menu('console','Circulation',
('Issues','Returns','Borrower Enquiries','Reserves','Log In'));
debug_msg($env,"data = $data");
}
if ($data eq 'Issues') {
$donext=Issue($env); #C4::Circulation::Issues
#debug_msg("","do next $donext");
@ -83,7 +87,7 @@ sub Start_circ{
} elsif ($data eq 'Quit') {
$donext = $data;
}
#debug_msg($env,"donext - $donext");
debug_msg($env,"donext - $donext");
}
&endint($env)
}