diff options
Diffstat (limited to 'rt/webrt/Admin/Groups/Modify.html')
-rw-r--r-- | rt/webrt/Admin/Groups/Modify.html | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/rt/webrt/Admin/Groups/Modify.html b/rt/webrt/Admin/Groups/Modify.html deleted file mode 100644 index 7104a6937..000000000 --- a/rt/webrt/Admin/Groups/Modify.html +++ /dev/null @@ -1,83 +0,0 @@ -<& /Admin/Elements/Header, Title => $title &> - -<& /Admin/Elements/GroupTabs, GroupObj => $Group &> -<& /Elements/ListActions, actions => \@results &> - - -<& /Elements/TitleBoxStart, title => $title &> - -<FORM ACTION="<%$RT::WebPath%>/Admin/Groups/Modify.html" METHOD=POST> - -%unless ($Group->Id) { -<INPUT TYPE=HIDDEN NAME=id VALUE="new"> -% } else { -<INPUT TYPE=HIDDEN NAME=id VALUE="<%$Group->Id%>"> -% } -<TABLE> -<TR><TD ALIGN=RIGHT> -Name: -</TD> -<TD><INPUT name="Name" value="<%$Group->Name%>"></TD> -</TR><TR> -<TD ALIGN=RIGHT> -Description:</TD><TD COLSPAN=3><INPUT name="Description" value="<%$Group->Description%>" size=60></TD></TR> -</TABLE> -<& /Elements/TitleBoxEnd &> - -<& /Elements/Submit &> -</form> -<%INIT> - -my ($title); -my (@results); - -my $Group = new RT::Group($session{'CurrentUser'}); - -if ($Create) { - $title = "Create a new group"; -} - -else { - - if ($id eq 'new' ) { - - $Group->Create(Name => "$Name") || Abort ("Group could not be created."); - $id = $Group->Id; - } - else { - $Group->Load($id) || Abort('Could not load group'); - } - - - if ($id) { - $title = "Modify the group ". $Group->Name; - - } - - # If the create failed - else { - $title = "Create a new group"; - $Create = 1; - } - -} - -if ($id) { - - my @fields = qw(Description Name ); - my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields, - Object => $Group, - ARGSRef => \%ARGS ); - push (@results,@fieldresults); -} - - -</%INIT> - - -<%ARGS> -$Create => undef -$Name => undef -$Description => undef -$id => undef -</%ARGS> |