projects
/
koha_gimpoz
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6b839bd
)
*** empty log message ***
author
tipaul
<tipaul>
Thu, 23 Jan 2003 12:31:23 +0000
(12:31 +0000)
committer
tipaul
<tipaul>
Thu, 23 Jan 2003 12:31:23 +0000
(12:31 +0000)
loadmodules.pl
patch
|
blob
|
history
diff --git
a/loadmodules.pl
b/loadmodules.pl
index
ed51f05
..
3503093
100755
(executable)
--- a/
loadmodules.pl
+++ b/
loadmodules.pl
@@
-53,8
+53,10
@@
sub acquisitions {
sub catalogue_search {
my $aq_type = C4::Context->preference("marc") || "ON";
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') {
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");
}
} else {
print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
}