<& /Admin/Elements/Header, Title => 'Modify user '. $UserObj->UserId &> <& /Admin/Elements/UserTabs, id => $id, current_subtab => '/Admin/Elements/Modify.html?id='.$id &> <& /Elements/ListActions, actions => \@results &> <& /Elements/TitleBoxStart, title => $title &>
%if ($Create) { % } else { % }
<& /Elements/TitleBoxStart, title => 'Identity' &> RT UserId:
Name:
Nickname:
Email:
Unix login:
Extra info: <& /Elements/TitleBoxEnd &>
<& /Elements/TitleBoxStart, title => 'Access control' &> > Privileged user. (Can be granted rights.)
New Password:
Retype Password:
<& /Elements/TitleBoxEnd &>
<& /Elements/TitleBoxStart, title => 'Location' &> Organization:
Address1:
Address2:
City: State: Zip:
Country:
<& /Elements/TitleBoxEnd &>
<& /Elements/TitleBoxStart, title => 'Phone numbers' &> Home: Work: Mobile: Pager: <& /Elements/TitleBoxEnd &>
<& /Elements/TitleBoxStart, title => 'Comments about this user' &> <& /Elements/TitleBoxEnd &> %if ($UserObj->Privileged) {
<& /Elements/TitleBoxStart, title => 'Signature' &> <& /Elements/TitleBoxEnd &> % }
<& /Elements/TitleBoxEnd &> <& /Elements/Submit &>
<%INIT> my $UserObj = new RT::User($session{'CurrentUser'}); my ($title, $PrivilegedChecked); if ($Create) { $title = "Create a new user"; } else { if ($id eq 'new') { $UserObj->Create( UserId => $UserId ); } else { $UserObj->Load($id) || $UserObj->Load($UserId) || Abort("Couldn't load user '$UserId'"); } $title = "Modify the user ". $UserObj->UserId; } { my @fields = qw(UserId Comments Signature EmailAddress FreeformContactInfo Organization RealName NickName Lang EmailEncoding WebEncoding ExternalContactInfoId ContactInfoSystem Gecos ExternalAuthId AuthSystem HomePhone WorkPhone MobilePhone PagerPhone Address1 Address2 City State Zip Country ); #Run through each field in this list. update the value if apropriate my $field; foreach $field (@fields) { my ($code, $msg); my $check = "if ((defined \$$field) and ( \$UserObj->$field ne \$$field )) {;; (\$code, \$msg) = \$UserObj->Set$field(\$$field); push \@results, \$msg; } "; eval $check; } } if ( ($SetPrivileged) and ( $Privileged != $UserObj->Privileged) ) { my ($code, $msg) = $UserObj->SetPrivileged($Privileged); push @results, $msg;; } #TODO: make this report errors properly if ((defined $Pass1) and ($Pass1 ne '') and ($Pass1 eq $Pass2) and (!$UserObj->IsPassword($Pass1))) { my ($code, $msg); ($code, $msg) = $UserObj->SetPassword($Pass1); push @results, $msg; } if ($UserObj->Privileged()) { $PrivilegedChecked = "CHECKED"; } <%ARGS> $id => undef $result => undef @results => undef $UserId => undef $Comments => undef $Signature => undef $EmailAddress => undef $FreeformContactInfo => undef $Organization => undef $RealName => undef $NickName => undef $Privileged => undef $SetPrivileged => undef $Lang => undef $EmailEncoding => undef $WebEncoding => undef $ExternalContactInfoId => undef $ContactInfoSystem => undef $Gecos => undef $ExternalAuthId => undef $AuthSystem => undef $HomePhone => undef $WorkPhone => undef $MobilePhone => undef $PagerPhone => undef $Address1 => undef $Address2 => undef $City => undef $State => undef $Zip => undef $Country => undef $Pass1 => undef $Pass2=> undef $Create=> undef