Interface updates
This commit is contained in:
parent
07a4aca6ef
commit
6942a667be
2 changed files with 35 additions and 18 deletions
|
@ -68,13 +68,11 @@ sub Issue {
|
||||||
#now check items
|
#now check items
|
||||||
clearscreen();
|
clearscreen();
|
||||||
my ($items,$items2)=pastitems($env,$bornum,$dbh);
|
my ($items,$items2)=pastitems($env,$bornum,$dbh);
|
||||||
|
|
||||||
# my @items2;
|
|
||||||
# $items2[0]=" "x30;
|
|
||||||
my $done = "No";
|
my $done = "No";
|
||||||
my $row2=5;
|
my $row2=5;
|
||||||
|
my $it2p=0;
|
||||||
while ($done eq 'No'){
|
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;
|
$dbh->disconnect;
|
||||||
if ($done ne 'Circ'){
|
if ($done ne 'Circ'){
|
||||||
|
@ -91,7 +89,7 @@ sub processitems {
|
||||||
# clearscreen();
|
# clearscreen();
|
||||||
# output(1,1,"Processing Items");
|
# output(1,1,"Processing Items");
|
||||||
helptext("F11 Ends processing for current borrower F10 ends issues");
|
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 $dbh=&C4Connect;
|
||||||
my $row=5;
|
my $row=5;
|
||||||
# my $count=$$items;
|
# my $count=$$items;
|
||||||
|
@ -104,11 +102,13 @@ sub processitems {
|
||||||
my ($itemnum,$reason)=issuewindow($env,'Issues',$items,$items2,$borrower,"Borrower barcode");
|
my ($itemnum,$reason)=issuewindow($env,'Issues',$items,$items2,$borrower,"Borrower barcode");
|
||||||
if ($itemnum ne ""){
|
if ($itemnum ne ""){
|
||||||
debug_msg($env,"borrower $bornum item $itemnum");
|
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'});
|
output(40,$row2,$item->{'title'});
|
||||||
|
debug_msg($env,"$it2p - $item->{'title'}");
|
||||||
#unshift $items2,substr(($item->{'title'}.(" "x30)),0,30);
|
#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++;
|
$row2++;
|
||||||
|
$it2p++;
|
||||||
}
|
}
|
||||||
|
|
||||||
$dbh->disconnect;
|
$dbh->disconnect;
|
||||||
|
@ -118,7 +118,7 @@ sub processitems {
|
||||||
} else {
|
} else {
|
||||||
if ($reason ne 'Finished issues'){
|
if ($reason ne 'Finished issues'){
|
||||||
#return No to let them know that we wish to process more Items for borrower
|
#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 {
|
} else {
|
||||||
return('Circ');
|
return('Circ');
|
||||||
}
|
}
|
||||||
|
@ -131,13 +131,11 @@ sub issueitem{
|
||||||
my $canissue = 1;
|
my $canissue = 1;
|
||||||
## my ($itemnum,$reason)=&scanbook();
|
## my ($itemnum,$reason)=&scanbook();
|
||||||
my $query="Select * from items,biblio where (barcode='$itemnum') and
|
my $query="Select * from items,biblio where (barcode='$itemnum') and
|
||||||
(items.biblionumber=biblio.biblionumber)";
|
(items.biblionumber=biblio.biblionumber)";
|
||||||
|
|
||||||
# my $query="Select * from items where barcode ='$itemnum'";
|
|
||||||
my $item;
|
my $item;
|
||||||
my $sth=$dbh->prepare($query);
|
my $sth=$dbh->prepare($query);
|
||||||
$sth->execute;
|
$sth->execute;
|
||||||
if (my $item=$sth->fetchrow_hashref) {
|
if ($item=$sth->fetchrow_hashref) {
|
||||||
debug_msg($env,$item->{'title'});
|
debug_msg($env,$item->{'title'});
|
||||||
#$items2=(substr($item.(" "x30),0,30));
|
#$items2=(substr($item.(" "x30),0,30));
|
||||||
#$items2->Append(substr($item.(" "x30),0,30));
|
#$items2->Append(substr($item.(" "x30),0,30));
|
||||||
|
@ -165,7 +163,7 @@ sub issueitem{
|
||||||
&UpdateStats($env,$env->{'branchcode'},'issue');
|
&UpdateStats($env,$env->{'branchcode'},'issue');
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
debug_msg($env,"$itemnum not found");
|
error_msg($env,"$itemnum not found");
|
||||||
}
|
}
|
||||||
return($item);
|
return($item);
|
||||||
}
|
}
|
||||||
|
|
|
@ -19,7 +19,7 @@ $VERSION = 0.01;
|
||||||
|
|
||||||
@ISA = qw(Exporter);
|
@ISA = qw(Exporter);
|
||||||
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext
|
@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! ],
|
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
|
||||||
|
|
||||||
# your exported package globals go here,
|
# your exported package globals go here,
|
||||||
|
@ -139,9 +139,17 @@ sub issuewindow {
|
||||||
my $li2 = Newt::Listbox(10,
|
my $li2 = Newt::Listbox(10,
|
||||||
NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE | NEWT_FLAG_SCROLL);
|
NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE | NEWT_FLAG_SCROLL);
|
||||||
my $li3 = Newt::Listbox(5, NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE);
|
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->{'title'});
|
||||||
$li2->Add($items2);
|
$i = 0;
|
||||||
|
while ($items2->[$i]) {
|
||||||
|
$li2->Add($items2->[$i]);
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
$li3->Add("$borrower->{title} $borrower->{'firstname'}","$borrower->{'streetaddres'}",
|
$li3->Add("$borrower->{title} $borrower->{'firstname'}","$borrower->{'streetaddres'}",
|
||||||
"$borrower->{'city'}");
|
"$borrower->{'city'}");
|
||||||
$panel->AddHotKey(NEWT_KEY_F11);
|
$panel->AddHotKey(NEWT_KEY_F11);
|
||||||
|
@ -262,7 +270,18 @@ sub msg_yn {
|
||||||
|
|
||||||
sub debug_msg {
|
sub debug_msg {
|
||||||
my ($env,$text)=@_;
|
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 $label1=Newt::Label($text);
|
||||||
my $butt=Newt::Button("Okay");
|
my $butt=Newt::Button("Okay");
|
||||||
$panel1->Add(0,0,$label1,NEWT_ANCHOR_TOP);
|
$panel1->Add(0,0,$label1,NEWT_ANCHOR_TOP);
|
||||||
|
|
Loading…
Reference in a new issue