<& /Admin/Elements/Header, title => "Modify template ".$TemplateObj->id&> <& /Admin/Elements/QueueTabs, id => $id &> <& /Elements/ListActions, actions => @results &> <& /Elements/TitleBoxStart, title => "Modify Template ".$TemplateObj->id &>
Name:
Title:
<& /Elements/TitleBoxEnd&> <&/Elements/Submit&>
<%INIT> my $TemplateObj = new RT::Template($session{'CurrentUser'}); $TemplateObj->Load($template) || Abort('No template specified'); # Deal with updating individual fields where we're doing something to watch # what goes in and out my @fields = qw( Title Content Queue Alias); #Run through each field in this list. update the value if apropriate my ($field); my @results = (''); foreach $field (@fields) { my ($code, $msg); my $check = "if ((defined \$ARGS{'$field'}) and (\$ARGS{'$field'} ne \$TemplateObj->$field)) { \$ARGS{'$field'} =~ s/\\r\\n/\\n/g; (\$code, \$msg) = \$TemplateObj->Set$field(\$ARGS{'$field'}); push \@results, \$msg; }"; $RT::Logger->debug("$check"); eval $check || push @results, $@; } <%ARGS> $id => undef $template => undef