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

(-)a/catalogue/detail.pl (-34 / +34 lines)
Lines 144-151 my $hostrecords; Link Here
144
# adding items linked via host biblios
144
# adding items linked via host biblios
145
my @hostitems = GetHostItemsInfo($record);
145
my @hostitems = GetHostItemsInfo($record);
146
if (@hostitems){
146
if (@hostitems){
147
	$hostrecords =1;
147
    $hostrecords =1;
148
	push (@items,@hostitems);
148
    push (@items,@hostitems);
149
}
149
}
150
150
151
my $dat = &GetBiblioData($biblionumber);
151
my $dat = &GetBiblioData($biblionumber);
Lines 157-163 my @subs; Link Here
157
157
158
foreach my $subscription (@subscriptions) {
158
foreach my $subscription (@subscriptions) {
159
    my %cell;
159
    my %cell;
160
	my $serials_to_display;
160
    my $serials_to_display;
161
    $cell{subscriptionid}    = $subscription->{subscriptionid};
161
    $cell{subscriptionid}    = $subscription->{subscriptionid};
162
    $cell{subscriptionnotes} = $subscription->{internalnotes};
162
    $cell{subscriptionnotes} = $subscription->{internalnotes};
163
    $cell{missinglist}       = $subscription->{missinglist};
163
    $cell{missinglist}       = $subscription->{missinglist};
Lines 167-181 foreach my $subscription (@subscriptions) { Link Here
167
    $cell{callnumber}        = $subscription->{callnumber};
167
    $cell{callnumber}        = $subscription->{callnumber};
168
    $cell{closed}            = $subscription->{closed};
168
    $cell{closed}            = $subscription->{closed};
169
    #get the three latest serials.
169
    #get the three latest serials.
170
	$serials_to_display = $subscription->{staffdisplaycount};
170
    $serials_to_display = $subscription->{staffdisplaycount};
171
	$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display;
171
    $serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display;
172
	$cell{staffdisplaycount} = $serials_to_display;
172
    $cell{staffdisplaycount} = $serials_to_display;
173
    $cell{latestserials} =
173
    $cell{latestserials} = GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
174
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
175
    push @subs, \%cell;
174
    push @subs, \%cell;
176
}
175
}
177
176
178
179
# Get acquisition details
177
# Get acquisition details
180
if ( C4::Context->preference('AcquisitionDetails') ) {
178
if ( C4::Context->preference('AcquisitionDetails') ) {
181
    my $orders = C4::Acquisition::GetHistory( biblionumber => $biblionumber, get_canceled_order => 1 );
179
    my $orders = C4::Acquisition::GetHistory( biblionumber => $biblionumber, get_canceled_order => 1 );
Lines 242-248 foreach my $item (@items) { Link Here
242
    #get shelf location and collection code description if they are authorised value.
240
    #get shelf location and collection code description if they are authorised value.
243
    # same thing for copy number
241
    # same thing for copy number
244
    my $shelfcode = $item->{'location'};
242
    my $shelfcode = $item->{'location'};
245
    $item->{'location'} = $shelflocations->{$shelfcode} if ( defined( $shelfcode ) && defined($shelflocations) && exists( $shelflocations->{$shelfcode} ) );
243
    my $permshelfcode = $item->{'permanent_location'};
244
    $item->{'location'} = ( defined( $permshelfcode ) && defined($shelflocations) && exists( $shelflocations->{$permshelfcode} ) ) ? $shelflocations->{$permshelfcode} : undef;
245
    $item->{'location'} .= ' (' . $shelflocations->{$shelfcode} . ')' if ( defined( $shelfcode ) && defined($shelflocations) && exists($shelflocations->{$shelfcode} ) && ($shelfcode ne $permshelfcode) );
246
    my $ccode = $item->{'ccode'};
246
    my $ccode = $item->{'ccode'};
247
    $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
247
    $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
248
    my $copynumber = $item->{'copynumber'};
248
    my $copynumber = $item->{'copynumber'};
Lines 256-262 foreach my $item (@items) { Link Here
256
    my $ItemBorrowerReserveInfo = C4::Members::GetMember( borrowernumber => $reservedfor);
256
    my $ItemBorrowerReserveInfo = C4::Members::GetMember( borrowernumber => $reservedfor);
257
    
257
    
258
    if (C4::Context->preference('HidePatronName')){
258
    if (C4::Context->preference('HidePatronName')){
259
	$item->{'hidepatronname'} = 1;
259
        $item->{'hidepatronname'} = 1;
260
    }
260
    }
261
261
262
    if ( defined $reservedate ) {
262
    if ( defined $reservedate ) {
Lines 272-278 foreach my $item (@items) { Link Here
272
    }
272
    }
273
273
274
274
275
	# Check the transit status
275
    # Check the transit status
276
    my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
276
    my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
277
    if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
277
    if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
278
        $item->{transfertwhen} = $transfertwhen;
278
        $item->{transfertwhen} = $transfertwhen;
Lines 292-300 foreach my $item (@items) { Link Here
292
292
293
    if ($item->{biblionumber} ne $biblionumber){
293
    if ($item->{biblionumber} ne $biblionumber){
294
        $item->{hostbiblionumber} = $item->{biblionumber};
294
        $item->{hostbiblionumber} = $item->{biblionumber};
295
	$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
295
        $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
296
    }
296
    }
297
	
297
298
    #count if item is used in analytical bibliorecords
298
    #count if item is used in analytical bibliorecords
299
    my $countanalytics= GetAnalyticsCount($item->{itemnumber});
299
    my $countanalytics= GetAnalyticsCount($item->{itemnumber});
300
    if ($countanalytics > 0){
300
    if ($countanalytics > 0){
Lines 343-369 if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { Link Here
343
343
344
$template->param( norequests => $norequests );
344
$template->param( norequests => $norequests );
345
$template->param(
345
$template->param(
346
	MARCNOTES   => $marcnotesarray,
346
    MARCNOTES   => $marcnotesarray,
347
	MARCSUBJCTS => $marcsubjctsarray,
347
    MARCSUBJCTS => $marcsubjctsarray,
348
	MARCAUTHORS => $marcauthorsarray,
348
    MARCAUTHORS => $marcauthorsarray,
349
	MARCSERIES  => $marcseriesarray,
349
    MARCSERIES  => $marcseriesarray,
350
	MARCURLS => $marcurlsarray,
350
    MARCURLS => $marcurlsarray,
351
    MARCISBNS => $marcisbnsarray,
351
    MARCISBNS => $marcisbnsarray,
352
	MARCHOSTS => $marchostsarray,
352
    MARCHOSTS => $marchostsarray,
353
	subtitle    => $subtitle,
353
    subtitle    => $subtitle,
354
	itemdata_ccode      => $itemfields{ccode},
354
    itemdata_ccode      => $itemfields{ccode},
355
	itemdata_enumchron  => $itemfields{enumchron},
355
    itemdata_enumchron  => $itemfields{enumchron},
356
	itemdata_uri        => $itemfields{uri},
356
    itemdata_uri        => $itemfields{uri},
357
	itemdata_copynumber => $itemfields{copynumber},
357
    itemdata_copynumber => $itemfields{copynumber},
358
	itemdata_stocknumber => $itemfields{stocknumber},
358
    itemdata_stocknumber => $itemfields{stocknumber},
359
	volinfo				=> $itemfields{enumchron},
359
    volinfo => $itemfields{enumchron},
360
        itemdata_itemnotes  => $itemfields{itemnotes},
360
    itemdata_itemnotes  => $itemfields{itemnotes},
361
        itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
361
    itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
362
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
362
    z3950_search_params => C4::Search::z3950_search_args($dat),
363
        hostrecords         => $hostrecords,
363
    hostrecords         => $hostrecords,
364
	analytics_flag	=> $analytics_flag,
364
    analytics_flag => $analytics_flag,
365
	C4::Search::enabled_staff_search_views,
365
    C4::Search::enabled_staff_search_views,
366
        materials       => $materials_flag,
366
    materials       => $materials_flag,
367
);
367
);
368
368
369
if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {
369
if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {
(-)a/opac/opac-detail.pl (-3 / +5 lines)
Lines 666-673 if ( not $viewallitems and @items > $max_items_to_display ) { Link Here
666
    $itm->{'ccode'} = $collections->{$ccode} if defined($ccode) && $collections && exists( $collections->{$ccode} );
666
    $itm->{'ccode'} = $collections->{$ccode} if defined($ccode) && $collections && exists( $collections->{$ccode} );
667
    my $copynumber = $itm->{'copynumber'};
667
    my $copynumber = $itm->{'copynumber'};
668
    $itm->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumbers) && defined($copynumber) && exists( $copynumbers->{$copynumber} ) );
668
    $itm->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumbers) && defined($copynumber) && exists( $copynumbers->{$copynumber} ) );
669
    if ( defined $itm->{'location'} ) {
669
    if ( defined $itm->{'permanent_location'} ) {
670
        $itm->{'location_description'} = $shelflocations->{ $itm->{'location'} };
670
        $itm->{'location_description'} = $shelflocations->{ $itm->{'permanent_location'} };
671
    }
672
    if ( ( defined $itm->{'location'} ) && ( $itm->{'location'} ne $itm->{'permanent_location'} ) ) {
673
        $itm->{'location_description'} .= ' (' . $shelflocations->{ $itm->{'location'} } . ')';
671
    }
674
    }
672
    if (exists $itm->{itype} && defined($itm->{itype}) && exists $itemtypes->{ $itm->{itype} }) {
675
    if (exists $itm->{itype} && defined($itm->{itype}) && exists $itemtypes->{ $itm->{itype} }) {
673
        $itm->{'imageurl'}    = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} );
676
        $itm->{'imageurl'}    = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} );
674
- 

Return to bug 18355