From 547c0daf6d4b511094bf7145af4f3e9087512c65 Mon Sep 17 00:00:00 2001 From: tipaul Date: Wed, 19 Mar 2003 21:02:24 +0000 Subject: [PATCH] *** empty log message *** --- acqui/acqui-home.pl | 3 +-- acqui/acquire.pl | 1 - acqui/receive.pl | 1 - admin-home.pl | 1 - catalogue-home.pl | 7 +------ search.pl | 3 ++- 6 files changed, 4 insertions(+), 12 deletions(-) diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl index 53c99b2c58..c3898192cd 100755 --- a/acqui/acqui-home.pl +++ b/acqui/acqui-home.pl @@ -51,8 +51,7 @@ for (my $i=0;$i<$count;$i++){ $line{rate} = $rates->[$i]->{'rate'}; push @loop_currency, \%line; } -$template->param(loggedinuser => $loggedinuser, - classlist => $classlist, +$template->param(classlist => $classlist, type => 'intranet', loop_budget => \@loop_budget, loop_currency => \@loop_currency, diff --git a/acqui/acquire.pl b/acqui/acquire.pl index 875729b286..62ff2b8e1a 100755 --- a/acqui/acquire.pl +++ b/acqui/acquire.pl @@ -177,7 +177,6 @@ if ($count == 1){ push @loop,\%line; } $template->param( loop => \@loop, - user => $loggedinuser, date => $date, name => $booksellers[0]->{'name'}, id => $id, diff --git a/acqui/receive.pl b/acqui/receive.pl index 8cf93e9731..98a90def8a 100755 --- a/acqui/receive.pl +++ b/acqui/receive.pl @@ -97,7 +97,6 @@ $totalfreight=$freight; $tototal=$tototal+$freight; $template->param(invoice => $invoice, - user => $loggedinuser, date => $date, name => $booksellers[0]->{'name'}, id => $id, diff --git a/admin-home.pl b/admin-home.pl index a71467ca6a..82410b4d5e 100755 --- a/admin-home.pl +++ b/admin-home.pl @@ -17,6 +17,5 @@ my ($template, $loggedinuser, $cookie) flagsrequired => {parameters => 1}, debug => 1, }); -$template->param(loggeninuser => $loggedinuser); output_html_with_http_headers $query, $cookie, $template->output; diff --git a/catalogue-home.pl b/catalogue-home.pl index 39e95d4e79..d59950f1f8 100755 --- a/catalogue-home.pl +++ b/catalogue-home.pl @@ -19,12 +19,7 @@ my ($template, $loggedinuser, $cookie) }); my $classlist=''; -#open C, "$intranetdir/htdocs/includes/cat-class-list.inc"; -#while () { -# $classlist.=$_; -#} -$template->param(loggedinuser => $loggedinuser, - classlist => $classlist, +$template->param(classlist => $classlist, type => 'intranet',); output_html_with_http_headers $query, $cookie, $template->output; diff --git a/search.pl b/search.pl index 0e59718537..f430dbaa68 100755 --- a/search.pl +++ b/search.pl @@ -86,7 +86,8 @@ foreach my $term (qw(keyword subject author illustrator itemnumber next unless defined $value && $value ne ""; # Skip blank search terms $search{$term} = $value; - push @forminputs, { line => "$term=$value" }; + push @forminputs, { term => $term, + value =>$value }; } $template->param(FORMINPUTS => \@forminputs); -- 2.39.2