[Koha-cvs] koha/opac opac-topissues.pl [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   07/01/11 14:36:04

Modified files:
        opac           : opac-topissues.pl 

Log message:
        reindenting & removing useless var

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-topissues.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.4&r2=1.1.2.5

Patches:
Index: opac-topissues.pl
===================================================================
RCS file: /sources/koha/koha/opac/Attic/opac-topissues.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- opac-topissues.pl   10 Jan 2007 14:34:50 -0000      1.1.2.4
+++ opac-topissues.pl   11 Jan 2007 14:36:04 -0000      1.1.2.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: opac-topissues.pl,v 1.1.2.4 2007/01/10 14:34:50 tipaul Exp $
+# $Id: opac-topissues.pl,v 1.1.2.5 2007/01/11 14:36:04 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -42,8 +42,6 @@
 =cut
 
 my $input = new CGI;
-my $do_it=$input->param('do_it');
-
 my $branches = GetBranches();
 my $itemtypes = GetItemTypes();
 
@@ -55,18 +53,18 @@
                                debug => 1,
                                });
 my $dbh = C4::Context->dbh;
-    # Displaying results
-    my $limit = $input->param('limit') || 10;
-    my $branch = $input->param('branch');
-    my $itemtype = $input->param('itemtype');
-    my $timeLimit = $input->param('timeLimit') || 3;
-    my $whereclause;
-    $whereclause .= 'items.homebranch='.$dbh->quote($branch)." AND " if 
($branch); 
-    $whereclause .= 'biblioitems.itemtype='.$dbh->quote($itemtype)." AND " if 
$itemtype;
-    $whereclause .= 'TO_DAYS(NOW()) - TO_DAYS(biblio.timestamp) <= 
'.$timeLimit*30 if $timeLimit;
-    $whereclause =~ s/ AND $//;
-    $whereclause = " WHERE ".$whereclause if $whereclause;
-    my $query = "SELECT biblio.timestamp, biblio.biblionumber, title, 
+# Displaying results
+my $limit = $input->param('limit') || 10;
+my $branch = $input->param('branch');
+my $itemtype = $input->param('itemtype');
+my $timeLimit = $input->param('timeLimit') || 3;
+my $whereclause;
+$whereclause .= 'items.homebranch='.$dbh->quote($branch)." AND " if ($branch); 
+$whereclause .= 'biblioitems.itemtype='.$dbh->quote($itemtype)." AND " if 
$itemtype;
+$whereclause .= 'TO_DAYS(NOW()) - TO_DAYS(biblio.timestamp) <= '.$timeLimit*30 
if $timeLimit;
+$whereclause =~ s/ AND $//;
+$whereclause = " WHERE ".$whereclause if $whereclause;
+my $query = "SELECT biblio.timestamp, biblio.biblionumber, title, 
                     author, sum( items.issues ) AS tot, biblioitems.itemtype,
                     biblioitems.publishercode,biblioitems.publicationyear,
                     itemtypes.description
@@ -80,40 +78,41 @@
                     LIMIT $limit
                     ";
 
-    my $sth = $dbh->prepare($query);
-    $sth->execute();
-    my @results;
-    while (my $line= $sth->fetchrow_hashref) {
+my $sth = $dbh->prepare($query);
+$sth->execute();
+my @results;
+while (my $line= $sth->fetchrow_hashref) {
         push @results, $line;
-    }
+}
 
-    $template->param(do_it => 1,
+$template->param(do_it => 1,
         limit => $limit,
         branch => $branches->{$branch}->{branchname},
         itemtype => $itemtypes->{$itemtype}->{description},
         timeLimit => $timeLimit,
-                    results_loop => address@hidden);
+                results_loop => address@hidden,
+                );
     
-       my $branches = GetBranches;
-       my @branchloop;
-       foreach my $thisbranch (keys %$branches) {
+my $branches = GetBranches;
+my @branchloop;
+foreach my $thisbranch (keys %$branches) {
                        my %row =(value => $thisbranch,
                                                                        
branchname => $branches->{$thisbranch}->{'branchname'},
                                                        );
                        push @branchloop, \%row;
-       }
+}
 
-       #doctype
-       my $itemtypes = GetItemTypes;
-       my @itemtypeloop;
-       foreach my $thisitemtype (keys %$itemtypes) {
+#doctype
+my $itemtypes = GetItemTypes;
+my @itemtypeloop;
+foreach my $thisitemtype (keys %$itemtypes) {
                        my %row =(value => $thisitemtype,
                                                                        
description => $itemtypes->{$thisitemtype}->{'description'},
                                                        );
                        push @itemtypeloop, \%row;
-       }
+}
        
-       $template->param(
+$template->param(
                                        branchloop =>address@hidden,
                                        itemtypeloop =>address@hidden,
                                        );