From c6c4f62b210ca79502ed685da249b7cb28a97093 Mon Sep 17 00:00:00 2001 From: Maxime Pelletier Date: Fri, 28 Feb 2014 12:12:31 -0500 Subject: [PATCH] Add the "Call number fields" column to the Z39.50 search results. (MARC21) --- C4/Breeding.pm | 22 ++++++++++++++++++++ .../prog/en/modules/cataloguing/z3950_search.tt | 12 ++++++++++ 2 files changed, 34 insertions(+), 0 deletions(-) diff --git a/C4/Breeding.pm b/C4/Breeding.pm index 8e01d41..a6a7b0e 100644 --- a/C4/Breeding.pm +++ b/C4/Breeding.pm @@ -441,6 +441,28 @@ sub _add_rowdata { } $row->{date}//= $row->{date2}; $row->{isbn}=_isbn_replace($row->{isbn}); + + my $field_50 = ''; + my $field_82 = ''; + my $field_90 = ''; + + my $temp50 = $record->field('050'); + if ($temp50) { + $field_50 = $temp50->subfield('a') . ' ' . $temp50->subfield('b'); + } + my $temp82 = $record->field('082'); + if ($temp82) { + $field_82 = $temp82->subfield('a') . ' ' . $temp82->subfield('b'); + } + my $temp90 = $record->field('090'); + if ($temp90) { + $field_90 = $temp90->subfield('a') . ' ' . $temp90->subfield('b'); + } + + $row->{field_50} = $field_50; + $row->{field_82} = $field_82; + $row->{field_90} = $field_90; + return $row; } diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tt index d8d370e..4e5fe1d 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tt @@ -159,6 +159,7 @@ tr.selected { background-color : #FFFFCC; } tr.selected td { background-color : Date Edition ISBN + Call number fields LCCN MARC Card @@ -174,6 +175,17 @@ tr.selected { background-color : #FFFFCC; } tr.selected td { background-color : [% breeding_loo.date %] [% breeding_loo.edition %] [% breeding_loo.isbn %] + + [% IF ( breeding_loo.field_50 ) %] + 050ab: [% breeding_loo.field_50 %]
+ [% END %] + [% IF ( breeding_loo.field_82 ) %] + 082ab: [% breeding_loo.field_82 %]
+ [% END %] + [% IF ( breeding_loo.field_90 ) %] + 090ab: [% breeding_loo.field_90 %] + [% END %] + [% breeding_loo.lccn %] MARC Card -- 1.7.2.5