Lines 2010-2015
sub AddReturn {
Link Here
|
2010 |
if ( $issue->{overdue} && $issue->{date_due} ) { |
2010 |
if ( $issue->{overdue} && $issue->{date_due} ) { |
2011 |
# fix fine days |
2011 |
# fix fine days |
2012 |
$today = $dropboxdate if $dropbox; |
2012 |
$today = $dropboxdate if $dropbox; |
|
|
2013 |
if ($borrower->{debarred}){ |
2014 |
my $borrower_debar_dt = dt_from_string( $borrower->{debarred} ); |
2015 |
$borrower_debar_dt->truncate(to => 'day'); |
2016 |
my $today_dt = $today->clone()->truncate(to => 'day'); |
2017 |
if ( DateTime->compare( $borrower_debar_dt, $today_dt ) != -1 ) { |
2018 |
$messages->{'PrevDebarred'} = $borrower->{'debarred'}; |
2019 |
} |
2020 |
} |
2013 |
my ($debardate,$reminder) = _debar_user_on_return( $borrower, $item, $issue->{date_due}, $today ); |
2021 |
my ($debardate,$reminder) = _debar_user_on_return( $borrower, $item, $issue->{date_due}, $today ); |
2014 |
if ($reminder){ |
2022 |
if ($reminder){ |
2015 |
$messages->{'PrevDebarred'} = $debardate; |
2023 |
$messages->{'PrevDebarred'} = $debardate; |
2016 |
- |
|
|