diff options
Diffstat (limited to 'rt/share/html/Prefs/Other.html')
| -rw-r--r-- | rt/share/html/Prefs/Other.html | 111 |
1 files changed, 111 insertions, 0 deletions
diff --git a/rt/share/html/Prefs/Other.html b/rt/share/html/Prefs/Other.html new file mode 100644 index 0000000..9608fb6 --- /dev/null +++ b/rt/share/html/Prefs/Other.html @@ -0,0 +1,111 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC +%# <jesse@bestpractical.com> +%# +%# (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 => $title &> +<& /User/Elements/Tabs, + current_tab => 'Prefs/Other.html', + Title => $title, +&> +<& /Elements/ListActions, actions => \@results &> + +<form method="post" action="Other.html"> +% foreach my $section( RT->Config->Sections ) { +<&|/Widgets/TitleBox, title => loc( $section ) &> +% foreach my $option( RT->Config->Options( Section => $section ) ) { +% my $meta = RT->Config->Meta( $option ); +<& $meta->{'Widget'}, + Default => 1, + %{ $m->comp('/Widgets/FinalizeWidgetArguments', WidgetArguments => + $meta->{'WidgetArguments'} ) }, + Name => $option, + DefaultValue => scalar RT->Config->Get( $option ), + CurrentValue => $preferences->{ $option }, +&> +% } +</&> +% } + +% if ( RT->Config->Get('GnuPG')->{'Enable'} ) { +<&|/Widgets/TitleBox, title => loc( 'Cryptography' ) &> +<&|/l&>Preferred key</&>: <& /Elements/GnuPG/SelectKeyForEncryption, EmailAddress => $UserObj->EmailAddress, Default => $UserObj->PreferredKey &> +</&> +% } + +<& /Elements/Submit, Name => 'Update', Label => loc('Save Changes') &> +</form> +<%INIT> +my @results; +my $title = loc("Settings"); + +my $UserObj = $session{'CurrentUser'}->UserObj; +my $preferences = $UserObj->Preferences( $RT::System ); + +if ((defined $PreferredKey) && $PreferredKey ne $UserObj->FirstAttribute('PreferredKey')) { + my ($code, $msg) = $UserObj->SetAttribute(Name => 'PreferredKey', Content => $PreferredKey); + push @results, loc('Preferred Key: [_1]', loc_fuzzy($msg)); +} + +if ( $Update ) { + $preferences ||= {}; + $m->comp( '/Widgets/BulkProcess', Meta => { + map { $_ => RT->Config->Meta($_) } RT->Config->Options + }, + Store => $preferences, + Types => [RT->Config->Options], Default => 1, Arguments => \%ARGS, + DefaultValue => { map { $_ => RT->Config->Get($_) } + RT->Config->Options + }, ); + + my ($ok, $msg) = $UserObj->SetPreferences( $RT::System, $preferences ); + push @results, $ok ? loc("Preferences saved.") : $msg; +} +</%INIT> +<%ARGS> +$Update => 0, +$User => undef, +$PreferredKey => undef, +</%ARGS> |