Lines 40-45
use C4::XSLT;
Link Here
|
40 |
use C4::ShelfBrowser; |
40 |
use C4::ShelfBrowser; |
41 |
use C4::Reserves; |
41 |
use C4::Reserves; |
42 |
use C4::Charset; |
42 |
use C4::Charset; |
|
|
43 |
use C4::Letters; |
43 |
use MARC::Record; |
44 |
use MARC::Record; |
44 |
use MARC::Field; |
45 |
use MARC::Field; |
45 |
use List::MoreUtils qw/any none/; |
46 |
use List::MoreUtils qw/any none/; |
Lines 568-582
foreach my $subscription (@subscriptions) {
Link Here
|
568 |
$cell{histstartdate} = $subscription->{histstartdate}; |
569 |
$cell{histstartdate} = $subscription->{histstartdate}; |
569 |
$cell{histenddate} = $subscription->{histenddate}; |
570 |
$cell{histenddate} = $subscription->{histenddate}; |
570 |
$cell{branchcode} = $subscription->{branchcode}; |
571 |
$cell{branchcode} = $subscription->{branchcode}; |
571 |
$cell{hasalert} = $subscription->{hasalert}; |
|
|
572 |
$cell{callnumber} = $subscription->{callnumber}; |
572 |
$cell{callnumber} = $subscription->{callnumber}; |
573 |
$cell{closed} = $subscription->{closed}; |
573 |
$cell{closed} = $subscription->{closed}; |
|
|
574 |
$cell{letter} = $subscription->{letter}; |
575 |
$cell{biblionumber} = $subscription->{biblionumber}; |
574 |
#get the three latest serials. |
576 |
#get the three latest serials. |
575 |
$serials_to_display = $subscription->{opacdisplaycount}; |
577 |
$serials_to_display = $subscription->{opacdisplaycount}; |
576 |
$serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display; |
578 |
$serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display; |
577 |
$cell{opacdisplaycount} = $serials_to_display; |
579 |
$cell{opacdisplaycount} = $serials_to_display; |
578 |
$cell{latestserials} = |
580 |
$cell{latestserials} = |
579 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
581 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
|
|
582 |
if ( $borrowernumber ) { |
583 |
my $sub = getalert($borrowernumber,'issue',$subscription->{subscriptionid}); |
584 |
if (@$sub[0]) { |
585 |
$cell{hasalert} = 1; |
586 |
} |
587 |
} |
580 |
push @subs, \%cell; |
588 |
push @subs, \%cell; |
581 |
} |
589 |
} |
582 |
|
590 |
|
583 |
- |
|
|