[Koha-patches] [PATCH] Analytical records: changes to accomodate itemnumber and biblionumber in host subfields 9 and 0 respectively.

[savitra.sirohi at osslabs.biz]

From: Savitra Sirohi <savitra.sirohi at osslabs.biz>

---
 C4/Search.pm        |    4 ++--
 opac/opac-detail.pl |    4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 7795b6f..78babb4 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1503,8 +1503,8 @@ sub searchResults {
 
         # adding linked items that belong to host records
         foreach my $hostfield ( $marcrecord->field('773')) {
-                my $hostbiblionumber = $hostfield->subfield("w");
-                my $linkeditemnumber = $hostfield->subfield("o");
+                my $hostbiblionumber = $hostfield->subfield("0");
+                my $linkeditemnumber = $hostfield->subfield("9");
                 if(!$hostbiblionumber eq undef){
                         my $hostbiblio = GetMarcBiblio($hostbiblionumber);
                         if(!$hostbiblio eq undef){
diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index 0487783..19c13ce 100755
--- a/opac/opac-detail.pl
+++ b/opac/opac-detail.pl
@@ -81,8 +81,8 @@ my @all_items = &GetItemsInfo( $biblionumber, 'opac' );
 
 # adding items linked via host biblios
    foreach my $hostfield ( $record->field('773')) {
-        my $hostbiblionumber = $hostfield->subfield("w");
-        my $linkeditemnumber = $hostfield->subfield("o");
+        my $hostbiblionumber = $hostfield->subfield("0");
+        my $linkeditemnumber = $hostfield->subfield("9");
         my @hostitemInfos = GetItemsInfo($hostbiblionumber);
         foreach my $hostitemInfo (@hostitemInfos){
                 if ($hostitemInfo->{itemnumber} eq $linkeditemnumber){
-- 
1.5.4.5