From ba39761da0527ffb3ddbe87937e4ebf44cfd7bc8 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Fri, 28 Aug 2009 23:47:40 +0200 Subject: [PATCH] Bug fixing batchmod.pl --- koha-tmpl/intranet-tmpl/prog/en/modules/tools/batchMod.tmpl | 6 +++--- tools/batchMod.pl | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batchMod.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batchMod.tmpl index 138b81e2d2..eec0e90bfb 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batchMod.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batchMod.tmpl @@ -90,7 +90,7 @@ @@ -124,8 +124,8 @@
  • - - + +
  • diff --git a/tools/batchMod.pl b/tools/batchMod.pl index dd3c6af97c..a9cbf3a3c9 100755 --- a/tools/batchMod.pl +++ b/tools/batchMod.pl @@ -55,7 +55,7 @@ my $authvals = [['items.notforloan', 'Item not for loan', 'notforloan'], ['items.wthdrawn', 'item withdrawn', 'sele'], ['items.damaged', 'item damaged', 'damaged'], ['items.location', 'item location', 'location'], - ['items.ccode', 'items.ccode FIXME???', 'ccode'], + ['items.ccode', 'items.ccode', 'ccode'], ]; my $itemlevelpref = C4::Context->preference('item-level_itypes'); @@ -163,7 +163,7 @@ if ( $invars->{op} && $invars->{op} eq 'barcodes'){ for my $auth (@$authvals){ my ($authfieldname, $description, $hashfdname) = @$auth; my $authcode = GetAuthValCode($authfieldname); - if ($invars->{$authcode} && $invars->{$authcode} ne '0'){ + if ($authcode && $invars->{$authcode} && $invars->{$authcode} ne '0'){ $item->{$hashfdname}=$invars->{$authcode}; } } -- 2.39.5