rt/share/html/User/Prefs.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 <& /Elements/Header, Title=>loc("Ticketing Preferences") &>
  49 <& /User/Elements/Tabs,
  50     current_tab => 'User/Prefs.html',
  51     Title => loc("Preferences") &>
  52
  53 <& /Elements/ListActions, actions => \@results &>
  54
  55 <form action="<%RT->Config->Get('WebPath')%>/User/Prefs.html" method="post">
  56 <input type="hidden" class="hidden" name="id" value="<%$UserObj->Id%>" />
  57
  58 <table width="100%" border="0">
  59 <tr>
  60
  61 <td valign="top" class="boxcontainer">
  62 <&| /Widgets/TitleBox, title => loc('Identity'), id => "user-prefs-identity" &>
  63
  64 <input type="hidden" class="hidden" name="Name" value="<%$UserObj->Name%>" />
  65 <table cellspacing="0" cellpadding="0">
  66   <tr>
  67     <td class="label"><&|/l&>Email</&>: </td>
  68     <td class="value"><input name="EmailAddress" value="<%$UserObj->EmailAddress%>" /></td>
  69   </tr>
  70   <tr>
  71     <td class="label"><&|/l&>Real Name</&>:</td>
  72     <td class="value"><input name="RealName" value="<%$UserObj->RealName%>" /></td>  </tr>
  73   <tr>
  74     <td class="label"><&|/l&>Nickname</&>:</td>
  75     <td class="value"><input name="NickName" value="<%$UserObj->NickName || ''%>" /></td>
  76   </tr>
  77   <tr>
  78     <td class="label"><&|/l&>Language</&>:</td>
  79     <td class="value"><& /Elements/SelectLang, Name => 'Lang', Default => $UserObj->Lang &></td>
  80   </tr>
  81   <tr>
  82     <td class="label"><&|/l&>Timezone</&>:</td>
  83     <td class="value"><& /Elements/SelectTimezone, Name => 'Timezone', Default => $UserObj->Timezone &></td>
  84   </tr>
  85 </table>
  86 </&>
  87 <&| /Widgets/TitleBox, title => loc('Phone numbers'), id => "user-prefs-phone" &>
  88 <table cellspacing="0" cellpadding="0">
  89   <tr>
  90     <td class="label"><&|/l&>Residence</&>:</td>
  91     <td class="value"><input name="HomePhone" value="<%$UserObj->HomePhone || ''%>" size="13" /></td>
  92   </tr>
  93   <tr>
  94     <td class="label"><&|/l&>Work</&>:</td>
  95     <td class="value"><input name="WorkPhone" value="<%$UserObj->WorkPhone || ''%>" size="13" /></td>
  96   </tr>
  97   <tr>
  98     <td class="label"><&|/l&>Mobile</&>:</td>
  99     <td class="value"><input name="MobilePhone" value="<%$UserObj->MobilePhone || ''%>" size="13" /></td>
 100   </tr>
 101   <tr>
 102     <td class="label"><&|/l&>Pager</&>:</td>
 103     <td class="value"><input name="PagerPhone" value="<%$UserObj->PagerPhone || ''%>" size="13" /></td>
 104   </tr>
 105 </table>
 106 </&>
 107 % $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormLeftColumn' );
 108 </td>
 109 <td valign="top" class="boxcontainer">
 110 % unless (RT->Config->Get('WebExternalAuth') and !RT->Config->Get('WebFallbackToInternalAuth')) {
 111 <&| /Widgets/TitleBox, title => loc('Password'), id => "user-prefs-password" &>
 112 <table>
 113 <tr>
 114 <td class="label">
 115 <&|/l&>New Password</&>:
 116 </td>
 117 <td class="value">
 118 <input type="password" name="Pass1" autocomplete="off"/>
 119 </td>
 120 </tr>
 121 <tr><td class="label">
 122 <&|/l&>Retype Password</&>:
 123 </td>
 124 <td class="value">
 125 <input type="password" name="Pass2" autocomplete="off" />
 126 </td>
 127 </tr>
 128 </table>
 129 </&>
 130 % }
 131
 132 <&| /Widgets/TitleBox, title => loc('Location'), id => "user-prefs-location" &>
 133 <table cellspacing="0" cellpadding="0">
 134   <tr>
 135     <td class="label"><&|/l&>Organization</&>:</td>
 136     <td class="value"><input name="Organization" value="<%$UserObj->Organization || ''%>" /></td>
 137   </tr>
 138   <tr>
 139     <td class="label"><&|/l&>Address1</&>:</td>
 140     <td class="value"><input name="Address1" value="<%$UserObj->Address1 || ''%>" /></td>
 141   </tr>
 142   <tr>
 143     <td class="label"><&|/l&>Address2</&>:</td>
 144     <td class="value"><input name="Address2" value="<%$UserObj->Address2 || ''%>" /></td>
 145   </tr>
 146   <tr>
 147     <td class="label"><&|/l&>City</&>:</td>
 148     <td><input name="City" value="<%$UserObj->City || ''%>" size="14" /></td>
 149   </tr>
 150   <tr>
 151     <td class="label"><&|/l&>State</&>:</td>
 152     <td class="value"><input name="State" value="<%$UserObj->State || ''%>" size="3" /></td>
 153   </tr>
 154   <tr>
 155     <td class="label"><&|/l&>Zip</&>:</td>
 156     <td class="value"><input name="Zip" value="<%$UserObj->Zip || ''%>" size="9" /></td>
 157   </tr>
 158   <tr>
 159     <td class="label"><&|/l&>Country</&>:</td>
 160     <td class="value"><input name="Country" value="<%$UserObj->Country || ''%>" /></td>
 161   </tr>
 162 </table>
 163 </&>
 164
 165 <&| /Widgets/TitleBox, title => loc('Custom Fields') &>
 166 <table>
 167 % my $CustomFields = $UserObj->CustomFields;
 168 % while ( my $CF = $CustomFields->Next ) {
 169 <tr valign="top">
 170 <td align="right"><% loc( $CF->Name ) %>:</td>
 171 <td><& /Elements/EditCustomField,
 172     %ARGS, Object => $UserObj, CustomField => $CF
 173 &></td></tr>
 174 % }
 175 </table>
 176 </&>
 177
 178 % $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormRightColumn' );
 179 </td>
 180 </tr>
 181
 182
 183 <tr><td colspan="2" valign="top" class="boxcontainer">
 184 %if ($UserObj->Privileged) {
 185 <br />
 186 <&| /Widgets/TitleBox, title => loc('Signature') &>
 187 <textarea cols="80" rows="5" name="Signature" class="signature" wrap="hard">
 188 <%$UserObj->Signature || ''%></textarea>
 189 </&>
 190 % }
 191 </td></tr>
 192
 193 <tr><td colspan="2" valign="top" class="boxcontainer">
 194 <&| /Widgets/TitleBox, title => loc('Secret authentication token'), id => "user-prefs-feeds" &>
 195
 196 <&|/l&><p>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.</p></&>
 197
 198 <& /Elements/Submit, Label => loc('Reset secret authentication token'), Name => "ResetAuthToken" &>
 199 </&>
 200 </td></tr>
 201
 202 </table>
 203
 204 % $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormEnd' );
 205
 206 <& /Elements/Submit, Label => loc('Save Preferences') &>
 207 </form>
 208
 209
 210 <%INIT>
 211
 212 my $UserObj = RT::User->new( $session{'CurrentUser'} );
 213 $UserObj->Load($id) if $id;
 214 $UserObj->Load($Name) if $Name && !$UserObj->id;
 215 unless ( $UserObj->id ) {
 216     Abort(loc("Couldn't load user #[_1] or user '[_2]'", $id, $Name))
 217         if $id && $Name;
 218     Abort(loc("Couldn't load user #[_1]", $id))
 219         if $id;
 220     Abort(loc("Couldn't load user '[_1]'", $Name))
 221         if $Name;
 222     Abort(loc("Couldn't load user"));
 223 }
 224
 225 my @results;
 226
 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 Lang 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 if ( $Lang ) {
 252     $session{'CurrentUser'}->LanguageHandle($Lang);
 253     $session{'CurrentUser'} = $session{'CurrentUser'}; # force writeback
 254 }
 255
 256 # Deal with special fields: Privileged, Enabled, and Password
 257 if  ( $SetPrivileged and $Privileged != $UserObj->Privileged ) {
 258     my ($code, $msg) = $UserObj->SetPrivileged( $Privileged );
 259     push @results, loc('Privileged status: [_1]', loc_fuzzy($msg));
 260 }
 261
 262 #TODO: make this report errors properly
 263 if ( defined $Pass1 and length $Pass1 and $Pass1 eq $Pass2 and !$UserObj->IsPassword($Pass1) ) {
 264     my ($code, $msg);
 265     ($code, $msg) = $UserObj->SetPassword($Pass1);
 266     push @results, loc('Password: [_1]', loc_fuzzy($msg));
 267 } elsif ( defined $Pass1 && length $Pass1 && $Pass1 ne $Pass2 ) {
 268     push @results, loc("Passwords do not match. Your password has not been changed");
 269 }
 270
 271 if ( $ARGS{'ResetAuthToken'} ) {
 272     my ($status, $msg) = $UserObj->GenerateAuthToken;
 273     push @results, $msg;
 274 }
 275
 276 </%INIT>
 277
 278
 279 <%ARGS>
 280 $id => $session{'CurrentUser'}->Id
 281 $Name  => undef
 282 $Comments  => undef
 283 $Signature  => undef
 284 $EmailAddress  => undef
 285 $FreeformContactInfo => undef
 286 $Organization  => undef
 287 $RealName  => undef
 288 $NickName  => undef
 289 $Privileged => undef
 290 $SetPrivileged => undef
 291 $Enabled => undef
 292 $SetEnabled => undef
 293 $Lang  => undef
 294 $EmailEncoding  => undef
 295 $WebEncoding => undef
 296 $ExternalContactInfoId  => undef
 297 $ContactInfoSystem  => undef
 298 $Gecos => undef
 299 $ExternalAuthId  => undef
 300 $AuthSystem  => undef
 301 $HomePhone => undef
 302 $WorkPhone  => undef
 303 $MobilePhone  => undef
 304 $PagerPhone  => undef
 305 $Address1 => undef
 306 $Address2  => undef
 307 $City  => undef
 308 $State  => undef
 309 $Zip  => undef
 310 $Country => undef
 311 $Pass1 => undef
 312 $Pass2=> undef
 313 $Create=> undef
 314 </%ARGS>