1 <& /Admin/Elements/Header, Title => $title &>
3 <& /Admin/Elements/GroupTabs, GroupObj => $Group &>
4 <& /Elements/ListActions, actions => \@results &>
7 <& /Elements/TitleBoxStart, title => $title &>
9 <FORM ACTION="<%$RT::WebPath%>/Admin/Groups/Modify.html" METHOD=POST>
11 %unless ($Group->Id) {
12 <INPUT TYPE=HIDDEN NAME=id VALUE="new">
14 <INPUT TYPE=HIDDEN NAME=id VALUE="<%$Group->Id%>">
20 <TD><INPUT name="Name" value="<%$Group->Name%>"></TD>
23 Description:</TD><TD COLSPAN=3><INPUT name="Description" value="<%$Group->Description%>" size=60></TD></TR>
25 <& /Elements/TitleBoxEnd &>
27 <& /Elements/Submit &>
34 my $Group = new RT::Group($session{'CurrentUser'});
37 $title = "Create a new group";
44 $Group->Create(Name => "$Name") || Abort ("Group could not be created.");
48 $Group->Load($id) || Abort('Could not load group');
53 $title = "Modify the group ". $Group->Name;
57 # If the create failed
59 $title = "Create a new group";
67 my @fields = qw(Description Name );
68 my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields,
71 push (@results,@fieldresults);