[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.28.4.10 and 1.522.2.28.4.12

version 1.522.2.28.4.10, 2023/07/06 19:24:31 version 1.522.2.28.4.12, 2024/08/19 17:01:00
Line 321  use Apache::lonnavmaps; Line 321  use Apache::lonnavmaps;
 use Apache::longroup;  use Apache::longroup;
 use Apache::lonrss;  use Apache::lonrss;
 use HTML::Entities;  use HTML::Entities;
   use Text::Wrap();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
   
Line 1880  sub lookUpTableParameter { Line 1881  sub lookUpTableParameter {
         'lenient' => 'grading',          'lenient' => 'grading',
         'retrypartial' => 'tries',          'retrypartial' => 'tries',
         'discussvote'  => 'misc',          'discussvote'  => 'misc',
           'texdisplay' => 'misc',
         'examcode' => 'high_level_randomization',          'examcode' => 'high_level_randomization',
     );      );
 }  }
Line 1953  sub parmboxes { Line 1955  sub parmboxes {
         &whatIsMyCategory($tempparameter, \%categoryList);          &whatIsMyCategory($tempparameter, \%categoryList);
     }      }
     #part to print the parm-list      #part to print the parm-list
       $Text::Wrap::columns=60;
       $Text::Wrap::separator='<br />';
     $r->print('<div class="LC_columnSection">'."\n");      $r->print('<div class="LC_columnSection">'."\n");
   
     #Print parameters      #Print parameters
Line 1970  sub parmboxes { Line 1974  sub parmboxes {
             if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {              if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
                 $r->print(' checked="checked"');                  $r->print(' checked="checked"');
             }              }
             $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}              $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? 
                                                       : $tempkey)                               Text::Wrap::wrap('','&nbsp;'x4,$$allparms{$tempkey})
                                : $tempkey)
                      .'</label></span><br />'."\n");                       .'</label></span><br />'."\n");
         }          }
         $r->print("</div>\n");          $r->print("</div>\n");
Line 2890  sub assessparms { Line 2895  sub assessparms {
                       'date_interval','int','float','string','string_lenient',                        'date_interval','int','float','string','string_lenient',
                       'string_examcode','string_deeplink','string_discussvote',                        'string_examcode','string_deeplink','string_discussvote',
                       'string_useslots','string_problemstatus','string_ip',                        'string_useslots','string_problemstatus','string_ip',
                       'string_questiontype') {                        'string_questiontype','string_tex') {
         $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_'.$item},'"&<>').
           '" name="recent_'.$item.'" />');            '" name="recent_'.$item.'" />');
Line 3572  sub storedata { Line 3577  sub storedata {
                 if ($thiskey =~ /\.retrypartial$/) {                  if ($thiskey =~ /\.retrypartial$/) {
                     $name = 'retrypartial';                      $name = 'retrypartial';
                 }                  }
               } elsif ($typeof eq 'string_tex') {
                   $name = 'texdisplay';
             }              }
         } elsif ($cmd eq 'datepointer') {          } elsif ($cmd eq 'datepointer') {
             $data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});              $data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});
Line 4376  my %strings = Line 4383  my %strings =
                  ['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']],                   ['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']],
      'string_deeplink'       'string_deeplink'
              => [['on','Set choices for link protection, resource listing, access scope, shown menu items, embedding, and exit link']],               => [['on','Set choices for link protection, resource listing, access scope, shown menu items, embedding, and exit link']],
        'string_tex'
                => [['tth', 'tth (TeX to HTML)'],
                    ['mathjax', 'MathJax']],
      );       );
   
 my %stringmatches = (  my %stringmatches = (
Line 4394  my %stringtypes = ( Line 4404  my %stringtypes = (
                     examcode     => 'string_examcode',                      examcode     => 'string_examcode',
                     acc          => 'string_ip',                      acc          => 'string_ip',
                     deeplink     => 'string_deeplink',                      deeplink     => 'string_deeplink',
                       texdisplay   => 'string_tex',
                   );                    );
   
 sub standard_string_options {  sub standard_string_options {
Removed from v.1.522.2.28.4.10  
changed lines
  Added in v.1.522.2.28.4.12

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