[Koha-cvs] koha/cataloguing keywordsearch.pl websitesearch.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/11/30 14:11:37

Removed files:
        cataloguing    : keywordsearch.pl websitesearch.pl 

Log message:
        unused scripts.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/keywordsearch.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/websitesearch.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=0

Patches:
Index: keywordsearch.pl
===================================================================
RCS file: keywordsearch.pl
diff -N keywordsearch.pl
--- keywordsearch.pl    17 Jan 2006 16:40:54 -0000      1.1
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,123 +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 CGI;
-use strict;
-# use C4::Catalogue;
-use C4::Biblio;
-use C4::Search;
-use C4::Output;
-
-my $input    = new CGI;
-my $keywords = $input->param('keyword');
-my $offset   = $input->param('offset');
-my $num      = $input->param('num');
-my $total;
-my $count;
-my @results;
-
-if (! $keywords) {
-    print $input->redirect('addbooks.pl');
-} else {
-    if (! $offset) { $offset = 0 };
-    if (! $num) { $num = 10 };
-    my %search;
-    $search{'keyword'}=$keywords;
-    ($count, @results) = KeywordSearch(undef,'intra',\%search,$num,$offset);
-
-    if ($count < ($offset + $num)) {
-        $total = $count;
-    } else {
-       $total = $offset + $num;
-    } # else
-
-    print $input->header;
-    print startpage();
-    print startmenu('acquisitions');
-
-    print << "EOF";
-<font size="6"><em>Biblio Search Results</em></font><br />
-<CENTER>
-You searched on <b>keywords $keywords,</b> $count results found <br />
-Results $offset to $total displayed
-<div align="right">
-<h2><a href="addbiblio.pl">Add New Biblio</a></h2>
-</div>
-<p />
-<table border="0" cellspacing="0" cellpadding="5">
-<tr valign=top bgcolor=#cccc99>
-<td background="/images/background-mem.gif"><b>TITLE</b></td>
-<td background="/images/background-mem.gif"><b>AUTHOR</b></td>
-<td background="/images/background-mem.gif"><b>&copy;</b></td>
-</tr>
-EOF
-
-    for (my $i = 0; $i < ($total - $offset); $i++) {
-       if ($i % 2) {
-           print << "EOF";
-<tr valign="top" bgcolor="#ffffcc">
-EOF
-       } else {
-           print << "EOF";
-<tr valign="top" bgcolor="#ffffff">
-EOF
-       } # else
-
-       print << "EOF";
-<td><a 
href="additem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'title'}</a></td>
-<td><a 
href="additem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'author'}</a></td>
-<td>$results[$i]->{'copyrightdate'}</td>
-</tr>
-EOF
-    } # for
-
-    print << "EOF";
-<tr valign=top bgcolor=#cccc99>
-<td background="/images/background-mem.gif">&nbsp;</td>
-<td background="/images/background-mem.gif">&nbsp;</td>
-<td background="/images/background-mem.gif">&nbsp;</td>
-</tr>
-</table>
-<br />
-EOF
-
-    for (my $i = 0; ($i * $num) < $count; $i++) {
-       my $newoffset = $i * $num;
-       my $shownumber = $i + 1;
-       print << "EOF";
-<a 
href="keywordsearch.pl?keyword=$keywords&offset=$newoffset&num=$num">$shownumber</a>
-EOF
-    } # for
-
-    print << "EOF";
-<p />
-Results per page:
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=5">5</a>
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=10">10</a>
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=20">20</a>
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=50">50</a>
-</CENTER>
-<br clear="all" />
-<p>&nbsp;</p>
-EOF
-
-    print endmenu();
-    print endpage();
-} # else

Index: websitesearch.pl
===================================================================
RCS file: websitesearch.pl
diff -N websitesearch.pl
--- websitesearch.pl    17 Jan 2006 16:40:54 -0000      1.1
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,119 +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 CGI;
-use strict;
-# use C4::Catalogue;
-use C4::Biblio;
-use C4::Output;
-
-my $input    = new CGI;
-my $keywords = $input->param('keyword');
-my $offset   = $input->param('offset');
-my $num      = $input->param('num');
-my $total;
-my $count;
-my @results;
-
-if (! $keywords) {
-    print $input->redirect('addbooks.pl');
-} else {
-    if (! $offset) { $offset = 0 };
-    if (! $num) { $num = 10 };
-
-    ($count, @results) = &websitesearch($keywords);
-
-    if ($count < ($offset + $num)) {
-        $total = $count;
-    } else {
-       $total = $offset + $num;
-    } # else
-
-    print $input->header;
-    print startpage();
-    print startmenu('acquisitions');
-
-    print << "EOF";
-<font size="6"><em>Website Search Results</em></font><br />
-<CENTER>
-You searched on <b>keywords $keywords,</b> $count results found <br />
-Results $offset to $total displayed
-<div align="right">
-<h2><a href="addbiblio.pl">Add New Biblio</a></h2>
-</div>
-<p />
-<table border="0" cellspacing="0" cellpadding="5">
-<tr valign=top bgcolor=#cccc99>
-<td background="/images/background-mem.gif"><b>TITLE</b></td>
-<td background="/images/background-mem.gif"><b>AUTHOR</b></td>
-<td background="/images/background-mem.gif"><b>&copy;</b></td>
-</tr>
-EOF
-
-    for (my $i = $offset; $i < $total; $i++) {
-       if ($i % 2) {
-           print << "EOF";
-<tr valign="top" bgcolor="#ffffcc">
-EOF
-       } else {
-           print << "EOF";
-<tr valign="top" bgcolor="#ffffff">
-EOF
-       } # else
-
-       print << "EOF";
-<td><a 
href="additem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'title'}</a></td>
-<td><a 
href="additem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'author'}</a></td>
-<td>$results[$i]->{'copyrightdate'}</td>
-</tr>
-EOF
-    } # for
-    print << "EOF";
-<tr valign=top bgcolor=#cccc99>
-<td background="/images/background-mem.gif">&nbsp;</td>
-<td background="/images/background-mem.gif">&nbsp;</td>
-<td background="/images/background-mem.gif">&nbsp;</td>
-</tr>
-</table>
-<br />
-EOF
-
-    for (my $i = 0; ($i * $num) < $count; $i++) {
-       my $newoffset = $i * $num;
-       print << "EOF";
-<a href="keywordsearch.pl?keyword=$keywords&offset=$newoffset&num=$num">$i</a>
-EOF
-    } # for
-
-    print << "EOF";
-<p />
-Results per page:
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=5">5</a>
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=10">10</a>
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=20">20</a>
-<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=50">50</a>
-</CENTER>
-<br clear="all" />
-<p>&nbsp;</p>
-EOF
-
-    print endmenu();
-    print endpage();
-} # else