<& /Admin/Elements/Header, title => "Modify template ".$TemplateObj->id&> <& /Admin/Elements/QueueTabs, id => $Queue &> <& /Elements/ListActions, actions => \@results &> <& /Elements/TitleBoxStart, title => $title &>

%if ($create ) { % } else { % } %# hang onto the queue id Name:
Description:
<%$TemplateObj->Content%> <& /Elements/TitleBoxEnd&> <&/Elements/Submit&>

<%INIT> my $TemplateObj = new RT::Template($session{'CurrentUser'}); my ($title, @results); if ($create) { $title = "Create a template"; } else { if ($template eq 'new') { my ($val, $msg) = $TemplateObj->Create(Queue => $Queue, Name => $Name); Abort("Could not create template: $msg") unless ($val); push @results, $msg; $title = 'Created template ' . $TemplateObj->Name(); } else { $TemplateObj->Load($template) || Abort('No Template'); $title = 'Editing template ' . $TemplateObj->Name(); } } if ($TemplateObj->Id()) { $Queue = $TemplateObj->Queue; my @attribs = qw( Description Content Queue Name); my @aresults = UpdateRecordObject( AttributesRef => \@attribs, Object => $TemplateObj, ARGSRef => \%ARGS); push @results, @aresults; } <%ARGS> $Queue => undef $template => undef $create => undef $Name => undef