[Koha-cvs] koha/cataloguing keywordsearch.pl websitesearch.pl [rel_3_0]
Antoine Farnault
antoine at koha-fr.org
Thu Nov 30 15:11:37 CET 2006
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>©</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"> </td>
-<td background="/images/background-mem.gif"> </td>
-<td background="/images/background-mem.gif"> </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> </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>©</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"> </td>
-<td background="/images/background-mem.gif"> </td>
-<td background="/images/background-mem.gif"> </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> </p>
-EOF
-
- print endmenu();
- print endpage();
-} # else
More information about the Koha-cvs
mailing list