|
Lines 46-52
use C4::Koha; # FIXME : is it still useful ?
Link Here
|
| 46 |
use C4::RotatingCollections; |
46 |
use C4::RotatingCollections; |
| 47 |
use Koha::DateUtils; |
47 |
use Koha::DateUtils; |
| 48 |
use Koha::Calendar; |
48 |
use Koha::Calendar; |
| 49 |
use C4::Dates qw/format_date/; |
|
|
| 50 |
|
49 |
|
| 51 |
my $query = new CGI; |
50 |
my $query = new CGI; |
| 52 |
|
51 |
|
|
Lines 471-477
foreach my $code ( keys %$messages ) {
Link Here
|
| 471 |
$err{debarname} = "$borrower->{firstname} $borrower->{surname}"; |
470 |
$err{debarname} = "$borrower->{firstname} $borrower->{surname}"; |
| 472 |
} |
471 |
} |
| 473 |
elsif ( $code eq 'PrevDebarred' ) { |
472 |
elsif ( $code eq 'PrevDebarred' ) { |
| 474 |
$err{prevdebarred} = format_date( $messages->{'PrevDebarred'} ); |
473 |
$err{prevdebarred} = $messages->{'PrevDebarred'}; |
| 475 |
} |
474 |
} |
| 476 |
else { |
475 |
else { |
| 477 |
die "Unknown error code $code"; # note we need all the (empty) elsif's above, or we die. |
476 |
die "Unknown error code $code"; # note we need all the (empty) elsif's above, or we die. |