|
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 |
- |
|
|