From 036eda517edb2a08c10d0fdbfb229b3ee084b774 Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 17 Jan 2006 16:34:22 +0000 Subject: [PATCH] removing website management, that is now useless --- deletewebsite.pl | 39 ----------------------------- modwebsites.pl | 65 ------------------------------------------------ updatewebsite.pl | 51 ------------------------------------- 3 files changed, 155 deletions(-) delete mode 100755 deletewebsite.pl delete mode 100755 modwebsites.pl delete mode 100755 updatewebsite.pl diff --git a/deletewebsite.pl b/deletewebsite.pl deleted file mode 100755 index 98092b5743..0000000000 --- a/deletewebsite.pl +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl - - -# 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 strict; -use C4::Catalogue; -use CGI; - -my $input = new CGI; -my $biblionumber = $input->param('biblionumber'); -my $websitenumber = $input->param('websitenumber'); - -if (! $biblionumber) { - print $input->redirect("/catalogue/"); - -} elsif (! $websitenumber) { - print $input->param("modwebsite.pl?biblionumber=$biblionumber"); - -} else { - &deletewebsite($websitenumber); - - print $input->redirect("modwebsites.pl?biblionumber=$biblionumber"); -} # else diff --git a/modwebsites.pl b/modwebsites.pl deleted file mode 100755 index 05a4a54ada..0000000000 --- a/modwebsites.pl +++ /dev/null @@ -1,65 +0,0 @@ -#!/usr/bin/perl - - -# 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 - -# modified by hdl@ifrance.com 12/16/2002, templating - -use strict; - -use C4::Biblio; -use CGI; -use C4::Output; -use HTML::Template; -use C4::Auth; - -my $input = new CGI; -my $biblionumber = $input->param('biblionumber'); -my ($count, @websites) = &getwebsites($biblionumber); - -if ($biblionumber eq '') { - print $input->redirect("/catalogue/"); -} # if - -#print $input->header; -#print startpage(); -#print startmenu(); -my ($template, $loggedinuser, $cookie) = get_template_and_user({ - template_name => "modwebsites.tmpl", - query => $input, - type => "intranet", - flagsrequired => {catalogue => 1}, - }); - - - -my @websitesloop; -for (my $i = 0; $i < $count; $i++) { - my %website; - $website{'biblionumber'}=$biblionumber; - $website{'websitenumber'}=$websites[$i]->{'websitenumber'}; - $website{'title'}=$websites[$i]->{'title'}; - $website{'description'}=$websites[$i]->{'description'}; - $website{'url'}=$websites[$i]->{'url'}; - push (@websitesloop, \%website); -} # for - -$template->param( biblionumber => $biblionumber, - websitesloop => \@websitesloop); - -print "Content-Type: text/html\n\n", $template->output; diff --git a/updatewebsite.pl b/updatewebsite.pl deleted file mode 100755 index c2c3a9a391..0000000000 --- a/updatewebsite.pl +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl - -# $Id$ - -# 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 strict; -use C4::Catalogue; -use CGI; - -my $input = new CGI; -my $biblionumber = $input->param('biblionumber'); -my $websitenumber = $input->param('websitenumber'); -my $website = { - biblionumber => $biblionumber, - websitenumber => $websitenumber, - title => $input->param('title')?$input->param('title'):"", - description => $input->param('description')?$input->param('description'):"", - url => $input->param('url')?$input->param('url'):"" -}; # my $website - - -if ($input->param('delete')) { - print $input->redirect("deletewebsite.pl?biblionumber=$biblionumber&websitenumber=$websitenumber"); - -} elsif (! $biblionumber) { - print $input->redirect("/catalogue/"); - -} elsif (! $websitenumber) { - print $input->redirect("modwebsites.pl?biblionumber=$biblionumber"); - -} else { - &updatewebsite($website); - - print $input->redirect("modwebsites.pl?biblionumber=$biblionumber"); -} # else -- 2.39.5