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

(-)a/circ/circulation.pl (-9 / +1 lines)
Lines 268-282 if ($borrowernumber) { Link Here
268
    $borrower = GetMemberDetails( $borrowernumber, 0 );
268
    $borrower = GetMemberDetails( $borrowernumber, 0 );
269
    my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber );
269
    my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber );
270
270
271
    # Warningdate is the date that the warning starts appearing
272
    my (  $today_year,   $today_month,   $today_day) = Today();
273
    my ($warning_year, $warning_month, $warning_day) = split /-/, $borrower->{'dateexpiry'};
274
    my (  $enrol_year,   $enrol_month,   $enrol_day) = split /-/, $borrower->{'dateenrolled'};
275
    # if the expiry date is before today ie they have expired
271
    # if the expiry date is before today ie they have expired
276
    if ( !$borrower->{'dateexpiry'} || $warning_year*$warning_month*$warning_day==0
272
    if ( $patron->is_expired ) {
277
        || Date_to_Days($today_year,     $today_month, $today_day  ) 
278
         > Date_to_Days($warning_year, $warning_month, $warning_day) )
279
    {
280
        #borrowercard expired, no issues
273
        #borrowercard expired, no issues
281
        $template->param(
274
        $template->param(
282
            noissues => ($force_allow_issue) ? 0 : "1",
275
            noissues => ($force_allow_issue) ? 0 : "1",
283
- 

Return to bug 17583