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

(-)a/catalogue/detail.pl (-31 / +32 lines)
Lines 145-152 my $hostrecords; Link Here
145
# adding items linked via host biblios
145
# adding items linked via host biblios
146
my @hostitems = GetHostItemsInfo($record);
146
my @hostitems = GetHostItemsInfo($record);
147
if (@hostitems){
147
if (@hostitems){
148
	$hostrecords =1;
148
    $hostrecords =1;
149
	push (@items,@hostitems);
149
    push (@items,@hostitems);
150
}
150
}
151
151
152
my $dat = &GetBiblioData($biblionumber);
152
my $dat = &GetBiblioData($biblionumber);
Lines 158-164 my @subs; Link Here
158
158
159
foreach my $subscription (@subscriptions) {
159
foreach my $subscription (@subscriptions) {
160
    my %cell;
160
    my %cell;
161
	my $serials_to_display;
161
    my $serials_to_display;
162
    $cell{subscriptionid}    = $subscription->{subscriptionid};
162
    $cell{subscriptionid}    = $subscription->{subscriptionid};
163
    $cell{subscriptionnotes} = $subscription->{internalnotes};
163
    $cell{subscriptionnotes} = $subscription->{internalnotes};
164
    $cell{missinglist}       = $subscription->{missinglist};
164
    $cell{missinglist}       = $subscription->{missinglist};
Lines 168-176 foreach my $subscription (@subscriptions) { Link Here
168
    $cell{callnumber}        = $subscription->{callnumber};
168
    $cell{callnumber}        = $subscription->{callnumber};
169
    $cell{closed}            = $subscription->{closed};
169
    $cell{closed}            = $subscription->{closed};
170
    #get the three latest serials.
170
    #get the three latest serials.
171
	$serials_to_display = $subscription->{staffdisplaycount};
171
    $serials_to_display = $subscription->{staffdisplaycount};
172
	$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display;
172
    $serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display;
173
	$cell{staffdisplaycount} = $serials_to_display;
173
    $cell{staffdisplaycount} = $serials_to_display;
174
    $cell{latestserials} =
174
    $cell{latestserials} =
175
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
175
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
176
    push @subs, \%cell;
176
    push @subs, \%cell;
Lines 254-262 foreach my $item (@items) { Link Here
254
    #get shelf location and collection code description if they are authorised value.
254
    #get shelf location and collection code description if they are authorised value.
255
    # same thing for copy number
255
    # same thing for copy number
256
    my $shelfcode = $item->{'location'};
256
    my $shelfcode = $item->{'location'};
257
    $item->{'location'} = $shelflocations->{$shelfcode} if ( defined( $shelfcode ) && defined($shelflocations) && exists( $shelflocations->{$shelfcode} ) );
257
    my $permshelfcode = $item->{'permanent_location'};
258
    $item->{'location'} = ( $shelflocations->{$permshelfcode} ne '' ) ? $shelflocations->{$permshelfcode} : ( $permshelfcode ) ? $permshelfcode : undef;
259
    $item->{'location'} .= ( ( $shelflocations->{$shelfcode} ne '' ) && ( $shelfcode ne $permshelfcode ) ) ? ' (' . $shelflocations->{$shelfcode} . ')' : ( ( $shelfcode ) && ( $shelfcode ne $permshelfcode ) ) ? ' (' . $shelfcode . ')' : undef;
258
    my $ccode = $item->{'ccode'};
260
    my $ccode = $item->{'ccode'};
259
    $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
261
            $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
260
    my $copynumber = $item->{'copynumber'};
262
    my $copynumber = $item->{'copynumber'};
261
    $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
263
    $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
262
    foreach (qw(ccode enumchron copynumber stocknumber itemnotes itemnotes_nonpublic uri)) {
264
    foreach (qw(ccode enumchron copynumber stocknumber itemnotes itemnotes_nonpublic uri)) {
Lines 280-286 foreach my $item (@items) { Link Here
280
        $item->{CheckedOutFor} = $checkout->patron;
282
        $item->{CheckedOutFor} = $checkout->patron;
281
    }
283
    }
282
284
283
	# Check the transit status
285
    # Check the transit status
284
    my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
286
    my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
285
    if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
287
    if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
286
        $item->{transfertwhen} = $transfertwhen;
288
        $item->{transfertwhen} = $transfertwhen;
Lines 300-308 foreach my $item (@items) { Link Here
300
302
301
    if ($item->{biblionumber} ne $biblionumber){
303
    if ($item->{biblionumber} ne $biblionumber){
302
        $item->{hostbiblionumber} = $item->{biblionumber};
304
        $item->{hostbiblionumber} = $item->{biblionumber};
303
	$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
305
    $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
304
    }
306
    }
305
	
306
307
307
    if ( $analyze ) {
308
    if ( $analyze ) {
308
        # count if item is used in analytical bibliorecords
309
        # count if item is used in analytical bibliorecords
Lines 355-381 if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { Link Here
355
356
356
$template->param( norequests => $norequests );
357
$template->param( norequests => $norequests );
357
$template->param(
358
$template->param(
358
	MARCNOTES   => $marcnotesarray,
359
    MARCNOTES => $marcnotesarray,
359
	MARCSUBJCTS => $marcsubjctsarray,
360
    MARCSUBJCTS => $marcsubjctsarray,
360
	MARCAUTHORS => $marcauthorsarray,
361
    MARCAUTHORS => $marcauthorsarray,
361
	MARCSERIES  => $marcseriesarray,
362
    MARCSERIES => $marcseriesarray,
362
	MARCURLS => $marcurlsarray,
363
    MARCURLS => $marcurlsarray,
363
    MARCISBNS => $marcisbnsarray,
364
    MARCISBNS => $marcisbnsarray,
364
	MARCHOSTS => $marchostsarray,
365
    MARCHOSTS => $marchostsarray,
365
	subtitle    => $subtitle,
366
    subtitle => $subtitle,
366
	itemdata_ccode      => $itemfields{ccode},
367
    itemdata_ccode => $itemfields{ccode},
367
	itemdata_enumchron  => $itemfields{enumchron},
368
    itemdata_enumchron => $itemfields{enumchron},
368
	itemdata_uri        => $itemfields{uri},
369
    itemdata_uri => $itemfields{uri},
369
	itemdata_copynumber => $itemfields{copynumber},
370
    itemdata_copynumber => $itemfields{copynumber},
370
	itemdata_stocknumber => $itemfields{stocknumber},
371
    itemdata_stocknumber => $itemfields{stocknumber},
371
	volinfo				=> $itemfields{enumchron},
372
    volinfo => $itemfields{enumchron},
372
        itemdata_itemnotes  => $itemfields{itemnotes},
373
    itemdata_itemnotes => $itemfields{itemnotes},
373
        itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
374
    itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
374
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
375
    z3950_search_params => C4::Search::z3950_search_args($dat),
375
        hostrecords         => $hostrecords,
376
    hostrecords => $hostrecords,
376
	analytics_flag	=> $analytics_flag,
377
    analytics_flag => $analytics_flag,
377
	C4::Search::enabled_staff_search_views,
378
    C4::Search::enabled_staff_search_views,
378
        materials       => $materials_flag,
379
    materials => $materials_flag,
379
);
380
);
380
381
381
if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {
382
if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {
(-)a/opac/opac-detail.pl (-63 / +60 lines)
Lines 62-71 use Koha::Ratings; Link Here
62
use Koha::Reviews;
62
use Koha::Reviews;
63
63
64
BEGIN {
64
BEGIN {
65
	if (C4::Context->preference('BakerTaylorEnabled')) {
65
    if (C4::Context->preference('BakerTaylorEnabled')) {
66
		require C4::External::BakerTaylor;
66
        require C4::External::BakerTaylor;
67
		import C4::External::BakerTaylor qw(&image_url &link_url);
67
        import C4::External::BakerTaylor qw(&image_url &link_url);
68
	}
68
    }
69
}
69
}
70
70
71
my $query = new CGI;
71
my $query = new CGI;
Lines 495-504 $hideitems = 1 if C4::Context->preference('hidelostitems') or scalar(@hiddenitem Link Here
495
# Hide items
495
# Hide items
496
if ($hideitems) {
496
if ($hideitems) {
497
    for my $itm (@all_items) {
497
    for my $itm (@all_items) {
498
	if  ( C4::Context->preference('hidelostitems') ) {
498
    if  ( C4::Context->preference('hidelostitems') ) {
499
	    push @items, $itm unless $itm->{itemlost} or any { $itm->{'itemnumber'} eq $_ } @hiddenitems;
499
        push @items, $itm unless $itm->{itemlost} or any { $itm->{'itemnumber'} eq $_ } @hiddenitems;
500
	} else {
500
    } else {
501
	    push @items, $itm unless any { $itm->{'itemnumber'} eq $_ } @hiddenitems;
501
        push @items, $itm unless any { $itm->{'itemnumber'} eq $_ } @hiddenitems;
502
    }
502
    }
503
}
503
}
504
} else {
504
} else {
Lines 585-591 foreach my $subscription (@subscriptions) { Link Here
585
    #get the three latest serials.
585
    #get the three latest serials.
586
    $serials_to_display = $subscription->{opacdisplaycount};
586
    $serials_to_display = $subscription->{opacdisplaycount};
587
    $serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display;
587
    $serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display;
588
	$cell{opacdisplaycount} = $serials_to_display;
588
    $cell{opacdisplaycount} = $serials_to_display;
589
    $cell{latestserials} =
589
    $cell{latestserials} =
590
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
590
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
591
    if ( $borrowernumber ) {
591
    if ( $borrowernumber ) {
Lines 598-604 foreach my $subscription (@subscriptions) { Link Here
598
598
599
$dat->{'count'} = scalar(@items);
599
$dat->{'count'} = scalar(@items);
600
600
601
602
my (%item_reserves, %priority);
601
my (%item_reserves, %priority);
603
my ($show_holds_count, $show_priority);
602
my ($show_holds_count, $show_priority);
604
for ( C4::Context->preference("OPACShowHoldQueueDetails") ) {
603
for ( C4::Context->preference("OPACShowHoldQueueDetails") ) {
Lines 682-690 if ( not $viewallitems and @items > $max_items_to_display ) { Link Here
682
    $itm->{'ccode'} = $collections->{$ccode} if defined($ccode) && $collections && exists( $collections->{$ccode} );
681
    $itm->{'ccode'} = $collections->{$ccode} if defined($ccode) && $collections && exists( $collections->{$ccode} );
683
    my $copynumber = $itm->{'copynumber'};
682
    my $copynumber = $itm->{'copynumber'};
684
    $itm->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumbers) && defined($copynumber) && exists( $copynumbers->{$copynumber} ) );
683
    $itm->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumbers) && defined($copynumber) && exists( $copynumbers->{$copynumber} ) );
685
    if ( defined $itm->{'location'} ) {
684
    my $shelfcode = $itm->{'location'};
686
        $itm->{'location_description'} = $shelflocations->{ $itm->{'location'} };
685
    my $permshelfcode = $itm->{'permanent_location'};
687
    }
686
    $itm->{'location_description'} = ( $shelflocations->{$permshelfcode} ne '' ) ? $shelflocations->{$permshelfcode} : ( $permshelfcode ) ? $permshelfcode : undef;
687
    $itm->{'location_description'} .= ( ( $shelflocations->{$shelfcode} ne '' ) && ( $shelfcode ne $permshelfcode ) ) ? ' (' . $shelflocations->{$shelfcode} . ')' : ( ( $shelfcode ) && ( $shelfcode ne $permshelfcode ) ) ? ' (' . $shelfcode . ')' : undef;
688
    if (exists $itm->{itype} && defined($itm->{itype}) && exists $itemtypes->{ $itm->{itype} }) {
688
    if (exists $itm->{itype} && defined($itm->{itype}) && exists $itemtypes->{ $itm->{itype} }) {
689
        $itm->{'imageurl'}    = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} );
689
        $itm->{'imageurl'}    = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} );
690
        $itm->{'description'} = $itemtypes->{ $itm->{itype} }->{translated_description};
690
        $itm->{'description'} = $itemtypes->{ $itm->{itype} }->{translated_description};
Lines 822-832 if ( $isbn or $ean or $oclc or $upc ) { Link Here
822
    $content_identifier_exists = 1;
822
    $content_identifier_exists = 1;
823
}
823
}
824
$template->param(
824
$template->param(
825
	normalized_upc => $upc,
825
    normalized_upc => $upc,
826
	normalized_ean => $ean,
826
    normalized_ean => $ean,
827
	normalized_oclc => $oclc,
827
    normalized_oclc => $oclc,
828
	normalized_isbn => $isbn,
828
    normalized_isbn => $isbn,
829
	content_identifier_exists =>  $content_identifier_exists,
829
    content_identifier_exists =>  $content_identifier_exists,
830
);
830
);
831
831
832
# COinS format FIXME: for books Only
832
# COinS format FIXME: for books Only
Lines 936-948 foreach my $sc_field (@sc_fields) { Link Here
936
936
937
if (scalar(@serialcollections) > 0) {
937
if (scalar(@serialcollections) > 0) {
938
    $template->param(
938
    $template->param(
939
	serialcollection  => 1,
939
    serialcollection  => 1,
940
	serialcollections => \@serialcollections);
940
    serialcollections => \@serialcollections);
941
}
941
}
942
942
943
# Local cover Images stuff
943
# Local cover Images stuff
944
if (C4::Context->preference("OPACLocalCoverImages")){
944
if (C4::Context->preference("OPACLocalCoverImages")){
945
		$template->param(OPACLocalCoverImages => 1);
945
        $template->param(OPACLocalCoverImages => 1);
946
}
946
}
947
947
948
# HTML5 Media
948
# HTML5 Media
Lines 955-966 my $syndetics_elements; Link Here
955
if ( C4::Context->preference("SyndeticsEnabled") ) {
955
if ( C4::Context->preference("SyndeticsEnabled") ) {
956
    $template->param("SyndeticsEnabled" => 1);
956
    $template->param("SyndeticsEnabled" => 1);
957
    $template->param("SyndeticsClientCode" => C4::Context->preference("SyndeticsClientCode"));
957
    $template->param("SyndeticsClientCode" => C4::Context->preference("SyndeticsClientCode"));
958
	eval {
958
    eval {
959
	    $syndetics_elements = &get_syndetics_index($isbn,$upc,$oclc);
959
        $syndetics_elements = &get_syndetics_index($isbn,$upc,$oclc);
960
	    for my $element (values %$syndetics_elements) {
960
        for my $element (values %$syndetics_elements) {
961
		$template->param("Syndetics$element"."Exists" => 1 );
961
            $template->param("Syndetics$element"."Exists" => 1 );
962
		#warn "Exists: "."Syndetics$element"."Exists";
962
        #warn "Exists: "."Syndetics$element"."Exists";
963
	}
963
    }
964
    };
964
    };
965
    warn $@ if $@;
965
    warn $@ if $@;
966
}
966
}
Lines 968-989 if ( C4::Context->preference("SyndeticsEnabled") ) { Link Here
968
if ( C4::Context->preference("SyndeticsEnabled")
968
if ( C4::Context->preference("SyndeticsEnabled")
969
        && C4::Context->preference("SyndeticsSummary")
969
        && C4::Context->preference("SyndeticsSummary")
970
        && ( exists($syndetics_elements->{'SUMMARY'}) || exists($syndetics_elements->{'AVSUMMARY'}) ) ) {
970
        && ( exists($syndetics_elements->{'SUMMARY'}) || exists($syndetics_elements->{'AVSUMMARY'}) ) ) {
971
	eval {
971
    eval {
972
	    my $syndetics_summary = &get_syndetics_summary($isbn,$upc,$oclc, $syndetics_elements);
972
        my $syndetics_summary = &get_syndetics_summary($isbn,$upc,$oclc, $syndetics_elements);
973
	    $template->param( SYNDETICS_SUMMARY => $syndetics_summary );
973
        $template->param( SYNDETICS_SUMMARY => $syndetics_summary );
974
	};
974
    };
975
	warn $@ if $@;
975
    warn $@ if $@;
976
977
}
976
}
978
977
979
if ( C4::Context->preference("SyndeticsEnabled")
978
if ( C4::Context->preference("SyndeticsEnabled")
980
        && C4::Context->preference("SyndeticsTOC")
979
        && C4::Context->preference("SyndeticsTOC")
981
        && exists($syndetics_elements->{'TOC'}) ) {
980
        && exists($syndetics_elements->{'TOC'}) ) {
982
	eval {
981
    eval {
983
    my $syndetics_toc = &get_syndetics_toc($isbn,$upc,$oclc);
982
    my $syndetics_toc = &get_syndetics_toc($isbn,$upc,$oclc);
984
    $template->param( SYNDETICS_TOC => $syndetics_toc );
983
    $template->param( SYNDETICS_TOC => $syndetics_toc );
985
	};
984
    };
986
	warn $@ if $@;
985
    warn $@ if $@;
987
}
986
}
988
987
989
if ( C4::Context->preference("SyndeticsEnabled")
988
if ( C4::Context->preference("SyndeticsEnabled")
Lines 993-999 if ( C4::Context->preference("SyndeticsEnabled") Link Here
993
    my $syndetics_excerpt = &get_syndetics_excerpt($isbn,$upc,$oclc);
992
    my $syndetics_excerpt = &get_syndetics_excerpt($isbn,$upc,$oclc);
994
    $template->param( SYNDETICS_EXCERPT => $syndetics_excerpt );
993
    $template->param( SYNDETICS_EXCERPT => $syndetics_excerpt );
995
    };
994
    };
996
	warn $@ if $@;
995
    warn $@ if $@;
997
}
996
}
998
997
999
if ( C4::Context->preference("SyndeticsEnabled")
998
if ( C4::Context->preference("SyndeticsEnabled")
Lines 1002-1013 if ( C4::Context->preference("SyndeticsEnabled") Link Here
1002
    my $syndetics_reviews = &get_syndetics_reviews($isbn,$upc,$oclc,$syndetics_elements);
1001
    my $syndetics_reviews = &get_syndetics_reviews($isbn,$upc,$oclc,$syndetics_elements);
1003
    $template->param( SYNDETICS_REVIEWS => $syndetics_reviews );
1002
    $template->param( SYNDETICS_REVIEWS => $syndetics_reviews );
1004
    };
1003
    };
1005
	warn $@ if $@;
1004
    warn $@ if $@;
1006
}
1005
}
1007
1006
1008
if ( C4::Context->preference("SyndeticsEnabled")
1007
if ( C4::Context->preference("SyndeticsEnabled")
1009
    && C4::Context->preference("SyndeticsAuthorNotes")
1008
    && C4::Context->preference("SyndeticsAuthorNotes")
1010
	&& exists($syndetics_elements->{'ANOTES'}) ) {
1009
    && exists($syndetics_elements->{'ANOTES'}) ) {
1011
    eval {
1010
    eval {
1012
    my $syndetics_anotes = &get_syndetics_anotes($isbn,$upc,$oclc);
1011
    my $syndetics_anotes = &get_syndetics_anotes($isbn,$upc,$oclc);
1013
    $template->param( SYNDETICS_ANOTES => $syndetics_anotes );
1012
    $template->param( SYNDETICS_ANOTES => $syndetics_anotes );
Lines 1076-1109 if (C4::Context->preference("OPACShelfBrowser")) { Link Here
1076
$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("OPACAmazonCoverImages"));
1075
$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("OPACAmazonCoverImages"));
1077
1076
1078
if (C4::Context->preference("BakerTaylorEnabled")) {
1077
if (C4::Context->preference("BakerTaylorEnabled")) {
1079
	$template->param(
1078
    $template->param(
1080
		BakerTaylorEnabled  => 1,
1079
        BakerTaylorEnabled  => 1,
1081
		BakerTaylorImageURL => &image_url(),
1080
        BakerTaylorImageURL => &image_url(),
1082
		BakerTaylorLinkURL  => &link_url(),
1081
        BakerTaylorLinkURL  => &link_url(),
1083
		BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'),
1082
        BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'),
1084
	);
1083
    );
1085
	my ($bt_user, $bt_pass);
1084
    my ($bt_user, $bt_pass);
1086
	if ($isbn and
1085
    if ($isbn and
1087
		$bt_user = C4::Context->preference('BakerTaylorUsername') and
1086
        $bt_user = C4::Context->preference('BakerTaylorUsername') and
1088
		$bt_pass = C4::Context->preference('BakerTaylorPassword')    )
1087
        $bt_pass = C4::Context->preference('BakerTaylorPassword')    )
1089
	{
1088
    {
1090
		$template->param(
1089
        $template->param(
1091
		BakerTaylorContentURL   =>
1090
        BakerTaylorContentURL   =>
1092
        sprintf("https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y",
1091
        sprintf("https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y",
1093
				$bt_user,$bt_pass,$isbn)
1092
                $bt_user,$bt_pass,$isbn)
1094
		);
1093
        );
1095
	}
1094
    }
1096
}
1095
}
1097
1096
1098
my $tag_quantity;
1097
my $tag_quantity;
1099
if (C4::Context->preference('TagsEnabled') and $tag_quantity = C4::Context->preference('TagsShowOnDetail')) {
1098
if (C4::Context->preference('TagsEnabled') and $tag_quantity = C4::Context->preference('TagsShowOnDetail')) {
1100
	$template->param(
1099
    $template->param(
1101
		TagsEnabled => 1,
1100
        TagsEnabled => 1,
1102
		TagsShowOnDetail => $tag_quantity,
1101
        TagsShowOnDetail => $tag_quantity,
1103
		TagsInputOnDetail => C4::Context->preference('TagsInputOnDetail')
1102
        TagsInputOnDetail => C4::Context->preference('TagsInputOnDetail')
1104
	);
1103
        );
1105
	$template->param(TagLoop => get_tags({biblionumber=>$biblionumber, approved=>1,
1104
    $template->param(TagLoop => get_tags({biblionumber=>$biblionumber, approved=>1, 'sort'=>'-weight', limit=>$tag_quantity}));
1106
								'sort'=>'-weight', limit=>$tag_quantity}));
1107
}
1105
}
1108
1106
1109
if (C4::Context->preference("OPACURLOpenInNewWindow")) {
1107
if (C4::Context->preference("OPACURLOpenInNewWindow")) {
1110
- 

Return to bug 18355