removed reports/inventory.pl

[koha-ffzg.git] / reports / catalogue_out.pl

diff --git a/reports/catalogue_out.pl b/reports/catalogue_out.pl
index b776783..5df3d42 100755 (executable)
--- a/reports/catalogue_out.pl
+++ b/reports/catalogue_out.pl
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -20,14 +19,13 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
-use C4::Auth;
 use CGI;
+use C4::Auth;
 use C4::Context;
 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
@@ -36,8 +34,7 @@ plugin that shows a stats on borrowers
 
 =head1 DESCRIPTION
 
-
-=over2
+=over 2
 
 =cut
 
@@ -61,9 +58,6 @@ my ($template, $borrowernumber, $cookie)
                                debug => 1,
                                });
 $template->param(do_it => $do_it,
-               intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-               intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-               IntranetNav => C4::Context->preference("IntranetNav"),
                );
 if ($do_it) {
 # Displaying results
@@ -277,20 +271,17 @@ sub calculate {
        $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);
@@ -306,7 +297,7 @@ sub calculate {
        
        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