*** empty log message ***

This commit is contained in:
tipaul 2003-01-23 12:31:23 +00:00
parent 6b839bdca2
commit ad5d56adf6

View file

@ -53,8 +53,10 @@ sub acquisitions {
sub catalogue_search {
my $aq_type = C4::Context->preference("marc") || "ON";
my $query = new CGI;
my $type = $query->param('type');
if ($aq_type eq 'ON') {
print $input->redirect("/cgi-bin/koha/search.marc/search.pl");
print $input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
} else {
print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
}