From d08400842ec20c325594116dd883c161d6119efa Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 17 Jan 2006 16:54:54 +0000 Subject: [PATCH] removing unused script --- search.pl | 245 ----------------------------------------------- stats2.pl | 97 ------------------- subjectsearch.pl | 116 ---------------------- 3 files changed, 458 deletions(-) delete mode 100755 search.pl delete mode 100755 stats2.pl delete mode 100755 subjectsearch.pl diff --git a/search.pl b/search.pl deleted file mode 100755 index 53d1f8de93..0000000000 --- a/search.pl +++ /dev/null @@ -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; -} diff --git a/stats2.pl b/stats2.pl deleted file mode 100755 index 2b11ca1689..0000000000 --- a/stats2.pl +++ /dev/null @@ -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 "$data->{'surname'}$data->{'description'}$data->{'amount'} - "; - if ($data->{'accountype'}='Pay'){ # FIXME - This should be "==", not "=", right? - my $branch=Getpaidbranch($data->{'timestamp'}); - print "$branch"; - } - print ""; - -} - - -print mktableft; -print endcenter; -#print "

$total"; - - - -print endmenu('report'); -print endpage; -$sth->finish; diff --git a/subjectsearch.pl b/subjectsearch.pl deleted file mode 100755 index ebfde88973..0000000000 --- a/subjectsearch.pl +++ /dev/null @@ -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(); -- 2.39.2