|
Lines 505-511
sub ModItem {
Link Here
|
| 505 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
505 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
| 506 |
}; |
506 |
}; |
| 507 |
|
507 |
|
| 508 |
$item->{'itemnumber'} = $itemnumber or return undef; |
508 |
$item->{'itemnumber'} = $itemnumber or return; |
| 509 |
|
509 |
|
| 510 |
$item->{onloan} = undef if $item->{itemlost}; |
510 |
$item->{onloan} = undef if $item->{itemlost}; |
| 511 |
|
511 |
|
|
Lines 2264-2270
sub _koha_delete_item {
Link Here
|
| 2264 |
# delete from items table |
2264 |
# delete from items table |
| 2265 |
$sth = $dbh->prepare("DELETE FROM items WHERE itemnumber=?"); |
2265 |
$sth = $dbh->prepare("DELETE FROM items WHERE itemnumber=?"); |
| 2266 |
$sth->execute($itemnum); |
2266 |
$sth->execute($itemnum); |
| 2267 |
return undef; |
2267 |
return; |
| 2268 |
} |
2268 |
} |
| 2269 |
|
2269 |
|
| 2270 |
=head2 _marc_from_item_hash |
2270 |
=head2 _marc_from_item_hash |
|
Lines 2639-2645
sub PrepareItemrecordDisplay {
Link Here
|
| 2639 |
if ( ( $tagslib->{$tag}->{$subfield}->{kohafield} eq 'items.location' ) |
2639 |
if ( ( $tagslib->{$tag}->{$subfield}->{kohafield} eq 'items.location' ) |
| 2640 |
&& $defaultvalues |
2640 |
&& $defaultvalues |
| 2641 |
&& $defaultvalues->{'location'} ) { |
2641 |
&& $defaultvalues->{'location'} ) { |
| 2642 |
my $temp = $itemrecord->field($subfield) if ($itemrecord); |
2642 |
|
|
|
2643 |
my $temp; # make perlcritic happy :) |
| 2644 |
$temp = $itemrecord->field($subfield) if ($itemrecord); |
| 2645 |
|
| 2643 |
unless ($temp) { |
2646 |
unless ($temp) { |
| 2644 |
$defaultvalue = $defaultvalues->{location} if $defaultvalues; |
2647 |
$defaultvalue = $defaultvalues->{location} if $defaultvalues; |
| 2645 |
} |
2648 |
} |
| 2646 |
- |
|
|