[Koha-cvs] koha/reports inventory.pl [rel_2_2]

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Chris Cormack <rangi>   07/05/03 00:57:16

Modified files:
        reports        : inventory.pl 

Log message:
        Fix for catching windows linefeeds

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reports/inventory.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.4.4&r2=1.1.4.5

Patches:
Index: inventory.pl
===================================================================
RCS file: /sources/koha/koha/reports/inventory.pl,v
retrieving revision 1.1.4.4
retrieving revision 1.1.4.5
diff -u -b -r1.1.4.4 -r1.1.4.5
--- inventory.pl        5 Feb 2006 21:59:21 -0000       1.1.4.4
+++ inventory.pl        3 May 2007 00:57:16 -0000       1.1.4.5
@@ -81,8 +81,9 @@
        my @errorloop;
        my $count=0;
        while (my $barcode=<$uploadbarcodes>){
+           $barcode =~ s/\r//g; # clear out windows line feeds, otherwise 
things go badly if ppl upload a file made on windows
                chomp $barcode;
-#              warn "$barcode";
+
                if ($qwthdrawn->execute($barcode) &&$qwthdrawn->rows){
                        push @errorloop, 
{'barcode'=>$barcode,'ERR_WTHDRAWN'=>1};
                }else{