[Koha-cvs] koha C4/Circulation/Date.pm circ/bookcount.pl c... [rel_3_0]
Antoine Farnault
antoine at koha-fr.org
Mon Dec 18 11:59:54 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 06/12/18 10:59:54
Modified files:
C4/Circulation : Date.pm
circ : bookcount.pl branchoverdues.pl circulation.pl
reserve.pl
koha-tmpl/opac-tmpl/prog/en: opac-basket.tmpl
reports : stats.screen.pl
serials : reorder_members.pl subscription-bib-search.pl
subscription-detail.pl
tools : itemslost.pl
Log message:
some little clean... (removing HTML::template, adding GPL, removing Data::Dumper)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Date.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2&r2=1.2.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/circ/bookcount.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.7&r2=1.1.2.8
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchoverdues.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.5&r2=1.1.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.97.2.16&r2=1.97.2.17
http://cvs.savannah.gnu.org/viewcvs/koha/circ/reserve.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.2.4&r2=1.3.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/prog/en/opac-basket.tmpl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.5&r2=1.1.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/reports/stats.screen.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.1&r2=1.1.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/reorder_members.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.1&r2=1.1.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-bib-search.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.2.3&r2=1.3.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-detail.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.2.6&r2=1.3.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/tools/itemslost.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.2&r2=1.1.2.3
Patches:
Index: C4/Circulation/Date.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Attic/Date.pm,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -u -b -r1.2 -r1.2.2.1
--- C4/Circulation/Date.pm 3 Sep 2005 00:54:23 -0000 1.2
+++ C4/Circulation/Date.pm 18 Dec 2006 10:59:53 -0000 1.2.2.1
@@ -1,9 +1,5 @@
-#!/usr/bin/perl -w
-
package C4::Circulation::Date;
-# $id:
-
# Copyright 2005 Katipo Communications
#
# This file is part of Koha.
@@ -21,6 +17,8 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
+# $id:$
+
use strict;
use C4::Context;
@@ -28,7 +26,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-$VERSION = do { my @v = '$Revision: 1.2 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.2.2.1 $' =~ /\d+/g;
shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
};
Index: circ/bookcount.pl
===================================================================
RCS file: /sources/koha/koha/circ/Attic/bookcount.pl,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -u -b -r1.1.2.7 -r1.1.2.8
--- circ/bookcount.pl 14 Dec 2006 15:41:54 -0000 1.1.2.7
+++ circ/bookcount.pl 18 Dec 2006 10:59:54 -0000 1.1.2.8
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: bookcount.pl,v 1.1.2.7 2006/12/14 15:41:54 toins Exp $
+# $Id: bookcount.pl,v 1.1.2.8 2006/12/18 10:59:54 toins Exp $
#written 7/3/2002 by Finlay
#script to display reports
@@ -30,6 +30,7 @@
use C4::Koha;
use C4::Auth;
use C4::Branch; # GetBranches
+use C4::Biblio; # GetBiblioItemData
use C4::Date;
my $input = new CGI;
Index: circ/branchoverdues.pl
===================================================================
RCS file: /sources/koha/koha/circ/Attic/branchoverdues.pl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -b -r1.1.2.5 -r1.1.2.6
--- circ/branchoverdues.pl 21 Nov 2006 10:45:54 -0000 1.1.2.5
+++ circ/branchoverdues.pl 18 Dec 2006 10:59:54 -0000 1.1.2.6
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: branchoverdues.pl,v 1.1.2.5 2006/11/21 10:45:54 toins Exp $
+# $Id: branchoverdues.pl,v 1.1.2.6 2006/12/18 10:59:54 toins Exp $
#
# This file is part of Koha.
#
@@ -21,7 +21,6 @@
use C4::Context;
use CGI;
use C4::Interface::CGI::Output;
-use HTML::Template;
use C4::Auth;
use C4::Date;
use C4::Circulation::Circ2; # AddNotifyLine
Index: circ/circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.97.2.16
retrieving revision 1.97.2.17
diff -u -b -r1.97.2.16 -r1.97.2.17
--- circ/circulation.pl 14 Dec 2006 15:41:54 -0000 1.97.2.16
+++ circ/circulation.pl 18 Dec 2006 10:59:54 -0000 1.97.2.17
@@ -39,7 +39,6 @@
Date_to_Days
);
-#use C4::Date;
use C4::Biblio;
use C4::Reserves2;
use C4::Circulation::Date;
Index: circ/reserve.pl
===================================================================
RCS file: /sources/koha/koha/circ/reserve.pl,v
retrieving revision 1.3.2.4
retrieving revision 1.3.2.5
diff -u -b -r1.3.2.4 -r1.3.2.5
--- circ/reserve.pl 21 Nov 2006 10:45:54 -0000 1.3.2.4
+++ circ/reserve.pl 18 Dec 2006 10:59:54 -0000 1.3.2.5
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: reserve.pl,v 1.3.2.4 2006/11/21 10:45:54 toins Exp $
+# $Id: reserve.pl,v 1.3.2.5 2006/12/18 10:59:54 toins Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -23,7 +23,6 @@
use C4::Context;
use C4::Output;
use CGI;
-use HTML::Template;
use C4::Auth;
use C4::Date;
use C4::Interface::CGI::Output;
Index: koha-tmpl/opac-tmpl/prog/en/opac-basket.tmpl
===================================================================
RCS file: /sources/koha/koha/koha-tmpl/opac-tmpl/prog/en/opac-basket.tmpl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -b -r1.1.2.5 -r1.1.2.6
--- koha-tmpl/opac-tmpl/prog/en/opac-basket.tmpl 15 Dec 2006 17:41:48 -0000 1.1.2.5
+++ koha-tmpl/opac-tmpl/prog/en/opac-basket.tmpl 18 Dec 2006 10:59:54 -0000 1.1.2.6
@@ -58,9 +58,7 @@
<td scope="row">Subjects: </td>
<td>
<!-- TMPL_LOOP NAME="MARCAUTHORS" -->
- <a href="/cgi-bin/koha/opac-search.pl?q=au:<!-- TMPL_VAR NAME="value" -->">
<!-- TMPL_VAR NAME="value" -->
- </a>
<!-- /TMPL_LOOP -->
</td>
</tr>
@@ -91,10 +89,7 @@
<td scope="row">Subjects: </td>
<td>
<!-- TMPL_LOOP NAME="MARCSUBJCTS" -->
- <a href="/cgi-bin/koha/opac-search.pl?q=<!-- TMPL_VAR NAME="link" ESCAPE="URL"-->">
<!-- TMPL_VAR NAME="label" -->
- </a>
-
<!-- /TMPL_LOOP -->
</td>
</tr>
Index: reports/stats.screen.pl
===================================================================
RCS file: /sources/koha/koha/reports/stats.screen.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- reports/stats.screen.pl 21 Nov 2006 10:45:54 -0000 1.1.2.1
+++ reports/stats.screen.pl 18 Dec 2006 10:59:54 -0000 1.1.2.2
@@ -1,137 +1,163 @@
#!/usr/bin/perl
+# 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 HTML::Template;
use C4::Auth;
use C4::Interface::CGI::Output;
use C4::Context;
use Date::Manip;
use C4::Stats;
-use Data::Dumper;
&Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005
-my $input=new CGI;
-my $time=$input->param('time');
-my $time2=$input->param('time2');
-
-
-if($input->param('submit') eq "To Excel" || $input->param('submit_x') eq "To Excel"){
- print $input->redirect("/cgi-bin/koha/stats.print.pl?time=$time&time2=$time2");
+my $input = new CGI;
+my $time = $input->param('time');
+my $time2 = $input->param('time2');
+
+if ( $input->param('submit') eq "To Excel"
+ || $input->param('submit_x') eq "To Excel" )
+{
+ print $input->redirect(
+ "/cgi-bin/koha/stats.print.pl?time=$time&time2=$time2");
}
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "stats_screen.tmpl",
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => "stats_screen.tmpl",
query => $input,
type => "intranet",
authnotrequired => 1,
- flagsrequired => { reports => 1},
+ flagsrequired => { reports => 1 },
debug => 1,
- });
+ }
+);
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 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 eq 'month') {
+if ( $time eq 'month' ) {
$date = ParseDate('1 month ago');
$date2 = ParseDate('today');
}
-if ($time=~ /\//){
- $date=ParseDate($time);
- $date2=ParseDateDelta('+ 1 day');
- $date2=DateCalc($date,$date2);
+if ( $time =~ /\// ) {
+ $date = ParseDate($time);
+ $date2 = ParseDateDelta('+ 1 day');
+ $date2 = DateCalc( $date, $date2 );
}
+
# if time is blank
-if ($time eq ''){
- $date=ParseDate('today');
- $date2=ParseDate('tomorrow');
+if ( $time eq '' ) {
+ $date = ParseDate('today');
+ $date2 = ParseDate('tomorrow');
}
# if script is called with a start and finsh date range...
-if ($time ne '' && $time2 ne ''){
- $date=ParseDate($time);
- $date2=ParseDate($time2);
+if ( $time ne '' && $time2 ne '' ) {
+ $date = ParseDate($time);
+ $date2 = ParseDate($time2);
}
+my $date = UnixDate( $date, '%Y-%m-%d' );
+my $date2 = UnixDate( $date2, '%Y-%m-%d' );
-my $date=UnixDate($date,'%Y-%m-%d');
-my $date2=UnixDate($date2,'%Y-%m-%d');
# warn "MASON: TIME: $time, $time2";
# warn "MASON: DATE: $date, $date2";
# get a list of every payment
-my @payments=TotalPaid($date,$date2,0);
+my @payments = TotalPaid( $date, $date2, 0 );
+my $count = @payments;
-my $count=@payments;
# print "MASON: number of payments=$count\n";
-my $i=0;
-my $totalcharges=0;
-my $totalcredits=0;
-my $totalpaid=0;
-my $totalwritten=0;
+my $i = 0;
+my $totalcharges = 0;
+my $totalcredits = 0;
+my $totalpaid = 0;
+my $totalwritten = 0;
my @loop1;
my @loop2;
-
# lets get a a list of all individual item charges paid for by that payment
-while ($i<$count ){
+while ( $i < $count ) {
my $count;
my @charges;
+ if ( $payments[$i]{'type'} ne 'writeoff' ) {
- if ($payments[$i]{'type'} ne 'writeoff'){
+ # warn Dumper $payments[$i];
-# warn Dumper $payments[$i];
-
- @charges=getcharges($payments[$i]{'borrowernumber'}, $payments[$i]{'timestamp'}, $payments[$i]{'proccode'});
+ @charges = getcharges(
+ $payments[$i]{'borrowernumber'},
+ $payments[$i]{'timestamp'},
+ $payments[$i]{'proccode'}
+ );
$totalcharges++;
- $count=@charges;
+ $count = @charges;
# getting each of the charges and putting them into a array to be printed out
#this loops per charge per person
- for (my $i2=0;$i2<$count;$i2++){
- 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'}";
+ for ( my $i2 = 0 ; $i2 < $count ; $i2++ ) {
+ 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 $branch=$payments[$i]{'branch'};
+ my $branch = $payments[$i]{'branch'};
+
# if ($payments[$i]{'borrowernumber'} == 18265){
# warn "$payments[$i]{'branch'} $branch $payments[$i]{'borrowernumber'}";#
# }
- # lets build up a row
- my %rows1 = (branch => $branch,
+# lets build up a row
+ my %rows1 = (
+ branch => $branch,
datetime => $payments[$i]->{'datetime'},
surname => $payments[$i]->{'surname'},
firstname => $payments[$i]->{'firstname'},
description => $charges[$i2]->{'description'},
accounttype => $charges[$i2]->{'accounttype'},
- amount => sprintf("%.2f", $charges[$i2]->{'amount'}), # rounding amounts to 2dp
+ amount => sprintf( "%.2f", $charges[$i2]->{'amount'} )
+ , # rounding amounts to 2dp
type => $payments[$i]->{'type'},
- value => sprintf("%.2f", $payments[$i]->{'value'})); # rounding amounts to 2dp
+ value => sprintf( "%.2f", $payments[$i]->{'value'} )
+ ); # rounding amounts to 2dp
- push (@loop1, \%rows1);
+ push( @loop1, \%rows1 );
$totalpaid = $totalpaid + $payments[$i]->{'value'};
}
- } else {
+ }
+ else {
++$totalwritten;
}
@@ -139,56 +165,58 @@
}
#get credits and append to the bottom of payments
-my @credits=getcredits($date,$date2);
+my @credits = getcredits( $date, $date2 );
-my $count=@credits;
-my $i=0;
+my $count = @credits;
+my $i = 0;
-while ($i<$count ){
+while ( $i < $count ) {
- my %rows2 = (creditbranch => $credits[$i]->{'branchcode'},
+ my %rows2 = (
+ creditbranch => $credits[$i]->{'branchcode'},
creditdate => $credits[$i]->{'date'},
creditsurname => $credits[$i]->{'surname'},
creditfirstname => $credits[$i]->{'firstname'},
creditdescription => $credits[$i]->{'description'},
creditaccounttype => $credits[$i]->{'accounttype'},
- creditamount => sprintf("%.2f", $credits[$i]->{'amount'})
+ creditamount => sprintf( "%.2f", $credits[$i]->{'amount'} )
);
- push (@loop2, \%rows2);
+ push( @loop2, \%rows2 );
$totalcredits = $totalcredits + $credits[$i]->{'amount'};
$i++; #increment the while loop
}
#takes off first char minus sign "-100.00"
-$totalcredits = substr($totalcredits, 1);
+$totalcredits = substr( $totalcredits, 1 );
-my $totalrefunds=0;
+my $totalrefunds = 0;
my @loop3;
-my @refunds=getrefunds($date,$date2);
-$count=@refunds;
-$i=0;
+my @refunds = getrefunds( $date, $date2 );
+$count = @refunds;
+$i = 0;
-while ($i<$count ){
+while ( $i < $count ) {
- my %rows2 = (refundbranch => $refunds[$i]->{'branchcode'},
+ my %rows2 = (
+ refundbranch => $refunds[$i]->{'branchcode'},
refunddate => $refunds[$i]->{'date'},
refundsurname => $refunds[$i]->{'surname'},
refundfirstname => $refunds[$i]->{'firstname'},
refunddescription => $refunds[$i]->{'description'},
refundaccounttype => $refunds[$i]->{'accounttype'},
- refundamount => sprintf("%.2f", $refunds[$i]->{'amount'})
+ refundamount => sprintf( "%.2f", $refunds[$i]->{'amount'} )
);
- push (@loop3, \%rows2);
+ push( @loop3, \%rows2 );
$totalrefunds = $totalrefunds + $refunds[$i]->{'amount'};
$i++; #increment the while loop
}
-my $totalcash=$totalpaid-$totalrefunds;
-
+my $totalcash = $totalpaid - $totalrefunds;
-$template->param( date => $time,
+$template->param(
+ date => $time,
date2 => $time2,
loop1 => \@loop1,
loop2 => \@loop2,
@@ -197,8 +225,8 @@
totalcredits => $totalcredits,
totalwritten => $totalwritten,
totalrefund => $totalrefunds,
- totalcash => $totalcash);
+ totalcash => $totalcash
+);
output_html_with_http_headers $input, $cookie, $template->output;
-
Index: serials/reorder_members.pl
===================================================================
RCS file: /sources/koha/koha/serials/reorder_members.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- serials/reorder_members.pl 30 Nov 2006 18:23:52 -0000 1.1.2.1
+++ serials/reorder_members.pl 18 Dec 2006 10:59:54 -0000 1.1.2.2
@@ -13,9 +13,7 @@
use C4::Acquisition;
use C4::Interface::CGI::Output;
use C4::Context;
-use HTML::Template;
use C4::Serials;
-use Data::Dumper;
my $query = new CGI;
my $subscriptionid = $query->param('subscriptionid');
Index: serials/subscription-bib-search.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-bib-search.pl,v
retrieving revision 1.3.2.3
retrieving revision 1.3.2.4
diff -u -b -r1.3.2.3 -r1.3.2.4
--- serials/subscription-bib-search.pl 21 Nov 2006 10:45:54 -0000 1.3.2.3
+++ serials/subscription-bib-search.pl 18 Dec 2006 10:59:54 -0000 1.3.2.4
@@ -52,7 +52,6 @@
use CGI;
use C4::Koha;
use C4::Auth;
-use HTML::Template;
use C4::Context;
use C4::Output;
use C4::Interface::CGI::Output;
@@ -103,8 +102,6 @@
push @results, \%resultsloop;
}
- use Data::Dumper;
- warn "results==>".Dumper(@results);
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/result.tmpl",
Index: serials/subscription-detail.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-detail.pl,v
retrieving revision 1.3.2.6
retrieving revision 1.3.2.7
diff -u -b -r1.3.2.6 -r1.3.2.7
--- serials/subscription-detail.pl 21 Nov 2006 10:45:54 -0000 1.3.2.6
+++ serials/subscription-detail.pl 18 Dec 2006 10:59:54 -0000 1.3.2.7
@@ -1,5 +1,20 @@
#!/usr/bin/perl
+# 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::Auth;
@@ -9,7 +24,6 @@
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
-use HTML::Template;
use Date::Manip;
my $query = new CGI;
Index: tools/itemslost.pl
===================================================================
RCS file: /sources/koha/koha/tools/Attic/itemslost.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- tools/itemslost.pl 14 Dec 2006 15:41:55 -0000 1.1.2.2
+++ tools/itemslost.pl 18 Dec 2006 10:59:54 -0000 1.1.2.3
@@ -15,7 +15,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-#$Id: itemslost.pl,v 1.1.2.2 2006/12/14 15:41:55 toins Exp $
+#$Id: itemslost.pl,v 1.1.2.3 2006/12/18 10:59:54 toins Exp $
=head1 itemslost
@@ -44,7 +44,6 @@
);
my $params = $query->Vars;
-warn "params=>" . Data::Dumper::Dumper($params);
if ( $params->{'get_items'} ) {
my $orderbyfilter = $params->{'orderbyfilter'} || undef;
More information about the Koha-cvs
mailing list