rt/share/html/Admin/Users/Modify.html

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  26 %# 02110-1301 or visit their web page on the internet at
  27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
  28 %#
  29 %#
  30 %# CONTRIBUTION SUBMISSION POLICY:
  31 %#
  32 %# (The following paragraph is not intended to limit the rights granted
  33 %# to you to modify and distribute this software under the terms of
  34 %# the GNU General Public License and is only of importance to you if
  35 %# you choose to contribute your changes and enhancements to the
  36 %# community by submitting them to Best Practical Solutions, LLC.)
  37 %#
  38 %# By intentionally submitting any modifications, corrections or
  39 %# derivatives to this work, or any other work intended for use with
  40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  41 %# you are the copyright holder for those contributions and you grant
  42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  43 %# royalty-free, perpetual, license to use, copy, create derivative
  44 %# works based on those contributions, and sublicense and distribute
  45 %# those contributions and any derivatives thereof.
  46 %#
  47 %# END BPS TAGGED BLOCK }}}
  48 <& /Admin/Elements/Header, Title => $title  &>
  49 <& /Admin/Elements/UserTabs,
  50     id => $id,
  51     UserObj => $UserObj,
  52     current_tab => $current_tab,
  53     Title => $title &>
  54
  55 <& /Elements/ListActions, actions => \@results &>
  56
  57 <form action="<%RT->Config->Get('WebPath')%>/Admin/Users/Modify.html" method="post" enctype="multipart/form-data">
  58 %if ($Create) {
  59 <input type="hidden" class="hidden" name="id" value="new" />
  60 % } else {
  61 <input type="hidden" class="hidden" name="id" value="<%$UserObj->Id%>" />
  62 % }
  63 <table width="100%" border="0">
  64 <tr>
  65
  66 <td valign="top" class="boxcontainer">
  67 <&| /Widgets/TitleBox, title => loc('Identity') &>
  68
  69 <table>
  70 <tr><td align="right">
  71 <&|/l&>Username</&>:
  72 </td><td>
  73 <input name="Name" value="<%$UserObj->Name||''%>" /> <strong><&|/l&>(required)</&></strong>
  74 </td></tr>
  75 <tr><td align="right">
  76 <&|/l&>Email</&>:
  77 </td><td>
  78 <input name="EmailAddress" value="<%$UserObj->EmailAddress||''%>" />
  79 </td></tr>
  80 <tr><td align="right">
  81 <&|/l&>Real Name</&>:
  82 </td><td>
  83 <input name="RealName" value="<%$UserObj->RealName||''%>" />
  84 </td></tr>
  85 <tr><td align="right">
  86 <&|/l&>Nickname</&>:
  87 </td><td>
  88 <input name="NickName" value="<%$UserObj->NickName||''%>" />
  89 </td></tr>
  90 <tr><td align="right">
  91 <&|/l&>Unix login</&>:
  92 </td><td>
  93 <input name="Gecos" value="<%$UserObj->Gecos||''%>" />
  94 </td></tr>
  95 <tr><td align="right">
  96 <&|/l&>Language</&>:
  97 </td><td>
  98 <& /Elements/SelectLang, Name => 'Lang', Default => $UserObj->Lang &>
  99 </td></tr>
 100 <tr><td align="right">
 101 <&|/l&>Extra info</&>:
 102 </td><td>
 103 <textarea name="FreeformContactInfo" cols="20" rows="5"><%$UserObj->FreeformContactInfo||''%></textarea>
 104 </td></tr>
 105 </table>
 106 </&>
 107 <br />
 108 <&| /Widgets/TitleBox, title => loc('Access control') &>
 109 <input type="hidden" class="hidden" name="SetEnabled" value="1" />
 110 <input type="checkbox" class="checkbox" name="Enabled" value="1" <%$EnabledChecked%> />
 111 <&|/l&>Let this user access RT</&><br />
 112
 113
 114 <input type="hidden" class="hidden" name="SetPrivileged" value="1" />
 115 <input type="checkbox" class="checkbox" name="Privileged" value="1" <%$PrivilegedChecked||''%> /> <&|/l&>Let this user be granted rights</&><br />
 116
 117 % unless (RT->Config->Get('WebExternalAuth') and !RT->Config->Get('WebFallbackToInternalAuth')) {
 118 <table>
 119 <tr>
 120 <td align="right">
 121 <&|/l&>New Password</&>:
 122 </td>
 123 <td align="left">
 124 <input type="password" name="Pass1" autocomplete="off" />
 125 </td>
 126 </tr>
 127 <tr><td align="right">
 128 <&|/l&>Retype Password</&>:
 129 </td>
 130 <td>
 131 <input type="password" name="Pass2" autocomplete="off" />
 132 </td>
 133 </tr>
 134 </table>
 135 % }
 136 </&>
 137 % $m->callback( %ARGS, CallbackName => 'LeftColumnBottom', UserObj => $UserObj );
 138 </td>
 139
 140 <td valign="top" class="boxcontainer">
 141 <&| /Widgets/TitleBox, title => loc('Location') &>
 142 <table>
 143 <tr><td align="right">
 144 <&|/l&>Organization</&>:
 145 </td><td>
 146 <input name="Organization" value="<%$UserObj->Organization||''%>" />
 147 </td></tr>
 148 <tr><td align="right">
 149 <&|/l&>Address1</&>:
 150 </td><td>
 151 <input name="Address1" value="<%$UserObj->Address1||''%>" />
 152 </td></tr>
 153 <tr><td align="right">
 154 <&|/l&>Address2</&>:
 155 </td><td>
 156 <input name="Address2" value="<%$UserObj->Address2||''%>" />
 157 </td></tr>
 158 <tr><td align="right">
 159 <&|/l&>City</&>:
 160 </td><td>
 161 <input name="City" value="<%$UserObj->City||''%>" size="14" />
 162
 163 </td></tr>
 164 <tr><td align="right">
 165 <&|/l&>State</&>:
 166 </td><td>
 167 <input name="State" value="<%$UserObj->State||''%>" size="3" />
 168
 169 </td></tr>
 170 <tr><td align="right">
 171 <&|/l&>Zip</&>:
 172 </td><td>
 173 <input name="Zip" value="<%$UserObj->Zip||''%>" size="9" />
 174 </td></tr>
 175 <tr><td align="right">
 176 <&|/l&>Country</&>:
 177 </td><td>
 178 <input name="Country" value="<%$UserObj->Country||''%>" />
 179 </td></tr>
 180 </table>
 181 </&>
 182 <br />
 183 <&| /Widgets/TitleBox, title => loc('Phone numbers') &>
 184 <table>
 185 <tr><td align="right">
 186 <&|/l&>Residence</&>:
 187 </td><td>
 188 <input name="HomePhone" value="<%$UserObj->HomePhone||''%>" size="13" /><br />
 189 </td></tr>
 190 <tr><td align="right">
 191 <&|/l&>Work</&>:
 192 </td><td>
 193 <input name="WorkPhone" value="<%$UserObj->WorkPhone||''%>" size="13" /><br />
 194 </td></tr>
 195 <tr><td align="right">
 196 <&|/l&>Mobile</&>:
 197 </td><td>
 198 <input name="MobilePhone" value="<%$UserObj->MobilePhone||''%>" size="13" /><br />
 199 </td></tr>
 200 <tr><td align="right">
 201 <&|/l&>Pager</&>:
 202 </td><td>
 203 <input name="PagerPhone" value="<%$UserObj->PagerPhone||''%>" size="13" /><br />
 204 </td>
 205 </tr>
 206 </table>
 207 </&>
 208 <br />
 209 <&| /Widgets/TitleBox, title => loc('Custom Fields') &>
 210 <table>
 211 % my $CFs = $UserObj->CustomFields;
 212 % while (my $CF = $CFs->Next) {
 213 <tr valign="top"><td align="right">
 214 <% loc($CF->Name) %>:
 215 </td><td>
 216 % if ($UserObj->id) {
 217 <& /Elements/EditCustomField, %ARGS, Object => $UserObj, CustomField => $CF &>
 218 % } else {
 219 <& /Elements/EditCustomField, %ARGS, NamePrefix => 'Object-RT::User-new-CustomField-', CustomField => $CF &>
 220 % }
 221 </td></tr>
 222 % }
 223 </table>
 224 </&>
 225 % $m->callback( %ARGS, CallbackName => 'RightColumnBottom', UserObj => $UserObj );
 226 </td></tr>
 227 <tr>
 228 <td colspan="2">
 229 <&| /Widgets/TitleBox, title => loc('Comments about this user') &>
 230 <textarea class="comments" name="Comments" cols="80" rows="5" wrap="virtual"><%$UserObj->Comments||''%></textarea>
 231 </&>
 232 %if (!$Create && $UserObj->Privileged) {
 233 <br />
 234 <&| /Widgets/TitleBox, title => loc('Signature') &>
 235 <textarea class="signature" cols="80" rows="5" name="Signature" wrap="hard"><%$UserObj->Signature||''%></textarea>
 236 </&>
 237 % }
 238
 239 </td>
 240 </tr>
 241 </table>
 242
 243 % if ( $Create ) {
 244 <& /Elements/Submit, Label => loc('Create') &>
 245 % } else {
 246 <& /Elements/Submit, Label => loc('Save Changes') &>
 247 % }
 248 </form>
 249
 250 <%INIT>
 251
 252 my $current_tab;
 253 my $UserObj = new RT::User($session{'CurrentUser'});
 254 my ($title, $PrivilegedChecked, $EnabledChecked, $Disabled, $result, @results);
 255
 256 my ($val, $msg);
 257
 258 if ($Create) {
 259     $current_tab = 'Admin/Users/Modify.html?Create=1';
 260     $title = loc("Create a new user");
 261 }
 262 else {
 263
 264     $current_tab = 'Admin/Users/Modify.html?id='.$id if $id;
 265
 266     if ( defined $id && $id eq 'new') {
 267         ( $val, $msg ) = $UserObj->Create(
 268             Name                  => $Name,
 269             EmailAddress          => $ARGS{'EmailAddress'},
 270             Name                  => $ARGS{'Name'},
 271             Comments              => $ARGS{'Comments'},
 272             Signature             => $ARGS{'Signature'},
 273             EmailAddress          => $ARGS{'EmailAddress'},
 274             FreeformContactInfo   => $ARGS{'FreeformContactInfo'},
 275             Organization          => $ARGS{'Organization'},
 276             RealName              => $ARGS{'RealName'},
 277             NickName              => $ARGS{'NickName'},
 278             Lang                  => $ARGS{'Lang'},
 279             EmailEncoding         => $ARGS{'EmailEncoding'},
 280             WebEncoding           => $ARGS{'WebEncoding'},
 281             ExternalContactInfoId => $ARGS{'ExternalContactInfoId'},
 282             ContactInfoSystem     => $ARGS{'ContactInfoSystem'},
 283             Gecos                 => $ARGS{'Gecos'},
 284             ExternalAuthId        => $ARGS{'ExternalAuthId'},
 285             AuthSystem            => $ARGS{'AuthSystem'},
 286             HomePhone             => $ARGS{'HomePhone'},
 287             WorkPhone             => $ARGS{'WorkPhone'},
 288             MobilePhone           => $ARGS{'MobilePhone'},
 289             PagerPhone            => $ARGS{'PagerPhone'},
 290             Address1              => $ARGS{'Address1'},
 291             Address2              => $ARGS{'Address2'},
 292             City                  => $ARGS{'City'},
 293             State                 => $ARGS{'State'},
 294             Zip                   => $ARGS{'Zip'},
 295             Country               => $ARGS{'Country'},
 296             Privileged           => $ARGS{'Privileged'},
 297             Disabled            => ($ARGS{'Enabled'} ? 0 : 1)
 298         );
 299
 300         if ($val) {
 301                 push @results, $msg;
 302         foreach my $key ( keys %ARGS) {
 303             # Convert custom fields on the "new" object to custom fields on the one we've just created
 304             if ($key =~ /^Object-RT::User-new-CustomField-(.*)$/) {
 305             $ARGS{'Object-RT::User-'.$val.'-CustomField-'.$1} = delete $ARGS{$key};
 306             }
 307         }
 308         push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, Object => $UserObj );
 309         } else {
 310                 push @results, loc('User could not be created: [_1]', $msg);
 311         }
 312     } else {
 313             $UserObj->Load($id) || $UserObj->Load($Name)
 314             || Abort("Couldn't load user '" . ( $Name || '') . "'");
 315         $val = $UserObj->Id();
 316     }
 317
 318     if ($val) {
 319         $title = loc("Modify the user [_1]", $UserObj->Name);
 320     }
 321
 322     # If the create failed
 323     else {
 324         $title = loc("Create a new user");
 325         $Create = 1;
 326     }
 327 }
 328
 329
 330
 331
 332 # If we have a user to modify, lets try.
 333 if ($UserObj->Id && $id ne 'new') {
 334
 335     my @fields = qw(Name Comments Signature EmailAddress FreeformContactInfo
 336                     Organization RealName NickName Lang EmailEncoding WebEncoding
 337                     ExternalContactInfoId ContactInfoSystem Gecos ExternalAuthId
 338                     AuthSystem HomePhone WorkPhone MobilePhone PagerPhone Address1
 339                     Address2 City State Zip Country
 340                    );
 341
 342     my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields,
 343                                             Object => $UserObj,
 344                                             ARGSRef => \%ARGS );
 345     push (@results,@fieldresults);
 346     push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, Object => $UserObj );
 347
 348
 349     # {{{ Deal with special fields: Privileged, Enabled
 350     if  ( $SetPrivileged and $Privileged != $UserObj->Privileged ) {
 351          my ($code, $msg) = $UserObj->SetPrivileged($Privileged);
 352          push @results, loc('Privileged status: [_1]', loc_fuzzy($msg));
 353     }
 354
 355     #we're asking about enabled on the web page but really care about disabled.
 356     $Disabled = $Enabled ? 0 : 1;
 357
 358     if  ( ($SetEnabled) and ( $Disabled != $UserObj->Disabled) ) {
 359         my  ($code, $msg) = $UserObj->SetDisabled($Disabled);
 360         push @results, $msg;
 361     }
 362
 363
 364     # }}}
 365 }
 366
 367 if ( $UserObj->Id ) {
 368     my $password_not_set;
 369     # Deal with Password field
 370     if ( !$Pass1 and !$Pass2 ) {
 371         $password_not_set = 1;
 372     } elsif ( $Pass1 ne $Pass2 ) {
 373         $password_not_set = 1;
 374         push @results, loc("Passwords do not match.");
 375     } elsif ( $Pass1 eq $Pass2 and !$UserObj->IsPassword($Pass1) ) {
 376         my ($code, $msg) = $UserObj->SetPassword($Pass1);
 377         push @results, loc_fuzzy($msg);
 378         $password_not_set = 1 unless $code;
 379     }
 380     if ($id eq 'new' and $password_not_set) {
 381         push @results, loc("A password was not set, so user won't be able to login.");
 382     }
 383 }
 384
 385
 386 # Do some setup for the ui
 387 unless ( $UserObj->id && $UserObj->Disabled ) {
 388     $EnabledChecked = 'checked="checked"';
 389 }
 390
 391 if (!$Create && $UserObj->Privileged()) {
 392     $PrivilegedChecked = 'checked="checked"';
 393 }
 394
 395 # set the id, so the the menu will have the right info, this needs to
 396 # be done here to avoid creating and then modifying a user
 397 $id = $UserObj->Id;
 398
 399 </%INIT>
 400
 401
 402 <%ARGS>
 403 $id => undef
 404 $Name  => undef
 405 $Comments  => undef
 406 $Signature  => undef
 407 $EmailAddress  => undef
 408 $FreeformContactInfo => undef
 409 $Organization  => undef
 410 $RealName  => undef
 411 $NickName  => undef
 412 $Privileged => undef
 413 $SetPrivileged => undef
 414 $Enabled => undef
 415 $SetEnabled => undef
 416 $Lang  => undef
 417 $EmailEncoding  => undef
 418 $WebEncoding => undef
 419 $ExternalContactInfoId  => undef
 420 $ContactInfoSystem  => undef
 421 $Gecos => undef
 422 $ExternalAuthId  => undef
 423 $AuthSystem  => undef
 424 $HomePhone => undef
 425 $WorkPhone  => undef
 426 $MobilePhone  => undef
 427 $PagerPhone  => undef
 428 $Address1 => undef
 429 $Address2  => undef
 430 $City  => undef
 431 $State  => undef
 432 $Zip  => undef
 433 $Country => undef
 434 $Pass1 => undef
 435 $Pass2=> undef
 436 $Create=> undef
 437 </%ARGS>