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

Made screens smaller

Browse source
This commit is contained in:
olwen 1999-11-13 08:25:21 +00:00
parent e5c2c32d7f
commit 58ff8c5add
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
C4/Circulation/Returns.pm
View file

@ -109,7 +109,7 @@ sub checkissue {
if (my $issuerec=$sth->fetchrow_hashref) {
$sth->finish;
$query = "select * from borrowers where
(borrowernumber = '$issuerec->{'borrowernumber'}')";
(borrowernumber = '$issuerec->{'borrowernumber'}')";
my $sth= $dbh->prepare($query);
$sth->execute;
$borrower = $sth->fetchrow_hashref;

16
C4/Interface.pm
View file

@ -192,7 +192,8 @@ sub selborrower {
sub returnwindow {
my ($env,$title,$item,$items,$borrower,$amountowing)=@_;
my $panel = Newt::Panel(5,10,$title);
my $panel = Newt::Panel(1,4,$title);
my $panel2 = Newt::Panel(3,2,"");
my $entry = Newt::Entry(10,NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);
my $accchk = Newt::Checkbox("Accumulate", " ", " NY");
my $la1 = Newt::Label("Total Amount");
@ -204,12 +205,13 @@ sub returnwindow {
$li1->Add($items->[$i]);
$i++;
}
$panel->Add(0,0,$entry,NEWT_ANCHOR_LEFT);
$panel->Add(1,0,$accchk,NEWT_ANCHOR_LEFT);
$panel->Add(2,0,$la1,NEWT_ANCHOR_RIGHT);
$panel->Add(2,1,$fee,NEWT_ANCHOR_RIGHT);
$panel->Add(0,2,$l1,NEWT_ANCHOR_LEFT);
$panel->Add(0,3,$li1,NEWT_ANCHOR_LEFT);
$panel2->Add(0,0,$entry,NEWT_ANCHOR_LEFT);
$panel2->Add(1,0,$accchk,NEWT_ANCHOR_LEFT);
$panel2->Add(2,0,$la1,NEWT_ANCHOR_RIGHT);
$panel2->Add(2,1,$fee,NEWT_ANCHOR_RIGHT);
$panel->Add(0,0,$panel2,NEWT_ANCHOR_LEFT);
$panel->Add(0,1,$l1,NEWT_ANCHOR_LEFT);
$panel->Add(0,2,$li1,NEWT_ANCHOR_LEFT);
$panel->AddHotKey(NEWT_KEY_F11);
$panel->AddHotKey(NEWT_KEY_F10);
my ($reason,$data)=$panel->Run();