|
Lines 1950-1955
sub AddReturn {
Link Here
|
| 1950 |
} |
1950 |
} |
| 1951 |
} |
1951 |
} |
| 1952 |
|
1952 |
|
|
|
1953 |
my $show_checkin_message = 0; |
| 1953 |
# fix up the overdues in accounts... |
1954 |
# fix up the overdues in accounts... |
| 1954 |
if ($borrowernumber) { |
1955 |
if ($borrowernumber) { |
| 1955 |
my $fix = _FixOverduesOnReturn($borrowernumber, $item->{itemnumber}, $exemptfine, $dropbox); |
1956 |
my $fix = _FixOverduesOnReturn($borrowernumber, $item->{itemnumber}, $exemptfine, $dropbox); |
|
Lines 1964-1971
sub AddReturn {
Link Here
|
| 1964 |
} else { |
1965 |
} else { |
| 1965 |
$messages->{'Debarred'} = $debardate if $debardate; |
1966 |
$messages->{'Debarred'} = $debardate if $debardate; |
| 1966 |
} |
1967 |
} |
|
|
1968 |
if (!$debardate && $borrower->{debarred}) { |
| 1969 |
$show_checkin_message = 1; |
| 1970 |
} |
| 1967 |
# there's no overdue on the item but borrower had been previously debarred |
1971 |
# there's no overdue on the item but borrower had been previously debarred |
| 1968 |
} elsif ( $issue->{date_due} and $borrower->{'debarred'} ) { |
1972 |
} elsif ( $issue->{date_due} and $borrower->{'debarred'} ) { |
|
|
1973 |
$show_checkin_message = 1; |
| 1974 |
} |
| 1975 |
|
| 1976 |
if ($show_checkin_message) { |
| 1969 |
if ( $borrower->{debarred} eq "9999-12-31") { |
1977 |
if ( $borrower->{debarred} eq "9999-12-31") { |
| 1970 |
$messages->{'ForeverDebarred'} = $borrower->{'debarred'}; |
1978 |
$messages->{'ForeverDebarred'} = $borrower->{'debarred'}; |
| 1971 |
} else { |
1979 |
} else { |
|
Lines 1975-1981
sub AddReturn {
Link Here
|
| 1975 |
if ( DateTime->compare( $borrower_debar_dt, $today_dt ) != -1 ) { |
1983 |
if ( DateTime->compare( $borrower_debar_dt, $today_dt ) != -1 ) { |
| 1976 |
$messages->{'PrevDebarred'} = $borrower->{'debarred'}; |
1984 |
$messages->{'PrevDebarred'} = $borrower->{'debarred'}; |
| 1977 |
} |
1985 |
} |
| 1978 |
} |
1986 |
} |
| 1979 |
} |
1987 |
} |
| 1980 |
} |
1988 |
} |
| 1981 |
|
1989 |
|
| 1982 |
- |
|
|