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

Got circulation menu appearing, and case insensitive barcodes

Browse source
This commit is contained in:
chris 1999-11-01 00:46:07 +00:00
parent eb2acae467
commit d721956b71
2 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
C4/Circulation.pm
View file

@ -55,7 +55,12 @@ sub Start_circ{
#connect to database
#start interface
startint('Circulation');
Issue();
my ($data,$reason)=menu('console','Circulation',('Issues','Returns','Borrower Enquiries'));
# output (1,1,$data);
# pause();
if ($data eq '1'){
Issue();
}
&endint();
}
@ -206,6 +211,7 @@ sub scanborrower {
#scan barcode
# my $number='V00126643';
my ($number,$reason)=&dialog("Borrower Barcode:");
$number=uc $number;
return ($number);
}

15
C4/Interface.pm
View file

@ -16,7 +16,7 @@ $VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext
&list &textbox);
&textbox &menu);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
@ -64,7 +64,14 @@ sub startint {
Newt::Cls();
Newt::PushHelpLine('F11 escapes');
Newt::DrawRootText(0,0,$msg);
# Newt::Finished();
}
sub menu {
my ($type,$title,@items)=@_;
if ($type eq 'console'){
my ($data,$reason)=list($title,@items);
return($reason,$data);
}
}
sub clearscreen{
@ -97,9 +104,9 @@ sub helptext {
}
sub list {
my (@items)=@_;
my ($title,@items)=@_;
my $numitems=@items;
my $panel = Newt::Panel(70, 4, "");
my $panel = Newt::Panel(70, 4, $title);
my $li = Newt::Listbox($numitems, NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);
$li->Add(@items);
$panel->Add(0,0,$li,NEWT_ANCHOR_LEFT);