[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.522.2.23.2.3 and 1.522.2.23.4.2

version 1.522.2.23.2.3, 2019/03/02 16:25:45 version 1.522.2.23.4.2, 2017/11/16 23:48:30
Line 833  sub plink { Line 833  sub plink {
     my ($type,$dis,$value,$marker,$return,$call)=@_;      my ($type,$dis,$value,$marker,$return,$call)=@_;
     my $winvalue=$value;      my $winvalue=$value;
     unless ($winvalue) {      unless ($winvalue) {
         if ((&isdateparm($type)) || (&is_specialstring($type))) {      if (&isdateparm($type)) {
             $winvalue=$env{'form.recent_'.$type};              $winvalue=$env{'form.recent_'.$type};
         } elsif ($type eq 'string_yesno') {  
             if ($env{'form.recent_string'} =~ /^(yes|no)$/i) {  
                 $winvalue=$env{'form.recent_string'};  
             }  
         } else {          } else {
             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};              $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
         }          }
Line 871  sub page_js { Line 867  sub page_js {
     $pjump_def      $pjump_def
   
     function psub() {      function psub() {
         var specstring = /^string_!(yesno|any)/i;  
         if (document.parmform.pres_marker.value!='') {          if (document.parmform.pres_marker.value!='') {
             document.parmform.action+='#'+document.parmform.pres_marker.value;              document.parmform.action+='#'+document.parmform.pres_marker.value;
             var typedef=new Array();              var typedef=new Array();
             typedef=document.parmform.pres_type.value.split('_');              typedef=document.parmform.pres_type.value.split('_');
            if (document.parmform.pres_type.value!='') {             if (document.parmform.pres_type.value!='') {
             if ((typedef[0]=='date') ||              if (typedef[0]=='date') {
                 (specstring.test(document.parmform.pres_type.value))) {  
                 eval('document.parmform.recent_'+                  eval('document.parmform.recent_'+
                      document.parmform.pres_type.value+                       document.parmform.pres_type.value+
              '.value=document.parmform.pres_value.value;');               '.value=document.parmform.pres_value.value;');
Line 928  function showHide_courseContent() { Line 922  function showHide_courseContent() {
 COURSECONTENTSCRIPT  COURSECONTENTSCRIPT
 }  }
   
 sub validateparms_js {  
     return <<'ENDSCRIPT';  
   
 function validateParms() {  
     var ipallowRegExp = /^setipallow_/;  
     var ipdenyRegExp = /^setipdeny_/;  
     var patternIP = /[\[\]\*\.a-zA-Z\d\-]+/;  
     if ((document.parmform.elements.length != 'undefined')  && (document.parmform.elements.length) != 'null') {  
         if (document.parmform.elements.length) {  
             for (i=0; i<document.parmform.elements.length; i++) {  
                 var name=document.parmform.elements[i].name;  
                 if (ipallowRegExp.test(name)) {  
                     var identifier = name.replace(ipallowRegExp,'');  
                     var possallow = document.parmform.elements[i].value;  
                     possallow = possallow.replace(/^\s+|\s+$/g,'');  
                     if (patternIP.test(possallow)) {  
                         if (document.parmform.elements['set_'+identifier].value) {  
                             possallow = ','+possallow;  
                         }  
                         document.parmform.elements['set_'+identifier].value += possallow;  
                     }  
                 } else if (ipdenyRegExp.test(name)) {  
                     var identifier = name.replace(ipdenyRegExp,'');  
                     var possdeny = document.parmform.elements[i].value;  
                     possdeny = possdeny.replace(/^\s+|\s+$/g,'');  
                     if (patternIP.test(possdeny)) {  
                         possdeny = '!'+possdeny;  
                         if (document.parmform.elements['set_'+identifier].value) {  
                             possdeny = ','+possdeny;  
                         }  
                     }  
                 }  
             }  
         }  
     }  
     return true;  
 }  
   
 ENDSCRIPT  
 }  
   
 # Javascript initialization, for overview mode  
 sub ipacc_boxes_js  {  
     my $remove = &mt('Remove');  
     return <<"END";  
 \$(document).ready(function() {  
     var wrapper         = \$(".LC_string_ipacc_wrap");  
     var add_button      = \$(".LC_add_ipacc_button");  
     var ipaccRegExp     = /^LC_string_ipacc_/;  
   
     \$(add_button).click(function(e){  
         e.preventDefault();  
         var identifier = \$(this).closest("div").attr("id");  
         identifier = identifier.replace(ipaccRegExp,'');  
         \$(this).closest('div').find('.LC_string_ipacc_inner').append('<div><input type="text" name="setip'+identifier+'" /><a href="#" class="LC_remove_ipacc">$remove</a></div>');  
     });  
   
     \$(wrapper).delegate(".LC_remove_ipacc","click", function(e){  
         e.preventDefault(); \$(this).closest("div").remove();  
     })  
 });  
   
   
 END  
 }  
   
 sub done_proctor_js {  sub done_proctor_js {
     return <<"END";      return <<"END";
 function toggleSecret(form,radio,key) {  function toggleSecret(form,radio,key) {
Line 1387  sub isdateparm { Line 1315  sub isdateparm {
     return (($type=~/^date/) && (!($type eq 'date_interval')));      return (($type=~/^date/) && (!($type eq 'date_interval')));
 }  }
   
 # Determine if parameter type is specialized string type (i.e.,  
 # not just string or string_yesno.  
   
 sub is_specialstring {  
     my $type=shift;  
     return (($type=~/^string_/) && (($type ne 'string_yesno')));  
 }  
   
 #  #
 # parmmenu displays a list of the selected parameters.  # parmmenu displays a list of the selected parameters.
 # It also offers a link to show/hide the complete parameter list  # It also offers a link to show/hide the complete parameter list
Line 2274  sub assessparms { Line 2194  sub assessparms {
         my ($got_chostname,$chostname,$cmajor,$cminor);          my ($got_chostname,$chostname,$cmajor,$cminor);
         my $totalstored = 0;          my $totalstored = 0;
         my $now = time;          my $now = time;
   
         for (my $i=0;$i<=$#markers;$i++) {          for (my $i=0;$i<=$#markers;$i++) {
             my ($needsrelease,$needsnewer,$name);              my ($needsrelease,$needsnewer,$name);
             if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {              if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {
Line 2365  sub assessparms { Line 2286  sub assessparms {
   
     &startpage($r,$pssymb);      &startpage($r,$pssymb);
   
     foreach my $item ('tolerance','date_default','date_start','date_end',      foreach ('tolerance','date_default','date_start','date_end',
                       'date_interval','int','float','string','string_lenient',          'date_interval','int','float','string') {
                       'string_examcode','string_deeplink','string_discussvote',  
                       'string_useslots','string_problemstatus','string_ip',  
                       'string_questiontype') {  
         $r->print('<input type="hidden" value="'.          $r->print('<input type="hidden" value="'.
           &HTML::Entities::encode($env{'form.recent_'.$item},'"&<>').            &HTML::Entities::encode($env{'form.recent_'.$_},'"&<>').
           '" name="recent_'.$item.'" />');            '" name="recent_'.$_.'" />');
     }      }
   
     # ----- Start Parameter Selection      # ----- Start Parameter Selection
Line 2984  sub storedata { Line 2902  sub storedata {
     if ($key =~ /^form\.([a-z]+)\_(.+)$/) {      if ($key =~ /^form\.([a-z]+)\_(.+)$/) {
         my $cmd=$1;          my $cmd=$1;
         my $thiskey=$2;          my $thiskey=$2;
         next if ($cmd eq 'setipallow' || $cmd eq 'setipdeny');  
         my ($tuname,$tudom)=&extractuser($thiskey);          my ($tuname,$tudom)=&extractuser($thiskey);
         my $tkey=$thiskey;          my $tkey=$thiskey;
             if ($tuname) {              if ($tuname) {
Line 3397  sub default_selector { Line 3314  sub default_selector {
     return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'"'.$disabled.' />';      return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'"'.$disabled.' />';
 }  }
   
 sub string_ip_selector {  
     my ($thiskey, $showval, $readonly) = @_;  
     my %access = (  
                    allow => [],  
                    deny  => [],  
                  );  
     if ($showval ne '') {  
         my @current;  
         if ($showval =~ /,/) {  
             @current = split(/,/,$showval);  
         } else {  
             @current = ($showval);  
         }  
         foreach my $item (@current) {  
             if ($item =~ /^\!([\[\]a-zA-Z\.\d\*\-]+)$/) {  
                 push(@{$access{'deny'}},$1);  
             } elsif ($item =~ /^([\[\]a-zA-Z\.\d\*\-]+)$/) {  
                 push(@{$access{'allow'}},$item);  
             }  
         }  
     }  
     if (!@{$access{'allow'}}) {  
         @{$access{'allow'}} = ('');  
     }  
     if (!@{$access{'deny'}}) {  
         @{$access{'deny'}} = ('');  
     }  
     my ($disabled,$addmore);  
     if ($readonly) {  
         $disabled=' disabled="disabled"';  
     } else {  
         $addmore = "\n".'<button class="LC_add_ipacc_button">'.&mt('Add more').'</button>';  
     }  
     my $output = '<input type="hidden" name="set_'.$thiskey.'" />  
 <table><tr><th>'.&mt('Allow from').'</th><th>'.&mt('Deny from').'</th></tr><tr>';  
     foreach my $acctype ('allow','deny') {  
         $output .= '  
 <td valign="top">  
 <div class="LC_string_ipacc_wrap" id="LC_string_ipacc_'.$acctype.'_'.$thiskey.'">  
   <div class="LC_string_ipacc_inner">'."\n";  
         my $num = 0;  
         foreach my $curr (@{$access{$acctype}}) {  
             $output .= '<div><input type="text" name="setip'.$acctype.'_'.$thiskey.'" value="'.$curr.'"'.$disabled.' />';  
             if ($num > 0) {  
                 $output .= '<a href="#" class="LC_remove_ipacc">'.&mt('Remove').'</a>';  
             }  
             $output .= '</div>'."\n";  
             $num ++;  
         }  
         $output .= '  
   </div>'.$addmore.'  
 </div>  
 </td>';  
    }  
    $output .= '  
 </tr>  
 </table>'."\n";  
     return $output;  
 }  
   
 {  
   
 my %strings =  my %strings =
     (      (
      'string_yesno'       'string_yesno'
Line 3486  my %strings = Line 3341  my %strings =
              => [['yes','Yes'],               => [['yes','Yes'],
                  ['notended','Yes, unless discussion ended'],                   ['notended','Yes, unless discussion ended'],
                  ['no','No']],                   ['no','No']],
      'string_ip'       );
              => [['_allowfrom_','Hostname(s), or IP(s) from which access is allowed'],  
                  ['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']],  
     );  
   
 sub standard_string_options {  sub standard_string_options {
     my ($string_type) = @_;      my ($string_type) = @_;
Line 3530  sub string_selector { Line 3382  sub string_selector {
         }          }
     }      }
     
     if ($thistype eq 'string_ip') {  
         return &string_ip_selector($thiskey,$showval,$readonly);  
     }  
   
     my ($result,$disabled);      my ($result,$disabled);
   
     if ($readonly) {      if ($readonly) {
Line 3587  sub string_selector { Line 3435  sub string_selector {
     return $result;      return $result;
 }  }
   
 sub oldversion_warning {  
     my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;  
     my $desc;  
     my %stringtypes = (  
                         type         => 'string_questiontype',  
                         lenient      => 'string_lenient',  
                         retrypartial => 'string_yesno',  
                         discussvote  => 'string_discussvote',  
                         examcode     => 'string_examcode',  
                       );  
     if (exists($stringtypes{$name})) {  
         if ($name eq 'examcode') {  
             $desc = $value;  
         } elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {  
             foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {  
                 next unless (ref($possibilities) eq 'ARRAY');  
                 my ($parmval, $description) = @{ $possibilities };  
                 if ($parmval eq $value) {  
                     $desc = $description;  
                     last;  
                 }  
             }  
         }  
     } elsif (($name eq 'printstartdate') || ($name eq 'printenddate')) {  
         my $now = time;  
         if ($value =~ /^\d+$/) {  
             if ($name eq 'printstartdate') {  
                 if ($value > $now) {  
                     $desc = &Apache::lonlocal::locallocaltime($value);  
                 }  
             } elsif ($name eq 'printenddate') {  
                 if ($value < $now) {  
                     $desc = &Apache::lonlocal::locallocaltime($value);  
                 }  
             }  
         }  
     }  
     my $standard_name = &standard_parameter_names($name);  
     return '<p class="LC_warning">'.  
            &mt('[_1] was [_2]not[_3] set to [_4].',  
                $standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.  
            &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',  
            $cmajor.'.'.$cminor,$chostname,  
            $needsrelease).  
            '</p>';  
 }  
   
 }  
   
 #  #
 # Shift all start and end dates by $shift  # Shift all start and end dates by $shift
 #  #
Line 4759  my %standard_parms; Line 4558  my %standard_parms;
 my %standard_parms_types;  my %standard_parms_types;
   
 sub load_parameter_names {  sub load_parameter_names {
     open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");      open(my $config,"<","$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
     while (my $configline=<$config>) {      while (my $configline=<$config>) {
     if ($configline !~ /\S/ || $configline=~/^\#/) { next; }      if ($configline !~ /\S/ || $configline=~/^\#/) { next; }
     chomp($configline);      chomp($configline);
Line 5108  sub parameter_releasecheck { Line 4907  sub parameter_releasecheck {
     return $needsnewer;      return $needsnewer;
 }  }
   
   sub oldversion_warning {
       my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
       my $desc;
       my %stringtypes = (
                           type         => 'string_questiontype',
                           lenient      => 'string_lenient',
                           retrypartial => 'string_yesno',
                           discussvote  => 'string_discussvote',
                           examcode     => 'string_examcode',
                         );
       if (exists($stringtypes{$name})) {
           if ($name eq 'examcode') {
               $desc = $value;
           } elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
               foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {
                   next unless (ref($possibilities) eq 'ARRAY');
                   my ($parmval, $description) = @{ $possibilities };
                   if ($parmval eq $value) {
                       $desc = $description;
                       last;
                   }
               }
           }
       } elsif (($name eq 'printstartdate') || ($name eq 'printenddate')) {
           my $now = time;
           if ($value =~ /^\d+$/) {
               if ($name eq 'printstartdate') {
                   if ($value > $now) {
                       $desc = &Apache::lonlocal::locallocaltime($value);
                   }
               } elsif ($name eq 'printenddate') {
                   if ($value < $now) {
                       $desc = &Apache::lonlocal::locallocaltime($value);
                   }
               }
           }
       }
       my $standard_name = &standard_parameter_names($name);
       return '<p class="LC_warning">'.
              &mt('[_1] was [_2]not[_3] set to [_4].',
                  $standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.
              &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
              $cmajor.'.'.$cminor,$chostname,
              $needsrelease).
              '</p>';
   }
   
 sub get_permission {  sub get_permission {
     my %permission;      my %permission;
     my $allowed = 0;      my $allowed = 0;
Removed from v.1.522.2.23.2.3  
changed lines
  Added in v.1.522.2.23.4.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>