diff options
Diffstat (limited to 'rt/share/html/Prefs/Other.html')
| -rw-r--r-- | rt/share/html/Prefs/Other.html | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/rt/share/html/Prefs/Other.html b/rt/share/html/Prefs/Other.html deleted file mode 100644 index 9608fb6..0000000 --- a/rt/share/html/Prefs/Other.html +++ /dev/null @@ -1,111 +0,0 @@ -%# 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> |