From b4b0c7e72d7eaee2fbfc7022022c9698323203dd Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 31 Dec 2009 13:16:41 +0000 Subject: import rt 3.8.7 --- rt/share/html/User/Prefs.html | 314 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 314 insertions(+) create mode 100755 rt/share/html/User/Prefs.html (limited to 'rt/share/html/User/Prefs.html') diff --git a/rt/share/html/User/Prefs.html b/rt/share/html/User/Prefs.html new file mode 100755 index 000000000..f52fdcbdf --- /dev/null +++ b/rt/share/html/User/Prefs.html @@ -0,0 +1,314 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC +%# +%# +%# (Except where explicitly superseded by other copyright notices) +%# +%# +%# LICENSE: +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work is distributed in the hope that it will be useful, but +%# WITHOUT ANY WARRANTY; without even the implied warranty of +%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +%# General Public License for more details. +%# +%# You should have received a copy of the GNU General Public License +%# along with this program; if not, write to the Free Software +%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +%# 02110-1301 or visit their web page on the internet at +%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. +%# +%# +%# CONTRIBUTION SUBMISSION POLICY: +%# +%# (The following paragraph is not intended to limit the rights granted +%# to you to modify and distribute this software under the terms of +%# the GNU General Public License and is only of importance to you if +%# you choose to contribute your changes and enhancements to the +%# community by submitting them to Best Practical Solutions, LLC.) +%# +%# By intentionally submitting any modifications, corrections or +%# derivatives to this work, or any other work intended for use with +%# Request Tracker, to Best Practical Solutions, LLC, you confirm that +%# you are the copyright holder for those contributions and you grant +%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, +%# royalty-free, perpetual, license to use, copy, create derivative +%# works based on those contributions, and sublicense and distribute +%# those contributions and any derivatives thereof. +%# +%# END BPS TAGGED BLOCK }}} +<& /Elements/Header, Title=>loc("Preferences") &> +<& /User/Elements/Tabs, + current_tab => 'User/Prefs.html', + Title => loc("Preferences") &> + +<& /Elements/ListActions, actions => \@results &> + +
+ + + + + + + + + + + + + + +
+<&| /Widgets/TitleBox, title => loc('Identity'), id => "user-prefs-identity" &> + + + + + + + + + + + + + + + + + + + + + + +
<&|/l&>Email:
<&|/l&>Real Name:
<&|/l&>Nickname:
<&|/l&>Language:<& /Elements/SelectLang, Name => 'Lang', Default => $UserObj->Lang &>
<&|/l&>Timezone:<& /Elements/SelectTimezone, Name => 'Timezone', Default => $UserObj->Timezone &>
+ +<&| /Widgets/TitleBox, title => loc('Phone numbers'), id => "user-prefs-phone" &> + + + + + + + + + + + + + + + + + +
<&|/l&>Residence:
<&|/l&>Work:
<&|/l&>Mobile:
<&|/l&>Pager:
+ +% $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormLeftColumn' ); +		 +% unless (RT->Config->Get('WebExternalAuth') and !RT->Config->Get('WebFallbackToInternalAuth')) { +<&| /Widgets/TitleBox, title => loc('Password'), id => "user-prefs-password" &> + + + + + + + + +
+<&|/l&>New Password: + + +
+<&|/l&>Retype Password: + + +
+ +% } + +<&| /Widgets/TitleBox, title => loc('Location'), id => "user-prefs-location" &> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
<&|/l&>Organization:
<&|/l&>Address1:
<&|/l&>Address2:
<&|/l&>City:
<&|/l&>State:
<&|/l&>Zip:
<&|/l&>Country:
+ + +<&| /Widgets/TitleBox, title => loc('Custom Fields') &> + +% my $CustomFields = $UserObj->CustomFields; +% while ( my $CF = $CustomFields->Next ) { + + + +% } +
<% loc( $CF->Name ) %>:<& /Elements/EditCustomField, + %ARGS, Object => $UserObj, CustomField => $CF +&>
+ + +% $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormRightColumn' ); +
+%if ($UserObj->Privileged) { +
+<&| /Widgets/TitleBox, title => loc('Signature') &> + + +% } +
+<&| /Widgets/TitleBox, title => loc('Secret authentication token'), id => "user-prefs-feeds" &> + +<&|/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, breaking all existing iCal feeds below.

+ +<& /Elements/Submit, Label => loc('Reset secret authentication token'), Name => "ResetAuthToken" &> + +
+ +% $m->callback( %ARGS, UserObj => $UserObj, CallbackName => 'FormEnd' ); + +<& /Elements/Submit, Label => loc('Save Preferences') &> +
+ + +<%INIT> + +my $UserObj = RT::User->new( $session{'CurrentUser'} ); +$UserObj->Load($id) if $id; +$UserObj->Load($Name) if $Name && !$UserObj->id; +unless ( $UserObj->id ) { + Abort(loc("Couldn't load user #[_1] or user '[_2]'", $id, $Name)) + if $id && $Name; + Abort(loc("Couldn't load user #[_1]", $id)) + if $id; + Abort(loc("Couldn't load user '[_1]'", $Name)) + if $Name; + Abort(loc("Couldn't load user")); +} + +my @results; + +my @fields = qw( + Name 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 Lang Timezone +); + +$m->callback( + CallbackName => 'UpdateLogic', + fields => \@fields, + results => \@results, + UserObj => $UserObj, + ARGSRef => \%ARGS, +); + +push @results, UpdateRecordObject ( + AttributesRef => \@fields, + Object => $UserObj, + ARGSRef => \%ARGS, +); + +push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, Object => $UserObj ); + +if ( $Lang ) { + $session{'CurrentUser'}->LanguageHandle($Lang); + $session{'CurrentUser'} = $session{'CurrentUser'}; # force writeback +} + +# Deal with special fields: Privileged, Enabled, and Password +if ( $SetPrivileged and $Privileged != $UserObj->Privileged ) { + my ($code, $msg) = $UserObj->SetPrivileged( $Privileged ); + push @results, loc('Privileged status: [_1]', loc_fuzzy($msg)); +} + +#TODO: make this report errors properly +if ( defined $Pass1 and length $Pass1 and $Pass1 eq $Pass2 and !$UserObj->IsPassword($Pass1) ) { + my ($code, $msg); + ($code, $msg) = $UserObj->SetPassword($Pass1); + push @results, loc('Password: [_1]', loc_fuzzy($msg)); +} elsif ( defined $Pass1 && length $Pass1 && $Pass1 ne $Pass2 ) { + push @results, loc("Passwords do not match. Your password has not been changed"); +} + +if ( $ARGS{'ResetAuthToken'} ) { + my ($status, $msg) = $UserObj->GenerateAuthToken; + push @results, $msg; +} + + + + +<%ARGS> +$id => $session{'CurrentUser'}->Id +$Name => undef +$Comments => undef +$Signature => undef +$EmailAddress => undef +$FreeformContactInfo => undef +$Organization => undef +$RealName => undef +$NickName => undef +$Privileged => undef +$SetPrivileged => undef +$Enabled => undef +$SetEnabled => 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 + -- cgit v1.2.1