Lines 46-51
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/; |
49 |
|
50 |
|
50 |
my $query = new CGI; |
51 |
my $query = new CGI; |
51 |
|
52 |
|
Lines 469-474
foreach my $code ( keys %$messages ) {
Link Here
|
469 |
$err{debarborrowernumber} = $borrower->{borrowernumber}; |
470 |
$err{debarborrowernumber} = $borrower->{borrowernumber}; |
470 |
$err{debarname} = "$borrower->{firstname} $borrower->{surname}"; |
471 |
$err{debarname} = "$borrower->{firstname} $borrower->{surname}"; |
471 |
} |
472 |
} |
|
|
473 |
elsif ( $code eq 'PrevDebarred' ) { |
474 |
$err{prevdebarred} = format_date( $messages->{'PrevDebarred'} ); |
475 |
} |
472 |
else { |
476 |
else { |
473 |
die "Unknown error code $code"; # note we need all the (empty) elsif's above, or we die. |
477 |
die "Unknown error code $code"; # note we need all the (empty) elsif's above, or we die. |
474 |
# This forces the issue of staying in sync w/ Circulation.pm |
478 |
# This forces the issue of staying in sync w/ Circulation.pm |