#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
# Suite 330, Boston, MA 02111-1307 USA
use strict;
-use C4::Auth;
use CGI;
+use C4::Auth;
use C4::Context;
-use HTML::Template;
-use C4::Search;
+use C4::Branch; # GetBranches
use C4::Output;
use C4::Koha;
-use C4::Interface::CGI::Output;
-use C4::Circulation::Circ2;
+use C4::Circulation;
use Date::Manip;
=head1 NAME
=head1 DESCRIPTION
-
-=over2
+=over 2
=cut
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
+ flagsrequired => {reports => 1},
debug => 1,
});
-$template->param(do_it => $do_it);
+$template->param(do_it => $do_it,
+ );
if ($do_it) {
# Displaying results
my $results = calculate($limit, $column, \@filters);
} else {
# Printing to a csv file
print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -encoding => 'utf-8',
-attachment=>"$basename.csv",
-filename=>"$basename.csv" );
my $cols = @$results[0]->{loopcol};
-size => 1,
-multiple => 0 );
#doctype
- my $itemtypes = getitemtypes;
+ my $itemtypes = GetItemTypes;
my @itemtypeloop;
foreach my $thisitemtype (keys %$itemtypes) {
# my $selected = 1 if $thisbranch eq $branch;
}
#branch
- my $branches = getallbranches;
+ my $branches = GetBranches;
my @branchloop;
foreach my $thisbranch (keys %$branches) {
# my $selected = 1 if $thisbranch eq $branch;
$strcalc .= " AND biblioitems.itemtype like '" . @$filters[1] ."'" if ( @$filters[1] );
$strcalc .= " group by items.itemnumber";
- $strcalc .= ", $colfield" if ($column);
+ $strcalc .= ", $colfield" if ($column);
$strcalc .= " order by $colfield " if ($colfield);
- my $max;
- if (@loopcol) {
- $max = $line*@loopcol;
- } else { $max=$line;}
- $strcalc .= " LIMIT 0,$max" if ($line);
+ my $max = (@loopcol) ? $line*@loopcol : $line ;
+ $strcalc .= " LIMIT 0,$max" if ($line);
warn "SQL :". $strcalc;
my $dbcalc = $dbh->prepare($strcalc);
$dbcalc->execute;
# warn "filling table";
my $previous_col;
- my $i=1;
+ $i=1;
while (my @data = $dbcalc->fetchrow) {
my ($barcode,$title,$bibnum,$author, $col )=@data;
$col = "zzEMPTY" if ($col eq undef);
push @loopcol,{coltitle => "Global"} if not($column);
- my $max =(($line)?$line:@table);
+ $max =(($line)?$line:@table);
for ($i=1; $i<$max;$i++) {
my @loopcell;
#@loopcol ensures the order for columns is common with column titles
return \@mainloop;
}
-1;
\ No newline at end of file
+1;