|
Lines 46-54
use Try::Tiny;
Link Here
|
| 46 |
|
46 |
|
| 47 |
use C4::Auth qw( get_template_and_user ); |
47 |
use C4::Auth qw( get_template_and_user ); |
| 48 |
use C4::Context; |
48 |
use C4::Context; |
| 49 |
use C4::Output qw( output_html_with_http_headers ); |
49 |
use C4::Output qw( output_html_with_http_headers ); |
| 50 |
use C4::Letters qw( GetMessageTransportTypes ); |
50 |
use C4::Letters qw( GetMessageTransportTypes ); |
| 51 |
use C4::Log qw( logaction ); |
51 |
use C4::Log qw( logaction ); |
|
|
52 |
use C4::Scrubber qw( get_allowed_list ); |
| 52 |
use Koha::Notice::Templates; |
53 |
use Koha::Notice::Templates; |
| 53 |
use Koha::Patron::Attribute::Types; |
54 |
use Koha::Patron::Attribute::Types; |
| 54 |
|
55 |
|
|
Lines 304-309
sub add_form {
Link Here
|
| 304 |
$preview_is_available = grep { $_ eq $code } qw( CHECKIN CHECKOUT HOLD_SLIP ); |
305 |
$preview_is_available = grep { $_ eq $code } qw( CHECKIN CHECKOUT HOLD_SLIP ); |
| 305 |
} |
306 |
} |
| 306 |
|
307 |
|
|
|
308 |
if ( $code && $code eq 'VIRTUALCARD' ) { |
| 309 |
my $allowed_html = C4::Scrubber->get_allowed_list('opac'); |
| 310 |
$template->param( |
| 311 |
allowed_html => $allowed_html, |
| 312 |
); |
| 313 |
} |
| 314 |
|
| 307 |
$template->param( |
315 |
$template->param( |
| 308 |
module => $module, |
316 |
module => $module, |
| 309 |
SQLfieldnames => $field_selection, |
317 |
SQLfieldnames => $field_selection, |
| 310 |
- |
|
|