removing unused script
This commit is contained in:
tipaul
parent
7778b05264
commit
d08400842e
3 changed files with 0 additions and 458 deletions
245
search.pl
245
search.pl
|
|
@ -1,245 +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
|
||||
|
||||
# $Log$
|
||||
# Revision 1.36 2005/06/20 14:39:11 tipaul
|
||||
# synch'ing 2.2 and head
|
||||
#
|
||||
# Revision 1.35.2.1 2005/05/27 10:02:50 hdl
|
||||
# Bug Fixing : Using old search.pl with subjectitems In normal mode display.
|
||||
# Problem : Changing Page doesn't work.
|
||||
#
|
||||
# Revision 1.35 2004/04/07 22:43:04 rangi
|
||||
# Fix for bug 217
|
||||
#
|
||||
# Revision 1.34 2004/02/11 08:35:31 tipaul
|
||||
# synch'ing 2.0.0 branch and head
|
||||
#
|
||||
# Revision 1.33 2003/12/19 17:28:03 tipaul
|
||||
# fix for #683
|
||||
#
|
||||
# Revision 1.32.2.2 2004/01/13 17:33:39 tipaul
|
||||
# removing useless (& buggy here) checkauth
|
||||
#
|
||||
# Revision 1.32.2.1 2003/12/19 17:28:42 tipaul
|
||||
# fix for 683
|
||||
#
|
||||
# Revision 1.32 2003/06/11 18:37:55 tonnesen
|
||||
# Using boolean_preference instead of preference for 'marc' setting
|
||||
#
|
||||
# Revision 1.31 2003/05/11 07:31:37 rangi
|
||||
# Removing duplicate use C4::Auth
|
||||
#
|
||||
|
||||
use strict;
|
||||
require Exporter;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use HTML::Template;
|
||||
use C4::Context;
|
||||
use C4::Search;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
|
||||
my $query=new CGI;
|
||||
my $type=$query->param('type');
|
||||
|
||||
my $startfrom=$query->param('startfrom');
|
||||
($startfrom) || ($startfrom=0);
|
||||
|
||||
my $subject=$query->param('subject');
|
||||
# if it's a subject we need to use the subject.tmpl
|
||||
my ($template, $loggedinuser, $cookie);
|
||||
if ($subject) {
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "catalogue/subject.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
} else {
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "catalogue/searchresults.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
}
|
||||
|
||||
# %env
|
||||
# Additional parameters for &catalogsearch
|
||||
my %env = (
|
||||
itemcount => 1, # If set to 1, &catalogsearch enumerates
|
||||
# the results found and returns the number
|
||||
# of items found, where they're located,
|
||||
# etc.
|
||||
);
|
||||
|
||||
# get all the search variables
|
||||
# we assume that C4::Search will validate these values for us
|
||||
my %search; # Search terms. If the key is "author",
|
||||
# then $search{author} is the author the
|
||||
# user is looking for.
|
||||
|
||||
my @forminputs; # This is used in the form template.
|
||||
|
||||
foreach my $term (qw(keyword subject author illustrator itemnumber
|
||||
isbn date-before class dewey branch title abstract
|
||||
publisher ttype subjectitems))
|
||||
{
|
||||
my $value = $query->param($term);
|
||||
next unless defined $value && $value ne "";
|
||||
# Skip blank search terms
|
||||
$search{$term} = $value;
|
||||
push @forminputs, { term => $term,
|
||||
value =>$value };
|
||||
}
|
||||
|
||||
$template->param(FORMINPUTS => \@forminputs);
|
||||
|
||||
# whats this for?
|
||||
# I think it is (or was) a search from the "front" page... [st]
|
||||
$search{'front'}=$query->param('front');
|
||||
|
||||
my $num=10;
|
||||
my @results;
|
||||
my $count;
|
||||
if (my $subject=$query->param('subjectitems')) {
|
||||
my $blah;
|
||||
@results=subsearch(\$blah,$subject);
|
||||
$count=$#results+1;
|
||||
} else {
|
||||
($count,@results)=catalogsearch(\%env,'',\%search,$num,$startfrom);
|
||||
}
|
||||
|
||||
#my $resultsarray=\@results;
|
||||
my $resultsarray;
|
||||
|
||||
foreach my $result (@results) {
|
||||
$result->{'authorhtmlescaped'}=$result->{'author'};
|
||||
$result->{'authorhtmlescaped'}=~s/ /%20/g;
|
||||
($result->{'copyrightdate'}==0) && ($result->{'copyrightdate'}='');
|
||||
($type eq 'opac') ? ($result->{'opac'}=1) : ($result->{'opac'}=0);
|
||||
push (@$resultsarray, $result);
|
||||
}
|
||||
($resultsarray) || (@$resultsarray=());
|
||||
my $search="num=20";
|
||||
my $searchdesc='';
|
||||
if ($search{"keyword"}) {
|
||||
$search .= "&keyword=$search{keyword}";
|
||||
$searchdesc.="keyword $search{keyword}, ";
|
||||
}
|
||||
if (my $subjectitems=$query->param('subjectitems')){
|
||||
$search .= "&subjectitems=$subjectitems";
|
||||
$searchdesc.="subject $subjectitems, ";
|
||||
}
|
||||
if ($subject){
|
||||
$search .= "&subject=$subject";
|
||||
$searchdesc.="subject $subject, ";
|
||||
}
|
||||
if ($search{"author"}){
|
||||
$search .= "&author=$search{author}";
|
||||
$searchdesc.="author $search{author}, ";
|
||||
}
|
||||
if ($search{"class"}){
|
||||
$search .= "&class=$search{class}";
|
||||
$searchdesc.="class $search{class}, ";
|
||||
}
|
||||
if ($search{"title"}){
|
||||
$search .= "&title=$search{title}";
|
||||
$searchdesc.="title $search{title}, ";
|
||||
}
|
||||
if ($search{"dewey"}){
|
||||
$search .= "&dewey=$search{dewey}";
|
||||
$searchdesc.="dewey $search{dewey}, ";
|
||||
}
|
||||
if ($search{"illustrator"}){
|
||||
$search .= "&illustrator=$search{illustrator}";
|
||||
$searchdesc.="illustrator $search{illustrator}, ";
|
||||
}
|
||||
if ($search{"itemnumber"}){
|
||||
$search .= "&itemnumber=$search{itemnumber}";
|
||||
$searchdesc.="barcode $search{itemnumber}, ";
|
||||
}
|
||||
$search.="&ttype=$search{ttype}";
|
||||
|
||||
$search=~ s/ /%20/g;
|
||||
$template->param(startfrom => $startfrom+1);
|
||||
($startfrom+$num<=$count) ? ($template->param(endat => $startfrom+$num)) : ($template->param(endat => $count));
|
||||
$template->param(numrecords => $count);
|
||||
my $nextstartfrom=($startfrom+$num<$count) ? ($startfrom+$num) : (-1);
|
||||
my $prevstartfrom=($startfrom-$num>=0) ? ($startfrom-$num) : (-1);
|
||||
$template->param(nextstartfrom => $nextstartfrom);
|
||||
my $displaynext=1;
|
||||
my $displayprev=0;
|
||||
($nextstartfrom==-1) ? ($displaynext=0) : ($displaynext=1);
|
||||
($prevstartfrom==-1) ? ($displayprev=0) : ($displayprev=1);
|
||||
$template->param(displaynext => $displaynext);
|
||||
$template->param(displayprev => $displayprev);
|
||||
($type eq 'opac') ? ($template->param(opac => 1)) : ($template->param(opac => 0));
|
||||
$template->param(prevstartfrom => $prevstartfrom);
|
||||
$template->param(search => $search);
|
||||
$template->param(searchdesc => $searchdesc);
|
||||
$template->param(SEARCH_RESULTS => $resultsarray);
|
||||
#$template->param(includesdir => $includes);
|
||||
|
||||
my @numbers = ();
|
||||
if ($count>10) {
|
||||
for (my $i=1; $i<$count/10+1; $i++) {
|
||||
if ($i<16) {
|
||||
if ($search{"title"})
|
||||
{
|
||||
push @forminputs, { line => "title=$search{title}"};
|
||||
}
|
||||
my $highlight=0;
|
||||
($startfrom==($i-1)*10) && ($highlight=1);
|
||||
my $formelements='';
|
||||
foreach (@forminputs) {
|
||||
my $line=$_->{line};
|
||||
$formelements.="$line&";
|
||||
}
|
||||
$formelements=~s/ /+/g;
|
||||
push @numbers, { number => $i, highlight => $highlight , FORMELEMENTS => $formelements, FORMINPUTS => \@forminputs, startfrom => ($i-1)*10, opac => (($type eq 'opac') ? (1) : (0))};
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$template->param(numbers => \@numbers);
|
||||
if (C4::Context->boolean_preference('marc') eq '1') {
|
||||
$template->param(script => "MARCdetail.pl");
|
||||
} else {
|
||||
$template->param(script => "detail.pl");
|
||||
}
|
||||
|
||||
if ($search{"itemnumber"} && $count == 1){
|
||||
# if its a barcode search by definition we will only have one result.
|
||||
# And if we have a result
|
||||
# lets jump straight to the detail.pl page
|
||||
print $query->redirect("/cgi-bin/koha/detail.pl?type=intra&bib=$results[0]->{'biblionumber'}");
|
||||
}
|
||||
else {
|
||||
# otherwise
|
||||
# Print the page
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
}
|
||||
97
stats2.pl
97
stats2.pl
|
|
@ -1,97 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# $Id$
|
||||
|
||||
#written 14/1/2000
|
||||
#script to display reports
|
||||
|
||||
|
||||
# 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::Context;
|
||||
use C4::Stats;
|
||||
use Date::Manip;
|
||||
use CGI;
|
||||
use C4::Output;
|
||||
use DBI;
|
||||
|
||||
my $input=new CGI;
|
||||
my $time=$input->param('time');
|
||||
print $input->header;
|
||||
|
||||
print startpage;
|
||||
print startmenu('report');
|
||||
print center;
|
||||
|
||||
my $date;
|
||||
my $date2;
|
||||
if ($time eq 'yesterday'){
|
||||
$date=ParseDate('yesterday');
|
||||
$date2=ParseDate('today');
|
||||
}
|
||||
if ($time eq 'today'){
|
||||
$date=ParseDate('today');
|
||||
$date2=ParseDate('tomorrow');
|
||||
}
|
||||
if ($time eq 'daybefore'){
|
||||
$date=ParseDate('2 days ago');
|
||||
$date2=ParseDate('yesterday');
|
||||
}
|
||||
if ($time=~ /\//){
|
||||
$date=ParseDate($time);
|
||||
$date2=ParseDateDelta('+ 1 day');
|
||||
$date2=DateCalc($date,$date2);
|
||||
}
|
||||
$date=UnixDate($date,'%Y-%m-%d');
|
||||
$date2=UnixDate($date2,'%Y-%m-%d');
|
||||
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $sth=$dbh->prepare("select *
|
||||
from accountlines,accountoffsets,borrowers where
|
||||
accountlines.borrowernumber=accountoffsets.borrowernumber and
|
||||
(accountlines.accountno=accountoffsets.accountno or accountlines.accountno
|
||||
=accountoffsets.offsetaccount) and accountlines.timestamp >=20000621000000
|
||||
and borrowers.borrowernumber=accountlines.borrowernumber
|
||||
group by accountlines.borrowernumber,accountlines.accountno");
|
||||
$sth->execute();
|
||||
|
||||
|
||||
|
||||
print mktablehdr;
|
||||
while (my $data=$sth->fetchrow_hashref){
|
||||
print "<TR><Td>$data->{'surname'}</td><td>$data->{'description'}</td><td>$data->{'amount'}
|
||||
</td>";
|
||||
if ($data->{'accountype'}='Pay'){ # FIXME - This should be "==", not "=", right?
|
||||
my $branch=Getpaidbranch($data->{'timestamp'});
|
||||
print "<td>$branch</td>";
|
||||
}
|
||||
print "</tr>";
|
||||
|
||||
}
|
||||
|
||||
|
||||
print mktableft;
|
||||
print endcenter;
|
||||
#print "<p><b>$total</b>";
|
||||
|
||||
|
||||
|
||||
print endmenu('report');
|
||||
print endpage;
|
||||
$sth->finish;
|
||||
116
subjectsearch.pl
116
subjectsearch.pl
|
|
@ -1,116 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# $Id$
|
||||
|
||||
#script to display detailed information
|
||||
#written 8/11/99
|
||||
|
||||
|
||||
# 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 DBI;
|
||||
use C4::Search;
|
||||
use CGI;
|
||||
use C4::Output;
|
||||
|
||||
my $input = new CGI;
|
||||
print $input->header;
|
||||
my $type=$input->param('type');
|
||||
print startpage();
|
||||
print startmenu($type);
|
||||
my $blah;
|
||||
my $env;
|
||||
my $subject=$input->param('subject');
|
||||
#my $title=$input->param('title');
|
||||
|
||||
my $main;
|
||||
my $secondary;
|
||||
if ($type eq 'opac'){
|
||||
$main='#99cccc';
|
||||
$secondary='#efe5ef';
|
||||
} else {
|
||||
$main='#99cc33';
|
||||
$secondary='#ffffcc';
|
||||
}
|
||||
|
||||
my @items=subsearch(\$blah,$subject);
|
||||
#print @items;
|
||||
my $count=@items;
|
||||
my $i=0;
|
||||
print center();
|
||||
print mktablehdr;
|
||||
if ($type ne 'opac'){
|
||||
print mktablerow(5,$main,bold('TITLE'),bold('AUTHOR'),bold('COUNT'),bold('LOCATION'),' ',"/images/background-mem.gif");
|
||||
} else {
|
||||
print mktablerow(5,$main,bold('TITLE'),bold('AUTHOR'),bold('COUNT'),bold('BRANCH'),' ');
|
||||
}
|
||||
my $colour=1;
|
||||
while ($i < $count){
|
||||
my @results=split('\t',$items[$i]);
|
||||
$results[0]=mklink("/cgi-bin/koha/detail.pl?bib=$results[2]&type=$type",$results[0]);
|
||||
my $word=$results[1];
|
||||
$word=~ s/ /%20/g;
|
||||
#$word=~ s/\,/\,%20/;
|
||||
$results[1]=mklink("/cgi-bin/koha/search.pl?author=$word&type=$type",$results[1]);
|
||||
my ($count,$lcount,$nacount,$fcount,$scount)=itemcount($env,$results[2]);
|
||||
$results[3]=$count;
|
||||
if ($nacount > 0){
|
||||
$results[4]=$results[4]."On Loan";
|
||||
if ($nacount > 1){
|
||||
$results[4].=" $nacount";
|
||||
}
|
||||
$results[4].=" ";
|
||||
}
|
||||
if ($lcount > 0){
|
||||
$results[4]=$results[4]." Levin";
|
||||
if ($lcount > 1){
|
||||
$results[4].=" $lcount";
|
||||
}
|
||||
$results[4].=" ";
|
||||
}
|
||||
if ($fcount > 0){
|
||||
$results[4]=$results[4]." Foxton";
|
||||
if ($fcount > 1){
|
||||
$results[4].=" $fcount";
|
||||
}
|
||||
$results[4].=" ";
|
||||
}
|
||||
if ($scount > 0){
|
||||
$results[4]=$results[4]." Shannon";
|
||||
if ($scount > 1){
|
||||
$results[4].=" $scount";
|
||||
}
|
||||
$results[4].=" ";
|
||||
}
|
||||
if ($type ne 'opac'){
|
||||
$results[6]=mklink("/cgi-bin/koha/request.pl?bib=$results[2]","Request");
|
||||
}
|
||||
if ($colour == 1){
|
||||
print mktablerow(5,$secondary,$results[0],$results[1],$results[3],$results[4],$results[6]);
|
||||
$colour=0;
|
||||
} else{
|
||||
print mktablerow(5,'white',$results[0],$results[1],$results[3],$results[4],$results[6]);
|
||||
$colour=1;
|
||||
}
|
||||
$i++;
|
||||
}
|
||||
print endcenter();
|
||||
print mktableft();
|
||||
print endmenu($type);
|
||||
print endpage();
|
||||
Loading…
Reference in a new issue