cgi-bin/LJ/Setting/SafeSearch.pm

   1 package LJ::Setting::SafeSearch;
   2 use base 'LJ::Setting';
   3 use strict;
   4 use warnings;
   5
   6 sub should_render {
   7     my ($class, $u) = @_;
   8
   9     return !LJ::is_enabled("content_flag") || !LJ::is_enabled("safe_search") || !$u || $u->is_community ? 0 : 1;
  10 }
  11
  12 sub helpurl {
  13     my ($class, $u) = @_;
  14
  15     return "adult_content_full";
  16 }
  17
  18 sub label {
  19     my $class = shift;
  20
  21     return $class->ml('setting.safesearch.label');
  22 }
  23
  24 sub option {
  25     my ($class, $u, $errs, $args) = @_;
  26     my $key = $class->pkgkey;
  27
  28     my $safesearch = $class->get_arg($args, "safesearch") || $u->safe_search;
  29
  30     my $ret;
  31
  32     if ( LJ::is_enabled('remove_adult_concepts') ) {
  33
  34         $ret = LJ::html_check({
  35             name => "${key}safesearch",
  36             id => "${key}safesearch",
  37             value => '20',
  38             selected => $safesearch eq '20' ? 1 : 0,
  39         });
  40
  41         $ret .= "<label for='${key}safesearch'>" . $class->ml('setting.safesearch.option') . "</label> ";
  42
  43     } else {
  44
  45         my @options = (
  46             none => $class->ml('setting.safesearch.option.select.none'),
  47             10 => $class->ml('setting.safesearch.option.select.explicit'),
  48             20 => $class->ml('setting.safesearch.option.select.concepts'),
  49         );
  50
  51         $ret = LJ::html_select({
  52             name => "${key}safesearch",
  53             selected => $safesearch,
  54         }, @options);
  55
  56         my $errdiv = $class->errdiv($errs, "safesearch");
  57         $ret .= "<br />$errdiv" if $errdiv;
  58     }
  59
  60     return $ret;
  61 }
  62
  63 sub error_check {
  64     my ($class, $u, $args) = @_;
  65     my $val = $class->get_arg($args, "safesearch");
  66
  67     $class->errors( safesearch => $class->ml('setting.safesearch.error.invalid') )
  68         unless $val eq "none" || $val =~ /^\d+$/;
  69
  70     return 1;
  71 }
  72
  73 sub save {
  74     my ($class, $u, $args) = @_;
  75
  76     my $val;
  77
  78     if ( LJ::is_enabled('remove_adult_concepts') ) {
  79
  80         $val = $class->get_arg($args, "safesearch") ? '20' : 'none';
  81
  82     } else {
  83         $class->error_check($u, $args);
  84
  85         $val = $class->get_arg($args, "safesearch");
  86     }
  87
  88     $u->set_prop( safe_search => $val );
  89
  90     return 1;
  91 }
  92
  93 1;