rt/share/html/User/Prefs.html

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
   6 %#                                          <sales@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 <& /Elements/Header, Title=>loc("Ticketing Preferences") &>
  49 <& /Elements/Tabs &>
  50
  51 <& /Elements/ListActions, actions => \@results &>
  52
  53 <form action="<%RT->Config->Get('WebPath')%>/User/Prefs.html" method="post">
  54 <input type="hidden" class="hidden" name="id" value="<%$UserObj->Id%>" />
  55
  56 <table width="100%" border="0">
  57 <tr>
  58
  59 <td valign="top" class="boxcontainer">
  60 <&| /Widgets/TitleBox, title => loc('Identity'), id => "user-prefs-identity" &>
  61
  62 <input type="hidden" class="hidden" name="Name" value="<%$UserObj->Name%>" />
  63 <table cellspacing="0" cellpadding="0">
  64   <tr>
  65     <td class="label"><&|/l&>Email</&>: </td>
  66     <td class="value"><input name="EmailAddress" value="<%$UserObj->EmailAddress%>" /></td>
  67   </tr>
  68   <tr>
  69     <td class="label"><&|/l&>Real Name</&>:</td>
  70     <td class="value"><input name="RealName" value="<%$UserObj->RealName%>" /></td>  </tr>
  71   <tr>
  72     <td class="label"><&|/l&>Nickname</&>:</td>
  73     <td class="value"><input name="NickName" value="<%$UserObj->NickName || ''%>" /></td>
  74   </tr>
  75 %#  <tr>
  76 %#    <td class="label"><&|/l&>Language</&>:</td>
  77 %#    <td class="value"><& /Elements/SelectLang, Name => 'Lang', Default => $UserObj->Lang &></td>
  78 %#  </tr>
  79   <tr>
  80     <td class="label"><&|/l&>Timezone</&>:</td>
  81     <td class="value"><& /Elements/SelectTimezone, Name => 'Timezone', Default => $UserObj->Timezone &></td>
  82   </tr>
  83 </table>
  84 </&>
  85 <&| /Widgets/TitleBox, title => loc('Phone numbers'), id => "user-prefs-phone" &>
  86 <table cellspacing="0" cellpadding="0">
  87   <tr>
  88     <td class="label"><&|/l&>Residence</&>:</td>
  89     <td class="value"><input name="HomePhone" value="<%$UserObj->HomePhone || ''%>" size="13" /></td>
  90   </tr>
  91   <tr>
  92     <td class="label"><&|/l&>Work</&>:</td>
  93     <td class="value"><input name="WorkPhone" value="<%$UserObj->WorkPhone || ''%>" size="13" /></td>
  94   </tr>
  95   <tr>
  96     <td class="label"><&|/l&>Mobile</&>:</td>
  97     <td class="value"><input name="MobilePhone" value="<%$UserObj->MobilePhone || ''%>" size="13" /></td>
  98   </tr>
  99   <tr>
 100     <td class="label"><&|/l&>Pager</&>:</td>
 101     <td class="value"><input name="PagerPhone" value="<%$UserObj->PagerPhone || ''%>" size="13" /></td>
 102   </tr>
 103 </table>
 104 </&>
 105
 106 %if ($UserObj->Privileged) {
 107 <&| /Widgets/TitleBox, title => loc('Signature') &>
 108 <textarea cols="80" rows="5" name="Signature" class="signature" wrap="hard">
 109 <%$UserObj->Signature || ''%></textarea>
 110 </&>
 111 % }
 112
 113 % $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormLeftColumn' );
 114 </td>
 115 <td valign="top" class="boxcontainer">
 116
 117 <&| /Widgets/TitleBox, title => loc('Password'), id => "user-prefs-password" &>
 118 <& /Elements/EditPassword,
 119     User => $UserObj,
 120     Name => [qw(CurrentPass Pass1 Pass2)],
 121 &>
 122 </&>
 123
 124 <&| /Widgets/TitleBox, title => loc('Location'), id => "user-prefs-location" &>
 125 <table cellspacing="0" cellpadding="0">
 126   <tr>
 127     <td class="label"><&|/l&>Organization</&>:</td>
 128     <td class="value"><input name="Organization" value="<%$UserObj->Organization || ''%>" /></td>
 129   </tr>
 130   <tr>
 131     <td class="label"><&|/l&>Address1</&>:</td>
 132     <td class="value"><input name="Address1" value="<%$UserObj->Address1 || ''%>" /></td>
 133   </tr>
 134   <tr>
 135     <td class="label"><&|/l&>Address2</&>:</td>
 136     <td class="value"><input name="Address2" value="<%$UserObj->Address2 || ''%>" /></td>
 137   </tr>
 138   <tr>
 139     <td class="label"><&|/l&>City</&>:</td>
 140     <td><input name="City" value="<%$UserObj->City || ''%>" size="14" /></td>
 141   </tr>
 142   <tr>
 143     <td class="label"><&|/l&>State</&>:</td>
 144     <td class="value"><input name="State" value="<%$UserObj->State || ''%>" size="3" /></td>
 145   </tr>
 146   <tr>
 147     <td class="label"><&|/l&>Zip</&>:</td>
 148     <td class="value"><input name="Zip" value="<%$UserObj->Zip || ''%>" size="9" /></td>
 149   </tr>
 150   <tr>
 151     <td class="label"><&|/l&>Country</&>:</td>
 152     <td class="value"><input name="Country" value="<%$UserObj->Country || ''%>" /></td>
 153   </tr>
 154 </table>
 155 </&>
 156
 157 <&| /Widgets/TitleBox, title => loc('Custom Fields') &>
 158 <table>
 159 % my $CustomFields = $UserObj->CustomFields;
 160 % while ( my $CF = $CustomFields->Next ) {
 161 <tr valign="top">
 162 <td align="right"><% loc( $CF->Name ) %>:</td>
 163 <td><& /Elements/EditCustomField,
 164     %ARGS, Object => $UserObj, CustomField => $CF
 165 &></td></tr>
 166 % }
 167 </table>
 168 </&>
 169
 170 <& /Elements/Submit, Label => loc('Save Preferences') &>
 171
 172 <&| /Widgets/TitleBox, title => loc('Secret authentication token'), id => "user-prefs-feeds" &>
 173
 174 <&|/l&>All iCal feeds embed a secret token which authorizes you.  If the URL one of your iCal feeds got exposed to the outside world, you can get a new secret, <b>breaking all existing iCal feeds</b> below.</&>
 175
 176 <a href="#" id="ResetAuthTokenPrompt" style="display: none">
 177   <&|/l&>I want to reset my secret token.</&>
 178 </a>
 179 <& /Elements/Submit,
 180     Label       => loc('Reset secret authentication token'),
 181     Name        => "ResetAuthToken",
 182     id          => "ResetAuthTokenContainer" &>
 183 <script>
 184     jQuery("#ResetAuthTokenContainer").hide();
 185     jQuery("#ResetAuthTokenPrompt").show().click(function(ev){
 186         jQuery(this).slideUp();
 187         jQuery("#ResetAuthTokenContainer").slideDown();
 188         ev.preventDefault();
 189     });
 190 </script>
 191 </&>
 192
 193 % $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormRightColumn' );
 194 </td>
 195 </tr>
 196
 197 </table>
 198
 199 % $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormEnd' );
 200
 201 </form>
 202
 203
 204 <%INIT>
 205
 206 my $UserObj = RT::User->new( $session{'CurrentUser'} );
 207 $UserObj->Load($id) if $id;
 208 $UserObj->Load($Name) if $Name && !$UserObj->id;
 209 unless ( $UserObj->id ) {
 210     Abort(loc("Couldn't load user #[_1] or user '[_2]'", $id, $Name))
 211         if $id && $Name;
 212     Abort(loc("Couldn't load user #[_1]", $id))
 213         if $id;
 214     Abort(loc("Couldn't load user '[_1]'", $Name))
 215         if $Name;
 216     Abort(loc("Couldn't load user"));
 217 }
 218 $id = $UserObj->id;
 219
 220 my @results;
 221
 222 if ( $ARGS{'ResetAuthToken'} ) {
 223     my ($status, $msg) = $UserObj->GenerateAuthToken;
 224     push @results, $msg;
 225 }
 226 else {
 227     my @fields = qw(
 228         Name Comments Signature EmailAddress FreeformContactInfo
 229         Organization RealName NickName Lang EmailEncoding WebEncoding
 230         ExternalContactInfoId ContactInfoSystem Gecos ExternalAuthId
 231         AuthSystem HomePhone WorkPhone MobilePhone PagerPhone Address1
 232         Address2 City State Zip Country Timezone
 233     );
 234
 235     $m->callback(
 236         CallbackName => 'UpdateLogic',
 237         fields       => \@fields,
 238         results      => \@results,
 239         UserObj      => $UserObj,
 240         ARGSRef      => \%ARGS,
 241     );
 242
 243     push @results, UpdateRecordObject (
 244         AttributesRef => \@fields,
 245         Object => $UserObj,
 246         ARGSRef => \%ARGS,
 247     );
 248
 249     push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, Object => $UserObj );
 250
 251     # Deal with special fields: Privileged, Enabled, and Password
 252     if  ( $SetPrivileged and $Privileged != $UserObj->Privileged ) {
 253         my ($code, $msg) = $UserObj->SetPrivileged( $Privileged );
 254         push @results, loc('Privileged status: [_1]', loc_fuzzy($msg));
 255     }
 256
 257     my %password_cond = $UserObj->CurrentUserRequireToSetPassword;
 258     if (defined $Pass1 && length $Pass1 ) {
 259         my ($status, $msg) = $UserObj->SafeSetPassword(
 260             Current      => $CurrentPass,
 261             New          => $Pass1,
 262             Confirmation => $Pass2,
 263         );
 264         push @results, loc("Password: [_1]", $msg);
 265     }
 266 }
 267
 268
 269 MaybeRedirectForResults(
 270     Actions   => \@results,
 271 );
 272
 273 </%INIT>
 274
 275
 276 <%ARGS>
 277 $id => $session{'CurrentUser'}->Id
 278 $Name  => undef
 279 $Comments  => undef
 280 $Signature  => undef
 281 $EmailAddress  => undef
 282 $FreeformContactInfo => undef
 283 $Organization  => undef
 284 $RealName  => undef
 285 $NickName  => undef
 286 $Privileged => undef
 287 $SetPrivileged => undef
 288 $Enabled => undef
 289 $SetEnabled => undef
 290 $Lang  => undef
 291 $EmailEncoding  => undef
 292 $WebEncoding => undef
 293 $ExternalContactInfoId  => undef
 294 $ContactInfoSystem  => undef
 295 $Gecos => undef
 296 $ExternalAuthId  => undef
 297 $AuthSystem  => undef
 298 $HomePhone => undef
 299 $WorkPhone  => undef
 300 $MobilePhone  => undef
 301 $PagerPhone  => undef
 302 $Address1 => undef
 303 $Address2  => undef
 304 $City  => undef
 305 $State  => undef
 306 $Zip  => undef
 307 $Country => undef
 308 $CurrentPass => undef
 309 $Pass1 => undef
 310 $Pass2 => undef
 311 $Create=> undef
 312 </%ARGS>