httemplate/edit/msg_template.html

   1 <%init>
   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;
   7 }
   8 print $cgi->redirect($fsurl."edit/msg_template/$msgclass.html?".$cgi->query_string);
   9 </%init>