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

Interface updates

Browse source
This commit is contained in:
olwen 1999-11-06 22:40:20 +00:00
parent 07a4aca6ef
commit 6942a667be
2 changed files with 35 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
C4/Circulation/Issues.pm
View file

@ -68,13 +68,11 @@ sub Issue {
#now check items
clearscreen();
my ($items,$items2)=pastitems($env,$bornum,$dbh);
# my @items2;
# $items2[0]=" "x30;
my $done = "No";
my $row2=5;
my $it2p=0;
while ($done eq 'No'){
($done,$items2,$row2)=&processitems($env,$bornum,$borrower,$items,$items2,$row2);
($done,$items2,$row2,$it2p) =&processitems($env,$bornum,$borrower,$items,$items2,$row2,$it2p);
}
$dbh->disconnect;
if ($done ne 'Circ'){
@ -91,7 +89,7 @@ sub processitems {
# clearscreen();
# output(1,1,"Processing Items");
helptext("F11 Ends processing for current borrower F10 ends issues");
my ($env,$bornum,$borrower,$items,$items2,$row2)=@_;
my ($env,$bornum,$borrower,$items,$items2,$row2,$it2p)=@_;
my $dbh=&C4Connect;
my $row=5;
# my $count=$$items;
@ -104,11 +102,13 @@ sub processitems {
my ($itemnum,$reason)=issuewindow($env,'Issues',$items,$items2,$borrower,"Borrower barcode");
if ($itemnum ne ""){
debug_msg($env,"borrower $bornum item $itemnum");
my ($item) = &issueitem($env,$dbh,$itemnum,$bornum,$items);
my $item = &issueitem($env,$dbh,$itemnum,$bornum,$items);
output(40,$row2,$item->{'title'});
debug_msg($env,"$it2p - $item->{'title'}");
#unshift $items2,substr(($item->{'title'}.(" "x30)),0,30);
#$items2[$row2-5]=substr(($item->{'title'}.(" "x30)),0,30);
$items2->[$it2p]=substr(($item->{'title'}.(" "x30)),0,30);
$row2++;
$it2p++;
}
$dbh->disconnect;
@ -118,7 +118,7 @@ sub processitems {
} else {
if ($reason ne 'Finished issues'){
#return No to let them know that we wish to process more Items for borrower
return('No',$items2,$row2);
return('No',$items2,$row2,$it2p);
} else {
return('Circ');
}
@ -132,12 +132,10 @@ sub issueitem{
## my ($itemnum,$reason)=&scanbook();
my $query="Select * from items,biblio where (barcode='$itemnum') and
(items.biblionumber=biblio.biblionumber)";
# my $query="Select * from items where barcode ='$itemnum'";
my $item;
my $sth=$dbh->prepare($query);
$sth->execute;
if (my $item=$sth->fetchrow_hashref) {
if ($item=$sth->fetchrow_hashref) {
debug_msg($env,$item->{'title'});
#$items2=(substr($item.(" "x30),0,30));
#$items2->Append(substr($item.(" "x30),0,30));
@ -165,7 +163,7 @@ sub issueitem{
&UpdateStats($env,$env->{'branchcode'},'issue');
}
} else {
debug_msg($env,"$itemnum not found");
error_msg($env,"$itemnum not found");
}
return($item);
}

27
C4/Interface.pm
View file

@ -19,7 +19,7 @@ $VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext
&textbox &menu &issuewindow &msg_yn &borrower_dialog &debug_msg);
&textbox &menu &issuewindow &msg_yn &borrower_dialog &debug_msg &error_msg);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
@ -139,9 +139,17 @@ sub issuewindow {
my $li2 = Newt::Listbox(10,
NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE | NEWT_FLAG_SCROLL);
my $li3 = Newt::Listbox(5, NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE);
$li1->Add($items1->[0],$items1->[1]);
my $i = 0;
while ($items1->[$i]) {
$li1->Add($items1->[$i]);
$i++;
}
# $li2->Add($items2->{'title'});
$li2->Add($items2);
$i = 0;
while ($items2->[$i]) {
$li2->Add($items2->[$i]);
$i++;
}
$li3->Add("$borrower->{title} $borrower->{'firstname'}","$borrower->{'streetaddres'}",
"$borrower->{'city'}");
$panel->AddHotKey(NEWT_KEY_F11);
@ -262,7 +270,18 @@ sub msg_yn {
sub debug_msg {
my ($env,$text)=@_;
my $panel1=Newt::Panel(4,4,"");
my $panel1=Newt::Panel(4,4,"*** D E B U G ***");
my $label1=Newt::Label($text);
my $butt=Newt::Button("Okay");
$panel1->Add(0,0,$label1,NEWT_ANCHOR_TOP);
$panel1->Add(0,1,$butt,NEWT_ANCHOR_TOP);
my ($reason,$data) =$panel1->Run();
return();
}
sub error_msg {
my ($env,$text)=@_;
my $panel1=Newt::Panel(4,4,"!!ERROR!!");
my $label1=Newt::Label($text);
my $butt=Newt::Button("Okay");
$panel1->Add(0,0,$label1,NEWT_ANCHOR_TOP);