Diff for /loncom/interface/lonparmset.pm between versions 1.505.2.1.2.2 and 1.506

version 1.505.2.1.2.2, 2012/05/01 15:54:49 version 1.506, 2011/01/13 17:44:30
Line 302  use Apache::lonlocal; Line 302  use Apache::lonlocal;
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
 use Apache::longroup;  use Apache::longroup;
 use Apache::lonrss;  use Apache::lonrss;
   use HTML::Entities;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
   
Line 890  sub startpage { Line 891  sub startpage {
                        {'add_entries' => \%loaditems,});                         {'add_entries' => \%loaditems,});
     my $breadcrumbs =      my $breadcrumbs =
     &Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');      &Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');
       my $escfilter=&Apache::lonhtmlcommon::entity_encode($env{'form.filter'});
       my $escpart=&Apache::lonhtmlcommon::entity_encode($env{'form.part'});
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 $start_page  $start_page
 $breadcrumbs  $breadcrumbs
Line 898  $breadcrumbs Line 901  $breadcrumbs
 <input type="hidden" value="" name="pres_type" />  <input type="hidden" value="" name="pres_type" />
 <input type="hidden" value="" name="pres_marker" />  <input type="hidden" value="" name="pres_marker" />
 <input type="hidden" value="1" name="prevvisit" />  <input type="hidden" value="1" name="prevvisit" />
   <input type="hidden" value="$escfilter" name="filter" />
   <input type="hidden" value="$escpart" name="part" />
 ENDHEAD  ENDHEAD
 }  }
   
