From 5d4d12fe31d42f273eb75aeca47844b5996ee988 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 13 Feb 2003 18:02:10 +0000
Subject: [PATCH] Road to 1.9.1 : * loadmodule.pl manages cataloguing link too

---
 loadmodules.pl | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/loadmodules.pl b/loadmodules.pl
index 15912aa380..8c25ef75c1 100755
--- a/loadmodules.pl
+++ b/loadmodules.pl
@@ -31,6 +31,7 @@ my $module=$input->param('module');
 SWITCH: {
 	if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
 	if ($module eq 'search') { catalogue_search(); last SWITCH; }
+	if ($module eq 'cataloguing') {cataloguing(); last SWITCH; }
 	if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
 }
 
@@ -45,9 +46,9 @@ sub acquisitions {
 	if ($aq_type eq 'simple') {
 		print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
 	} elsif ($aq_type eq 'normal') {
-		print $input ->redirect("/acquisitions");
+		print $input ->redirect("/cgi-bin/koha/acqui/acqui-home.pl");
 	} else {
-		print $input ->redirect("/acquisitions");
+		print $input ->redirect("/cgi-bin/koha/acqui/acqui-home.pl");
 	}
 }
 
@@ -63,6 +64,18 @@ sub catalogue_search {
 	}
 }
 
+sub cataloguing {
+	my $marc_p = C4::Context->boolean_preference("marc");
+	$marc_p = 1 unless defined $marc_p;
+	my $query = new CGI;
+	my $type = $query->param('type');
+	if ($marc_p) {
+		print $input->redirect("/cgi-bin/koha/cataloguing.marc/cataloguing-home.pl");
+	} else {
+		print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
+	}
+}
+
 sub somethingelse {
 # just an example subroutine
 }
-- 
2.39.5