From 6bff70151f55801c317376b3a24103e3bd0e640d Mon Sep 17 00:00:00 2001 From: hdl Date: Tue, 28 Jan 2003 00:48:36 +0000 Subject: [PATCH] Templating branchtransfers.pl --- circ/branchtransfers.pl | 436 ++++++++++++++++------------------------ 1 file changed, 178 insertions(+), 258 deletions(-) diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index 70990a00e0..c895a94d63 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -27,6 +27,7 @@ use C4::Circulation::Circ2; use C4::Output; use C4::Reserves2; use C4::Auth; +use HTML::Template; ############################################### # constants @@ -53,319 +54,238 @@ my ($loggedinuser, $sessioncookie, $sessionID) = checkauth($query); my $branch = $query->param("branch"); my $printer = $query->param("printer"); - ($branch) || ($branch=$query->cookie('branch')) ; ($printer) || ($printer=$query->cookie('printer')) ; ($branches->{$branch}) || ($branch=(keys %$branches)[0]); ($printers->{$printer}) || ($printer=(keys %$printers)[0]); -my $request=$query->param('request'); +my $genbrname = $branches->{$branch}->{'branchname'} ; +my $genprname = $printers->{$printer}->{'printername'}; +my $messages; +my $found; +my $reserved; +my $waiting; +my $reqmessage; +my $cancelled; +my $setwaiting; +my $reqbrchname; + +my $request=$query->param('request'); +my $borrnum = $query->param('borrowernumber'); my $tobranchcd=$query->param('tobranchcd'); my $frbranchcd=''; -# set up the branchselect options.... -my $tobranchoptions; -foreach my $br (keys %$branches) { - (next) unless $branches->{$br}->{'CU'}; - my $selected=''; - ($selected='selected') if ($br eq $tobranchcd); - $tobranchoptions.="