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

test

Browse source
This commit is contained in:
chris 1999-11-13 09:23:48 +00:00
parent b84a68b4ce
commit 7f3d752c5d
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
C4/Interface.pm
View file

@ -166,17 +166,18 @@ sub selborrower {
if ($numbors>15) { if ($numbors>15) {
$numbors = 15; $numbors = 15;
} }
my $li = Newt::Listbox($numbors, NEWT_FLAG_MULTIPLE );
my $li = Newt::Listbox($numbors, NEWT_FLAG_MULTIPLE | NEWT_FLAG_RETURNEXIT);
$li->Add(@borrows); $li->Add(@borrows);
my $bdata; my $bdata;
my $butt = Newt::Button("Okay"); # my $butt = Newt::Button("Okay");
$panel->Add(0,0,$li,NEWT_ANCHOR_TOP); $panel->Add(0,0,$li,NEWT_ANCHOR_TOP);
$panel->Add(0,1,$butt,NEWT_ANCHOR_TOP); # $panel->Add(0,1,$butt,NEWT_ANCHOR_TOP);
$panel->AddHotKey(NEWT_KEY_F11); $panel->AddHotKey(NEWT_KEY_F11);
my ($reason,$data)=$panel->Run(); my ($reason,$data)=$panel->Run();
my @stuff=$li->Get(); my @stuff=$li->Get();
debug_msg("",@stuff[0]); debug_msg("",@stuff[0]);
my $data=$stuff[0]; my $data=(0,9,$stuff[0]);
if ($data ne "") { if ($data ne "") {
my $bornum = substr($data,0,9); my $bornum = substr($data,0,9);
my $query = "select * from borrowers where cardnumber = '$bornum'"; my $query = "select * from borrowers where cardnumber = '$bornum'";