Lines 1946-1956
sub AddReturn {
Link Here
|
1946 |
} |
1946 |
} |
1947 |
# there's no overdue on the item but borrower had been previously debarred |
1947 |
# there's no overdue on the item but borrower had been previously debarred |
1948 |
} elsif ( $issue->{date_due} and $borrower->{'debarred'} ) { |
1948 |
} elsif ( $issue->{date_due} and $borrower->{'debarred'} ) { |
1949 |
my $borrower_debar_dt = dt_from_string( $borrower->{debarred} ); |
1949 |
if ( $borrower->{debarred} eq "9999-12-31") { |
1950 |
$borrower_debar_dt->truncate(to => 'day'); |
1950 |
$messages->{'ForeverDebarred'} = $borrower->{'debarred'}; |
1951 |
my $today_dt = $today->clone()->truncate(to => 'day'); |
1951 |
} else { |
1952 |
if ( DateTime->compare( $borrower_debar_dt, $today_dt ) != -1 ) { |
1952 |
my $borrower_debar_dt = dt_from_string( $borrower->{debarred} ); |
1953 |
$messages->{'PrevDebarred'} = $borrower->{'debarred'}; |
1953 |
$borrower_debar_dt->truncate(to => 'day'); |
|
|
1954 |
my $today_dt = $today->clone()->truncate(to => 'day'); |
1955 |
if ( DateTime->compare( $borrower_debar_dt, $today_dt ) != -1 ) { |
1956 |
$messages->{'PrevDebarred'} = $borrower->{'debarred'}; |
1957 |
} |
1954 |
} |
1958 |
} |
1955 |
} |
1959 |
} |
1956 |
} |
1960 |
} |