[Koha-cvs] koha loadmodules.pl [rel_3_0]
Antoine Farnault
antoine at koha-fr.org
Tue Aug 29 16:36:38 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 06/08/29 14:36:38
Removed files:
. : loadmodules.pl
Log message:
Unused in rel_3_0
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/loadmodules.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.20&r2=0
Patches:
Index: loadmodules.pl
===================================================================
RCS file: loadmodules.pl
diff -N loadmodules.pl
--- loadmodules.pl 9 Feb 2006 03:20:38 -0000 1.20
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-#script to show list of budgets and bookfunds
-#written 4/2/00 by chris at katipo.co.nz
-#called as an include by the acquisitions index page
-
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use C4::Context;
-use CGI;
-my $input=new CGI;
-
-my $module=$input->param('module');
-
-SWITCH: {
- if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
- if ($module eq 'search') { catalogue_search(); last SWITCH; }
- if ($module eq 'addbiblio') {addbiblio(); last SWITCH;}
- if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
-}
-
-sub acquisitions {
- my $aq_type = $input->param('acquisitions');
- $aq_type = C4::Context->preference("acquisitions") || "normal" unless $aq_type;
- my $marc_bool =$input->param('MARC');
- $marc_bool = C4::Context->boolean_preference('marc') || 0 unless $marc_bool;
- # Get the acquisition preference. This should be:
- # "simple" - minimal information required
- # "normal" - full information required
- # other - Same as "normal"
-
- if ($aq_type eq 'simple') {
- print $input->redirect("/cgi-bin/koha/cataloguing/addbooks.pl");
- } else {
- print $input ->redirect("/cgi-bin/koha/acqui/acqui-home.pl");
- }
-}
-
-sub addbiblio {
- my $marc_bool = C4::Context->boolean_preference("MARC") || 0;
- if ($marc_bool eq "1") {
- print $input->redirect("/cgi-bin/koha/cataloguing/addbooks.pl");
- } else {
- print $input->redirect("/cgi-bin/koha/cataloguing/addbiblio-nomarc.pl");
- }
-}
-
-sub catalogue_search {
- my $marc_p = $input->param('marc');
- $marc_p = C4::Context->boolean_preference('marc') unless defined $marc_p;
- $marc_p = 'ON' unless defined $marc_p;
- my $keyword=$input->param('keyword');
- my $query = new CGI;
- my $type = $query->param('type');
-# if ($keyword) {
-# if ($marc_p) {
-# print $input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
-# } else {
-# print $input ->redirect("/cgi-bin/koha/search.pl?keyword=$keyword");
-# }
-# } else {
-# if ($marc_p) {
- print $input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
-# } else {
-# print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
-# }
-# }
-}
-
-sub somethingelse {
-# just an example subroutine
-}
More information about the Koha-cvs
mailing list