View | Details | Raw Unified | Return to bug 6539
Collapse All | Expand All

(-)a/C4/Search.pm (-3 / +11 lines)
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
- 

Return to bug 6539