Lines 69-75
my $issn = $query->param('issn');
Link Here
|
69 |
my $branch = $query->param('branch'); |
69 |
my $branch = $query->param('branch'); |
70 |
my $date = $query->param('date'); |
70 |
my $date = $query->param('date'); |
71 |
$date = eval { dt_from_string( scalar $query->param('date') ) } if $date; |
71 |
$date = eval { dt_from_string( scalar $query->param('date') ) } if $date; |
72 |
my $showhistoricexpired = $query->param('showhistoryexpired'); |
72 |
my $showhistoricexpired = $query->param('showhistoricexpired'); |
73 |
|
73 |
|
74 |
if ($date) { |
74 |
if ($date) { |
75 |
my @subscriptions = SearchSubscriptions({ title => $title, issn => $issn, orderby => 'title' }); |
75 |
my @subscriptions = SearchSubscriptions({ title => $title, issn => $issn, orderby => 'title' }); |
Lines 96-102
if ($date) {
Link Here
|
96 |
my $expirationdate_dt = dt_from_string( $expirationdate, 'iso' ); |
96 |
my $expirationdate_dt = dt_from_string( $expirationdate, 'iso' ); |
97 |
my $today_dt = dt_from_string(); |
97 |
my $today_dt = dt_from_string(); |
98 |
if ( DateTime->compare( $date, $expirationdate_dt ) == 1 |
98 |
if ( DateTime->compare( $date, $expirationdate_dt ) == 1 |
99 |
&& ( $showhistoricexpired || DateTime->compare( $expiration_dt, $today_dt ) == 1 ) |
99 |
&& ( $showhistoricexpired || DateTime->compare( $expirationdate_dt, $today_dt ) == 1 ) |
100 |
&& ( !$branch || ( $subscription->{'branchcode'} eq $branch ) ) ) { |
100 |
&& ( !$branch || ( $subscription->{'branchcode'} eq $branch ) ) ) { |
101 |
push @subscriptions_loop, $subscription; |
101 |
push @subscriptions_loop, $subscription; |
102 |
} |
102 |
} |
103 |
- |
|
|