2 my $msgclass = 'email';
3 if ( $cgi->param('msgnum') =~ /^(\d+)$/ ) {
4 my $msg_template = FS::msg_template->by_key($1)
5 or die "unknown msgnum $1";
6 $msgclass = $msg_template->msgclass;
8 print $cgi->redirect($fsurl."edit/msg_template/$msgclass.html?".$cgi->query_string);