From c509c3d63391d7091d108a65c010138f3c63868a Mon Sep 17 00:00:00 2001 From: rangi Date: Wed, 19 Jun 2002 01:32:37 +0000 Subject: [PATCH] pop up pay window is working again --- circ/circulation.pl | 34 ++++++++++++++++++++++++++++++++-- 1 file changed, 32 insertions(+), 2 deletions(-) diff --git a/circ/circulation.pl b/circ/circulation.pl index ffcfcc4a43..6b4b67af39 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -66,7 +66,7 @@ if ($findborrower) { } my $borrowernumber = $query->param('borrnumber'); - +my $bornum = $query->param('borrnumber'); # check and see if we should print my $print=$query->param('print'); my $barcode = $query->param('barcode'); @@ -319,6 +319,15 @@ my $barcodeentrytext = <<"EOF"; +EOF +if ($flags->{'CHARGES'}){ + $barcodeentrytext.=""; +} +my $amountold=$flags->{'CHARGES'}->{'message'}; +my @temp=split(/\$/,$amountold); +$amountold=$temp[1]; +$barcodeentrytext.=""; +$barcodeentrytext.=<<"EOF"; @@ -420,7 +429,28 @@ if ($branchcookie && $printercookie) { } print startpage(); -print startmenu('circulation'); +my @inp=startmenu('circulation'); +if ($query->param('barcode') eq '' && $query->param('charges') eq 'yes'){ + my $count=@inp; + for (my $i=0;$i<$count;$i++){ + $inp[$i]=~ s/onLoad=focusinput\(\)/onLoad=focusinput\(\)\;messenger\(\"\/cgi-bin\/koha\/pay.pl?bornum=$bornum\"\)\;window1.focus\(\)/; + } +} + +print @inp; +print < + + +EOF +; + + +#print startmenu('circulation'); print $title; -- 2.39.5