projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 9611: (follow-up) add libcrypt-eksblowfish-perl to debian/control
[koha.git]
/
tools
/
inventory.pl
diff --git
a/tools/inventory.pl
b/tools/inventory.pl
index
5e7b198
..
824906b
100755
(executable)
--- a/
tools/inventory.pl
+++ b/
tools/inventory.pl
@@
-93,7
+93,7
@@
for my $fwk (keys %$frameworks){
}
my $statuses = [];
}
my $statuses = [];
-for my $statfield (qw/items.notforloan items.itemlost items.wthdrawn items.damaged/){
+for my $statfield (qw/items.notforloan items.itemlost items.w
i
thdrawn items.damaged/){
my $hash = {};
$hash->{fieldname} = $statfield;
$hash->{authcode} = GetAuthValCode($statfield);
my $hash = {};
$hash->{fieldname} = $statfield;
$hash->{authcode} = GetAuthValCode($statfield);
@@
-125,7
+125,6
@@
$statussth =~ s, and $,,g;
$template->param(branchloop => \@branch_loop,
authorised_values=>\@authorised_value_list,
$template->param(branchloop => \@branch_loop,
authorised_values=>\@authorised_value_list,
- DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
today => C4::Dates->today(),
minlocation => $minlocation,
maxlocation => $maxlocation,
today => C4::Dates->today(),
minlocation => $minlocation,
maxlocation => $maxlocation,
@@
-144,13
+143,13
@@
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);
# 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 items.wthdrawn = 1";
- my $qwthdrawn = $dbh->prepare($strsth);
+ $strsth="select * from items where items.barcode =? and items.w
i
thdrawn = 1";
+ my $qw
i
thdrawn = $dbh->prepare($strsth);
my @errorloop;
my $count=0;
while (my $barcode=<$uploadbarcodes>){
$barcode =~ s/\r?\n$//;
my @errorloop;
my $count=0;
while (my $barcode=<$uploadbarcodes>){
$barcode =~ s/\r?\n$//;
- if ($qw
thdrawn->execute($barcode) &&$qw
thdrawn->rows){
+ if ($qw
ithdrawn->execute($barcode) &&$qwi
thdrawn->rows){
push @errorloop, {'barcode'=>$barcode,'ERR_WTHDRAWN'=>1};
}else{
my $item = GetItem('', $barcode);
push @errorloop, {'barcode'=>$barcode,'ERR_WTHDRAWN'=>1};
}else{
my $item = GetItem('', $barcode);
@@
-174,7
+173,7
@@
if ($uploadbarcodes && length($uploadbarcodes)>0){
}
}
$qonloan->finish;
}
}
$qonloan->finish;
- $qwthdrawn->finish;
+ $qw
i
thdrawn->finish;
$template->param(date=>format_date($date),Number=>$count);
# $template->param(errorfile=>$errorfile) if ($errorfile);
$template->param(errorloop=>\@errorloop) if (@errorloop);
$template->param(date=>format_date($date),Number=>$count);
# $template->param(errorfile=>$errorfile) if ($errorfile);
$template->param(errorloop=>\@errorloop) if (@errorloop);