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

(-)a/Koha/Biblio.pm (+19 lines)
Lines 1081-1086 sub to_api { Link Here
1081
    return { %$response, %$biblioitem };
1081
    return { %$response, %$biblioitem };
1082
}
1082
}
1083
1083
1084
=head2 get_host_item_entries
1085
1086
    my @host_item_entries = $biblio->get_host_item_entries;
1087
1088
Returns a list of MARC::Field objects of the 773 tag which contain host item entry information.
1089
Returns undef if no 773 defined.
1090
1091
=cut
1092
1093
sub get_host_item_entries {
1094
    my ( $self ) = @_;
1095
1096
    my $record = $self->metadata->record;
1097
1098
    my @host_item_entries = $record->field('773');
1099
1100
    return ( @host_item_entries > 0 ) ? \@host_item_entries : undef;
1101
}
1102
1084
=head3 to_api_mapping
1103
=head3 to_api_mapping
1085
1104
1086
This method returns the mapping for representing a Koha::Biblio object
1105
This method returns the mapping for representing a Koha::Biblio object
(-)a/basket/basket.pl (+1 lines)
Lines 107-112 foreach my $biblionumber ( @bibs ) { Link Here
107
    $dat->{MARCSERIES}  = $marcseriesarray;
107
    $dat->{MARCSERIES}  = $marcseriesarray;
108
    $dat->{MARCURLS}    = $marcurlsarray;
108
    $dat->{MARCURLS}    = $marcurlsarray;
109
    $dat->{HASAUTHORS}  = $hasauthors;
109
    $dat->{HASAUTHORS}  = $hasauthors;
110
    $dat->{HOSTITEMENTRIES} = $biblio->get_host_item_entries;
110
111
111
    if ( C4::Context->preference("IntranetBiblioDefaultView") eq "normal" ) {
112
    if ( C4::Context->preference("IntranetBiblioDefaultView") eq "normal" ) {
112
        $dat->{dest} = "/cgi-bin/koha/catalogue/detail.pl";
113
        $dat->{dest} = "/cgi-bin/koha/catalogue/detail.pl";
(-)a/basket/sendbasket.pl (+2 lines)
Lines 75-80 if ( $email_add ) { Link Here
75
        my $record           = GetMarcBiblio({
75
        my $record           = GetMarcBiblio({
76
            biblionumber => $biblionumber,
76
            biblionumber => $biblionumber,
77
            embed_items => 1 });
77
            embed_items => 1 });
78
        my $biblio           = Koha::Biblios->find($biblionumber);
78
        my $marcauthorsarray = $biblio->get_marc_authors;
79
        my $marcauthorsarray = $biblio->get_marc_authors;
79
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
80
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
80
81
Lines 91-96 if ( $email_add ) { Link Here
91
        $dat->{HASAUTHORS}     = $hasauthors;
92
        $dat->{HASAUTHORS}     = $hasauthors;
92
        $dat->{'biblionumber'} = $biblionumber;
93
        $dat->{'biblionumber'} = $biblionumber;
93
        $dat->{ITEM_RESULTS}   = \@items;
94
        $dat->{ITEM_RESULTS}   = \@items;
95
        $dat->{HOSTITEMENTRIES} = $biblio->get_host_item_entries;
94
96
95
        $iso2709 .= $record->as_usmarc();
97
        $iso2709 .= $record->as_usmarc();
96
98
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/basket/basket.tt (+28 lines)
Lines 217-222 Link Here
217
                                        </tr>
217
                                        </tr>
218
                                    [% END %]
218
                                    [% END %]
219
219
220
                                    [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
221
                                        <tr>
222
                                            <th scope="row">Host item entries</th>
223
                                            <td>
224
                                                [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
225
                                                    <p>
226
                                                        [% IF entry.subfield('0') %]
227
                                                            <a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
228
                                                        [% ELSE %]
229
                                                            [% entry.subfield('t') | html %]
230
                                                        [% END %]
231
                                                    </p>
232
                                                [% END %]
233
                                            </td>
234
                                        </tr>
235
                                    [% END %]
236
220
                                    <tr>
237
                                    <tr>
221
                                        <th scope="row">Location(s)</th>
238
                                        <th scope="row">Location(s)</th>
222
                                        <td>
239
                                        <td>
Lines 281-286 Link Here
281
                                            [% IF ( BIBLIO_RESULT.notes ) %]
298
                                            [% IF ( BIBLIO_RESULT.notes ) %]
282
                                                <p>[% BIBLIO_RESULT.notes | html %]</p>
299
                                                <p>[% BIBLIO_RESULT.notes | html %]</p>
283
                                            [% END %]
300
                                            [% END %]
301
                                            [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
302
                                                [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
303
                                                    <p>Host item entry:
304
                                                        [% IF entry.subfield('0') %]
305
                                                            <a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
306
                                                        [% ELSE %]
307
                                                            [% entry.subfield('t') | html %]
308
                                                        [% END %]
309
                                                    </p>
310
                                                [% END %]
311
                                            [% END %]
284
                                            <!-- COinS / Openurl -->
312
                                            <!-- COinS / Openurl -->
285
                                            <span class="Z3988" title="ctx_ver=Z39.88-2004&amp;rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Abook&amp;rft.au=[% BIBLIO_RESULT.author | html %]&amp;rft.btitle=[% BIBLIO_RESULT.title |url %]&amp;rft.date=[% BIBLIO_RESULT.publicationyear | html %]&amp;rft.tpages=[% BIBLIO_RESULT.item('size') | html %]&amp;rft.isbn=[% BIBLIO_RESULT.isbn |url %]&amp;rft.aucorp=&amp;rft.place=[% BIBLIO_RESULT.place | html %]&amp;rft.pub=[% BIBLIO_RESULT.publisher |url %]&amp;rft.edition=[% BIBLIO_RESULT.edition | html %]&amp;rft.series=[% BIBLIO_RESULT.series | html %]&amp;rft.genre="></span>
313
                                            <span class="Z3988" title="ctx_ver=Z39.88-2004&amp;rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Abook&amp;rft.au=[% BIBLIO_RESULT.author | html %]&amp;rft.btitle=[% BIBLIO_RESULT.title |url %]&amp;rft.date=[% BIBLIO_RESULT.publicationyear | html %]&amp;rft.tpages=[% BIBLIO_RESULT.item('size') | html %]&amp;rft.isbn=[% BIBLIO_RESULT.isbn |url %]&amp;rft.aucorp=&amp;rft.place=[% BIBLIO_RESULT.place | html %]&amp;rft.pub=[% BIBLIO_RESULT.publisher |url %]&amp;rft.edition=[% BIBLIO_RESULT.edition | html %]&amp;rft.series=[% BIBLIO_RESULT.series | html %]&amp;rft.genre="></span>
286
                                        </td>
314
                                        </td>
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/basket/sendbasket.tt (+14 lines)
Lines 126-131 Your cart Link Here
126
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
126
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
127
            </span><br/>
127
            </span><br/>
128
            [% END %]
128
            [% END %]
129
130
            [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
131
                [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
132
                    <span>Host item entry:
133
                        [% IF entry.subfield('0') %]
134
                            <a href="[% OPACBaseURL | $raw %]/cgi-bin/koha/opac-detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
135
                        [% ELSE %]
136
                            [% entry.subfield('t') | html %]
137
                        [% END %]
138
                    </span>
139
                    <br/>
140
                [% END %]
141
            [% END %]
142
129
            [% IF ( BIBLIO_RESULT.url ) %]
143
            [% IF ( BIBLIO_RESULT.url ) %]
130
            <span>
144
            <span>
131
                URL: [% BIBLIO_RESULT.url | html %]
145
                URL: [% BIBLIO_RESULT.url | html %]
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/virtualshelves/sendshelf.tt (+14 lines)
Lines 132-137 Your list: [% shelfname | $raw %] Link Here
132
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
132
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
133
            </span><br/>
133
            </span><br/>
134
            [% END %]
134
            [% END %]
135
136
            [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
137
                [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
138
                    <span>Host item entry:
139
                        [% IF entry.subfield('0') %]
140
                            <a href="[% OPACBaseURL | $raw %]/cgi-bin/koha/opac-detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
141
                        [% ELSE %]
142
                            [% entry.subfield('t') | html %]
143
                        [% END %]
144
                    </span>
145
                    <br/>
146
                [% END %]
147
            [% END %]
148
135
            [% IF ( BIBLIO_RESULT.url ) %]
149
            [% IF ( BIBLIO_RESULT.url ) %]
136
            <span>
150
            <span>
137
                URL: [% BIBLIO_RESULT.url | html %]
151
                URL: [% BIBLIO_RESULT.url | html %]
(-)a/koha-tmpl/intranet-tmpl/prog/en/xslt/MARC21slim2intranetResults.xsl (-5 / +49 lines)
Lines 926-938 Link Here
926
    </span>
926
    </span>
927
    </xsl:if>
927
    </xsl:if>
928
928
929
    <!-- 773 -->
929
    <xsl:if test="marc:datafield[@tag=773]">
930
    <xsl:if test="marc:datafield[@tag=773]">
930
        <xsl:for-each select="marc:datafield[@tag=773]">
931
        <xsl:for-each select="marc:datafield[@tag=773]">
931
            <xsl:if test="marc:subfield[@code='t']">
932
            <xsl:if test="@ind1 !=1">
932
    <span class="results_summary source">
933
                <span class="results_summary in"><span class="label">
933
    <span class="label">Source: </span>
934
                <xsl:choose>
934
            <xsl:value-of select="marc:subfield[@code='t']"/>
935
                    <xsl:when test="@ind2=' '">
935
    </span>
936
                        Source:
937
                    </xsl:when>
938
                    <xsl:when test="@ind2=8">
939
                        <xsl:if test="marc:subfield[@code='i']">
940
                            <xsl:value-of select="marc:subfield[@code='i']"/>
941
                        </xsl:if>
942
                    </xsl:when>
943
                </xsl:choose>
944
                </span>
945
                <xsl:variable name="f773">
946
                    <xsl:call-template name="chopPunctuation">
947
                        <xsl:with-param name="chopString">
948
                            <xsl:call-template name="subfieldSelect">
949
                                <xsl:with-param name="codes">a_t</xsl:with-param>
950
                            </xsl:call-template>
951
                        </xsl:with-param>
952
                    </xsl:call-template>
953
                </xsl:variable>
954
                <xsl:choose>
955
                    <xsl:when test="$UseControlNumber = '1' and marc:subfield[@code='w']">
956
                        <a><xsl:attribute name="href">/cgi-bin/koha/catalogue/search.pl?q=Control-number:<xsl:call-template name="extractControlNumber"><xsl:with-param name="subfieldW" select="marc:subfield[@code='w']"/></xsl:call-template></xsl:attribute>
957
                        <xsl:value-of select="translate($f773, '()', '')"/>
958
                        </a>
959
                    </xsl:when>
960
                    <xsl:when test="marc:subfield[@code='0']">
961
                        <a><xsl:attribute name="href">/cgi-bin/koha/catalogue/detail.pl?biblionumber=<xsl:value-of select="str:encode-uri(marc:subfield[@code='0'], true())"/></xsl:attribute>
962
                        <xsl:value-of select="$f773"/>
963
                        </a>
964
                    </xsl:when>
965
                    <xsl:otherwise>
966
                        <a><xsl:attribute name="href">/cgi-bin/koha/catalogue/search.pl?q=ti,phr:<xsl:value-of select="str:encode-uri(translate($f773, '()', ''), true())"/></xsl:attribute>
967
                        <xsl:value-of select="$f773"/>
968
                        </a>
969
                    </xsl:otherwise>
970
                </xsl:choose>
971
                <xsl:if test="marc:subfield[@code='g']">
972
                    <xsl:text> </xsl:text><xsl:value-of select="marc:subfield[@code='g']"/>
973
                </xsl:if>
974
                </span>
975
976
                <xsl:if test="marc:subfield[@code='n']">
977
                    <span class="results_summary in_note"><xsl:value-of select="marc:subfield[@code='n']"/></span>
978
                </xsl:if>
979
936
            </xsl:if>
980
            </xsl:if>
937
        </xsl:for-each>
981
        </xsl:for-each>
938
    </xsl:if>
982
    </xsl:if>
(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-basket.tt (+29 lines)
Lines 234-239 Link Here
234
                                            </tr>
234
                                            </tr>
235
                                        [% END %]
235
                                        [% END %]
236
236
237
                                        [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
238
                                            <tr>
239
                                                <th scope="row">Host item entries</th>
240
                                                <td>
241
                                                    [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
242
                                                        <p>
243
                                                            [% IF entry.subfield('0') %]
244
                                                                <a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
245
                                                            [% ELSE %]
246
                                                                [% entry.subfield('t') | html %]
247
                                                            [% END %]
248
                                                        </p>
249
                                                    [% END %]
250
                                                </td>
251
                                            </tr>
252
                                        [% END %]
253
237
                                        <tr>
254
                                        <tr>
238
                                            <th scope="row">Location(s) (Status)</th>
255
                                            <th scope="row">Location(s) (Status)</th>
239
                                            <td>
256
                                            <td>
Lines 292-297 Link Here
292
                                                [% IF ( TagsInputEnabled && loggedinusername ) %]
309
                                                [% IF ( TagsInputEnabled && loggedinusername ) %]
293
                                                <span id="newtag[% BIBLIO_RESULT.biblionumber | html %]_status" class="tagstatus results_summary" style="display:none">Tag status here.</span>
310
                                                <span id="newtag[% BIBLIO_RESULT.biblionumber | html %]_status" class="tagstatus results_summary" style="display:none">Tag status here.</span>
294
                                                [% END %]
311
                                                [% END %]
312
313
                                                [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
314
                                                    [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
315
                                                        <p>Host item entry:
316
                                                            [% IF entry.subfield('0') %]
317
                                                                <a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
318
                                                            [% ELSE %]
319
                                                                [% entry.subfield('t') | html %]
320
                                                            [% END %]
321
                                                        </p>
322
                                                    [% END %]
323
                                                [% END %]
295
                                            </td>
324
                                            </td>
296
                                            <td>[% BIBLIO_RESULT.author | html %]</td>
325
                                            <td>[% BIBLIO_RESULT.author | html %]</td>
297
                                            <td>
326
                                            <td>
(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-sendbasket.tt (+14 lines)
Lines 130-135 Your cart Link Here
130
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
130
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
131
            </span><br/>
131
            </span><br/>
132
            [% END %]
132
            [% END %]
133
134
            [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
135
                [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
136
                    <span>Host item entry:
137
                        [% IF entry.subfield('0') %]
138
                            <a href="[% OPACBaseURL | $raw %]/cgi-bin/koha/opac-detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
139
                        [% ELSE %]
140
                            [% entry.subfield('t') | html %]
141
                        [% END %]
142
                    </span>
143
                    <br/>
144
                [% END %]
145
            [% END %]
146
133
            [% IF ( BIBLIO_RESULT.url ) %]
147
            [% IF ( BIBLIO_RESULT.url ) %]
134
            <span>
148
            <span>
135
                URL: [% BIBLIO_RESULT.url | html %]
149
                URL: [% BIBLIO_RESULT.url | html %]
(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-sendshelf.tt (+14 lines)
Lines 133-138 Your list : [% shelfname | $raw %] Link Here
133
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
133
                LCCN: [% BIBLIO_RESULT.lccn | $raw %]
134
            </span><br/>
134
            </span><br/>
135
            [% END %]
135
            [% END %]
136
137
            [% IF BIBLIO_RESULT.HOSTITEMENTRIES %]
138
                [% FOREACH entry IN BIBLIO_RESULT.HOSTITEMENTRIES %]
139
                    <span>Host item entry:
140
                        [% IF entry.subfield('0') %]
141
                            <a href="[% OPACBaseURL | $raw %]/cgi-bin/koha/opac-detail.pl?biblionumber=[% entry.subfield('0') | uri %]">[% entry.subfield('t') | html %]</a>
142
                        [% ELSE %]
143
                            [% entry.subfield('t') | html %]
144
                        [% END %]
145
                    </span>
146
                    <br/>
147
                [% END %]
148
            [% END %]
149
136
            [% IF ( BIBLIO_RESULT.url ) %]
150
            [% IF ( BIBLIO_RESULT.url ) %]
137
            <span>
151
            <span>
138
                URL: [% BIBLIO_RESULT.url | html %]
152
                URL: [% BIBLIO_RESULT.url | html %]
(-)a/koha-tmpl/opac-tmpl/bootstrap/en/xslt/MARC21slim2OPACResults.xsl (-5 / +49 lines)
Lines 660-672 Link Here
660
	</span>
660
	</span>
661
    </xsl:if>
661
    </xsl:if>
662
662
663
    <!-- 773 -->
663
    <xsl:if test="marc:datafield[@tag=773]">
664
    <xsl:if test="marc:datafield[@tag=773]">
664
        <xsl:for-each select="marc:datafield[@tag=773]">
665
        <xsl:for-each select="marc:datafield[@tag=773]">
665
            <xsl:if test="marc:subfield[@code='t']">
666
            <xsl:if test="@ind1 !=1">
666
    <span class="results_summary source">
667
                <span class="results_summary in"><span class="label">
667
    <span class="label">Source: </span>
668
                <xsl:choose>
668
            <xsl:value-of select="marc:subfield[@code='t']"/>
669
                    <xsl:when test="@ind2=' '">
669
    </span>
670
                        Source:
671
                    </xsl:when>
672
                    <xsl:when test="@ind2=8">
673
                        <xsl:if test="marc:subfield[@code='i']">
674
                            <xsl:value-of select="marc:subfield[@code='i']"/>
675
                        </xsl:if>
676
                    </xsl:when>
677
                </xsl:choose>
678
                </span>
679
                <xsl:variable name="f773">
680
                    <xsl:call-template name="chopPunctuation">
681
                        <xsl:with-param name="chopString">
682
                            <xsl:call-template name="subfieldSelect">
683
                                <xsl:with-param name="codes">a_t</xsl:with-param>
684
                            </xsl:call-template>
685
                        </xsl:with-param>
686
                    </xsl:call-template>
687
                </xsl:variable>
688
                <xsl:choose>
689
                    <xsl:when test="$UseControlNumber = '1' and marc:subfield[@code='w']">
690
                        <a><xsl:attribute name="href">/cgi-bin/koha/opac-search.pl?q=Control-number:<xsl:call-template name="extractControlNumber"><xsl:with-param name="subfieldW" select="marc:subfield[@code='w']"/></xsl:call-template></xsl:attribute>
691
                        <xsl:value-of select="translate($f773, '()', '')"/>
692
                        </a>
693
                    </xsl:when>
694
                    <xsl:when test="marc:subfield[@code='0']">
695
                        <a><xsl:attribute name="href">/cgi-bin/koha/opac-detail.pl?biblionumber=<xsl:value-of select="str:encode-uri(marc:subfield[@code='0'], true())"/></xsl:attribute>
696
                        <xsl:value-of select="$f773"/>
697
                        </a>
698
                    </xsl:when>
699
                    <xsl:otherwise>
700
                        <a><xsl:attribute name="href">/cgi-bin/koha/opac-search.pl?q=ti,phr:<xsl:value-of select="str:encode-uri(translate($f773, '()', ''), true())"/></xsl:attribute>
701
                        <xsl:value-of select="$f773"/>
702
                        </a>
703
                    </xsl:otherwise>
704
                </xsl:choose>
705
                <xsl:if test="marc:subfield[@code='g']">
706
                    <xsl:text> </xsl:text><xsl:value-of select="marc:subfield[@code='g']"/>
707
                </xsl:if>
708
                </span>
709
710
                <xsl:if test="marc:subfield[@code='n']">
711
                    <span class="results_summary in_note"><xsl:value-of select="marc:subfield[@code='n']"/></span>
712
                </xsl:if>
713
670
            </xsl:if>
714
            </xsl:if>
671
        </xsl:for-each>
715
        </xsl:for-each>
672
    </xsl:if>
716
    </xsl:if>
(-)a/opac/opac-basket.pl (+2 lines)
Lines 82-87 foreach my $biblionumber ( @bibs ) { Link Here
82
82
83
    # No filtering on the item records needed for the record itself
83
    # No filtering on the item records needed for the record itself
84
    # since the only reason item information is grabbed is because of branchcodes.
84
    # since the only reason item information is grabbed is because of branchcodes.
85
    my $biblio = Koha::Biblios->find($biblionumber);
85
    my $record = &GetMarcBiblio({ biblionumber => $biblionumber });
86
    my $record = &GetMarcBiblio({ biblionumber => $biblionumber });
86
    my $framework = &GetFrameworkCode( $biblionumber );
87
    my $framework = &GetFrameworkCode( $biblionumber );
87
    $record_processor->options({
88
    $record_processor->options({
Lines 158-163 foreach my $biblionumber ( @bibs ) { Link Here
158
    $dat->{MARCSERIES}  = $marcseriesarray;
159
    $dat->{MARCSERIES}  = $marcseriesarray;
159
    $dat->{MARCURLS}    = $marcurlsarray;
160
    $dat->{MARCURLS}    = $marcurlsarray;
160
    $dat->{HASAUTHORS}  = $hasauthors;
161
    $dat->{HASAUTHORS}  = $hasauthors;
162
    $dat->{HOSTITEMENTRIES} = $biblio->get_host_item_entries;
161
163
162
    if ( C4::Context->preference("BiblioDefaultView") eq "normal" ) {
164
    if ( C4::Context->preference("BiblioDefaultView") eq "normal" ) {
163
        $dat->{dest} = "opac-detail.pl";
165
        $dat->{dest} = "opac-detail.pl";
(-)a/opac/opac-sendbasket.pl (+2 lines)
Lines 84-89 if ( $email_add ) { Link Here
84
            embed_items  => 1,
84
            embed_items  => 1,
85
            opac         => 1,
85
            opac         => 1,
86
            borcat       => $borcat });
86
            borcat       => $borcat });
87
        my $biblio = Koha::Biblios->find($biblionumber);
87
        my $marcauthorsarray = $biblio->get_marc_authors;
88
        my $marcauthorsarray = $biblio->get_marc_authors;
88
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
89
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
89
90
Lines 100-105 if ( $email_add ) { Link Here
100
        $dat->{HASAUTHORS}     = $hasauthors;
101
        $dat->{HASAUTHORS}     = $hasauthors;
101
        $dat->{'biblionumber'} = $biblionumber;
102
        $dat->{'biblionumber'} = $biblionumber;
102
        $dat->{ITEM_RESULTS}   = \@items;
103
        $dat->{ITEM_RESULTS}   = \@items;
104
        $dat->{HOSTITEMENTRIES} = $biblio->get_host_item_entries;
103
105
104
        $iso2709 .= $record->as_usmarc();
106
        $iso2709 .= $record->as_usmarc();
105
107
(-)a/opac/opac-sendshelf.pl (+2 lines)
Lines 91-96 if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) { Link Here
91
            opac         => 1,
91
            opac         => 1,
92
            borcat       => $borcat });
92
            borcat       => $borcat });
93
        next unless $record;
93
        next unless $record;
94
        my $biblio           = Koha::Biblios->find($biblionumber);
94
        my $fw               = GetFrameworkCode($biblionumber);
95
        my $fw               = GetFrameworkCode($biblionumber);
95
96
96
        my $marcauthorsarray = $biblio->get_marc_authors;
97
        my $marcauthorsarray = $biblio->get_marc_authors;
Lines 104-109 if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) { Link Here
104
        $dat->{'biblionumber'} = $biblionumber;
105
        $dat->{'biblionumber'} = $biblionumber;
105
        $dat->{ITEM_RESULTS}   = \@items;
106
        $dat->{ITEM_RESULTS}   = \@items;
106
        $dat->{HASAUTHORS}     = $dat->{'author'} || @$marcauthorsarray;
107
        $dat->{HASAUTHORS}     = $dat->{'author'} || @$marcauthorsarray;
108
        $dat->{HOSTITEMENTRIES} = $biblio->get_host_item_entries;
107
109
108
        $iso2709 .= $record->as_usmarc();
110
        $iso2709 .= $record->as_usmarc();
109
111
(-)a/t/db_dependent/Koha/Biblio.t (-1 / +33 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 20;
20
use Test::More tests => 21;
21
use Test::Warn;
21
use Test::Warn;
22
22
23
use C4::Biblio qw( AddBiblio ModBiblio ModBiblioMarc );
23
use C4::Biblio qw( AddBiblio ModBiblio ModBiblioMarc );
Lines 746-751 subtest 'get_marc_notes() UNIMARC tests' => sub { Link Here
746
    is( $notes->[0]->{marcnote}, 'Note1', 'First note' );
746
    is( $notes->[0]->{marcnote}, 'Note1', 'First note' );
747
    is( $notes->[1]->{marcnote}, 'Note2', 'Second note' );
747
    is( $notes->[1]->{marcnote}, 'Note2', 'Second note' );
748
    is( @$notes, 2, 'No more notes' );
748
    is( @$notes, 2, 'No more notes' );
749
};
750
751
subtest 'get_host_item_entries() tests' => sub {
752
753
    plan tests => 2;
754
755
    $schema->storage->txn_begin;
756
757
    # Set up the host record and an item
758
    my $host_biblio = $builder->build_sample_biblio;
759
    my $host_item = $builder->build_sample_item({ biblionumber => $host_biblio->biblionumber });
760
761
    # Set up the test record
762
    my $test_biblio = $builder->build_sample_biblio;
763
    my $record = $test_biblio->metadata->record;
764
765
    # Link the host item to the test record
766
    my $field = MARC::Field->new('245','','','a' => "Test title");
767
    $record->append_fields( $field );
768
    $field = MARC::Field->new('773','0','','0' => $host_biblio->biblionumber);
769
    $record->append_fields( $field );
770
    $field = MARC::Field->new('773','0','','9' => $host_item->itemnumber);
771
    $record->append_fields( $field );
772
773
    # Re-retrieve the record
774
    C4::Biblio::ModBiblio( $record, $test_biblio->biblionumber );
775
    $test_biblio = Koha::Biblios->find( $test_biblio->biblionumber );
776
777
    my $host_items = $test_biblio->get_host_item_entries;
778
    is( @{$host_items}, 1, "Correctly retrieved number of attached host item entries" );
779
    my $test_host_biblionumber = @{$host_items}[0]->subfield('0');
780
    is( $test_host_biblionumber, $host_biblio->biblionumber, "Correctly retrieved data about host item entry");
749
781
750
    $schema->storage->txn_rollback;
782
    $schema->storage->txn_rollback;
751
};
783
};
(-)a/virtualshelves/sendshelf.pl (-1 / +1 lines)
Lines 92-97 if ($to_address) { Link Here
92
        $dat->{'biblionumber'} = $biblionumber;
92
        $dat->{'biblionumber'} = $biblionumber;
93
        $dat->{ITEM_RESULTS}   = \@items;
93
        $dat->{ITEM_RESULTS}   = \@items;
94
        $dat->{HASAUTHORS}     = $dat->{'author'} || @$marcauthorsarray;
94
        $dat->{HASAUTHORS}     = $dat->{'author'} || @$marcauthorsarray;
95
        $dat->{HOSTITEMENTRIES} = $biblio->get_host_item_entries;
95
96
96
        $iso2709 .= $record->as_usmarc();
97
        $iso2709 .= $record->as_usmarc();
97
98
98
- 

Return to bug 16522