Lines 33-38
use C4::Debug;
Link Here
|
33 |
use C4::Items; |
33 |
use C4::Items; |
34 |
use YAML; |
34 |
use YAML; |
35 |
use URI::Escape; |
35 |
use URI::Escape; |
|
|
36 |
use Business::ISBN; |
36 |
|
37 |
|
37 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); |
38 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); |
38 |
|
39 |
|
Lines 1713-1719
sub searchResults {
Link Here
|
1713 |
$item_in_transit_count++ if $transfertwhen ne ''; |
1714 |
$item_in_transit_count++ if $transfertwhen ne ''; |
1714 |
$item_onhold_count++ if $reservestatus eq 'Waiting'; |
1715 |
$item_onhold_count++ if $reservestatus eq 'Waiting'; |
1715 |
$item->{status} = $item->{wthdrawn} . "-" . $item->{itemlost} . "-" . $item->{damaged} . "-" . $item->{notforloan}; |
1716 |
$item->{status} = $item->{wthdrawn} . "-" . $item->{itemlost} . "-" . $item->{damaged} . "-" . $item->{notforloan}; |
1716 |
|
1717 |
|
1717 |
# can place hold on item ? |
1718 |
# can place hold on item ? |
1718 |
if ((!$item->{damaged} || C4::Context->preference('AllowHoldsOnDamagedItems')) |
1719 |
if ((!$item->{damaged} || C4::Context->preference('AllowHoldsOnDamagedItems')) |
1719 |
&& !$item->{itemlost} |
1720 |
&& !$item->{itemlost} |
Lines 2628-2634
$template->param ( MYLOOP => C4::Search::z3950_search_args($searchscalar) )
Link Here
|
2628 |
|
2629 |
|
2629 |
sub z3950_search_args { |
2630 |
sub z3950_search_args { |
2630 |
my $bibrec = shift; |
2631 |
my $bibrec = shift; |
2631 |
$bibrec = { title => $bibrec } if !ref $bibrec; |
2632 |
my $isbn = Business::ISBN->new($bibrec); |
|
|
2633 |
|
2634 |
if (defined $isbn && $isbn->is_valid) |
2635 |
{ |
2636 |
$bibrec = { isbn => $bibrec } if !ref $bibrec; |
2637 |
} |
2638 |
else { |
2639 |
$bibrec = { title => $bibrec } if !ref $bibrec; |
2640 |
} |
2632 |
my $array = []; |
2641 |
my $array = []; |
2633 |
for my $field (qw/ lccn isbn issn title author dewey subject /) |
2642 |
for my $field (qw/ lccn isbn issn title author dewey subject /) |
2634 |
{ |
2643 |
{ |
2635 |
- |
|
|