-printend
-;
-if ($type eq 'catmain'){
- print "Catalogue Maintenance"; -} -print <
-
-
-printend -; - -for (my $i=0;$i<$count;$i++){ -print <| BARCODE $items[$i]->{'barcode'} | -
| - | -
'; -} -my $sth=$dbh->prepare("select branchname,branchcode from branches order by branchname"); -$sth->execute; - -while (my ($branchname,$branchcode) = $sth->fetchrow) { - $brancheslist.="\n"; -} -my $query = new CGI; -my $op = $query->param("op"); -my $type=$query->param('type'); - -my $itemtypesstring=$query->param("itemtypesstring"); -$itemtypesstring =~s/"//g; -my @itemtypes = split ( /\|/, $itemtypesstring); -my $branchesstring=$query->param("branchesstring"); -$branchesstring =~s/"//g; -my @branches = split (/\|/, $branchesstring); - -my $startfrom=$query->param('startfrom'); -$startfrom=0 if(!defined $startfrom); -my ($template, $loggedinuser, $cookie); -my $resultsperpage; -my $searchdesc; - -if ($op eq "do_search") { - my @marclist = $query->param('marclist'); - my @and_or = $query->param('and_or'); - my @excluding = $query->param('excluding'); - my @operator = $query->param('operator'); - my @value = $query->param('value'); - - for (my $i=0;$i<=$#marclist;$i++) { - if ($searchdesc) { # don't put the and_or on the 1st search term - $searchdesc .= $and_or[$i]." ".$excluding[$i]." ".($marclist[$i]?$marclist[$i]:"*")." ".$operator[$i]." ".$value[$i]." " if ($value[$i]); - } else { - $searchdesc = $excluding[$i]." ".($marclist[$i]?$marclist[$i]:"*")." ".$operator[$i]." ".$value[$i]." " if ($value[$i]); - } - } - if ($itemtypesstring ne ''){ - $searchdesc .= 'filtered by itemtypes '; - $searchdesc .= join(" ",@itemtypes) - } - if ($branchesstring ne ''){ - $searchdesc .= ' in branches '; - $searchdesc .= join(" ",@branches) - } - $resultsperpage= $query->param('resultsperpage'); - $resultsperpage = 19 if(!defined $resultsperpage); - my $orderby = $query->param('orderby'); - my $desc_or_asc = $query->param('desc_or_asc'); - # builds tag and subfield arrays - my @tags; - - foreach my $marc (@marclist) { - if ($marc) { - my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc,''); - if ($tag) { - push @tags,$dbh->quote("$tag$subfield"); - } else { - push @tags, $dbh->quote(substr($marc,0,4)); - } - } else { - push @tags, ""; - } - } - findseealso($dbh,\@tags); - my $sqlstring; - if ($itemtypesstring ne ''){ - $sqlstring = 'and (biblioitems.itemtype IN ('; - my $itemtypeloop=0; - foreach my $itemtype (@itemtypes){ - if ($itemtype ne ''){ - if ($itemtypeloop != 0){ - $sqlstring .=',' - } - $sqlstring .= '"'.$itemtype.'"'; - $itemtypeloop++; - } - } - $sqlstring .= '))' - } - if ($branchesstring ne ''){ - $sqlstring .= 'and biblio.biblionumber=items.biblionumber and (items.holdingbranch IN ('; - my $branchesloop=0; - foreach my $branch (@branches){ - if ($branch ne ''){ - if ($branchesloop != 0){ - $sqlstring .=',' - } - $sqlstring .= '"'.$branch.'"'; - $branchesloop++; - } - } - $sqlstring .= '))' - } - - my ($results,$total) = catalogsearch1($dbh, \@tags,\@and_or, - \@excluding, \@operator, \@value, - $startfrom*$resultsperpage, $resultsperpage,$orderby,$desc_or_asc,$sqlstring); - if ($total ==1) { - if (C4::Context->preference("BiblioDefaultView") eq "normal") { - print $query->redirect("/cgi-bin/koha/opac-detail.pl?bib=".@$results[0]->{biblionumber}); - } elsif (C4::Context->preference("BiblioDefaultView") eq "MARC") { - print $query->redirect("/cgi-bin/koha/MARCdetail.pl?bib=".@$results[0]->{biblionumber}); - } else { - print $query->redirect("/cgi-bin/koha/ISBDdetail.pl?bib=".@$results[0]->{biblionumber}); - } - exit; - } - ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "opac-searchresults.tmpl", - query => $query, - type => 'opac', - authnotrequired => 1, - debug => 1, - }); - - # multi page display gestion - my $displaynext=0; - my $displayprev=$startfrom; - if(($total - (($startfrom+1)*($resultsperpage))) > 0 ){ - $displaynext = 1; - } - - my @field_data = (); - -### Added by JF -## This next does a number of things: -# 1. It allows you to track all the searches made for stats, etc. -# 2. It fixes the 'searchdesc' variable problem by introducing -# a. 'searchterms' which comes out as 'Keyword: neal stephenson' -# b. 'phraseorterm' which comes out as 'neal stephenson' -# both of these are useful for differen purposes ... I use searchterms -# for display purposes and phraseorterm for passing the search terms -# to an external source through a url (like a database search) -# 3. It provides the variables necessary for the spellchecking (look below for -# how this is done -# 4. - -$totalresults = $total; - -## This formats the 'search results' string and populates -## the 'OPLIN' variable as well as the 'spellcheck' variable -## with appropriate values based on the user's search input - -my $searchterms; #returned in place of searchdesc for 'results for search' - # as a string (can format if need be) - -my @spphrases; -my $phraseorterm; -my %searchtypehash = ( # used only for the searchterms string formation - # and for spellcheck string - '0' => 'keyword', - '1' => 'title', - '2' => 'author', - '3' => 'subject', - '4' => 'series', - '5' => 'format', - ); - -my @searchterm = $query->param('value'); - -for (my $i=0; $i <= $#searchterm; $i++) { - my $searchtype = $searchtypehash{$i}; - push @spphrases, $searchterm[$i]; - if ($searchterms) { #don't put and in again - if ($searchterm[$i]) { - $phraseorterm.=$searchterm[$i]; - $searchterms.=" AND ".$searchtype." : \'".$searchterm[$i]."\'"; - } - } else { - if ($searchterm[$i]) { - $phraseorterm.=$searchterm[$i]; - $searchterms.=$searchtype.": \'".$searchterm[$i]."\'"; - } - } -} - -# Spellchecck stuff ... needs to use above scheme but must change -# cgi script first -my $phrases = $query->param('value'); -#my $searchterms = $query->param('value'); -# warn "here is searchterms:".$searchterms; - -# FIXME: should be obvious ;-) -#foreach my $phrases (@spphrases) { -$phrases =~ s/(\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\})/ /g; -$phrases =~ s/(\Athe |\Aa |\Aan |)//g; -my $spchkphraseorterm = $phraseorterm; - $spchkphraseorterm =~ tr/A-Z/a-z/; - $spchkphraseorterm =~ s/(\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\})/ /g; - $spchkphraseorterm =~s/(\Aand-or |\Aand\/or |\Aanon |\Aan |\Aa |\Abut |\Aby |\Ade |\Ader |\Adr |\Adu|et |\Afor |\Afrom |\Ain |\Ainto |\Ait |\Amy |\Anot |\Aon |\Aor |\Aper |\Apt |\Aspp |\Ato |\Avs |\Awith |\Athe )/ /g; - $spchkphraseorterm =~s/( and-or | and\/or | anon | an | a | but | by | de | der | dr | du|et | for | from | in | into | it | my | not | on | or | per | pt | spp | to | vs | with | the )/ /g; - - $spchkphraseorterm =~s/ / /g; -my $resultcount = $total; -my $ipaddress = $query->remote_host(); -# - -if ( -#need to create a table to record the search info -#...FIXME: add the script name that creates the table -# -my $dbhpop=DBI->connect("DBI:mysql:demosuggest:localhost","auth","YourPass")) { - -# insert the search info query -my $insertpop = "INSERT INTO phrase_log(phr_phrase,phr_resultcount,phr_ip) VALUES(?,?,?)"; - -# grab spelling suggestions query -my $getsugg = "SELECT display FROM spellcheck WHERE strcmp(soundex(suggestion), soundex(?)) = 0 order by soundex(suggestion) limit 0,5"; - -#get spelling suggestions when there are no results -if ($resultcount eq 0) { - my $sthgetsugg=$dbhpop->prepare($getsugg); - $sthgetsugg->execute($spchkphraseorterm); - while (my ($spsuggestion)=$sthgetsugg->fetchrow_array) { -# warn "==>$spsuggestion"; - #push @spsuggest, +{ spsuggestion => $spsuggestion }; - my %line; - $line{spsuggestion} = $spsuggestion; - push @spsuggest,\%line; - $suggest = 1; - } -# warn "==>".$#spsuggest; - $sthgetsugg->finish; -} -# end of spelling suggestions - -my $sthpop=$dbhpop->prepare($insertpop); - -#$sthpop->execute($phrases,$resultcount,$ipaddress); -$sthpop->finish; -} -# -### end of tracking stuff -- jmf at kados dot org -# -$template->param(suggest => $suggest ); -$template->param( SPELL_SUGGEST => \@spsuggest ); -$template->param( searchterms => $searchterms ); -$template->param( phraseorterm => $phraseorterm ); -#warn "here's the search terms: ".$searchterms; -# -### end of spelling suggestions -### /Added by JF - - for(my $i = 0 ; $i <= $#marclist ; $i++) - { - push @field_data, { term => "marclist", val=>$marclist[$i] }; - push @field_data, { term => "and_or", val=>$and_or[$i] }; - push @field_data, { term => "excluding", val=>$excluding[$i] }; - push @field_data, { term => "operator", val=>$operator[$i] }; - push @field_data, { term => "value", val=>$value[$i] }; - } - - my @numbers = (); - - if ($total>$resultsperpage) - { - for (my $i=1; $i<$total/$resultsperpage+1; $i++) - { - if ($i<16) - { - my $highlight=0; - ($startfrom==($i-1)) && ($highlight=1); - push @numbers, { number => $i, - highlight => $highlight , - searchdata=> \@field_data, - startfrom => ($i-1)}; - } - } - } - - my $from = $startfrom*$resultsperpage+1; - my $to; - - if($total < (($startfrom+1)*$resultsperpage)) - { - $to = $total; - } else { - $to = (($startfrom+1)*$resultsperpage); - } - my $defaultview = 'BiblioDefaultView'.C4::Context->preference('BiblioDefaultView'); - $template->param(results => $results, - startfrom=> $startfrom, - displaynext=> $displaynext, - displayprev=> $displayprev, - resultsperpage => $resultsperpage, - orderby => $orderby, - startfromnext => $startfrom+1, - startfromprev => $startfrom-1, - searchdata=>\@field_data, - total=>$total, - from=>$from, - to=>$to, - numbers=>\@numbers, - searchdesc=> $searchdesc, - $defaultview => 1, - suggestion => C4::Context->preference("suggestion"), - virtualshelves => C4::Context->preference("virtualshelves"), - itemtypelist => $itemtypelist, - subcategorylist => $subcategorylist, - brancheslist => $brancheslist, - categorylist => $categorylist, - mediatypelist => $mediatypelist, - itemtypesstring => $itemtypesstring, - ); - -} else { - ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "opac-search.tmpl", - query => $query, - type => "opac", - authnotrequired => 1, - }); - - - $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description"); - $sth->execute; - my @itemtype; - my %itemtypes; - push @itemtype, ""; - $itemtypes{''} = ""; - while (my ($value,$lib) = $sth->fetchrow_array) { - push @itemtype, $value; - $itemtypes{$value}=$lib; - } - - my $CGIitemtype=CGI::scrolling_list( -name => 'value', - -values => \@itemtype, - -labels => \%itemtypes, - -size => 1, - -multiple => 0 ); - $sth->finish; - - my @branches; - my @select_branch; - my %select_branches; - my ($count2,@branches)=branches(); - push @select_branch, ""; - $select_branches{''} = ""; - for (my $i=0;$i<$count2;$i++){ - push @select_branch, $branches[$i]->{'branchcode'};# - $select_branches{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'}; - } - my $CGIbranch=CGI::scrolling_list( -name => 'value', - -values => \@select_branch, - -labels => \%select_branches, - -size => 1, - -multiple => 0 ); - $sth->finish; - - $template->param(itemtypelist => $itemtypelist, - CGIitemtype => $CGIitemtype, - CGIbranch => $CGIbranch, - suggestion => C4::Context->preference("suggestion"), - virtualshelves => C4::Context->preference("virtualshelves"), - ); -} -# ADDED BY JF -if ($totalresults == 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/opac-detail.pl?bib=$firstbiblionumber"); -} -else { - output_html_with_http_headers $query, $cookie, $template->output; -} diff --git a/opac/opac-searchresults.pl b/opac/opac-searchresults.pl deleted file mode 100755 index bacbb3adf1..0000000000 --- a/opac/opac-searchresults.pl +++ /dev/null @@ -1,128 +0,0 @@ -#!/usr/bin/perl -use strict; -require Exporter; -use CGI; -use C4::Search; -use C4::Biblio; -use C4::Auth; -use C4::Interface::CGI::Output; -use HTML::Template; - -my $query=new CGI; - -my ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "opac-searchresults.tmpl", - query => $query, - type => "opac", - authnotrequired => 1, - }); - - -my $subject=$query->param('subject'); - - - -if ($subject) { - $template->param(subjectsearch => $subject); -} - -# get all the search variables -# we assume that C4::Search will validate these values for us -my @fields = ('keyword', 'subject', 'author', 'illustrator', 'itemnumber', 'isbn', 'date-before', 'date-after', 'class', 'dewey', 'branch', 'title', 'abstract', 'publisher'); - -# collect all the fields ... -my %search; - -my $forminputs; -my $searchdesc = ''; -foreach my $field (@fields) { - $search{$field} = $query->param($field); - if ($field eq 'keyword'){ - $search{$field} = $query->param('words') unless $search{$field}; - } - if ($search{$field}) { - push @$forminputs, {field => $field, value => $search{$field}}; - $searchdesc .= "$field = $search{$field}, "; - } -} - -$search{'ttype'} = $query->param('ttype'); -push @$forminputs, {field => 'ttype', value => $search{'ttype'}}; - -if (my $subjectitems=$query->param('subjectitems')){ - $search{'subject'} = $subjectitems; - $searchdesc.="subject = $subjectitems, "; -} - -@$forminputs=() unless $forminputs; -$template->param(FORMINPUTS => $forminputs); - -# do the searchs .... -my $env; -$env->{itemcount}=1; -my $number_of_results = 20; -my @results; -my $count; -my $startfrom = $query->param('startfrom'); -my $subjectitems=$query->param('subjectitems'); -if ($subjectitems) { - #@results = subsearch($env,$subjectitems, $number_of_results, $startfrom); - @results = subsearch($env, $subjectitems); - $count = $#results+1; -} else { - ($count, @results) = catalogsearch($env,'',\%search,$number_of_results,$startfrom); -} - -my $num = 1; -foreach my $res (@results) { - my @items = ItemInfo(undef, $res->{'biblionumber'}, "intra"); - my $norequests = 1; - foreach my $itm (@items) { - $norequests = 0 unless $itm->{'notforloan'}; - } - $res->{'norequests'} = $norequests; - # set up the even odd elements.... - $res->{'even'} = 1 if $num % 2 == 0; - $res->{'odd'} = 1 if $num % 2 == 1; - $num++; -} - - -my $startfrom=$query->param('startfrom'); -($startfrom) || ($startfrom=0); - -my $resultsarray=\@results; -($resultsarray) || (@$resultsarray=()); - - -# sorting out which results to display. -$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-$number_of_results) : (-1); -$template->param(nextstartfrom => $nextstartfrom); -my $displaynext=($nextstartfrom==-1) ? 0 : 1; -my $displayprev=($prevstartfrom==-1) ? 0 : 1; -$template->param(displaynext => $displaynext); -$template->param(displayprev => $displayprev); -$template->param(prevstartfrom => $prevstartfrom); - -$template->param(searchdesc => $searchdesc); -$template->param(SEARCH_RESULTS => $resultsarray); - -my $numbers; -@$numbers = (); -if ($count>$number_of_results) { - for (my $i=1; $i<$count/$number_of_results+1; $i++) { - my $highlight=0; - my $themelang = $template->param('themelang'); - ($startfrom==($i-1)*$number_of_results+1) && ($highlight=1); - push @$numbers, { number => $i, highlight => $highlight , startfrom => ($i-1)*$number_of_results+1 }; - } -} - -$template->param(numbers => $numbers, -); - -output_html_with_http_headers $query, $cookie, $template->output; diff --git a/opac/opac-sidebar.pl b/opac/opac-sidebar.pl deleted file mode 100755 index eb3c44efa7..0000000000 --- a/opac/opac-sidebar.pl +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl -use strict; -require Exporter; -use CGI; - -use C4::Auth; # get_template_and_user -use HTML::Template; - -my $query = new CGI; - -my ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "loggedin.tmpl", - query => $query, - type => "opac", - authnotrequired => 1, - flagsrequired => {borrow => 1}, - }); - -my @inputs =(); -foreach my $name (param $query) { - (next) if ($name eq 'userid' || $name eq 'password'); - my $value = $query->param($name); - push @inputs, {name => $name , value => $value}; -} - -$template->param(INPUTS => \@inputs); - -my $self_url = $query->url(-absolute => 1); -$template->param(url => $self_url, -); - -output_html_with_http_headers $query, $cookie, $template->output; diff --git a/opac/opac-zoomsearch.pl b/opac/opac-zoomsearch.pl deleted file mode 100755 index 36aaf3046f..0000000000 --- a/opac/opac-zoomsearch.pl +++ /dev/null @@ -1,501 +0,0 @@ -#!/usr/bin/perl - -# Copyright 2006 Liblime -# -# 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 - -# load our Koha modules -use C4::Context; -use C4::Interface::CGI::Output; -use C4::Auth; -use C4::Search; -use C4::Biblio; -use C4::Koha; -use POSIX qw(ceil floor); - -# load other modules -use HTML::Template; -use CGI; -use strict; - -my $query=new CGI; -my $op = $query->param('op'); # show the search form or execute the search - -# expanded facet? -my $expanded_facet = $query->param('expand'); - -### Gather up all our search queries -## CQL -my $cql_query = $query->param('cql_query'); - -## CCL -my @previous_ccl_queries; # array of hashes -my @previous_ccl_queries_array = $query->param('previous_ccl_queries'); - -my @ccl_query = $query->param('ccl_query'); -my $ccl_query; -foreach my $ccl (@ccl_query) { - $ccl_query.="$ccl " if $ccl; -} -push @previous_ccl_queries_array, $ccl_query; -# put the queries in a form the template can use -my $previous_ccl_queries_hash; -foreach my $ccl (@previous_ccl_queries_array) { - if ($ccl) { - my %row =( - value => $ccl - ); - push @previous_ccl_queries, %row; - } -} -## PQF -my $pqf_query = $query->param('pqf_query'); - -my @newresults; -my ($template,$borrowernumber,$cookie); -my @forminputs; # this is for the links to navigate among the results when they are more than the maximum number of results per page -my $searchdesc; -my $search_type = $query->param('search_type'); - -my $dbh = C4::Context->dbh; -## Get Itemtypes (Collection Codes) -my $itemtypequery="Select itemtype,description from itemtypes order by description"; -my $sth=$dbh->prepare($itemtypequery); -$sth->execute; -my @itemtypeloop; -my %itemtypes; -while (my ($value,$lib) = $sth->fetchrow_array) { - my %row =( - value => $value, - description => $lib, - ); - push @itemtypeloop, \%row; - -} -$sth->finish; - -## Get Branches -my @branches; -my @select_branch; -my %select_branches; -my $branches = getallbranches(); -my @branchloop; -foreach my $thisbranch (keys %$branches) { - my $selected = 1 if (C4::Context->userenv && ($thisbranch eq C4::Context->userenv->{branch})); - my %row =( - value => $thisbranch, - selected => $selected, - branchname => $branches->{$thisbranch}->{'branchname'}, - ); - push @branchloop, \%row; -} - -## Check if we're searching -if ($op eq 'get_results') { # Yea, we're searching, load the results template - ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "opac-results.tmpl", - query => $query, - type => "opac", - authnotrequired => 1,}); - - my $number_of_results = $query->param('results_per_page'); - $number_of_results = 20 unless ($number_of_results); #this could be a parameter with 20 50 or 100 results per page - my $startfrom = $query->param('startfrom'); - ($startfrom) || ($startfrom=0); - - ## OK, WE'RE SEARCHING - # STEP 1. We're a CGI script,so first thing to do is get the - # query into PQF format so we can use the Koha API properly - my ($error,$pqf_sort_by, $pqf_prox_ops, $pqf_bool_ops, $nice_query); - ($error,$pqf_sort_by, $pqf_prox_ops, $pqf_bool_ops, $pqf_query, $nice_query)= cgi2pqf($query); - my $then_sort_by = $query->param('then_sort_by'); - # implement a query history - - # lets store the query details in an array for later - push @forminputs, { field => "cql_query" , value => $cql_query} ; - push @forminputs, { field => "ccl_query" , value => $ccl_query} ; - push @forminputs, { field => 'pqf_sort_by', value => $pqf_sort_by} ; - push @forminputs, { field => 'pqf_prox_ops', value => $pqf_prox_ops}; - push @forminputs, { field => 'pqf_bool_ops' , value => $pqf_bool_ops}; - push @forminputs, { field => 'pqf_query' , value => $pqf_query }; - $searchdesc=$cql_query.$ccl_query.$nice_query; # FIXME: this should be a more use-friendly string - - # STEP 2. OK, now we have PQF, so we can pass off the query to - # the API - my ($count,@results,$facets); - - # queries are handled differently, so alert our API and pass in the variables - if ($ccl_query) { # CCL - if ($query->param('scan')) { - ($error,$count, $facets,@results) = searchZOOM('scan','ccl',$ccl_query,$number_of_results,$startfrom,$then_sort_by,$expanded_facet); - $template->param(scan => 1); - } else { - ($error,$count,$facets,@results) = searchZOOM('search','ccl',$ccl_query,$number_of_results,$startfrom,$then_sort_by,$expanded_facet); - } - } elsif ($query->param('cql_query')) { # CQL - if ($query->param('scan')) { - ($error,$count,$facets,@results) = searchZOOM('scan','cql',$cql_query,$number_of_results,$startfrom,$then_sort_by,$expanded_facet); - $template->param(scan => 1); - } else { - ($error,$count,$facets,@results) = searchZOOM('search','cql',$cql_query,$number_of_results,$startfrom,$then_sort_by,$expanded_facet); - } - } else { # we're in PQF territory now - if ($query->param('scan')) { - $template->param(scan => 1); - ($error,$count,$facets,@results) = searchZOOM('scan','pqf',"$pqf_sort_by $pqf_prox_ops $pqf_bool_ops $pqf_query",$number_of_results,$startfrom,$then_sort_by,$expanded_facet); - } else { - ($error,$count,$facets,@results) = searchZOOM('search','pqf',"$pqf_sort_by $pqf_prox_ops $pqf_bool_ops $pqf_query",$number_of_results,$startfrom,$then_sort_by,$expanded_facet); - } - } - @newresults=searchResults( $searchdesc,$number_of_results,$count,@results) ; - - # How many did we get back? - my $num = scalar(@newresults); - - # sorting out which results to display. - # the result number to start to show - $template->param(starting => $startfrom+1); - $template->param(ending => $startfrom+$number_of_results); - # the result number to end to show - ($startfrom+$num<=$count) ? ($template->param(endat => $startfrom+$num)) : ($template->param(endat => $count)); - # the total results found - $template->param(total => $count); - $template->param(FORMINPUTS => \@forminputs); - #$template->param(pqf_query => $pqf_query); - $template->param(ccl_query => $ccl_query); - $template->param(searchdesc => $searchdesc ); - $template->param(results_per_page => $number_of_results ); - $template->param(SEARCH_RESULTS => \@newresults); - $template->param(PREVIOUS_CCL_QUERIES => \@previous_ccl_queries); - $template->param(facets_loop => $facets); - - #this is to show the page numbers to navigate among the results, whether it has to show the number highlighted or not - my $numbers; - @$numbers = (); - my $pg = 1; - if (defined($query->param('pg'))) { - $pg = $query->param('pg'); - } - my $start = 0; - - $start = ($pg - 1) * $number_of_results; - my $pages = ceil($count / $number_of_results); - my $total_pages = ceil($count / $number_of_results); - my $url; - if ($pg > 1) { - $url = $pg - 1; - push @$numbers, { - number => "<<", - highlight => 0 , - startfrom => 0, - pg => '1' }; - - push @$numbers, { - number => "<", - highlight => 0 , - startfrom => ($url-1)*$number_of_results, - pg => $url }; - } - my $current_ten = $pg / 10; - if ($current_ten == 0) { - $current_ten = 0.1; # In case it's in ten = 0 - } - my $from = $current_ten * 10; # Calculate the initial page - my $end_ten = $from + 9; - my $to; - if ($pages > $end_ten) { - $to = $end_ten; - } else { - $to = $pages; - } - for (my $i =$from; $i <= $to ; $i++) { - if ($i == $pg) { - if ($count > $number_of_results) { - push @$numbers, { - number => $i, - highlight => 1 , - startfrom => ($i-1)*$number_of_results , - pg => $i }; - } - } else { - push @$numbers, { - number => $i, - highlight => 0 , - startfrom => ($i-1)*$number_of_results , - pg => $i }; - } - } - if ($pg < $pages) { - $url = $pg + 1; - push @$numbers, { - number => ">", - highlight => 0 , - startfrom => ($url-1)*$number_of_results, - pg => $url }; - - push @$numbers, { - number => ">>", - highlight => 0 , - startfrom => ($total_pages-1)*$number_of_results, - pg => $total_pages}; - } - - $template->param( - pqf_sort_by => $pqf_sort_by, - pqf_query => "$pqf_prox_ops $pqf_bool_ops $pqf_query", - numbers => $numbers); - - - $template->param('Disable_Dictionary'=>C4::Context->preference("Disable_Dictionary")) if (C4::Context->preference("Disable_Dictionary")); - my $scan_use = $query->param('use1'); - $template->param( - #classlist => $classlist, - suggestion => C4::Context->preference("suggestion"), - virtualshelves => C4::Context->preference("virtualshelves"), - LibraryName => C4::Context->preference("LibraryName"), - OpacNav => C4::Context->preference("OpacNav"), - opaccredits => C4::Context->preference("opaccredits"), - AmazonContent => C4::Context->preference("AmazonContent"), - opacsmallimage => C4::Context->preference("opacsmallimage"), - opaclayoutstylesheet => C4::Context->preference("opaclayoutstylesheet"), - opaccolorstylesheet => C4::Context->preference("opaccolorstylesheet"), - scan_use => $scan_use, - search_error => $error, - ); - - ## Now let's find out if we have any supplemental data to show the user - # and in the meantime, save the current query for statistical purposes, etc. - my $koha_spsuggest; # a flag to tell if we've got suggestions coming from Koha - my @koha_spsuggest; # place we store the suggestions to be returned to the template as LOOP - my $phrases = $searchdesc; - my $ipaddress; - - if ( C4::Context->preference("kohaspsuggest") ) { - eval { - my $koha_spsuggest_dbh; - eval { - $koha_spsuggest_dbh=DBI->connect("DBI:mysql:suggest:66.213.78.76","auth","Free2cirC"); - }; - if ($@) { warn "can't connect to spsuggest db"; - } - else { - my $koha_spsuggest_insert = "INSERT INTO phrase_log(phr_phrase,phr_resultcount,phr_ip) VALUES(?,?,?)"; - my $koha_spsuggest_query = "SELECT display FROM distincts WHERE strcmp(soundex(suggestion), soundex(?)) = 0 order by soundex(suggestion) limit 0,5"; - my $koha_spsuggest_sth = $koha_spsuggest_dbh->prepare($koha_spsuggest_query); - $koha_spsuggest_sth->execute($phrases); - while (my $spsuggestion = $koha_spsuggest_sth->fetchrow_array) { - $spsuggestion =~ s/(:|\/)//g; - my %line; - $line{spsuggestion} = $spsuggestion; - push @koha_spsuggest,\%line; - $koha_spsuggest = 1; - } - - # Now save the current query - $koha_spsuggest_sth=$koha_spsuggest_dbh->prepare($koha_spsuggest_insert); - #$koha_spsuggest_sth->execute($phrases,$count,$ipaddress); - $koha_spsuggest_sth->finish; - - $template->param( koha_spsuggest => $koha_spsuggest ) unless $num; - $template->param( SPELL_SUGGEST => \@koha_spsuggest, - branchloop=>\@branchloop, - itemtypeloop=>\@itemtypeloop, - ); - } - }; - if ($@) { - warn "Kohaspsuggest failure:".$@; - } - } - - ## Spellchecking using Google API - ## Did you mean? Suggestions using spsuggest table - # - # Related Searches - # -## OK, we're not searching, load the search template -} else { - - ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "opac-zoomsearch.tmpl", - query => $query, - type => "opac", - authnotrequired => 1, - }); - - # set the default tab, etc. - my $search_type = $query->param('query_form'); - if ((!$search_type) || ($search_type eq 'advanced')) { - $template->param(advanced_search => 1); - } elsif ($search_type eq 'format') { - $template->param(format_search => 1); - } elsif ($search_type eq 'power') { - $template->param(power_search => 1); - } elsif ($search_type eq 'cql') { - $template->param(power_search => 1); - } elsif ($search_type eq 'pqf') { - $template->param(power_search => 1); - } elsif ($search_type eq 'proximity') { - $template->param(proximity_search => 1); - } - - $template->param( - branchloop=>\@branchloop, - itemtypeloop=>\@itemtypeloop, - ); - -} -output_html_with_http_headers $query, $cookie, $template->output; - -=head2 cgi2pdf -=cut -# build a valid PQF query from a CGI form -sub cgi2pqf { - my ($query) = @_; - my $nice_query; # just a string storing a nicely formatted query - my @default_attributes = ('sort_by'); - # attributes specific to the advanced search - a search_point is actually a combination of - # several bib1 attributes - my @advanced_attributes = ('search_point','op','query'); - # attributes specific to the power search - my @power_attributes = ( 'use','relation','structure','truncation','completeness','op','query'); - # attributes specific to the proximity search - my @proximity_attributes = ('prox_op','prox_exclusion','prox_distance','prox_ordered','prox_relation','prox_which-code','prox_unit-code','query'); - - my @specific_attributes; # these will be looped as many times as needed - - my $query_form = $query->param('query_form'); - - # bunch of places to store the various queries we're working with - my $cql_query = $query->param('cql_query'); - - my $pqf_query = $query->param('pqf_query'); - - my @pqf_query_array; - my @counting_pqf_query_array; - - my $pqf_prox_ops = $query->param('pqf_prox_ops'); - my @pqf_prox_ops_array; - - my $pqf_bool_ops = $query->param('pqf_bool_ops'); - my @pqf_bool_ops_array; - - my $pqf_sort_by = $query->param('pqf_sort_by'); - - # operators: - - # ADVANCED SEARCH - if (($query_form) eq 'advanced') { - @specific_attributes = @advanced_attributes; - # POWER SEARCH - } elsif (($query_form) eq 'power') { - @specific_attributes = @power_attributes; - # PROXIMITY SEARCH - } elsif (($query_form) eq 'proximity') { - @specific_attributes = @proximity_attributes; - } - - - # load the default attributes, set once per query - foreach my $def_attr (@default_attributes) { - $pqf_sort_by .= " ".$query->param($def_attr); - } - # these are attributes specific to this query_form, set many times per query - # First, process the 'operators' and put them in an array - # proximity and boolean - foreach my $spec_attr (@specific_attributes) { - for (my $i=1;$i<15;$i++) { - if ($query->param("query$i")) { # make sure this set should be used - if ($spec_attr =~ /^op/) { # process the operators separately - push @pqf_bool_ops_array, $query->param("$spec_attr$i"); - $nice_query .=" ".$query->param("$spec_attr$i")." ".$query->param("query$i"); - $nice_query =~ s/\@and/AND/g; - $nice_query =~ s/\@or/OR/g; - } elsif ($spec_attr =~ /^prox/) { # process the proximity operators separately - if ($query->param("$spec_attr$i")) { - #warn "PQF:".$query->param("$spec_attr$i"); - push @pqf_prox_ops_array,$query->param("$spec_attr$i"); - } else { - if (($spec_attr =~ /^prox_exclusion/) || ($spec_attr =~ /^prox_ordered/)) { # this is an exception, sloppy way to handle it - if ($i==2) { - push @pqf_prox_ops_array,0; - } - } - } - } - } - } - } - # by now, we have two operator arrays: @pqf_bool_ops_array (boolean) and @pqf_prox_ops_array (proximity) - - # Next, we process the attributes (operands) - for (my $i=1;$i<15;$i++) { - foreach my $spec_attr (@specific_attributes) { - if ($query->param("query$i")) { - if ($spec_attr =~ /^query/) { - push @counting_pqf_query_array,$query->param("$spec_attr$i") if $query->param("$spec_attr$i"); - push @pqf_query_array,$query->param("$spec_attr$i") if $query->param("$spec_attr$i") - } elsif ($spec_attr =~ /^op/) { # don't process the operators again - } elsif ($spec_attr =~ /^prox/) { - } else { - push @pqf_query_array,$query->param("$spec_attr$i") if $query->param("$spec_attr$i"); - } - } - } - } - - # we have to make sure that there # of operators == # of operands-1 - # because second, third, etc queries, come in with an operator attached - # ...but if there is no previous queries, it should be dropped ... - # that's what we're doing here - my $count_pqf_query = @counting_pqf_query_array; - my $count_pqf_bool_ops = @pqf_bool_ops_array; - - if ($count_pqf_bool_ops == $count_pqf_query-1) { - for (my $i=$count_pqf_query;$i>=0;$i--) { - $pqf_bool_ops.=" ".$pqf_bool_ops_array[$i]; - } - } else { - for (my $i=$count_pqf_query;$i>=1;$i--) { - $pqf_bool_ops.=" ".$pqf_bool_ops_array[$i]; - } - } - foreach my $que(@pqf_query_array) { - if ($que =~ /@/) { - $pqf_query .=" ".$que; - } else { - $que =~ s/(\"|\'|\.)//g; - $pqf_query .=" \"".$que."\""; - } - } - foreach my $prox(@pqf_prox_ops_array) { - $pqf_prox_ops.=" ".$prox; - } - - # finally, nice_query needs to be populated if it hasn't been - $nice_query = $pqf_query unless $nice_query; - # and cleaned up FIXME: bad bad ... - $nice_query =~ s/\@attr//g; - $nice_query =~ s/\d+=\d+//g; - # OK, done with that, now lets have a look - #warn "Boolean Operators: ".$pqf_bool_ops if $pqf_bool_ops; - #warn "Proximigy Operators: ".$pqf_prox_ops if $pqf_prox_ops; - #warn "Sort by: ".$pqf_sort_by; - #warn "PQF:".$pqf_query; - #warn "Full PQF: $pqf_sort_by $pqf_prox_ops $pqf_bool_ops $pqf_query"; - #warn "NICE: $nice_query"; - return ('',$pqf_sort_by, $pqf_prox_ops, $pqf_bool_ops, $pqf_query, $nice_query); -} diff --git a/opac/searchoptions.pl b/opac/searchoptions.pl deleted file mode 100644 index 943727ef4c..0000000000 --- a/opac/searchoptions.pl +++ /dev/null @@ -1,121 +0,0 @@ -#!/usr/bin/perl -use strict; -require Exporter; -# Searching within results is done by simply adding on parameters onto the query, being careful to have the requried marclist etc fields. -use C4::Database; -use C4::Interface::CGI::Output; -use C4::Context; -use CGI; -my $query = new CGI; -my $newquery=''; -my $allitemtypesbool = $query->param("allitemtypes"); -my $allbranchesbool = $query->param("allbranches"); -my $allcategoriesbool = $query->param("allcategories"); -my $allsubcategoriesbool = $query->param("allsubcategories"); -my $allmediatypesbool = $query->param("allmediatypes"); -my $nbstatements = $query->param("nbstatementsori"); -my $orderby = $query->param("orderbyori"); -my @keywords = $query->param("keyword"); -my @marclist = $query->param('marclist'); -my @and_or = $query->param('and_or'); -my @excluding = $query->param('excluding'); -my @operator = $query->param('operator'); -my @value = $query->param('value'); -my $searchtype = $query->param('searchtype'); -my $category = $query->param('categorylist'); -my @itemtypeswanted = $query->param("itemtypeswanted"); -my $itemtypessearched = $query->param("itemtypessearched"); -my @mediatypeswanted = $query->param("mediatypeswanted"); -my @subcategorieswanted = $query->param("subcategorieswanted"); -my @brancheswanted = $query->param("brancheswanted"); -my $avail = $query->param("avail"); - -my $brancheslist; -my $count=0; -my $newquery=''; -my $keywordfoundbool=0; -my $itemtypeslist; -my $itemtypescatlist; -my $itemtypessubcatlist; -my $mediatypeslist; - -$count=0; -my $dbh=C4::Context->dbh; -$newquery='op=do_search&nbstatements='.$nbstatements; -if ($allcategoriesbool == 0 && $category ne ''){ - - my $sth=$dbh->prepare("select itemtypecodes from categorytable where categorycode=?"); - $sth->execute($category); - $itemtypescatlist = $sth->fetchrow .'|'; - $sth->finish; -} -if ($allmediatypesbool == 0 && @mediatypeswanted ne ''){ - foreach my $mediatype (@mediatypeswanted){ - my $sth=$dbh->prepare("select itemtypecodes from mediatypetable where mediatypecode=?"); - $sth->execute($mediatype); - $mediatypeslist .= $sth->fetchrow.'|'; - $sth->finish; - - } -} -if ($allsubcategoriesbool == 0 && @subcategorieswanted ne ''){ - foreach my $subcategory (@subcategorieswanted){ - my $sth=$dbh->prepare("select itemtypecodes from subcategorytable where subcategorycode=?"); - $sth->execute($subcategory); - $itemtypessubcatlist .= $sth->fetchrow.'|'; - $sth->finish; - - } -} -if ($allitemtypesbool == 0){ - -$itemtypeslist .=$itemtypescatlist.$itemtypessubcatlist.$mediatypeslist.$itemtypessearched.join ("|", @itemtypeswanted) -} else { -$itemtypeslist .=$itemtypescatlist.$itemtypessubcatlist.$mediatypeslist.$itemtypessearched -} - -if ($allbranchesbool == 0){ - $brancheslist = join("|",@brancheswanted) -} - -if ($searchtype eq 'NewSearch'){ - - $newquery .= '&marclist='; - $newquery .= '&and_or=and'; - $newquery .= '&excluding='; - $newquery .= '&operator=contains'; - $newquery .= '&value='; - $newquery .=join(" ",@keywords) -} elsif ($searchtype eq 'SearchWithin'){ - foreach my $marclistitem (@marclist) { - $newquery .= '&marclist='.$marclist[$count]; - $newquery .= '&and_or='.$and_or[$count]; - $newquery .= '&excluding='.$excluding[$count]; - $newquery .= '&operator='; - $newquery .= $operator[$count]; - $newquery .= '&value='.$value[$count]; - if ($marclist[$count] eq ''){ - if ($keywordfoundbool=0){ - $keywordfoundbool=1; - $newquery .=" ".join(" ",@keywords) - } - } - $count++; - - } - if ($keywordfoundbool == 0 && $query->param('keysub') ne ''){ - $newquery .= '&marclist=&and_or=and&excluding=&operator=contains&value='; - $newquery .=join(" ",@keywords) - } -} -$newquery .= '&orderby='.$orderby; -if ($itemtypeslist ne ''){ - $newquery .= '&itemtypesstring="'.$itemtypeslist.'"' -} -if ($brancheslist ne ''){ - $newquery .= '&branchesstring="'.$brancheslist.'"'; -} -if ($avail ne ''){ - $newquery .= '&avail=1' -} -print $query->redirect("/cgi-bin/koha/opac-search.pl?$newquery"); diff --git a/plugin_launcher.pl b/plugin_launcher.pl deleted file mode 100755 index 1cbcd3fd9e..0000000000 --- a/plugin_launcher.pl +++ /dev/null @@ -1,40 +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 CGI; -use C4::Context; -use HTML::Template; -use C4::Search; -use C4::Output; - -my $input = new CGI; -my $plugin_name=$input->param("plugin_name"); -my $plugin_name="value_builder/".$input->param("plugin_name"); - -# opening plugin. Just check wether we are on a developper computer on a production one -# (the cgidir differs) -my $cgidir = C4::Context->intranetdir ."/cgi-bin"; -unless (opendir(DIR, "$cgidir/value_builder")) { - $cgidir = C4::Context->intranetdir; -} -require $cgidir."/".$plugin_name; -&plugin($input); diff --git a/reports/borrowers_stats.plugin b/reports/borrowers_stats.plugin deleted file mode 100644 index 3e677afb10..0000000000 --- a/reports/borrowers_stats.plugin +++ /dev/null @@ -1,183 +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::Auth; -use CGI; -use C4::Context; -use HTML::Template; -use C4::Search; -use C4::Output; -use C4::Koha; - -=head1 NAME - -plugin that shows a stats on borrowers - -=head1 DESCRIPTION - - -=over2 - -=cut - -sub set_parameters { - my ($template) = @_; - my $dbh = C4::Context->dbh; - return $template; -} - -sub calculate { - my ($line, $column, $filters) = @_; - my @results =(); - my @mainloop; - my @loopfooter; - my @loopcol; - my @looprow; - my %globalline; - my $grantotal =0; -# extract parameters - my $dbh = C4::Context->dbh; -# build the SQL query & execute it - my $linefilter = ""; - $linefilter = @$filters[0] if ($line =~ /categorycode/ ) ; - $linefilter = @$filters[4] if ($line =~ /zipcode/ ) ; - $linefilter = @$filters[2] if ($line =~ /sort1/ ) ; - $linefilter = @$filters[3] if ($line =~ /sort2/ ) ; - - my $colfilter = ""; - $colfilter = @$filters[0] if ($column =~ /categorycode/); - $colfilter = @$filters[4] if ($column =~ /zipcode/); - $colfilter = @$filters[2] if ($column =~ /sort1/); - $colfilter = @$filters[3] if ($column =~ /sort2/); - - my @loopfilter; - for (my $i=0;$i<=4;$i++) { - my %cell; - if ( @$filters[$i] ) { - $cell{filter} .= @$filters[$i]; - $cell{crit} .="Category Code " if ($i==0); - $cell{crit} .="Status" if ($i==1); - $cell{crit} .="Sort1" if ($i==2); - $cell{crit} .="Sort2" if ($i==3); - $cell{crit} .="Zip Code" if ($i==4); - push @loopfilter, \%cell; - } - } -# 1st, loop rows. -#problem with NULL Values. - my $strsth; - $strsth .= "select distinctrow $line from borrowers"; - $linefilter =~ s/\*/%/g; - if ( $linefilter ) { - $strsth .= " where $line LIKE ? and $line is not null" ; - } else { - $strsth .= " where $line is not null" ; - } - $strsth .=" order by $line"; - my $sth = $dbh->prepare( $strsth ); - if ( $linefilter ) { - $sth->execute($linefilter); - } else { - $sth->execute; - } - while ( my ($celvalue) = $sth->fetchrow) { - my %cell; - if ($celvalue) { - $cell{rowtitle} = $celvalue; - } else { - $cell{rowtitle} = ""; - } - $cell{totalrow} = 0; - push @looprow, \%cell; - } - -# 2nd, loop cols. - my $strsth2; - $colfilter =~ s/\*/%/g; - $strsth2 .= "select distinctrow $column from borrowers"; - if ( $colfilter ) { - $strsth2 .= " where $column LIKE ? and $column is not null"; - } else { - $strsth2 .= " where $column is not null"; - } - $strsth2 .= " order by $column"; - my $sth2 = $dbh->prepare( $strsth2 ); - if ($colfilter) { - $sth2->execute($colfilter); - } else { - $sth2->execute; - } - while (my ($celvalue) = $sth2->fetchrow) { - my %cell; - my %ft; - $cell{coltitle} = $celvalue; - $ft{totalcol} = 0; - push @loopcol, \%cell; - push @loopfooter, \%ft; - } -# now, parse each category. Before filling the result array, fill it with 0 to have every itemtype column. - my $strcalc .= "SELECT count( * ) FROM borrowers WHERE $line = ? and $column= ? "; - $strcalc .= " AND categorycode like '" . @$filters[1] ."%' " if ( @$filters[1] ); - $strcalc .= " AND sort1 like ' " . @$filters[2] ."%'" if ( @$filters[2] ); - $strcalc .= " AND sort2 like ' " . @$filters[3] ."%'" if ( @$filters[3] ); - $strcalc .= " AND zipcode like ' " . @$filters[4] ."%'" if ( @$filters[4] ); - my $dbcalc = $dbh->prepare($strcalc); - my $i=0; - my @totalcol; - my $hilighted=-1; - # for each line - for (my $i=0; $i<=$#looprow; $i++) { - my $row = $looprow[$i]->{'rowtitle'}; - my @loopcell; - my $totalrow=0; - # for each column - for (my $j=0;$j<=$#loopcol;$j++) { - my $col = $loopcol[$j]->{'coltitle'}; - $dbcalc->execute($row,$col); - my ($value) = $dbcalc->fetchrow; -# warn "$row / $col / $value"; - $totalrow += $value; - $grantotal += $value; - $loopfooter[$j]->{'totalcol'} +=$value; - push @loopcell,{value => $value}; - } - $looprow[$i]->{'totalrow'}=$totalrow; - $looprow[$i]->{'loopcell'}=\@loopcell; - $looprow[$i]->{'hilighted'} = 1 if $hilighted eq 1; - $hilighted = -$hilighted; - } - -# # the header of the table - $globalline{loopfilter}=\@loopfilter; - $globalline{looprow} = \@looprow; -# # the core of the table - $globalline{loopcol} = \@loopcol; -# # the foot (totals by borrower type) - $globalline{loopfooter} = \@loopfooter; - $globalline{total}= $grantotal; - $globalline{line} = $line; - $globalline{column} = $column; - push @mainloop,\%globalline; - return \@mainloop; -} - -1; \ No newline at end of file diff --git a/reports/overdue.pl b/reports/overdue.pl deleted file mode 100755 index fd8723d274..0000000000 --- a/reports/overdue.pl +++ /dev/null @@ -1,126 +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::Context; -use CGI; - -use C4::Auth; -use C4::Date; -use C4::Biblio; -use C4::Search; -use C4::Interface::CGI::Output; -use C4::Date; -my $input = new CGI; -my $type=$input->param('type'); - -my $theme = $input->param('theme'); # only used if allowthemeoverride is set - -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "reports/overdue.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {borrowers => 1}, - debug => 1, - }); -my $duedate; -my $bornum; -my $itemnumber; -my $barcode; -my $data1; -my $data2; -my $data3; -my $name; -my $categorycode; -my $phone; -my $email; -my $biblionumber; -my $title; -my $author; -my @datearr = localtime(time()); -my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]); -my $dateformatted= sprintf ("%0.2d", $datearr[3]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.(1900+$datearr[5]); -my $dbh = C4::Context->dbh; -my $count=0; -my @results; -my @kohafields; -my @values; -my @relations; -my $sort; -my @and_or; -push @kohafields, "date_due","date_due"; -push @values,$todaysdate,"0000-00-00"; -push @relations ,"\@attr 2=1","\@attr 2=5"; ## -push @and_or,"\@and"; - ($count,@results)=ZEBRAsearch_kohafields(\@kohafields,\@values,\@relations,$sort,\@and_or); - - - -my @overduedata; -foreach my $xml(@results) { -my @kohafields; ## just parse the fields required -push @kohafields,"title","author","biblionumber","itemnumber","barcode","date_due","borrowernumber"; -my ($biblio,@itemrecords) = XMLmarc2koha($dbh,$xml,"",@kohafields); - foreach my $data(@itemrecords){ - if ($data->{'date_due'} lt $todaysdate && $data->{'date_due'} gt "0000-00-00" ){ - $duedate=format_date($data->{'date_due'}); - $bornum=$data->{'borrowernumber'}; - $itemnumber=$data->{'itemnumber'}; - $biblionumber=$data->{'biblionumber'}; - $barcode=$data->{'barcode'}; - - my $sth1=$dbh->prepare("select concat(firstname,' ',surname),phone,emailaddress,categorycode from borrowers where borrowernumber=?"); - $sth1->execute($bornum); - $data1=$sth1->fetchrow_hashref; - $name=$data1->{'concat(firstname,\' \',surname)'}; - $phone=$data1->{'phone'}; - $categorycode=$data1->{'categorycode'}; - $email=$data1->{'emailaddress'}; - $sth1->finish; - - - - - - $title=$biblio->{'title'}; - $author=$biblio->{'author'}; - push (@overduedata, { duedate => format_date($duedate), - bornum => $bornum, - itemnum => $itemnumber, - name => $name, - categorycode => $categorycode, - phone => $phone, - email => $email, - biblionumber => $biblionumber, - - barcode =>$barcode, - title => $title, - author => $author }); - }## if overdue - - }##foreach item -}## for each biblio - -$template->param( dateformatted => $dateformatted, count=>$count, - overdueloop => \@overduedata ); - -output_html_with_http_headers $input, $cookie, $template->output; diff --git a/reports/stats.pl b/reports/stats.pl deleted file mode 100755 index d3e47f8612..0000000000 --- a/reports/stats.pl +++ /dev/null @@ -1,138 +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 CGI; -use C4::Output; -use C4::Auth; -use C4::Interface::CGI::Output; -use C4::Context; -use Date::Manip; -use C4::Stats; - -my $input=new CGI; -my $time=$input->param('time'); -my $date=$input->param('from'); -my $date2=$input->param('to'); -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "stats.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {borrowers => 1}, - debug => 1, - }); - - - -my @payments=TotalPaid($date,$date2); -my $count=@payments; -my $total=0; -my $oldtime; -my $totalw=0; -my @loop; -my %row; -my $i=0; -while ($i<$count){ -# warn " pay : ".$payments[$i]{'timestamp'}; - my $time=$payments[$i]{'datetime'}; - my $payments=$payments[$i]{'value'}; - my $charge=0; - my @temp=split(/ /,$payments[$i]{'datetime'}); - my $date=$payments[$i]{'date'}; - - my @charges=getcharges($payments[$i]{'borrowernumber'},$payments[$i]{'date'}); - my $count2=@charges; -warn "$count2"; - my $temptotalf=0; - my $temptotalr=0; - my $temptotalres=0; - my $temptotalren=0; - my $temptotalw=0; - for (my $i2=0;$i2<$count2;$i2++){ - $charge+=$charges[$i2]->{'amount'}; - %row = ( name => $charges[$i2]->{'description'}, - type => $charges[$i2]->{'accounttype'}, - time => $charges[$i2]->{'timestamp'}, - amount => $charges[$i2]->{'amount'}, - branch => $charges[$i2]->{'amountoutstanding'} ); - push(@loop, \%row); - if ($payments[$i]{'accountytpe'} ne 'W'){ - if ($charges[$i2]->{'accounttype'} eq 'Rent'){ - $temptotalr+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'}; - } - if ($charges[$i2]->{'accounttype'} eq 'F' || $charges[$i2]->{'accounttype'} eq 'FU' || $charges[$i2]->{'accounttype'} eq 'FN' ){ - $temptotalf+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'}; - } - if ($charges[$i2]->{'accounttype'} eq 'Res'){ - $temptotalres+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'}; - } - if ($charges[$i2]->{'accounttype'} eq 'R'){ - $temptotalren+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'}; - } - } - } - my $hour=substr($payments[$i]{'timestamp'},8,2); - my $min=substr($payments[$i]{'timestamp'},10,2); - my $sec=substr($payments[$i]{'timestamp'},12,2); - my $time="$hour:$min:$sec"; - my $time2="$payments[$i]{'date'}"; - my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'}); - my $bornum=$payments[$i]{'borrowernumber'}; - my $oldtime=$payments[$i]{'timestamp'}; - my $oldtype=$payments[$i]{'accounttype'}; - while ($bornum eq $payments[$i]{'borrowernumber'} && $oldtype == $payments[$i]{'accounttype'} && $oldtime eq $payments[$i]{'timestamp'}){ - my $hour=substr($payments[$i]{'timestamp'},8,2); - my $min=substr($payments[$i]{'timestamp'},10,2); - my $sec=substr($payments[$i]{'timestamp'},12,2); - my $time="$hour:$min:$sec"; - my $time2="$payments[$i]{'date'}"; - my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'}); - if ($payments[$i]{'accounttype'} eq 'W'){ - $totalw+=$payments[$i]{'amount'}; - } else { - $payments[$i]{'amount'}=$payments[$i]{'amount'}*-1; - $total+=$payments[$i]{'amount'}; - } - - %row = ( name => "".$payments[$i]{'firstname'}.$payments[$i]{'surname'} . "", - type => $payments[$i]{'accounttype'}, time => $payments[$i]{'date'}, - amount => $payments[$i]{'amount'}, branch => $branch ); - push(@loop, \%row); - $oldtype=$payments[$i]{'accounttype'}; - $oldtime=$payments[$i]{'timestamp'}; - $bornum=$payments[$i]{'borrowernumber'}; - $i++; - } - -} - -$template->param( loop1 => \@loop, - totalw => $totalw, - total => $total ); - -output_html_with_http_headers $input, $cookie, $template->output; - - diff --git a/reports/transfers.plugin b/reports/transfers.plugin deleted file mode 100644 index 246e1a27d6..0000000000 --- a/reports/transfers.plugin +++ /dev/null @@ -1,105 +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::Auth; -use CGI; -use C4::Context; -use C4::Search; -use C4::Output; -use C4::Koha; - -=head1 - -=cut - -sub set_parameters { - my ($template) = @_; - my $dbh = C4::Context->dbh; - my $branches=GetBranches(); - my @branches; - my @select_branch; - my %select_branches; - push @select_branch,""; - $select_branches{""} = ""; - foreach my $branch (keys %$branches) { - push @select_branch, $branch; - $select_branches{$branch} = $branches->{$branch}->{'branchname'}; - } - my $CGIbranch=CGI::scrolling_list( -name => 'value', - -id => 'value', - -values => \@select_branch, - -labels => \%select_branches, - -size => 1, - -multiple => 0 ); - $template->param(CGIbranch => $CGIbranch); - return $template; -} -sub calculate { - my ($parameters) = @_; - my @results =(); - my $branch = @$parameters[0]; - my $dbh = C4::Context->dbh; - my $sth; - if ($branch) { - $sth = $dbh->prepare("SELECT i.itemnumber,i.barcode,i.biblionumber,ms.tobranch,ms.frombranch,ms.datearrived,ms.comments FROM `items` i - left join branchtransfers as ms on i.itemnumber=ms.itemnumber - where ms.frombranch=? order by ms.datearrived desc"); - $sth->execute($branch); - } else { - $sth = $dbh->prepare("SELECT i.itemnumber,i.barcode,i.biblionumber,ms.tobranch,ms.frombranch,ms.datearrived,ms.comments FROM `items` i, branchtransfers as ms - where i.itemnumber=ms.itemnumber and ms.itemnumber is not null order by ms.datearrived desc"); - $sth->execute; - } - - my ($itemnumber,$barcode,$biblionumber,$currentbranch,$origbranch,$date,$by); - my $nbresult=$dbh->prepare("SELECT FOUND_ROWS()"); - $nbresult->execute; - my $grantotal = $nbresult->fetchrow; - my $count = 0; - while (($itemnumber,$barcode,$biblionumber,$currentbranch,$origbranch,$date,$by) = $sth->fetchrow) { - my %line; - if($count % 2){ - $line{toggle} = 1; - } else { - $line{toggle} = 0; - } - $line{itemnumber} = $itemnumber; - $line{barcode} = $barcode; - $line{biblionumber} = $biblionumber; - - $line{currentb} = $currentbranch; - $line{origb} = $origbranch; - $line{date} = $date; - $line{by} = $by; - push @results,\%line; - $count ++; - } - my @mainloop; - my %globalline; - $globalline{loopitemtype} = \@results; - $globalline{total} = $grantotal; - $globalline{branch} = $branch; - push @mainloop,\%globalline; - return \@mainloop; -} - -1; \ No newline at end of file diff --git a/search-test.pl b/search-test.pl deleted file mode 100755 index 83768aa516..0000000000 --- a/search-test.pl +++ /dev/null @@ -1,42 +0,0 @@ -#!/usr/bin/perl - -# simple script to test cql searching -# written by chris@katipo.co.nz 17/2/06 - -use C4::Search; -use C4::Auth; -use C4::Interface::CGI::Output; - -use CGI; -use Smart::Comments; -use strict; -use warnings; - -my $input = new CGI; - -my ( $template, $borrowernumber, $cookie ) = get_template_and_user( - { - template_name => "search-test.tmpl", - type => "opac", - query => $input, - authnotrequired => 1, - flagsrequired => { borrow => 1 }, - } -); - -my $cql=$input->param('cql'); -if ($cql){ - my %search; - $search{'cql'} = $cql; - my $results = search( \%search, 'CQL' , 10); - $template->param(CQL => 'yes' - ); - $template->param(results => $results); -} -#my $record = get_record($result); - - - - - -output_html_with_http_headers $input, $cookie, $template->output; diff --git a/sec/writeoff.pl b/sec/writeoff.pl deleted file mode 100755 index 75eb5775e6..0000000000 --- a/sec/writeoff.pl +++ /dev/null @@ -1,91 +0,0 @@ -#!/usr/bin/perl - -#written 11/1/2000 by chris@katipo.co.nz -#script to write off accounts - - -# 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 CGI; -use C4::Context; -use C4::Stats; -my $input=new CGI; - -#print $input->header; -#print $input->dump; - -my%inp; - -my @name=$input->param; -for (my $i=0;$i<@name;$i++){ - my $test=$input->param($name[$i]); - if ($test eq 'wo'){ - my $temp=$name[$i]; - $temp=~ s/payfine//; - $inp{$name[$i]}=$temp; - } -} -my $bornum; -while ( my ($key, $value) = each %inp){ -# print $key,$value; - my $accounttype=$input->param("accounttype$value"); - $bornum=$input->param("bornum$value"); - my $itemno=$input->param("itemnumber$value"); - my $amount=$input->param("amount$value"); - if ($accounttype eq 'Res'){ - my $accountno=$input->param("accountno$value"); - writeoff($bornum,$accountno,$itemno,$accounttype,$amount); - } else { - writeoff($bornum,'',$itemno,$accounttype,$amount); - } -} -#print $input->header; -$bornum=$input->param('bornum'); -print $input->redirect("/cgi-bin/koha/pay.pl?bornum=$bornum"); - -#needs to be shifted to a module when time permits -sub writeoff{ - my ($bornum,$accountnum,$itemnum,$accounttype,$amount)=@_; - my $user=$input->remote_user; - $user=~ s/Levin/C/; - $user=~ s/Foxton/F/; - $user=~ s/Shannon/S/; - my $dbh = C4::Context->dbh; - my $env; - my $sth; - if ($accounttype eq 'Res'){ - $sth=$dbh->prepare("Update accountlines set amountoutstanding=0 where accounttype='Res' and accountno=? and borrowernumber=?"); - $sth->execute($accountnum,$bornum); - } else { - $sth=$dbh->prepare("Update accountlines set amountoutstanding=0 where accounttype=? and itemnumber=? and borrowernumber=?"); - $sth->execute($accounttype,$itemnum,$bornum); - } - $sth->finish; - $sth=$dbh->prepare("select max(accountno) from accountlines"); - $sth->execute; - my $account=$sth->fetchrow_hashref; - $sth->finish; - $account->{'max(accountno)'}++; - $sth=$dbh->prepare("insert into accountlines (borrowernumber,accountno,itemnumber,date,amount,description,accounttype) - values (?,?,?,now(),?,'Writeoff','W')"); - $sth->execute($bornum,$account->{'max(accountno)'},$itemnum,$amount); - $sth->finish; -# print $query; - UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum); -} diff --git a/serials/alt_subscription-add.pl b/serials/alt_subscription-add.pl deleted file mode 100755 index a553ee78eb..0000000000 --- a/serials/alt_subscription-add.pl +++ /dev/null @@ -1,260 +0,0 @@ -#!/usr/bin/perl - - -use strict; -use CGI; -use C4::Koha; -use C4::Auth; -use C4::Date; -use C4::Output; -use C4::Acquisition; -use C4::Interface::CGI::Output; -use C4::Context; -use HTML::Template; -use C4::Serials; -use Date::Manip; - -my $query = new CGI; -my $op = $query->param('op'); -my $dbh = C4::Context->dbh; -my ($subscriptionid,$auser,$librarian,$cost,$aqbooksellerid, $aqbooksellername,$aqbudgetid, $bookfundid, $startdate, $periodicity, - $firstacquidate, $dow, $irregularity, $numberpattern, $numberlength, $weeklength, $monthlength, $sublength, - $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1, - $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2, - $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3, - $numberingmethod, $status, $biblionumber, - $bibliotitle, $callnumber, $notes, $hemisphere); - - my @budgets; -my ($template, $loggedinuser, $cookie) -= get_template_and_user({template_name => "serials/alt_subscription-add.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {catalogue => 1}, - debug => 1, - }); - - -my $weekarrayjs=''; -my $count = 0; -my ($year, $month, $day) = UnixDate("today", "%Y", "%m", "%d"); -my $firstday = Date_DayOfYear($month,$day,$year); -my $wkno = Date_WeekOfYear($month,$day,$year,1); # week starting monday -my $weekno = $wkno; -for(my $i=$firstday;$i<($firstday+365);$i=$i+7){ - $count = $i; - if($wkno > 52){$year++; $wkno=1;} - if($count>365){$count=$i-365;} - my ($y,$m,$d) = Date_NthDayOfYear($year,$count); - my $output = "$y-$m-$d"; - $weekarrayjs .= "'Wk $wkno: ".format_date($output)."',"; - $wkno++; -} -chop($weekarrayjs); -# warn $weekarrayjs; - -my $sub_on; -my @subscription_types = ( - 'issues', 'weeks', 'months' - ); -my @sub_type_data; -if ($op eq 'mod') { - my $subscriptionid = $query->param('subscriptionid'); - my $subs = &GetSubscription($subscriptionid); - $auser = $subs->{'user'}; - $librarian => $subs->{'librarian'}, - $cost = $subs->{'cost'}; - $aqbooksellerid = $subs->{'aqbooksellerid'}; - $aqbooksellername = $subs->{'aqbooksellername'}; - $startdate = $subs->{'startdate'}; - $firstacquidate = $subs->{'firstacquidate'}; - $periodicity = $subs->{'periodicity'}; - $dow = $subs->{'dow'}; - $irregularity = $subs->{'irregularity'}; - $numberpattern = $subs->{'numberpattern'}; - $numberlength = $subs->{'numberlength'}; - $weeklength = $subs->{'weeklength'}; - $monthlength = $subs->{'monthlength'}; - - if($monthlength > 0){ - $sublength = $monthlength; - $sub_on = $subscription_types[2]; - } elsif ($weeklength>0){ - $sublength = $weeklength; - $sub_on = $subscription_types[1]; - } else { - $sublength = $numberlength; - $sub_on = $subscription_types[0]; - } - - - while (@subscription_types) { - my $sub_type = shift @subscription_types; - my %row = ( 'name' => $sub_type ); - if ( $sub_on eq $sub_type ) { - $row{'selected'} = ' selected'; - } else { - $row{'selected'} = ''; - } - push( @sub_type_data, \%row ); - } - - $add1 = $subs->{'add1'}; - $every1 = $subs->{'every1'}; - $whenmorethan1 = $subs->{'whenmorethan1'}; - $setto1 = $subs->{'setto1'}; - $lastvalue1 = $subs->{'lastvalue1'}; - $innerloop1 = $subs->{'innerloop1'}; - $add2 = $subs->{'add2'}; - $every2 = $subs->{'every2'}; - $whenmorethan2 = $subs->{'whenmorethan2'}; - $setto2 = $subs->{'setto2'}; - $lastvalue2 = $subs->{'lastvalue2'}; - $innerloop2 = $subs->{'innerloop2'}; - $add3 = $subs->{'add3'}; - $every3 = $subs->{'every3'}; - $whenmorethan3 = $subs->{'whenmorethan3'}; - $setto3 = $subs->{'setto3'}; - $lastvalue3 = $subs->{'lastvalue3'}; - $innerloop3 = $subs->{'innerloop3'}; - $numberingmethod = $subs->{'numberingmethod'}; - $status = $subs->{status}; - $biblionumber = $subs->{'biblionumber'}; - $bibliotitle = $subs->{'bibliotitle'}; - $callnumber = $subs->{'callnumber'}; - $notes = $subs->{'notes'}; - $hemisphere = $subs->{'hemisphere'}; - $template->param( - $op => 1, - user => $auser, - librarian => $librarian, - aqbooksellerid => $aqbooksellerid, - aqbooksellername => $aqbooksellername, - cost => $cost, - aqbudgetid => $aqbudgetid, - bookfundid => $bookfundid, - startdate => format_date($startdate), - firstacquidate => format_date($firstacquidate), - periodicity => $periodicity, - dow => $dow, - irregularity => $irregularity, - numberpattern => $numberpattern, - sublength => $sublength, - subtype => \@sub_type_data, - add1 => $add1, - every1 => $every1, - whenmorethan1 => $whenmorethan1, - setto1 => $setto1, - lastvalue1 => $lastvalue1, - innerloop1 => $innerloop1, - add2 => $add2, - every2 => $every2, - whenmorethan2 => $whenmorethan2, - setto2 => $setto2, - lastvalue2 => $lastvalue2, - innerloop2 => $innerloop2, - add3 => $add3, - every3 => $every3, - whenmorethan3 => $whenmorethan3, - setto3 => $setto3, - lastvalue3 => $lastvalue3, - innerloop3 => $innerloop3, - numberingmethod => $numberingmethod, - status => $status, - biblionumber => $biblionumber, - bibliotitle => $bibliotitle, - callnumber => $callnumber, - notes => $notes, - subscriptionid => $subscriptionid, - weekarrayjs => $weekarrayjs, - weekno => $weekno, - hemisphere => $hemisphere, - ); - - $template->param( - "periodicity$periodicity" => 1, - "dow$dow" => 1, - "numberpattern$numberpattern" => 1, - ); -} - -if ($op eq 'addsubscription') { - my @irregular = $query->param('irregular'); - my $irregular_count = @irregular; - for(my $i =0;$i<$irregular_count;$i++){ - $irregularity .=$irregular[$i]."|"; - } - $irregularity =~ s/\|$//; - - my $auser = $query->param('user'); - my $aqbooksellerid = $query->param('aqbooksellerid'); - my $cost = $query->param('cost'); - my $aqbudgetid = $query->param('aqbudgetid'); - my $startdate = $query->param('startdate'); - my $firstacquidate = $query->param('firstacquidate'); - my $periodicity = $query->param('periodicity'); - my $dow = $query->param('dow'); - # my $irregularity = $query->param('irregularity'); - my $numberlength = 0; - my $weeklength = 0; - my $monthlength = 0; - my $numberpattern = $query->param('numbering_pattern'); - my $sublength = $query->param('sublength'); - my $subtype = $query->param('subtype'); - if ($subtype eq 'months'){ - $monthlength = $sublength; - } elsif ($subtype eq 'weeks'){ - $weeklength = $sublength; - } else { - $numberlength = $sublength; - } - - my $add1 = $query->param('add1'); - my $every1 = $query->param('every1'); - my $whenmorethan1 = $query->param('whenmorethan1'); - my $setto1 = $query->param('setto1'); - my $lastvalue1 = $query->param('lastvalue1'); - my $add2 = $query->param('add2'); - my $every2 = $query->param('every2'); - my $whenmorethan2 = $query->param('whenmorethan2'); - my $setto2 = $query->param('setto2'); - my $lastvalue2 = $query->param('lastvalue2'); - my $add3 = $query->param('add3'); - my $every3 = $query->param('every3'); - my $whenmorethan3 = $query->param('whenmorethan3'); - my $setto3 = $query->param('setto3'); - my $lastvalue3 = $query->param('lastvalue3'); - my $numberingmethod = $query->param('numberingmethod'); - my $status = 1; - my $biblionumber = $query->param('biblionumber'); - my $callnumber = $query->param('callnumber'); - my $notes = $query->param('notes'); - my $hemisphere = $query->param('hemisphere') || 1; - - my $subscriptionid = old_newsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, - $startdate,$periodicity,$firstacquidate,$dow,$irregularity,$numberpattern,$numberlength,$weeklength,$monthlength, - $add1,$every1,$whenmorethan1,$setto1,$lastvalue1, - $add2,$every2,$whenmorethan2,$setto2,$lastvalue2, - $add3,$every3,$whenmorethan3,$setto3,$lastvalue3, - $numberingmethod, $status, $callnumber, $notes, $hemisphere - ); - print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); -} else { - - while (@subscription_types) { - my $sub_type = shift @subscription_types; - my %row = ( 'name' => $sub_type ); - if ( $sub_on eq $sub_type ) { - $row{'selected'} = ' selected'; - } else { - $row{'selected'} = ''; - } - push( @sub_type_data, \%row ); - } - $template->param(subtype => \@sub_type_data, - weekarrayjs => $weekarrayjs, - weekno => $weekno, - ); - output_html_with_http_headers $query, $cookie, $template->output; -} diff --git a/serials/alt_subscription-detail.pl b/serials/alt_subscription-detail.pl deleted file mode 100755 index 96269d5ef1..0000000000 --- a/serials/alt_subscription-detail.pl +++ /dev/null @@ -1,189 +0,0 @@ -#!/usr/bin/perl - -use strict; -use CGI; -use C4::Auth; -use C4::Koha; -use C4::Date; -use C4::Serials; -use C4::Output; -use C4::Interface::CGI::Output; -use C4::Context; -use HTML::Template; -use Date::Manip; - -my $query = new CGI; -my $op = $query->param('op'); -my $dbh = C4::Context->dbh; -my $sth; -# my $id; -my ($template, $loggedinuser, $cookie, $subs); -my ($subscriptionid,$auser,$librarian,$cost,$aqbooksellerid, $aqbooksellername,$aqbudgetid, $bookfundid, $startdate, $periodicity, - $firstacquidate, $dow, $irregularity, $sublength, $subtype, $numberpattern, $numberlength, $weeklength, $monthlength, - $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1, - $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2, - $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3, - $numberingmethod, $status, $biblionumber, $bibliotitle, $callnumber, $notes, $hemisphere); - -$subscriptionid = $query->param('subscriptionid'); - -if ($op eq 'modsubscription') { - my @irregular = $query->param('irregular'); - my $irregular_count = @irregular; - for(my $i =0;$i<$irregular_count;$i++){ - $irregularity .=$irregular[$i]."|"; - } - $irregularity =~ s/\|$//; - - - $auser = $query->param('user'); - $librarian => $query->param('librarian'), - $cost = $query->param('cost'); - $aqbooksellerid = $query->param('aqbooksellerid'); - $biblionumber = $query->param('biblionumber'); - $aqbudgetid = $query->param('aqbudgetid'); - $startdate = format_date_in_iso($query->param('startdate')); - $firstacquidate = format_date_in_iso($query->param('firstacquidate')); - $periodicity = $query->param('periodicity'); - $dow = $query->param('dow'); - $sublength = $query->param('sublength'); - $subtype = $query->param('subtype'); - - if($subtype eq 'months'){ - $monthlength = $sublength; - } elsif ($subtype eq 'weeks'){ - $weeklength = $sublength; - } else { - $numberlength = $sublength; - } - $numberpattern = $query->param('numbering_pattern'); - $add1 = $query->param('add1'); - $every1 = $query->param('every1'); - $whenmorethan1 = $query->param('whenmorethan1'); - $setto1 = $query->param('setto1'); - $lastvalue1 = $query->param('lastvalue1'); - $innerloop1 = $query->param('innerloop1'); - $add2 = $query->param('add2'); - $every2 = $query->param('every2'); - $whenmorethan2 = $query->param('whenmorethan2'); - $setto2 = $query->param('setto2'); - $lastvalue2 = $query->param('lastvalue2'); - $innerloop2 = $query->param('innerloop2'); - $add3 = $query->param('add3'); - $every3 = $query->param('every3'); - $whenmorethan3 = $query->param('whenmorethan3'); - $setto3 = $query->param('setto3'); - $lastvalue3 = $query->param('lastvalue3'); - $innerloop3 = $query->param('innerloop3'); - $numberingmethod = $query->param('numberingmethod'); - $status = 1; - $callnumber = $query->param('callnumber'); - $notes = $query->param('notes'); - $hemisphere = $query->param('hemisphere'); - - &ModSubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate, - $periodicity,$firstacquidate,$dow,$irregularity,$numberpattern,$numberlength,$weeklength,$monthlength, - $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1, - $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2, - $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3, - $numberingmethod, $status, $biblionumber, $callnumber, $notes, $hemisphere, $subscriptionid); -} - -if ($op eq 'del') { - &DelSubscription($subscriptionid); - print "Content-Type: text/html\n\n"; - exit; - -} -my $subs = &GetSubscription($subscriptionid); -my ($routing, @routinglist) = getroutinglist($subscriptionid); -my ($totalissues,@serialslist) = old_getserials($subscriptionid); -$totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue) -# the subscription must be deletable if there is NO issues for a reason or another (should not happend, but...) - -($template, $loggedinuser, $cookie) -= get_template_and_user({template_name => "serials/alt_subscription-detail.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {catalogue => 1}, - debug => 1, - }); - -my ($user, $cookie, $sessionID, $flags) - = checkauth($query, 0, {catalogue => 1}, "intranet"); - -my $weekarrayjs=''; -my $count = 0; -my ($year, $month, $day) = UnixDate("today", "%Y", "%m", "%d"); -my $firstday = Date_DayOfYear($month,$day,$year); -my $wkno = Date_WeekOfYear($month,$day,$year,1); # week starting monday -my $weekno = $wkno; -for(my $i=$firstday;$i<($firstday+365);$i=$i+7){ - $count = $i; - if($wkno > 52){$year++; $wkno=1;} - if($count>365){$count=$i-365;} - my ($y,$m,$d) = Date_NthDayOfYear($year,$count); - my $output = "$y-$m-$d"; - $weekarrayjs .= "'Wk $wkno: ".format_date($output)."',"; - $wkno++; - } -chop($weekarrayjs); - -$template->param( - routing => $routing, - user => $subs->{auser}, - librarian => $subs->{librarian}, - aqbooksellerid => $subs->{aqbooksellerid}, - aqbooksellername => $subs->{aqbooksellername}, - cost => $subs->{cost}, - aqbudgetid => $subs->{aqbudgetid}, - bookfundid => $subs->{bookfundid}, - startdate => format_date($subs->{startdate}), - firstacquidate => format_date($subs->{firstacquidate}), - periodicity => $subs->{periodicity}, - dow => $subs->{dow}, - irregularity => $subs->{irregularity}, - numberlength => $subs->{numberlength}, - weeklength => $subs->{weeklength}, - monthlength => $subs->{monthlength}, - numberpattern => $subs->{numberpattern}, - add1 => $subs->{add1}, - every1 => $subs->{every1}, - whenmorethan1 => $subs->{whenmorethan1}, - innerloop1 => $subs->{innerloop1}, - setto1 => $subs->{setto1}, - lastvalue1 => $subs->{lastvalue1}, - add2 => $subs->{add2}, - every2 => $subs->{every2}, - whenmorethan2 => $subs->{whenmorethan2}, - setto2 => $subs->{setto2}, - lastvalue2 => $subs->{lastvalue2}, - innerloop2 => $subs->{innerloop2}, - add3 => $subs->{add3}, - every3 => $subs->{every3}, - whenmorethan3 => $subs->{whenmorethan3}, - setto3 => $subs->{setto3}, - lastvalue3 => $subs->{lastvalue3}, - innerloop3 => $subs->{innerloop3}, - weekarrayjs => $weekarrayjs, - numberingmethod => $subs->{numberingmethod}, - status => $subs->{status}, - biblionumber => $subs->{biblionumber}, - bibliotitle => $subs->{bibliotitle}, - callnumber => $subs->{callnumber}, - notes => $subs->{notes}, - subscriptionid => $subs->{subscriptionid}, - serialslist => \@serialslist, - totalissues => $totalissues, - hemisphere => $hemisphere, - ); -$template->param( - "periodicity$subs->{periodicity}" => 1, - "arrival$subs->{dow}" => 1, - "numberpattern$subs->{numberpattern}" => 1, - intranetstylesheet => C4::Context->preference("intranetstylesheet"), - intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), - ); - -output_html_with_http_headers $query, $cookie, $template->output; diff --git a/serials/lateissues.pl b/serials/lateissues.pl deleted file mode 100755 index 59f6d208e1..0000000000 --- a/serials/lateissues.pl +++ /dev/null @@ -1,90 +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 - -# $Id$ - -=head1 NAME - -lateissues - -=head1 DESCRIPTION - -this script display late issue by types. - -=head1 PARAMETERS - -=over 4 - -=item supplierid -the id of the supplier this script has to search late issues. - -=back - -=cut - -use strict; -use CGI; -use C4::Auth; -use C4::Serials; -use C4::Acquisition; -use C4::Interface::CGI::Output; -use C4::Context; -use C4::Bookseller; - -my $query = new CGI; -# my $title = $query->param('title'); -# my $ISSN = $query->param('ISSN'); -# my @subscriptions = GetSubscriptions($title,$ISSN); - -my $supplierid = $query->param('supplierid'); -my %supplierlist = GetSuppliersWithLateIssues; -my @select_supplier; -push @select_supplier,""; -foreach my $supplier (keys %supplierlist){ - push @select_supplier, $supplier -} -my $CGIsupplier=CGI::scrolling_list( - -name => 'supplierid', - -values => \@select_supplier, - -default => $supplierid, - -labels => \%supplierlist, - -size => 1, - -multiple => 0 ); - -my ($count,@lateissues); -($count,@lateissues) = GetLateIssues($supplierid) ; -my @supplierinfo=GetBookSeller($supplierid) if $supplierid; - -my ($template, $loggedinuser, $cookie) -= get_template_and_user({template_name => "serials/lateissues.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {catalogue => 1}, - debug => 1, - }); - -$template->param( - CGIsupplier => $CGIsupplier, - lateissues => \@lateissues, - phone => $supplierinfo[0]->{phone}, - booksellerfax => $supplierinfo[0]->{booksellerfax}, - bookselleremail => $supplierinfo[0]->{bookselleremail}, - ); -output_html_with_http_headers $query, $cookie, $template->output; diff --git a/serials/printlist.pl b/serials/printlist.pl deleted file mode 100755 index 288e677bac..0000000000 --- a/serials/printlist.pl +++ /dev/null @@ -1,83 +0,0 @@ -#!/usr/bin/perl -# NOTE: Use standard 8-space tabs for this file (indents are 4 spaces) - -# 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 -# -# $Id$ - -=head1 NAME - -printlist.pl - -=head1 DESCRIPTION - -this script print the list of members who have reserved the subscription given on input arg. - -=head1 PARAMETERS - -=over 4 - -=item serialseq - -=item subscriptionid - -=back - -=cut - - -use strict; -require Exporter; -use C4::Context; -use CGI; -use C4::Auth; -use C4::Serials; -use C4::Interface::CGI::Output; -use C4::Koha; - -my $query=new CGI; - -my $serialseq=$query->param('serialseq'); -my $subscriptionid=$query->param('subscriptionid'); -my $subscription = GetSubscription($subscriptionid); -$subscription->{'distributedto'} =~ s/\n/