diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl index 59b1d028c2..020001d010 100755 --- a/cataloguing/merge.pl +++ b/cataloguing/merge.pl @@ -127,12 +127,19 @@ if ($merge) { } else { my $data1 = GetBiblioData($biblionumber[0]); + my $record1 = GetMarcBiblio($biblionumber[0]); + my $data2 = GetBiblioData($biblionumber[1]); + my $record2 = GetMarcBiblio($biblionumber[1]); # Checks if both records use the same framework my $frameworkcode1 = &GetFrameworkCode($biblionumber[0]); my $frameworkcode2 = &GetFrameworkCode($biblionumber[1]); + + my $subtitle1 = GetRecordValue('subtitle', $record1, $frameworkcode1); + my $subtitle2 = GetRecordValue('subtitle', $record2, $frameworkcode1); + if ($mergereference) { my $framework; @@ -170,7 +177,9 @@ if ($merge) { biblio1 => $biblionumber[0], biblio2 => $biblionumber[1], title1 => $data1->{'title'}, - title2 => $data2->{'title'} + subtitle1 => $subtitle1, + title2 => $data2->{'title'}, + subtitle2 => $subtitle2 ); if ($frameworkcode1 ne $frameworkcode2) { my $frameworks = getframeworks; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/merge.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/merge.tt index 5a48385b03..9235fdd08c 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/merge.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/merge.tt @@ -1,5 +1,6 @@ [% INCLUDE 'doc-head-open.inc' %]