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

Diff for /loncom/interface/lonparmset.pm between versions 1.108 and 1.113

version 1.108, 2003/06/21 17:09:29 version 1.113, 2003/06/30 20:24:26
Line 855  sub assessparms { Line 855  sub assessparms {
  $message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>';   $message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>';
     }      }
 # --------------------------------------------- Devalidate cache for this child  # --------------------------------------------- Devalidate cache for this child
         &Apache::lonnet::devalidatecourseresdata(      &Apache::lonnet::devalidatecourseresdata(
                  $ENV{'course.'.$ENV{'request.course.id'}.'.num'},                   $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
                  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'});                   $ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
       &Apache::lonnet::clear_EXT_cache_status();
 # -------------------------------------------------------------- Get coursedata  # -------------------------------------------------------------- Get coursedata
     %courseopt = &Apache::lonnet::dump      %courseopt = &Apache::lonnet::dump
         ('resourcedata',          ('resourcedata',
Line 891  sub assessparms { Line 892  sub assessparms {
   
     &startpage($r,$id,$udom,$csec,$uname,$have_assesments);      &startpage($r,$id,$udom,$csec,$uname,$have_assesments);
   
     if (!$have_assesments) { return ''; }      if (!$have_assesments) {
    untie(%bighash);
    untie(%parmhash);
    return '';
       }
 #    if ($ENV{'form.url'}) {  #    if ($ENV{'form.url'}) {
 # $r->print('<input type="hidden" value="'.$ENV{'form.url'}.  # $r->print('<input type="hidden" value="'.$ENV{'form.url'}.
 #  '" name="url"><input type="hidden" name="command" value="set">');  #  '" name="url"><input type="hidden" name="command" value="set">');
Line 1518  sub crsenv { Line 1523  sub crsenv {
                     'have different numbers and answers</font>',                      'have different numbers and answers</font>',
              'problem_stream_switch'               'problem_stream_switch'
                  => '<b>Allow problems to be split over pages</b><br />'.                   => '<b>Allow problems to be split over pages</b><br />'.
                     ' ("<tt>yes</tt>" if allowed, anything else if not)',                      ' ("<tt>yes</tt>" if allowed, anything else if not)',,
                'anonymous_quiz'
                    => '<b>Anonimous quiz/exam</b><br />'.
                       ' (<tt><b>yes</b> to avoid print students names </tt>)',
              'default_enrollment_start_date' => '<b>Default beginning date '.               'default_enrollment_start_date' => '<b>Default beginning date '.
                                                 'when enrolling students</b>',                                                  'when enrolling students</b>',
              'default_enrollment_end_date'   => '<b>Default ending date '.               'default_enrollment_end_date'   => '<b>Default ending date '.
Removed from v.1.108  
changed lines
  Added in v.1.113

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