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

Diff for /loncom/interface/lonparmset.pm between versions 1.211 and 1.219

version 1.211, 2005/06/06 02:25:09 version 1.219, 2005/06/09 20:35:48
Line 403  sub valout { Line 403  sub valout {
  $result.=$sec.' secs ';   $result.=$sec.' secs ';
             }              }
             $result=~s/\s+$//;              $result=~s/\s+$//;
         } elsif ($type=~/^date/) {          } elsif (&isdateparm($type)) {
             $result = localtime($value);              $result = localtime($value);
         } else {          } else {
             $result = $value;              $result = $value;
Line 434  sub plink { Line 434  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 ($type=~/^date/) {   if (&isdateparm($type)) {
             $winvalue=$env{'form.recent_'.$type};              $winvalue=$env{'form.recent_'.$type};
         } else {          } else {
             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};              $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
Line 742  sub extractResourceInformation { Line 742  sub extractResourceInformation {
 ##################################################  ##################################################
 ##################################################  ##################################################
   
   sub isdateparm {
       my $type=shift;
       return (($type=~/^date/) && (!($type eq 'date_interval')));
   }
   
 sub parmmenu {  sub parmmenu {
     my ($r,$allparms,$pscat,$keyorder)=@_;      my ($r,$allparms,$pscat,$keyorder)=@_;
     my $tempkey;      my $tempkey;
Line 771  sub parmmenu { Line 776  sub parmmenu {
  checkthis('duedate','pscat');   checkthis('duedate','pscat');
   checkthis('opendate','pscat');    checkthis('opendate','pscat');
  checkthis('answerdate','pscat');   checkthis('answerdate','pscat');
  checkthis('interval','pscat');      }
    }  
       function checkdisset() {
    checkthis('discussend','pscat');
     checkthis('discusshide','pscat');
       }
   
       function checkcontdates() {
    checkthis('contentopen','pscat');
     checkthis('contentclose','pscat');
       }
    
   
     function checkvisi() {      function checkvisi() {
  checkthis('hiddenresource','pscat');   checkthis('hiddenresource','pscat');
Line 815  ENDSCRIPT Line 830  ENDSCRIPT
     }      }
     $r->print('      $r->print('
 </tr><tr><td>  </tr><tr><td>
 <a href="javascript:checkall(true, \'pscat\')">Select All</a>  <a href="javascript:checkall(true, \'pscat\')">Select All</a><br />
 <a href="javascript:checkstandard()">Select Standard</a>  <a href="javascript:checkstandard()">Select Common Only</a>
 </td><td>  </td><td>
 <a href="javascript:checkdates()">Select Dates</a>  <a href="javascript:checkdates()">Add Problem Dates</a>
 <a href="javascript:checkvisi()">Select Visibilities</a>  <a href="javascript:checkcontdates()">Add Content Dates</a><br />
 <a href="javascript:checkparts()">Select Part Parameters</a>  <a href="javascript:checkdisset()">Add Discussion Settings</a>
   <a href="javascript:checkvisi()">Add Visibilities</a><br />
   <a href="javascript:checkparts()">Add Part Parameters</a>
 </td><td>  </td><td>
 <a href="javascript:checkall(false, \'pscat\')">Unselect All</a>  <a href="javascript:checkall(false, \'pscat\')">Unselect All</a>
 </td>  </td>
Line 927  sub levelmenu { Line 944  sub levelmenu {
   
 sub sectionmenu {  sub sectionmenu {
     my ($r,$selectedsections)=@_;      my ($r,$selectedsections)=@_;
       my %sectionhash=();
   
     my ($classlist,$field_names) =       if (&Apache::loncommon::get_sections(
  &Apache::loncoursedata::get_classlist(                   $env{'course.'.$env{'request.course.id'}.'.domain'},
        $env{'request.course.id'},                   $env{'course.'.$env{'request.course.id'}.'.num'},
        $env{'course.'.$env{'request.course.id'}.'.domain'},   \%sectionhash)) {
        $env{'course.'.$env{'request.course.id'}.'.num'});   $r->print('<select name="Section" multiple="true" size="8" >');
     my %Sections=();   foreach my $s ('all',sort keys %sectionhash) {
     while (my ($student,$student_data) = each (%$classlist)) {      $r->print('    <option value="'.$s.'"');
  my $studenthash = ();      foreach (@{$selectedsections}) {
         for (my $i=0; $i< scalar(@$field_names);$i++) {   if ($s eq $_) {
             my $field = $field_names->[$i];      $r->print(' selected');
             # Store the data      last;
             $studenthash->{$field}=$student_data->[$i];   }
         }      }
  my $section = $studenthash->{'section'};      $r->print('>'.$s."</option>\n");
         if (! defined($section) || $section =~/^\s*$/ || $section == -1) {   }
             $studenthash->{'section'} = 'none';   $r->print("</select>\n");
             $section = $studenthash->{'section'};  
         }  
         $Sections{$section}++;  
     }  
     my @Sections = sort {$a cmp $b} keys(%Sections);  
     unshift(@Sections,'all');  
   
     $r->print('<select name="Section" multiple="true" size="8" >');  
   
     foreach my $s (@Sections) {  
         $r->print('    <option value="'.$s.'"');  
         foreach (@{$selectedsections}) {  
             if ($s eq $_) {  
                 $r->print(' selected');  
                 last;  
             }  
         }  
         $r->print('>'.$s."</option>\n");  
     }      }
     $r->print("</select>\n");  
 }  }
   
 sub keysplit {  sub keysplit {
Line 985  sub keysindisplayorder { Line 984  sub keysindisplayorder {
     } (keys %{$name});      } (keys %{$name});
 }  }
   
   sub sortmenu {
       my ($r,$sortorder)=@_;
       $r->print('<br /><input type="radio" name="sortorder" value="realmstudent"');
       if ($sortorder eq 'realmstudent') {
          $r->print(' checked="on"');
       }
       $r->print(' />'.&mt('Sort by realm first, then student (group/section)'));
       $r->print('<br /><input type="radio" name="sortorder" value="studentrealm"');
       if ($sortorder eq 'studentrealm') {
          $r->print(' checked="on"');
       }
       $r->print(' />'.&mt('Sort by student (group/section) first, then realm'));
   }
   
 sub standardkeyorder {  sub standardkeyorder {
     return ('parameter_0_opendate' => 1,      return ('parameter_0_opendate' => 1,
     'parameter_0_duedate' => 2,      'parameter_0_duedate' => 2,
Line 1003  sub standardkeyorder { Line 1016  sub standardkeyorder {
     'parameter_0_ordered' => 15,      'parameter_0_ordered' => 15,
     '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_discusshide' => 20);
 }  }
   
 ##################################################  ##################################################
Line 1061  sub assessparms { Line 1076  sub assessparms {
     my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};      my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
   
     $alllevs{'Resource Level'}='full';      $alllevs{'Resource Level'}='full';
     $alllevs{'Map Level'}='map';      $alllevs{'Map/Folder Level'}='map';
     $alllevs{'Course Level'}='general';      $alllevs{'Course Level'}='general';
   
     my %allparms;      my %allparms;
Line 1212  sub assessparms { Line 1227  sub assessparms {
     } else {      } else {
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);          my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
         $r->print(&mt('Specific Resource').": ".$resource.          $r->print(&mt('Specific Resource').": ".$resource.
                   '<input type="hidden" value="'.$pssymb.'" name="symb">');                    '<input type="hidden" value="'.$pssymb.'" name="symb"><br />');
     }      }
     &usermenu($r,$uname,$id,$udom,$csec);          &usermenu($r,$uname,$id,$udom,$csec);    
   
Line 1779  sub crsenv { Line 1794  sub crsenv {
              'anonymous_quiz'               'anonymous_quiz'
                  => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.                   => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
                     ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',                      ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
              'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',               'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',
              'default_enrollment_end_date'   => '<b>'.&mt('Default ending date when enrolling students').'</b>',               'default_enrollment_end_date'   => '<b>'.&mt('Default ending date for student access.').'</b>',
              'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.               'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
                                  '<br />(<tt>user:domain,user:domain,...</tt>)',                                   '<br />(<tt>user:domain,user:domain,...</tt>)',
              'languages' => '<b>'.&mt('Languages used').'</b>',               'languages' => '<b>'.&mt('Languages used').'</b>',
Line 1967  sub storedata { Line 1982  sub storedata {
     }      }
     if ($cmd eq 'set') {      if ($cmd eq 'set') {
  my $data=$env{$_};   my $data=$env{$_};
  if ($$olddata{$thiskey} ne $data) {                   my $typeof=$env{'form.typeof_'.$thiskey};
     if ($$olddata{$thiskey} ne $data) { 
     if ($tuname) {      if ($tuname) {
  if (&Apache::lonnet::put('resourcedata',{$tkey=>$data},$tudom,$tuname) eq 'ok') {   if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
    $tkey.'.type' => $typeof},
    $tudom,$tuname) eq 'ok') {
     $r->print('<br />'.&mt('Stored modified parameter for').' '.      $r->print('<br />'.&mt('Stored modified parameter for').' '.
       &Apache::loncommon::plainname($tuname,$tudom));        &Apache::loncommon::plainname($tuname,$tudom));
  } else {   } else {
Line 1979  sub storedata { Line 1997  sub storedata {
  &Apache::lonnet::devalidateuserresdata($tuname,$tudom);   &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
     } else {      } else {
  $newdata{$thiskey}=$data;   $newdata{$thiskey}=$data;
                     }     $newdata{$thiskey.'.type'}=$typeof; 
                      } 
  }   }
     } elsif ($cmd eq 'del') {      } elsif ($cmd eq 'del') {
  if ($tuname) {   if ($tuname) {
Line 1995  sub storedata { Line 2014  sub storedata {
  }   }
     } elsif ($cmd eq 'datepointer') {      } elsif ($cmd eq 'datepointer') {
  my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});   my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});
                   my $typeof=$env{'form.typeof_'.$thiskey};
  if (defined($data) and $$olddata{$thiskey} ne $data) {    if (defined($data) and $$olddata{$thiskey} ne $data) { 
     if ($tuname) {      if ($tuname) {
  if (&Apache::lonnet::put('resourcedata',{$tkey=>$data},$tudom,$tuname) eq 'ok') {   if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
    $tkey.'.type' => $typeof},
    $tudom,$tuname) eq 'ok') {
     $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));      $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
  } else {   } else {
     $r->print('<h2><font color="red">'.      $r->print('<h2><font color="red">'.
Line 2005  sub storedata { Line 2027  sub storedata {
  }   }
  &Apache::lonnet::devalidateuserresdata($tuname,$tudom);   &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
     } else {      } else {
  $newdata{$thiskey}=$data;    $newdata{$thiskey}=$data;
    $newdata{$thiskey.'.type'}=$typeof; 
     }      }
  }   }
     }      }
Line 2026  sub storedata { Line 2049  sub storedata {
     }      }
     if ($putentries) {      if ($putentries) {
  if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {   if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
     $r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));      $r->print('<h3>'.&mt('Stored [_1] parameter(s)',$putentries/2).'</h3>');
  } else {   } else {
     $r->print('<h2><font color="red">'.      $r->print('<h2><font color="red">'.
       &mt('Error storing parameters').'</font></h2>');        &mt('Error storing parameters').'</font></h2>');
Line 2041  sub extractuser { Line 2064  sub extractuser {
 }  }
   
 sub listdata {  sub listdata {
     my ($r,$resourcedata,$listdata)=@_;      my ($r,$resourcedata,$listdata,$sortorder)=@_;
 # Start list output  # Start list output
   
     my $oldsection='';      my $oldsection='';
Line 2050  sub listdata { Line 2073  sub listdata {
     my $pointer=0;      my $pointer=0;
     $tableopen=0;      $tableopen=0;
     my $foundkeys=0;      my $foundkeys=0;
     foreach my $thiskey (sort keys %{$listdata}) {      foreach my $thiskey (sort {
    if ($sortorder eq 'realmstudent') {
       my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
       my ($bstudent,$brealm)=($b=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
               ($arealm cmp $brealm) || ($astudent cmp $bstudent);
    } else {
       $a cmp $b;
    }
       } keys %{$listdata}) {
  if ($$listdata{$thiskey.'.type'}) {   if ($$listdata{$thiskey.'.type'}) {
             my $thistype=$$listdata{$thiskey.'.type'};              my $thistype=$$listdata{$thiskey.'.type'};
             if ($$resourcedata{$thiskey.'.type'}) {              if ($$resourcedata{$thiskey.'.type'}) {
Line 2077  sub listdata { Line 2108  sub listdata {
  my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);   my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
  $realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';   $realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
     }      }
     if ($section ne $oldsection) {      if ($sortorder eq 'realmstudent') {
  $r->print(&tableend()."\n<hr /><h1>$section</h1>");   if ($realm ne $oldrealm) {
  $oldsection=$section;      $r->print(&tableend()."\n<hr /><h1>$realm</h1>");
  $oldrealm='';      $oldrealm=$realm;
     }      $oldsection='';
     if ($realm ne $oldrealm) {   }
  $r->print(&tableend()."\n<h2>$realm</h2>");   if ($section ne $oldsection) {
  $oldrealm=$realm;      $r->print(&tableend()."\n<h2>$section</h2>");
  $oldpart='';      $oldsection=$section;
       $oldpart='';
    }
       } else {
    if ($section ne $oldsection) {
       $r->print(&tableend()."\n<hr /><h1>$section</h1>");
       $oldsection=$section;
       $oldrealm='';
    }
    if ($realm ne $oldrealm) {
       $r->print(&tableend()."\n<h2>$realm</h2>");
       $oldrealm=$realm;
       $oldpart='';
    }
     }      }
     if ($part ne $oldpart) {      if ($part ne $oldpart) {
  $r->print(&tableend().   $r->print(&tableend().
   "\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");    "\n<font color='blue'>".&mt('Part').": $part</font>");
  $oldpart=$part;   $oldpart=$part;
     }      }
 #  #
Line 2099  sub listdata { Line 2143  sub listdata {
       ':</b></td><td><input type="checkbox" name="del_'.        ':</b></td><td><input type="checkbox" name="del_'.
       $thiskey.'" /></td><td>');        $thiskey.'" /></td><td>');
     $foundkeys++;      $foundkeys++;
     if ($thistype=~/^date/) {      if (&isdateparm($thistype)) {
  my $jskey='key_'.$pointer;   my $jskey='key_'.$pointer;
  $pointer++;   $pointer++;
  $r->print(   $r->print(
   &Apache::lonhtmlcommon::date_setter('overviewform',    &Apache::lonhtmlcommon::date_setter('overviewform',
       $jskey,        $jskey,
       $$resourcedata{$thiskey}).        $$resourcedata{$thiskey},
         '',1).
 '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'  '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
   );    );
       } elsif ($thistype eq 'string_yesno') {
    $r->print('<label><input type="radio" name="set_'.$thiskey.
     '" value="yes"');
    if ($$resourcedata{$thiskey} eq 'yes') {
       $r->print(' checked="checked"');
    }
                   $r->print(' />'.&mt('Yes').'</label> ');
    $r->print('<label><input type="radio" name="set_'.$thiskey.
     '" value="no"');
    if ($$resourcedata{$thiskey} eq 'no') {
       $r->print(' checked="checked"');
    }
                   $r->print(' />'.&mt('No').'</label>');
     } else {      } else {
  $r->print('<input type="text" name="set_'.$thiskey.'" value="'.   $r->print('<input type="text" name="set_'.$thiskey.'" value="'.
   $$resourcedata{$thiskey}.'">');    $$resourcedata{$thiskey}.'">');
Line 2122  sub listdata { Line 2180  sub listdata {
   
 sub newoverview {  sub newoverview {
     my $r=shift;      my $r=shift;
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag('Set Parameters');
                              'Set Course Assessment Parameters');  
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');      my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
Line 2152  ENDOVER Line 2209  ENDOVER
   
     my %alllevs=();      my %alllevs=();
     $alllevs{'Resource Level'}='full';      $alllevs{'Resource Level'}='full';
     $alllevs{'Map Level'}='map';      $alllevs{'Map/Folder Level'}='map';
     $alllevs{'Course Level'}='general';      $alllevs{'Course Level'}='general';
   
     my $csec=$env{'form.csec'};      my $csec=$env{'form.csec'};
Line 2201  ENDOVER Line 2258  ENDOVER
     &partmenu($r,\%allparts,\@psprt);      &partmenu($r,\%allparts,\@psprt);
     $r->print('</td><td>');      $r->print('</td><td>');
     &sectionmenu($r,\@selected_sections);      &sectionmenu($r,\@selected_sections);
   
     $r->print('</td></tr></table>');      $r->print('</td></tr></table>');
        
       my $sortorder=$env{'form.sortorder'};
       unless ($sortorder) { $sortorder='realmstudent'; }
       &sortmenu($r,$sortorder);
   
       $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
   
 # Build the list data hash from the specified parms  # Build the list data hash from the specified parms
   
Line 2212  ENDOVER Line 2275  ENDOVER
     foreach my $cat (@pscat) {      foreach my $cat (@pscat) {
  foreach my $section (@selected_sections) {   foreach my $section (@selected_sections) {
     foreach my $part (@psprt) {      foreach my $part (@psprt) {
                 my $newparmkey=$env{'request.course.id'};                  my $rootparmkey=$env{'request.course.id'};
                 if (($section ne 'all') && ($section ne 'none') && ($section)) {                  if (($section ne 'all') && ($section ne 'none') && ($section)) {
     $newparmkey.='.['.$section.']';      $rootparmkey.='.['.$section.']';
  }   }
  if ($parmlev eq 'general') {   if ($parmlev eq 'general') {
 # course-level parameter  # course-level parameter
       my $newparmkey=$rootparmkey.'.'.$part.'.'.$cat;
       $$listdata{$newparmkey}=1;
       $$listdata{$newparmkey.'.type'}=$defkeytype{$cat};
  } elsif ($parmlev eq 'map') {   } elsif ($parmlev eq 'map') {
     foreach my $map (keys %allmaps) {  # map-level parameter
  if (($pschp ne 'all') && ($pschp ne $map)) { next; }      foreach my $mapid (keys %allmaps) {
  $newparmkey.='.'.$allmaps{$map}.'.'.$part.'.'.$cat;   if (($pschp ne 'all') && ($pschp ne $mapid)) { next; }
    my $newparmkey=$rootparmkey.'.'.$allmaps{$mapid}.'___(all).'.$part.'.'.$cat;
                         $$listdata{$newparmkey}=1;                          $$listdata{$newparmkey}=1;
                         $$listdata{$newparmkey.'.type'}=$defkeytype{$cat};                          $$listdata{$newparmkey.'.type'}=$defkeytype{$cat};
     }      }
 # map-level parameter  
  } else {   } else {
 # resource-level parameter  # resource-level parameter
       foreach my $rid (@ids) {
    my ($map,$resid,$url)=&Apache::lonnet::decode_symb($symbp{$rid});
    if (($pschp ne 'all') && ($allmaps{$pschp} ne $map)) { next; }
    my $newparmkey=$rootparmkey.'.'.$symbp{$rid}.'.'.$part.'.'.$cat;
                           $$listdata{$newparmkey}=1;
                           $$listdata{$newparmkey.'.type'}=$defkeytype{$cat};
       }
  }   }
     }      }
  }   }
     }      }
   
       if (($env{'form.store'}) || ($env{'form.dis'})) {
   
    if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
     $r->print(join("\n<br />",keys %{$listdata}));  
   
     if ($env{'form.dis'}) {  
   
  &storedata($r,$crs,$dom);  
   
 # Read modified data  # Read modified data
   
Line 2248  ENDOVER Line 2316  ENDOVER
   
 # List data  # List data
   
  &listdata($r,$resourcedata,$listdata);   &listdata($r,$resourcedata,$listdata,$sortorder);
     }      }
     $r->print(&tableend().      $r->print(&tableend().
      '<p><input type="submit" name="dis" value="'.&mt('Submit').'" /></p></form></body></html>');       ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').
         '</form></body></html>');
 }  }
   
 sub overview {  sub overview {
     my $r=shift;      my $r=shift;
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag('Modify Parameters');
                              'Modify Course Assessment Parameters');  
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');      my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
Line 2279  ENDOVER Line 2347  ENDOVER
   
     my $resourcedata=&readdata($crs,$dom);      my $resourcedata=&readdata($crs,$dom);
   
   
       my $sortorder=$env{'form.sortorder'};
       unless ($sortorder) { $sortorder='realmstudent'; }
       &sortmenu($r,$sortorder);
   
 # List data  # List data
   
     my $foundkeys=&listdata($r,$resourcedata,$resourcedata);      my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);
   
     $r->print(&tableend().'<p>'.      $r->print(&tableend().'<p>'.
  ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form></body></html>');   ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form></body></html>');
Line 2415  ENDMAINFORMHEAD Line 2488  ENDMAINFORMHEAD
     action => 'crsenv',      action => 'crsenv',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
           { text => 'Set/Modify Course Assessment Parameters - Helper Mode',            { text => 'Set/Modify Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',              url => '/adm/helper/parameter.helper',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
           { text => 'Modify Course Assessment Parameters - Overview Mode',            { text => 'Modify Resource Parameters - Overview Mode',
             action => 'setoverview',              action => 'setoverview',
             permission => $parm_permission,              permission => $parm_permission,
             },                        },          
   { text => 'Set Course Assessment Parameters - Overview Mode',    { text => 'Set Resource Parameters - Overview Mode',
             action => 'newoverview',              action => 'newoverview',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
           { text => 'Set/Modify Course Assessment Parameters - Table Mode',            { text => 'Set/Modify Resource Parameters - Table Mode',
             action => 'settable',              action => 'settable',
             permission => $parm_permission,              permission => $parm_permission,
             help => 'Cascading_Parameters',              help => 'Cascading_Parameters',
Line 2489  sub handler { Line 2562  sub handler {
                                              'pres_marker',                                               'pres_marker',
                                              'pres_value',                                               'pres_value',
                                              'pres_type',                                               'pres_type',
                                              'udom','uname']);                                               'udom','uname','symb']);
   
   
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
Removed from v.1.211  
changed lines
  Added in v.1.219

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