</TD>
</TR>
- <TR>
- <TH ALIGN="right">Hide package changes: </TH>
- <TD COLSPAN=2>
- <& /elements/select.html,
- field => 'hide_package_changes',
- options => [ '', 'location', 'all' ],
- labels => { '' => 'never',
- 'location' => 'location changes',
- 'all' => 'all package changes',
- },
- curr_value => ($cgi->param('hide_package_changes')
- || $curuser->option('hide_package_changes')),
- &>
- </TD>
- </TR>
-
% my $history_order = $curuser->option('history_order') || 'oldest';
<TR>
<TH ALIGN="right">Customer history sort order: </TH>
=~ /^(\w+)$/ or die "illegal menu_position";
my $menu_position = $1;
( $curuser->option('email_address') )
- =~ /^([,\w\@.]*)$/ or die "illegal email_address"; #too late
+ =~ /^([,\w\@.\-]*)$/ or die "illegal email_address"; #too late
my $email_address = $1;
</%init>