blob: 269a925dcb371e91f8533b464f331b1274101729 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
%if ( $cgi->param('_type') eq 'html' || $cgi->param('_type') eq 'html-print' ) {
<H2>Part IV</H2>
%} elsif ( $cgi->param('_type') eq 'xml' ) {
<notes>
%}
<% $cgi->param('notes') |h %>
%if ( $cgi->param('_type') eq 'xml' ) {
</notes>
%}
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied"
unless $curuser->access_right('List packages');
</%init>
|