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

bug 2466: fix clearing item field 

When editing an item in the cataloging and serials
item editors, clearing a field now works.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2008-08-26 10:33:00 -05:00 committed by Henri-Damien LAURENT
parent cde99f86fa
commit b2da2158d6
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
C4/Items.pm
View File

@ -356,8 +356,49 @@ C<MARC::Record> object containing an embedded item field.
This API is meant for the use of C<additem.pl>; for
other purposes, C<ModItem> should be used.
This function uses the hash %default_values_for_mod_from_marc,
which contains default values for item fields to
apply when modifying an item. This is needed beccause
if an item field's value is cleared, TransformMarcToKoha
does not include the column in the
hash that's passed to ModItem, which without
use of this hash makes it impossible to clear
an item field's value. See bug 2466.
Note that only columns that can be directly
changed from the cataloging and serials
item editors are included in this hash.
=cut
my %default_values_for_mod_from_marc = (
barcode => undef,
booksellerid => undef,
ccode => undef,
'items.cn_source' => undef,
copynumber => undef,
damaged => 0,
dateaccessioned => undef,
enumchron => undef,
holdingbranch => undef,
homebranch => undef,
itemcallnumber => undef,
itemlost => 0,
itemnotes => undef,
itype => undef,
location => undef,
materials => undef,
notforloan => 0,
paidfor => undef,
price => undef,
replacementprice => undef,
replacementpricedate => undef,
restricted => undef,
stack => undef,
uri => undef,
wthdrawn => 0,
);
sub ModItemFromMarc {
my $item_marc = shift;
my $biblionumber = shift;
@ -366,6 +407,9 @@ sub ModItemFromMarc {
my $dbh = C4::Context->dbh;
my $frameworkcode = GetFrameworkCode( $biblionumber );
my $item = &TransformMarcToKoha( $dbh, $item_marc, $frameworkcode );
foreach my $item_field (keys %default_values_for_mod_from_marc) {
$item->{$item_field} = $default_values_for_mod_from_marc{$item_field} unless exists $item->{$item_field};
}
my $unlinked_item_subfields = _get_unlinked_item_subfields($item_marc, $frameworkcode);
return ModItem($item, $biblionumber, $itemnumber, $dbh, $frameworkcode, $unlinked_item_subfields);