View | Details | Raw Unified | Return to bug 41086
Collapse All | Expand All

(-)a/C4/Scrubber.pm (+6 lines)
Lines 142-147 sub new { Link Here
142
    return $scrubber;
142
    return $scrubber;
143
}
143
}
144
144
145
sub get_allowed_list {
146
    my ( $self, $profile ) = @_;
147
    my $rules = $scrubbertypes{$profile};
148
    return $rules->{allow};
149
}
150
145
1;
151
1;
146
__END__
152
__END__
147
153
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/letter.tt (+12 lines)
Lines 519-524 Link Here
519
                        <input type="text" id="name" name="name" size="60" value="[% letter_name | html %]" required="required" />
519
                        <input type="text" id="name" name="name" size="60" value="[% letter_name | html %]" required="required" />
520
                        <span class="required">Required</span>
520
                        <span class="required">Required</span>
521
                    </li>
521
                    </li>
522
                    [% IF code == "VIRTUALCARD" && allowed_html %]
523
                        <li>
524
                            <label for="allowed_html">Allowed HTML:</label>
525
                            <div id="allowed_html">
526
                                <div>
527
                                    [% FOREACH allowed IN allowed_html %]
528
                                        <code>[% allowed | html %]</code>
529
                                    [% END %]
530
                                </div>
531
                            </div>
532
                        </li>
533
                    [% END %]
522
                    [% IF code and preview_is_available %]
534
                    [% IF code and preview_is_available %]
523
                        <li>
535
                        <li>
524
                            <label for="name">Data for preview:</label>
536
                            <label for="name">Data for preview:</label>
(-)a/tools/letter.pl (-4 / +11 lines)
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
- 

Return to bug 41086