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

(-)a/catalogue/detail.pl (-1 / +1 lines)
Lines 214-220 foreach my $subscription (@subscriptions) { Link Here
214
# Get component parts details
214
# Get component parts details
215
my $showcomp = C4::Context->preference('ShowComponentRecords');
215
my $showcomp = C4::Context->preference('ShowComponentRecords');
216
if ( $showcomp eq 'both' || $showcomp eq 'staff' ) {
216
if ( $showcomp eq 'both' || $showcomp eq 'staff' ) {
217
    if ( my $components = $biblio->get_marc_components(300) ) {
217
    if ( my $components = $biblio->get_marc_components(C4::Context->preference('MaxComponentRecords')) ) {
218
        my $parts;
218
        my $parts;
219
        for my $part ( @{$components} ) {
219
        for my $part ( @{$components} ) {
220
            $part = C4::Search::new_record_from_zebra( 'biblioserver', $part );
220
            $part = C4::Search::new_record_from_zebra( 'biblioserver', $part );
(-)a/installer/data/mysql/atomicupdate/bug_11175.perl (+3 lines)
Lines 1-6 Link Here
1
$DBversion = 'XXX';  # will be replaced by the RM
1
$DBversion = 'XXX';  # will be replaced by the RM
2
if( CheckVersion( $DBversion ) ) {
2
if( CheckVersion( $DBversion ) ) {
3
    $dbh->do("INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('ShowComponentRecords', 'nowhere', 'nowhere|staff|opac|both','In which record detail pages to show list of the component records, as linked via 773','Choice')");
3
    $dbh->do("INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('ShowComponentRecords', 'nowhere', 'nowhere|staff|opac|both','In which record detail pages to show list of the component records, as linked via 773','Choice')");
4
5
    $dbh->do("INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('MaxComponentRecords', '300', '','Max number of component records to display','Integer')");
6
4
    SetVersion( $DBversion );
7
    SetVersion( $DBversion );
5
    print "Upgrade to $DBversion done (Bug 11175: Show component records in detail views)\n";
8
    print "Upgrade to $DBversion done (Bug 11175: Show component records in detail views)\n";
6
}
9
}
(-)a/installer/data/mysql/mandatory/sysprefs.sql (+1 lines)
Lines 618-623 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here
618
('ShelfBrowserUsesLocation','1','1','Use the item location when finding items for the shelf browser.','YesNo'),
618
('ShelfBrowserUsesLocation','1','1','Use the item location when finding items for the shelf browser.','YesNo'),
619
('ShowAllCheckins', '0', '', 'Show all checkins', 'YesNo'),
619
('ShowAllCheckins', '0', '', 'Show all checkins', 'YesNo'),
620
('ShowComponentRecords', 'nowhere', 'nowhere|staff|opac|both','In which record detail pages to show list of the component records, as linked via 773','Choice'),
620
('ShowComponentRecords', 'nowhere', 'nowhere|staff|opac|both','In which record detail pages to show list of the component records, as linked via 773','Choice'),
621
('MaxComponentRecords', '300', '','Max number of component records to display','Integer'),
621
('showLastPatron','0','','If ON, enables the last patron feature in the intranet','YesNo'),
622
('showLastPatron','0','','If ON, enables the last patron feature in the intranet','YesNo'),
622
('ShowPatronImageInWebBasedSelfCheck','0','','If ON, displays patron image when a patron uses web-based self-checkout','YesNo'),
623
('ShowPatronImageInWebBasedSelfCheck','0','','If ON, displays patron image when a patron uses web-based self-checkout','YesNo'),
623
('ShowReviewer','full','none|full|first|surname|firstandinitial|username','Choose how a commenter\'s identity is presented alongside comments in the OPAC','Choice'),
624
('ShowReviewer','full','none|full|first|surname|firstandinitial|username','Choose how a commenter\'s identity is presented alongside comments in the OPAC','Choice'),
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref (-2 / +6 lines)
Lines 268-281 Cataloging: Link Here
268
            - "<li>subfields a and b of fields 245</li>"
268
            - "<li>subfields a and b of fields 245</li>"
269
            - "<li>all subfields of fields 600</li>"
269
            - "<li>all subfields of fields 600</li>"
270
        -
270
        -
271
            - Show a list of component records, as linked via field 773, in
271
            - "Show a list of component records, as linked via field 773, in"
272
            - pref: ShowComponentRecords
272
            - pref: ShowComponentRecords
273
              choices:
273
              choices:
274
                  nowhere: "no"
274
                  nowhere: "no"
275
                  staff: "staff interface"
275
                  staff: "staff interface"
276
                  opac: "OPAC"
276
                  opac: "OPAC"
277
                  both: "both staff interface and OPAC"
277
                  both: "both staff interface and OPAC"
278
            - record detail pages. UNIMARC is not supported.
278
            - "record detail pages."
279
            - "A maximum of"
280
            - pref: MaxComponentRecords
281
            - "records will be displayed."
282
            - "<br/> UNIMARC is not supported."
279
    Importing:
283
    Importing:
280
        -
284
        -
281
            - When matching on ISBN with the record import tool,
285
            - When matching on ISBN with the record import tool,
(-)a/opac/opac-detail.pl (-2 / +1 lines)
Lines 661-667 my $max_items_to_display = C4::Context->preference('OpacMaxItemsToDisplay') // 5 Link Here
661
my $showcomp = C4::Context->preference('ShowComponentRecords');
661
my $showcomp = C4::Context->preference('ShowComponentRecords');
662
my $parts;
662
my $parts;
663
if ( $showcomp eq 'both' || $showcomp eq 'opac' ) {
663
if ( $showcomp eq 'both' || $showcomp eq 'opac' ) {
664
    if ( my $components = $biblio->get_marc_components(300) ) {
664
    if ( my $components = $biblio->get_marc_components(C4::Context->preference('MaxComponentRecords')) ) {
665
        for my $part ( @{$components} ) {
665
        for my $part ( @{$components} ) {
666
            $part = C4::Search::new_record_from_zebra( 'biblioserver', $part );
666
            $part = C4::Search::new_record_from_zebra( 'biblioserver', $part );
667
667
668
- 

Return to bug 11175