gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 3224 : inventory tool fails on DOS newlines 

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Ryan Higgins 2009-05-14 00:46:45 -07:00 committed by Galen Charlton
parent 478b2ce274
commit 890f673d64
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tools/inventory.pl
View File

@ -118,18 +118,17 @@ if ($uploadbarcodes && length($uploadbarcodes)>0){
# warn "$date";
my $strsth="select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?";
my $qonloan = $dbh->prepare($strsth);
$strsth="select * from items where items.barcode =? and issues.wthdrawn=1";
$strsth="select * from items where items.barcode =? and items.wthdrawn = 1";
my $qwthdrawn = $dbh->prepare($strsth);
my @errorloop;
my $count=0;
while (my $barcode=<$uploadbarcodes>){
chomp $barcode;
# warn "$barcode";
$barcode =~ s/\r?\n$//;
if ($qwthdrawn->execute($barcode) &&$qwthdrawn->rows){
push @errorloop, {'barcode'=>$barcode,'ERR_WTHDRAWN'=>1};
}else{
my $item = GetItem('', $barcode);
if (defined $item){
if (defined $item && $item->{'itemnumber'}){
ModItem({ datelastseen => $date }, undef, $item->{'itemnumber'});
$count++;
$qonloan->execute($barcode);