[Koha-cvs] koha/barcodes label-item-search.pl [dev_week]

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/07/05 01:12:28

Modified files:
	barcodes       : label-item-search.pl 

Log message:
	fixing with strict

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-item-search.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1.2.5&r2=1.1.2.1.2.6

Patches:
Index: label-item-search.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-item-search.pl,v
retrieving revision 1.1.2.1.2.5
retrieving revision 1.1.2.1.2.6
diff -u -b -r1.1.2.1.2.5 -r1.1.2.1.2.6
--- label-item-search.pl	5 Jul 2007 01:06:17 -0000	1.1.2.1.2.5
+++ label-item-search.pl	5 Jul 2007 01:12:28 -0000	1.1.2.1.2.6
@@ -18,7 +18,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-#use strict;
+use strict;
 require Exporter;
 use CGI;
 use C4::Koha;
@@ -210,6 +210,7 @@
 
     my $itemtypes = getitemtypes;
     my @itemtypeloop;
+    my ($thisitemtype, $thisbranch, $branch);
     foreach my $thisitemtype (keys %$itemtypes) {
            my $selected = 1 if $thisbranch eq $branch;
             my %row =(value => $thisitemtype,
@@ -220,7 +221,6 @@
     }  
 
 
-
     $template->param(
     itemtypeloop =>\@itemtypeloop,
         batch_id     => $batch_id,