# This code was forked from the LiveJournal project owned and operated # by Live Journal, Inc. The code has been modified and expanded by # Dreamwidth Studios, LLC. These files were originally licensed under # the terms of the license supplied by Live Journal, Inc, which can # currently be found at: # # http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt # # In accordance with the original license, this code and all its # modifications are provided under the GNU General Public License. # A copy of that license can be found in the LICENSE file included as # part of this distribution. package LJ::Setting::CtxPopup; use base 'LJ::Setting'; use strict; use warnings; sub should_render { my ( $class, $u ) = @_; return !$u || $u->is_community ? 0 : 1; } sub label { my ( $class, $u ) = @_; return $class->ml('setting.ctxpopup.label'); } sub option { my ( $class, $u, $errs, $args ) = @_; my $key = $class->pkgkey; my $ctxpopup = $class->get_arg( $args, "ctxpopup" ) || $u->opt_ctxpopup; my @options = ( I => $class->ml('setting.ctxpopup.option.icons'), U => $class->ml('setting.ctxpopup.option.userhead'), Y => $class->ml('setting.ctxpopup.option.both'), N => $class->ml('setting.ctxpopup.option.none'), ); my $ret = " "; $ret .= LJ::html_select( { name => "${key}ctxpopup", id => "${key}ctxpopup", selected => $ctxpopup, }, @options ); return $ret; } sub save { my ( $class, $u, $args ) = @_; my $val = $class->get_arg( $args, "ctxpopup" ); $u->set_prop( opt_ctxpopup => $val ); return 1; } 1;