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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/checkexpiration.tt (-3 / +7 lines)
Lines 45-51 Link Here
45
<fieldset class="rows">
45
<fieldset class="rows">
46
    <legend>Filter results :</legend>
46
    <legend>Filter results :</legend>
47
    
47
    
48
         <ol>
48
        <ol>
49
        <li><label for="title">Title:</label>
49
        <li><label for="title">Title:</label>
50
        <input id="title" type="text" name="title" size="15" value="[% title %]" /></li>
50
        <input id="title" type="text" name="title" size="15" value="[% title %]" /></li>
51
51
Lines 65-72 Link Here
65
                );
65
                );
66
            </script> <span class="required">Required</span>
66
            </script> <span class="required">Required</span>
67
			<div class="hint">[% INCLUDE 'date-format.inc' %]</div></li>
67
			<div class="hint">[% INCLUDE 'date-format.inc' %]</div></li>
68
			</ol>
68
        <li>
69
        
69
            <label for="showexpiredtoday">Show expired before today:</label>
70
            <input id="showexpiredtoday" type="checkbox" name="showexpiredtoday"
71
            [% IF ( showexpiredtoday ) %] checked="checked" [% END %]/>
72
        </li>
73
        </ol>
70
</fieldset>
74
</fieldset>
71
<fieldset class="action"><input type="submit" value="Search" /></fieldset>
75
<fieldset class="action"><input type="submit" value="Search" /></fieldset>
72
</form>
76
</form>
(-)a/serials/checkexpiration.pl (-3 / +5 lines)
Lines 68-73 my ( $template, $loggedinuser, $cookie ) = get_template_and_user ( Link Here
68
my $title = $query->param('title');
68
my $title = $query->param('title');
69
my $issn  = $query->param('issn');
69
my $issn  = $query->param('issn');
70
my $date  = format_date_in_iso($query->param('date'));
70
my $date  = format_date_in_iso($query->param('date'));
71
my $showexpiredtoday = $query->param('showexpiredtoday');
71
72
72
if ($date) {
73
if ($date) {
73
    my @subscriptions = GetSubscriptions( $title, $issn );
74
    my @subscriptions = GetSubscriptions( $title, $issn );
Lines 78-86 if ($date) { Link Here
78
        my $expirationdate = GetExpirationDate($subscriptionid);
79
        my $expirationdate = GetExpirationDate($subscriptionid);
79
80
80
        $subscription->{expirationdate} = $expirationdate;
81
        $subscription->{expirationdate} = $expirationdate;
81
        next if $expirationdate !~ /\d{4}-\d{2}-\d{2}/; # next if not in ISO format.
82
        next if !$expirationdate || $expirationdate !~ /\d{4}-\d{2}-\d{2}/; # next if not in ISO format.
82
        if ( Date_to_Days(split "-",$expirationdate) < Date_to_Days(split "-",$date) &&
83
        if ( Date_to_Days(split "-",$expirationdate) < Date_to_Days(split "-",$date) &&
83
			 Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today) ) {
84
            (($showexpiredtoday && $showexpiredtoday eq 'on') || (Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today))) 
85
            ) {
84
            $subscription->{expirationdate}=format_date($subscription->{expirationdate});
86
            $subscription->{expirationdate}=format_date($subscription->{expirationdate});
85
            push @subscriptions_loop,$subscription;
87
            push @subscriptions_loop,$subscription;
86
        }
88
        }
Lines 89-94 if ($date) { Link Here
89
    $template->param (
91
    $template->param (
90
        title           => $title,
92
        title           => $title,
91
        issn            => $issn,
93
        issn            => $issn,
94
        showexpiredtoday => $showexpiredtoday,
92
        numsubscription => scalar @subscriptions_loop,
95
        numsubscription => scalar @subscriptions_loop,
93
        date => format_date($date),
96
        date => format_date($date),
94
        subscriptions_loop => \@subscriptions_loop,
97
        subscriptions_loop => \@subscriptions_loop,
95
- 

Return to bug 6968