*** empty log message ***

diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl
index 53c99b2..c389819 100755 (executable)
--- 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 875729b..62ff2b8 100755 (executable)
--- 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 8cf93e9..98a90de 100755 (executable)
--- 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 a71467c..82410b4 100755 (executable)
--- 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 39e95d4..d59950f 100755 (executable)
--- 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 (<C>) {
-#   $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 0e59718..f430dba 100755 (executable)
--- 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);