Line 930  sub print_row { Line 935  sub print_row {
   
     if ($parmlev eq 'full') {      if ($parmlev eq 'full') {
         $r->print('<td style="background-color:'.$defbgtwo.';" align="center">'          $r->print('<td style="background-color:'.$defbgtwo.';" align="center">'
                   .$$part{$which}.'</td>');                    .($$part{$which} eq '0'?'0 ('.&mt('default').')':$$part{$which}).'</td>');
     } else {      } else {
         $parm=~s|\[.*\]\s||g;          $parm=~s|\[.*\]\s||g;
     }      }
Line 1265  sub parmmenu { Line 1270  sub parmmenu {
     function checkdisset() {      function checkdisset() {
     checkthis('discussend','pscat');      checkthis('discussend','pscat');
      checkthis('discusshide','pscat');       checkthis('discusshide','pscat');
      checkthis('discussvote','pscat');  
     }      }
   
     function checkcontdates() {      function checkcontdates() {
Line 1404  sub lookUpTableParameter { Line 1408  sub lookUpTableParameter {
         'acc' => 'misc',          'acc' => 'misc',
         'maxcollaborators' => 'misc',          'maxcollaborators' => 'misc',
         'scoreformat' => 'misc',          'scoreformat' => 'misc',
         'discussvote'  => 'misc',  
   
     );          );    
 }  }
Line 1750  sub mapmenu { Line 1753  sub mapmenu {
         # Info about selectable folders/maps          # Info about selectable folders/maps
         $r->print(          $r->print(
             '<div class="LC_info">'              '<div class="LC_info">'
            .&mt('You can only select maps and folders which have modifiable settings.')             .&mt('You can only select those maps and folders which can be currently parameterized.')
            .' '.&Apache::loncommon::help_open_topic('Parameter_Set_Folder')           # .' '.&Apache::loncommon::help_open_topic('...') # Later: Add further help
            .'</div>'             .'</div>'
         );          );
   
   
         $r->print(&Apache::loncommon::start_data_table());          $r->print(&Apache::loncommon::start_data_table());
   
         # Display row: "All Maps or Folders"          # Display row: "All Maps or Folders"
Line 1960  sub standardkeyorder { Line 1964  sub standardkeyorder {
         'parameter_0_tol' => 16,          'parameter_0_tol' => 16,
         'parameter_0_sig' => 17,          'parameter_0_sig' => 17,
         'parameter_0_turnoffunit' => 18,          'parameter_0_turnoffunit' => 18,
         'parameter_0_discussend' => 19,              'parameter_0_discussend' => 19,
         'parameter_0_discusshide' => 20,              'parameter_0_discusshide' => 20);
         'parameter_0_discussvote' => 21);  
 }  }
   
   
Line 2022  sub assessparms { Line 2025  sub assessparms {
   
     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');      my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
     my $pschp=$env{'form.pschp'};      my $pschp=$env{'form.pschp'};
   
   
     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');      my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
     if (!@psprt) { $psprt[0]='0'; }      if (!@psprt) { $psprt[0]='0'; }
       if (($env{'form.part'}) && ($psprt[0] ne 'all')) { $psprt[0]=$env{'form.part'}; }
   
     my $pssymb='';      my $pssymb='';
     my $parmlev='';      my $parmlev='';
Line 2125  sub assessparms { Line 2131  sub assessparms {
         my ($got_chostname,$chostname,$cmajor,$cminor);          my ($got_chostname,$chostname,$cmajor,$cminor);
         my $totalstored = 0;          my $totalstored = 0;
         for (my $i=0;$i<=$#markers;$i++) {          for (my $i=0;$i<=$#markers;$i++) {
             my ($needsrelease,$needsnewer,$name);              my ($needsrelease,$needsnewer);
             if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {              if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {
                 my (@ok_slots,@fail_slots,@del_slots);                  my (@ok_slots,@fail_slots,@del_slots);
                 my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);                  my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
Line 2156  sub assessparms { Line 2162  sub assessparms {
                         }                          }
                     }                      }
                 }                  }
             } elsif ($markers[$i] =~ /_(type|discussvote)\&\d+$/) {              } elsif ($markers[$i] =~ /_type\&\d+$/) {
                 $name = $1;  
                 $needsrelease =                  $needsrelease =
                     $Apache::lonnet::needsrelease{"parameter:$name:$values[$i]"};                      $Apache::lonnet::needsrelease{'parameter:type:'.$values[$i]};
                 if ($needsrelease) {                  if ($needsrelease) {
                     unless ($got_chostname) {                      unless ($got_chostname) {
                         ($chostname,$cmajor,$cminor) = &parameter_release_vars();                          ($chostname,$cmajor,$cminor) = &questiontype_release_vars();
                         $got_chostname = 1;                          $got_chostname = 1;
                     }                      }
                     $needsnewer = &parameter_releasecheck($name,$values[$i],                      $needsnewer = &questiontype_releasecheck($values[$i],
                                                           $needsrelease,                                                               $needsrelease,
                                                           $chostname,                                                               $chostname,
                                                           $cmajor,$cminor);                                                               $cmajor,$cminor);
                 }                  }
             }              }
             if ($needsnewer) {              if ($needsnewer) {
                 $message .= &oldversion_warning($name,$values[$i],$chostname,$cmajor,                  $message .= &oldversion_warning($values[$i],$chostname,$cmajor,
                                                 $cminor,$needsrelease);                                                  $cminor,$needsrelease);
             } else {              } else {
                 $message.=&storeparm(split(/\&/,$markers[$i]),                  $message.=&storeparm(split(/\&/,$markers[$i]),
Line 2334  COURSECONTENTSCRIPT Line 2339  COURSECONTENTSCRIPT
         my $csudom=$env{'user.domain'};          my $csudom=$env{'user.domain'};
   
         if ($parmlev eq 'full') {          if ($parmlev eq 'full') {
   #
   # This produces the cascading table output of parameters
   #
                my $coursespan=$csec?8:5;                 my $coursespan=$csec?8:5;
                my $userspan=3;                 my $userspan=3;
                if ($cgroup ne '') {                 if ($cgroup ne '') {
Line 2341  COURSECONTENTSCRIPT Line 2349  COURSECONTENTSCRIPT
                }                 }
   
                $r->print('<p><table border="2">');                 $r->print('<p><table border="2">');
   #
   # This produces the headers
   #
                $r->print('<tr><td colspan="5"></td>');                 $r->print('<tr><td colspan="5"></td>');
                $r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');                 $r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');
                if ($uname) {                 if ($uname) {
Line 2404  ENDTABLEHEADFOUR Line 2415  ENDTABLEHEADFOUR
                }                 }
   
                $r->print('</tr>');                 $r->print('</tr>');
   #
   # Done with the headers
   # 
                my $defbgone='';                 my $defbgone='';
                my $defbgtwo='';                 my $defbgtwo='';
                my $defbgthree = '';                 my $defbgthree = '';
Line 2444  ENDTABLEHEADFOUR Line 2457  ENDTABLEHEADFOUR
                     my %default=();                      my %default=();
                     my $uri=&Apache::lonnet::declutter($uris{$rid});                      my $uri=&Apache::lonnet::declutter($uris{$rid});
   
                       my $filter=$env{'form.filter'};
   
                     foreach (&keysplit($keyp{$rid})) {                      foreach (&keysplit($keyp{$rid})) {
                         my $tempkeyp = $_;                          my $tempkeyp = $_;
                         if (grep $_ eq $tempkeyp, @catmarker) {                          if (grep $_ eq $tempkeyp, @catmarker) {
                             my $parmname=&Apache::lonnet::metadata($uri,$_.'.name');
   # We may only want certain parameters listed
                             if ($filter) {
                                unless ($filter=~/\Q$parmname\E/) { next; }
                             }
                             $name{$_}=$parmname;
                           $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');                            $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
                           $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');  
                           my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');                            my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');
                           if ($allparms{$name{$_}} ne '') {                            if ($allparms{$name{$_}} ne '') {
                               my $identifier;                                my $identifier;
Line 2797  sub storedata { Line 2818  sub storedata {
         $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;          $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
         }          }
         if ($cmd eq 'set' || $cmd eq 'datepointer' || $cmd eq 'dateinterval') {          if ($cmd eq 'set' || $cmd eq 'datepointer' || $cmd eq 'dateinterval') {
         my ($data, $typeof, $text, $name);          my ($data, $typeof, $text);
         if ($cmd eq 'set') {          if ($cmd eq 'set') {
             $data=$env{$key};              $data=$env{$key};
             $typeof=$env{'form.typeof_'.$thiskey};              $typeof=$env{'form.typeof_'.$thiskey};
             $text = &mt('Saved modified parameter for');              $text = &mt('Saved modified parameter for');
             if ($typeof eq 'string_questiontype') {              if ($typeof eq 'string_questiontype') {
                 $name = 'type';      
             } elsif ($typeof eq 'string_discussvote') {  
                 $name = 'discussvote';  
             }  
             if ($name ne '') {  
                 my ($needsrelease,$needsnewer);                  my ($needsrelease,$needsnewer);
                 $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$data};                  $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$data};
                 if ($needsrelease) {                  if ($needsrelease) {
                     unless ($got_chostname) {                      unless ($got_chostname) {
                         ($chostname,$cmajor,$cminor)=&parameter_release_vars();                          ($chostname,$cmajor,$cminor)=&questiontype_release_vars();
                         $got_chostname = 1;                          $got_chostname = 1;
                     }                      }
                     $needsnewer = &parameter_releasecheck($name,$data,                      $needsnewer = &questiontype_releasecheck($data,$needsrelease,
                                                           $needsrelease,                                                               $chostname,$cmajor,
                                                           $chostname,$cmajor,                                                               $cminor);
                                                           $cminor);  
                 }                  }
                 if ($needsnewer) {                  if ($needsnewer) {
                     $r->print('<br />'.&oldversion_warning($name,$data,                      $r->print('<br />'.&oldversion_warning($data,$chostname,$cmajor,
                                                            $chostname,$cmajor,  
                                                            $cminor,$needsrelease));                                                             $cminor,$needsrelease));
                     next;                      next;
                 }                  }
Line 3057  sub listdata { Line 3071  sub listdata {
                           $$resourcedata{$thiskey}));                            $$resourcedata{$thiskey}));
         } elsif ($thistype =~ m/^string/) {          } elsif ($thistype =~ m/^string/) {
         $r->print(&string_selector($thistype,$thiskey,          $r->print(&string_selector($thistype,$thiskey,
                        $$resourcedata{$thiskey},$name));                         $$resourcedata{$thiskey}));
         } else {          } else {
         $r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));          $r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));
         }          }
Line 3131  my %strings = Line 3145  my %strings =
                  [ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],                   [ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],
                  [ 'practice', 'Practice'],                   [ 'practice', 'Practice'],
                  [ 'surveycred', 'Survey (credit for submission)']],                   [ 'surveycred', 'Survey (credit for submission)']],
      'string_discussvote'  
              => [['yes','Yes'],  
                  ['notended','Yes, unless discussion ended'],  
                  ['no','No']],  
      );       );
   
 sub standard_string_options {  sub standard_string_options {
Line 3146  sub standard_string_options { Line 3156  sub standard_string_options {
 }  }
   
 sub string_selector {  sub string_selector {
     my ($thistype, $thiskey, $showval, $name) = @_;      my ($thistype, $thiskey, $showval) = @_;
   
     if (!exists($strings{$thistype})) {      if (!exists($strings{$thistype})) {
     return &default_selector($thiskey,$showval);      return &default_selector($thiskey,$showval);
     }      }
   
     my %skiptype;      my %skiptype;
     if (($thistype eq 'string_questiontype') ||      if ($thistype eq 'string_questiontype') {
         ($thistype eq 'string_discussvote')) {  
         my ($got_chostname,$chostname,$cmajor,$cminor);           my ($got_chostname,$chostname,$cmajor,$cminor); 
         foreach my $possibilities (@{ $strings{$thistype} }) {          foreach my $possibilities (@{ $strings{$thistype} }) {
             next unless (ref($possibilities) eq 'ARRAY');              next unless (ref($possibilities) eq 'ARRAY');
             my ($parmval, $description) = @{ $possibilities };              my ($name, $description) = @{ $possibilities };
             my $needsrelease=$Apache::lonnet::needsrelease{"parameter:$name:$parmval"};              my $needsrelease=$Apache::lonnet::needsrelease{'parameter:type:'.$name};
             if ($needsrelease) {              if ($needsrelease) {
                 unless ($got_chostname) {                  unless ($got_chostname) {
                     ($chostname,$cmajor,$cminor)=&parameter_release_vars();                      ($chostname,$cmajor,$cminor)=&questiontype_release_vars();
                     $got_chostname = 1;                      $got_chostname = 1;
                 }                  }
                 my $needsnewer=&parameter_releasecheck($name,$parmval,$needsrelease,                  my $needsnewer=&questiontype_releasecheck($name,$needsrelease,
                                                        $chostname,$cmajor,                                                            $chostname,$cmajor,
                                                        $cminor);                                                            $cminor);
                 if ($needsnewer) {                  if ($needsnewer) {
                     $skiptype{$parmval} = 1;                      $skiptype{$name} = 1;
                 }                  }
             }              }
         }          }
Line 3296  ENDOVER Line 3305  ENDOVER
   
     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');      my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
     my $pschp=$env{'form.pschp'};      my $pschp=$env{'form.pschp'};
   
     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');      my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
     if (!@psprt) { $psprt[0]='0'; }      if (!@psprt) { $psprt[0]='0'; }
   
Line 4571  sub check_for_course_info { Line 4581  sub check_for_course_info {
     return 0;      return 0;
 }  }
   
 sub parameter_release_vars {   sub questiontype_release_vars { 
    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
    my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};     my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
    my $chostname = &Apache::lonnet::hostname($chome);     my $chostname = &Apache::lonnet::hostname($chome);
Line 4580  sub parameter_release_vars { Line 4590  sub parameter_release_vars {
    return ($chostname,$cmajor,$cminor);     return ($chostname,$cmajor,$cminor);
 }  }
   
 sub parameter_releasecheck {  sub questiontype_releasecheck {
     my ($name,$value,$needsrelease,$chostname,$cmajor,$cminor) = @_;      my ($questiontype,$needsrelease,$chostname,$cmajor,$cminor) = @_;
     my $needsnewer;      my $needsnewer;
     my ($needsmajor,$needsminor) = split(/\./,$needsrelease);      my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
     if (($cmajor < $needsmajor) ||       if (($cmajor < $needsmajor) || 
         ($cmajor == $needsmajor && $cminor < $needsminor)) {          ($cmajor == $needsmajor && $cminor < $needsminor)) {
         $needsnewer = 1;          $needsnewer = 1;
     } else {      } else {
         &Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.':'.$value});          &Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:type:'.$questiontype});
     }      }
     return $needsnewer;      return $needsnewer;
 }  }
   
 sub oldversion_warning {  sub oldversion_warning {
     my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;      my ($questiontype,$chostname,$cmajor,$cminor,$needsrelease) = @_;
     my $desc;      my $desc;
     my %stringtypes = (      if (ref($strings{'string_questiontype'}) eq 'ARRAY') {
                         type         => 'string_questiontype',          foreach my $possibilities (@{ $strings{'string_questiontype'} }) {
                         discussvote  => 'string_discussvote',              next unless (ref($possibilities) eq 'ARRAY');
                       );              my ($name, $description) = @{ $possibilities };
     if (exists($stringtypes{$name})) {              if ($name eq $questiontype) {
         if (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {                  $desc = $description;
             foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {                  last;
                 next unless (ref($possibilities) eq 'ARRAY');  
                 my ($parmval, $description) = @{ $possibilities };  
                 if ($parmval eq $value) {  
                     $desc = $description;  
                     last;  
                 }  
             }              }
         }          }
     }      }
     my $standard_name = &standard_parameter_names($name);  
     return '<p class="LC_warning">'.      return '<p class="LC_warning">'.
            &mt('[_1] was [_2]not[_3] set to [_4].',             &mt('Question Type was [_1]not[_2] set to [_3].',
                $standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.             '<b>','</b>','"'.$desc.'"').'<br />'.
            &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',             &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
            $cmajor.'.'.$cminor,$chostname,             $cmajor.'.'.$cminor,$chostname,
            $needsrelease).             $needsrelease).
Line 4636  sub handler { Line 4639  sub handler {
                                              'pres_marker',                                               'pres_marker',
                                              'pres_value',                                               'pres_value',
                                              'pres_type',                                               'pres_type',
                                                'filter','part',
                                              'udom','uname','symb','serial','timebase']);                                               'udom','uname','symb','serial','timebase']);
   
   

Removed from v.1.505.2.1.2.2  
changed lines
  Added in v.1.506


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