|
Lines 2276-2286
$template->param ( MYLOOP => C4::Search::z3950_search_args($searchscalar) )
Link Here
|
| 2276 |
|
2276 |
|
| 2277 |
sub z3950_search_args { |
2277 |
sub z3950_search_args { |
| 2278 |
my $bibrec = shift; |
2278 |
my $bibrec = shift; |
| 2279 |
my $isbn = Business::ISBN->new($bibrec); |
2279 |
|
|
|
2280 |
my $isbn_string = ref( $bibrec ) ? $bibrec->{title} : $bibrec; |
| 2281 |
my $isbn = Business::ISBN->new( $isbn_string ); |
| 2280 |
|
2282 |
|
| 2281 |
if (defined $isbn && $isbn->is_valid) |
2283 |
if (defined $isbn && $isbn->is_valid) |
| 2282 |
{ |
2284 |
{ |
| 2283 |
$bibrec = { isbn => $bibrec } if !ref $bibrec; |
2285 |
if ( ref($bibrec) ) { |
|
|
2286 |
$bibrec->{isbn} = $isbn_string; |
| 2287 |
$bibrec->{title} = undef; |
| 2288 |
} else { |
| 2289 |
$bibrec = { isbn => $isbn_string }; |
| 2290 |
} |
| 2284 |
} |
2291 |
} |
| 2285 |
else { |
2292 |
else { |
| 2286 |
$bibrec = { title => $bibrec } if !ref $bibrec; |
2293 |
$bibrec = { title => $bibrec } if !ref $bibrec; |
| 2287 |
- |
|
|