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

Diff for /loncom/interface/lonparmset.pm between versions 1.105 and 1.161

version 1.105, 2003/06/20 14:34:04 version 1.161, 2004/05/27 17:31:47
Line 61  use Apache::loncommon; Line 61  use Apache::loncommon;
 use GDBM_File;  use GDBM_File;
 use Apache::lonhomework;  use Apache::lonhomework;
 use Apache::lonxml;  use Apache::lonxml;
   use Apache::lonlocal;
   
 my %courseopt;  my %courseopt;
 my %useropt;  my %useropt;
Line 91  my $coursename; Line 91  my $coursename;
 Figure out a cascading parameter.  Figure out a cascading parameter.
   
 Inputs:  $what - a parameter spec (incluse part info and name I.E. 0.weight)  Inputs:  $what - a parameter spec (incluse part info and name I.E. 0.weight)
          $id   - a bighash Id number           $id   - a bighash Id /home/httpd/lib/perl/Apache/localize/ru.pmnumber
          $def  - the resource's default value   'stupid emacs           $def  - the resource's default value   'stupid emacs
   
 Returns:  A list, the first item is the index into the remaining list of items of parm valuse that is the active one, the list consists of parm values at the 11 possible levels  Returns:  A list, the first item is the index into the remaining list of items of parm valuse that is the active one, the list consists of parm values at the 11 possible levels
Line 131  sub parmval { Line 131  sub parmval {
   
 # -------------------------------------------------------- first, check default  # -------------------------------------------------------- first, check default
   
     if ($def) { $outpar[11]=$def; $result=11; }      if (defined($def)) { $outpar[11]=$def; $result=11; }
   
 # ----------------------------------------------------- second, check map parms  # ----------------------------------------------------- second, check map parms
   
     my $thisparm=$parmhash{$symbparm};      my $thisparm=$parmhash{$symbparm};
     if ($thisparm) { $outpar[10]=$thisparm; $result=10; }      if (defined($thisparm)) { $outpar[10]=$thisparm; $result=10; }
   
 # --------------------------------------------------------- third, check course  # --------------------------------------------------------- third, check course
   
Line 285  sub plink { Line 285  sub plink {
   
   
 sub startpage {  sub startpage {
     my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;      my ($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader)=@_;
   
     my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',      my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');                                              'onUnload="pclose()"');
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.      my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');          &Apache::loncommon::selectstudent_link('parmform','uname','udom');
     my $selscript=&Apache::loncommon::studentbrowser_javascript();      my $selscript=&Apache::loncommon::studentbrowser_javascript();
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
       my %lt=&Apache::lonlocal::texthash(
       'cep'   => "Course Environment Parameters",
       'scep'  => "Set Course Environment Parameters",
       'smcap' => "Set/Modify Course Assessment Parameter",
       'mcap'  => "Modify Course Assessment Parameters",
       'caphm' => "Course Assessment Parameter - Helper Mode",
       'capom' => "Course Assessment Parameters - Overview Mode",
                       'captm' => "Course Assessments Parameters - Table Mode",
       'sg'    => "Section/Group",
       'fu'    => "For User",
       'oi'    => "or ID",
       'ad'    => "at Domain"
          );
       my $overallhelp=
    &Apache::loncommon::help_open_topic("Course_Setting_Parameters").
    &Apache::loncommon::help_open_faq(10).
    &Apache::loncommon::help_open_bug('Instructor Interface');
       my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters");
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 <html>  <html>
 <head>  <head>
Line 342  $selscript Line 360  $selscript
 </head>  </head>
 $bodytag  $bodytag
   
   ENDHEAD
   
       unless ($trimheader) {$r->print(<<ENDHEAD2);
 <form method="post" action="/adm/parmset" name="envform">  <form method="post" action="/adm/parmset" name="envform">
 <h3>Course Environment</h3>  <h4>$lt{'cep'}</h4>
 <input type="submit" name="crsenv" value="Set Course Environment">  <input type="submit" name="crsenv" value="$lt{'scep'}" />
   </form>
   <hr />
   $assessparmhelp
   <form method="post" action="/adm/helper/parameter.helper" name="helpform">
   <h4>$lt{'caphm'}</h4>
   <input type="submit" value="$lt{'smcap'}" />
   </form>
   <hr />
   <form method="post" action="/adm/parmset" name="overview">
   <h4>$lt{'capom'}</h4>
   <input type="submit" name="overview" value="$lt{'mcap'}" />
 </form>  </form>
 <hr />  <hr />
   ENDHEAD2
   }
       $r->print(<<ENDHEAD3);
 <form method="post" action="/adm/parmset" name="parmform">  <form method="post" action="/adm/parmset" name="parmform">
 <h3>Course Assessments</h3>  <h4>$lt{'captm'}</h4>
   ENDHEAD3
 <a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a  
 simpler interface to set open, due, or answer open dates for problems or  
 sequences.<br />&nbsp;<br />  
 ENDHEAD  
   
     if (!$have_assesments) {      if (!$have_assesments) {
  $r->print('<font color="red">There are no assesment parameters in this course to set.</font><br />');   $r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');
     } else {      } else {
  $r->print(<<ENDHEAD);   $r->print(<<ENDHEAD);
 <b>  <b>
 Section/Group:  $lt{'sg'}:
 <input type="text" value="$csec" size="6" name="csec">  <input type="text" value="$csec" size="6" name="csec">
 <br>  <br>
 For User   $lt{'fu'} 
 <input type="text" value="$uname" size="12" name="uname">  <input type="text" value="$uname" size="12" name="uname">
 or ID  $lt{'oi'}
 <input type="text" value="$id" size="12" name="id">   <input type="text" value="$id" size="12" name="id"> 
 at Domain   $lt{'ad'}
 $chooseopt  $chooseopt
 </b>  </b>
 <input type="hidden" value='' name="pres_value">  <input type="hidden" value='' name="pres_value">
Line 466  sub print_row { Line 497  sub print_row {
         } # end of $brief if/else          } # end of $brief if/else
     } # end of $parmlev if/else      } # end of $parmlev if/else
   
     if ($parmlev eq 'full' || $parmlev eq 'brief') {      $r->print('<td bgcolor=#CCCCFF align="center">'.
         $r->print('<td bgcolor=#CCCCFF align="center">'.  
                   &valout($outpar[$result],$typeoutpar[$result]).'</td>');                    &valout($outpar[$result],$typeoutpar[$result]).'</td>');
     }  
     my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.      if ($parmlev eq 'full' || $parmlev eq 'brief') {
           my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                                         '.'.$$name{$which},$symbp{$rid});                                          '.'.$$name{$which},$symbp{$rid});
   
 # this doesn't seem to work, and I don't think is correct  # this doesn't seem to work, and I don't think is correct
 #    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.  #    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
 #                                      '.'.$$name{$which}.'.type',$symbp{$rid});  #                                      '.'.$$name{$which}.'.type',$symbp{$rid});
 # this seems to work  # this seems to work
     my $sessionvaltype=$typeoutpar[$result];          my $sessionvaltype=$typeoutpar[$result];
     if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }          if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
     $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.          $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
                   &valout($sessionval,$sessionvaltype).'&nbsp;'.                    &valout($sessionval,$sessionvaltype).'&nbsp;'.
                   '</font></td>');                    '</font></td>');
       }
     $r->print('</tr>');      $r->print('</tr>');
     $r->print("\n");      $r->print("\n");
 }  }
Line 488  sub print_row { Line 521  sub print_row {
 sub print_td {  sub print_td {
     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;      my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
     $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).      $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
               ' align="center">'.                ' align="center">');
               &plink($$typeoutpar[$which],$$display{$value},$$outpar[$which],      if ($which<10) {
                      $mprefix."$which",'parmform.pres','psub').'</td>'."\n");   $r->print(&plink($$typeoutpar[$which],
 }   $$display{$value},$$outpar[$which],
    $mprefix."$which",'parmform.pres','psub'));
 sub get_env_multiple {      } else {
     my ($name) = @_;   $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
     my @values;  
     if (defined($ENV{$name})) {  
         # exists is it an array  
         if (ref($ENV{$name})) {  
             @values=@{ $ENV{$name} };  
         } else {  
             $values[0]=$ENV{$name};  
         }  
     }      }
     return(@values);      $r->print('</td>'."\n");
 }  }
   
 =pod  =pod
Line 562  sub extractResourceInformation { Line 587  sub extractResourceInformation {
     my $resid=$2;      my $resid=$2;
     my $id=$mapid.'.'.$resid;      my $id=$mapid.'.'.$resid;
     my $srcf=$$bighash{$_};      my $srcf=$$bighash{$_};
     if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {  #    if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
       if (1) {
  $$ids[$#$ids+1]=$id;   $$ids[$#$ids+1]=$id;
  $$typep{$id}=$1;   $$typep{$id}=$1;
  $$keyp{$id}='';   $$keyp{$id}='';
Line 641  sub assessparms { Line 667  sub assessparms {
   
     my $r=shift;      my $r=shift;
 # -------------------------------------------------------- Variable declaration  # -------------------------------------------------------- Variable declaration
     my %allkeys;      my %allkeys=();
     my %allmaps;      my %allmaps=();
     my %alllevs;      my %alllevs=();
   
     $alllevs{'Resource Level'}='full';      $alllevs{'Resource Level'}='full';
 #    $alllevs{'Resource Level [BRIEF]'}='brief';  #    $alllevs{'Resource Level [BRIEF]'}='brief';
Line 668  sub assessparms { Line 694  sub assessparms {
     $udom=$ENV{'form.udom'};      $udom=$ENV{'form.udom'};
     unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }      unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }
   
     my @pscat=&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=&get_env_multiple('form.psprt');      my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
     if (!@psprt) { $psprt[0]='0'; }      if (!@psprt) { $psprt[0]='0'; }
     my $showoptions=$ENV{'form.showoptions'};      my $showoptions=$ENV{'form.showoptions'};
   
     my $pssymb='';      my $pssymb='';
     my $parmlev='';      my $parmlev='';
       my $trimheader='';
     my $prevvisit=$ENV{'form.prevvisit'};      my $prevvisit=$ENV{'form.prevvisit'};
   
 #    unless ($parmlev==$ENV{'form.parmlev'}) {  #    unless ($parmlev==$ENV{'form.parmlev'}) {
Line 698  sub assessparms { Line 725  sub assessparms {
  if (!@pscat) { @pscat=('all'); }   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
           $trimheader='yes';
     } elsif ($ENV{'form.symb'}) {      } elsif ($ENV{'form.symb'}) {
  $pssymb=$ENV{'form.symb'};   $pssymb=$ENV{'form.symb'};
  if (!@pscat) { @pscat=('all'); }   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
           $trimheader='yes';
     } else {      } else {
  $ENV{'form.url'}='';   $ENV{'form.url'}='';
     }      }
Line 714  sub assessparms { Line 743  sub assessparms {
     $id='';      $id='';
  } else {   } else {
     $message=      $message=
  "<font color=red>Unknown ID '$id' at domain '$udom'</font>";   "<font color=red>".&mt("Unknown ID")." '$id' ".
    &mt('at domain')." '$udom'</font>";
  }   }
     } else {      } else {
  $uname=$ENV{'form.uname'};   $uname=$ENV{'form.uname'};
Line 725  sub assessparms { Line 755  sub assessparms {
  $uhome=&Apache::lonnet::homeserver($uname,$udom);   $uhome=&Apache::lonnet::homeserver($uname,$udom);
         if ($uhome eq 'no_host') {          if ($uhome eq 'no_host') {
     $message=      $message=
  "<font color=red>Unknown user '$uname' at domain '$udom'</font>";   "<font color=red>".&mt("Unknown user")." '$uname' ".
    &mt("at domain")." '$udom'</font>";
     $uname='';      $uname='';
         } else {          } else {
     $csec=&Apache::lonnet::getsection($udom,$uname,      $csec=&Apache::lonnet::getsection($udom,$uname,
       $ENV{'request.course.id'});        $ENV{'request.course.id'});
     if ($csec eq '-1') {      if ($csec eq '-1') {
  $message="<font color=red>".   $message="<font color=red>".
     "User '$uname' at domain '$udom' not ".      &mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
                     "in this course</font>";      &mt("not in this course")."</font>";
  $uname='';   $uname='';
  $csec=$ENV{'form.csec'};   $csec=$ENV{'form.csec'};
     } else {      } else {
  my %name=&Apache::lonnet::userenvironment($udom,$uname,   my %name=&Apache::lonnet::userenvironment($udom,$uname,
       ('firstname','middlename','lastname','generation','id'));        ('firstname','middlename','lastname','generation','id'));
  $message="\n<p>\nFull Name: ".   $message="\n<p>\n".&mt("Full Name").": ".
     $name{'firstname'}.' '.$name{'middlename'}.' '      $name{'firstname'}.' '.$name{'middlename'}.' '
  .$name{'lastname'}.' '.$name{'generation'}.   .$name{'lastname'}.' '.$name{'generation'}.
     "<br>\nID: ".$name{'id'}.'<p>';      "<br>\n".&mt('ID').": ".$name{'id'}.'<p>';
     }      }
         }          }
     }      }
Line 852  sub assessparms { Line 883  sub assessparms {
     $message.="<font color=red>Write Error: $1</font>";      $message.="<font color=red>Write Error: $1</font>";
  }   }
 # ---------------------------------------------------------------- Done storing  # ---------------------------------------------------------------- Done storing
  $message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>';   $message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</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 889  sub assessparms { Line 921  sub assessparms {
     my $have_assesments=1;      my $have_assesments=1;
     if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }      if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
   
     &startpage($r,$id,$udom,$csec,$uname,$have_assesments);      &startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);
   
     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 906  sub assessparms { Line 942  sub assessparms {
   
     $r->print('<h2>'.$message.'</h2><table>');      $r->print('<h2>'.$message.'</h2><table>');
                                                   
     my $submitmessage;      my $submitmessage = &mt('Update Section or Specific User');
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<tr><td>Select Parameter Level</td><td colspan="2">');          $r->print('<tr><td>'.&mt('Select Parameter Level').
          &Apache::loncommon::help_open_topic('Course_Parameter_Levels').
     '</td><td colspan="2">');
         $r->print('<select name="parmlev">');          $r->print('<select name="parmlev">');
         foreach (reverse sort keys %alllevs) {          foreach (reverse sort keys %alllevs) {
             $r->print('<option value="'.$alllevs{$_}.'"');              $r->print('<option value="'.$alllevs{$_}.'"');
Line 920  sub assessparms { Line 958  sub assessparms {
         $r->print("</select></td>\n");          $r->print("</select></td>\n");
   
         $r->print('</tr>');          $r->print('</tr>');
    if ($parmlev ne 'general') {
         $r->print('<tr><td>Select Enclosing Map or Folder</td>');      $r->print('<tr><td>'.&mt('Select Enclosing Map or Folder').'</td>');
         $r->print('<td colspan="2"><select name="pschp">');      $r->print('<td colspan="2"><select name="pschp">');
         $r->print('<option value="all">All Maps or Folders</option>');      $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
         foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {      foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
             $r->print('<option value="'.$_.'"');   $r->print('<option value="'.$_.'"');
             if (($pschp eq $_)) { $r->print(' selected'); }   if (($pschp eq $_)) { $r->print(' selected'); }
             $r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?'  ['.$allmaps{$_}.']':'').'</option>');   $r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?'  ['.$allmaps{$_}.']':'').'</option>');
         }      }
         $r->print("</select></td></tr>\n");      $r->print("</select></td></tr>\n");
    }
     } else {      } else {
         my ($map,$id,$resource)=split(/___/,$pssymb);          my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
         $r->print("<tr><td>Specific Resource</td><td>$resource</td>");          $r->print("<tr><td>".&mt('Specific Resource')."</td><td>$resource</td>");
         $r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');          $r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');
         $r->print('</tr>');          $r->print('</tr>');
         $r->print('<input type="hidden" value="'.$pssymb.'" name="symb">');          $r->print('<input type="hidden" value="'.$pssymb.'" name="symb">');
Line 940  sub assessparms { Line 979  sub assessparms {
   
     $r->print('<tr><td colspan="3"><hr /><input type="checkbox"');      $r->print('<tr><td colspan="3"><hr /><input type="checkbox"');
     if ($showoptions eq 'show') {$r->print(" checked ");}      if ($showoptions eq 'show') {$r->print(" checked ");}
     $r->print(' name="showoptions" value="show">Show More Options<hr /></td></tr>');      $r->print(' name="showoptions" value="show">'.&mt('Show More Options').'<hr /></td></tr>');
 #    $r->print("<tr><td>Show: $showoptions</td></tr>");  #    $r->print("<tr><td>Show: $showoptions</td></tr>");
 #    $r->print("<tr><td>pscat: @pscat</td></tr>");  #    $r->print("<tr><td>pscat: @pscat</td></tr>");
 #    $r->print("<tr><td>psprt: @psprt</td></tr>");  #    $r->print("<tr><td>psprt: @psprt</td></tr>");
Line 949  sub assessparms { Line 988  sub assessparms {
     if ($showoptions eq 'show') {      if ($showoptions eq 'show') {
         my $tempkey;          my $tempkey;
   
         $r->print('<tr><td colspan="3" align="center">Select Parameters to View</td></tr>');          $r->print('<tr><td colspan="3" align="center">'.&mt('Select Parameters to View').'</td></tr>');
   
         $r->print('<tr><td colspan="2"><table>');          $r->print('<tr><td colspan="2"><table>');
         $r->print('<tr><td><input type="checkbox" name="pscat" value="all"');          $r->print('<tr><td><input type="checkbox" name="pscat" value="all"');
         $r->print(' checked') unless (@pscat);          $r->print(' checked') unless (@pscat);
         $r->print('>All Parameters</td>');          $r->print('>'.&mt('All Parameters').'</td>');
   
         my $cnt=0;          my $cnt=0;
         foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }          foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }
Line 974  sub assessparms { Line 1013  sub assessparms {
         $r->print('<td><select multiple name="psprt" size="5">');          $r->print('<td><select multiple name="psprt" size="5">');
         $r->print('<option value="all"');          $r->print('<option value="all"');
         $r->print(' selected') unless (@psprt);          $r->print(' selected') unless (@psprt);
         $r->print('>All Parts</option>');          $r->print('>'.&mt('All Parts').'</option>');
         my %temphash=();          my %temphash=();
         foreach (@psprt) { $temphash{$_}=1; }          foreach (@psprt) { $temphash{$_}=1; }
         foreach $tempkey (sort keys %allparts) {          foreach $tempkey (sort keys %allparts) {
Line 988  sub assessparms { Line 1027  sub assessparms {
         }          }
         $r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');          $r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');
   
         $r->print('<tr><td>Sort list by</td><td>');          $r->print('<tr><td>'.&mt('Sort list by').'</td><td>');
         $r->print('<select name="fcat">');          $r->print('<select name="fcat">');
         $r->print('<option value="">Enclosing Map or Folder</option>');          $r->print('<option value="">'.&mt('Enclosing Map or Folder').'</option>');
         foreach (sort keys %allkeys) {          foreach (sort keys %allkeys) {
             $r->print('<option value="'.$_.'"');              $r->print('<option value="'.$_.'"');
             if ($fcat eq $_) { $r->print(' selected'); }              if ($fcat eq $_) { $r->print(' selected'); }
Line 1027  sub assessparms { Line 1066  sub assessparms {
     }      }
     $r->print('</table><br />');      $r->print('</table><br />');
     if (($prevvisit) || ($pschp) || ($pssymb)) {      if (($prevvisit) || ($pschp) || ($pssymb)) {
         $submitmessage = "Update Course Assessment Parameter Display";          $submitmessage = &mt("Update Course Assessment Parameter Display");
     } else {      } else {
         $submitmessage = "Set Course Assessment Parameters";          $submitmessage = &mt("Set/Modify Course Assessment Parameters");
     }      }
     $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');      $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
   
Line 1058  sub assessparms { Line 1097  sub assessparms {
            my $coursespan=$csec?8:5;             my $coursespan=$csec?8:5;
            $r->print('<p><table border=2>');             $r->print('<p><table border=2>');
            $r->print('<tr><td colspan=5></td>');             $r->print('<tr><td colspan=5></td>');
            $r->print('<th colspan='.($coursespan).'>Any User</th>');             $r->print('<th colspan='.($coursespan).'>'.&mt('Any User').'</th>');
            if ($uname) {             if ($uname) {
                $r->print("<th colspan=3 rowspan=2>");                 $r->print("<th colspan=3 rowspan=2>");
                $r->print("User $uname at Domain $udom</th>");                 $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom</th>");
            }             }
      my %lt=&Apache::lonlocal::texthash(
     'pie'    => "Parameter in Effect",
     'csv'    => "Current Session Value",
                                     'at'     => 'at',
                                     'rl'     => "Resource Level",
     'ic'     => 'in Course',
     'aut'    => "Assessment URL and Title",
     'type'   => 'Type',
     'emof'   => "Enclosing Map or Folder",
     'part'   => 'Part',
                                     'pn'     => 'Parameter Name',
     'def'    => 'default',
     'femof'  => 'from Enclosing Map or Folder',
     'gen'    => 'general',
     'foremf' => 'for Enclosing Map or Folder',
     'fr'     => 'for Resource'
         );
            $r->print(<<ENDTABLETWO);             $r->print(<<ENDTABLETWO);
 <th rowspan=3>Parameter in Effect</th>  <th rowspan=3>$lt{'pie'}</th>
 <th rowspan=3>Current Session Value<br>($csuname at $csudom)</th>  <th rowspan=3>$lt{'csv'}<br>($csuname $lt{'at'} $csudom)</th>
 </tr><tr><td colspan=5></td><th colspan=2>Resource Level</th>  </tr><tr><td colspan=5></td><th colspan=2>$lt{'rl'}</th>
 <th colspan=3>in Course</th>  <th colspan=3>$lt{'ic'}</th>
 ENDTABLETWO  ENDTABLETWO
            if ($csec) {             if ($csec) {
                 $r->print("<th colspan=3>in Section/Group $csec</th>");                  $r->print("<th colspan=3>".
     &mt("in Section/Group")." $csec</th>");
            }             }
            $r->print(<<ENDTABLEHEADFOUR);             $r->print(<<ENDTABLEHEADFOUR);
 </tr><tr><th>Assessment URL and Title</th><th>Type</th>  </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
 <th>Enclosing Map or Folder</th><th>Part</th><th>Parameter Name</th>  <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
 <th>default</th><th>from Enclosing Map or Folder</th>  <th>$lt{'def'}</th><th>$lt{'femof'}</th>
 <th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>  <th>$lt{'gen'}</th><th>$lt{'foremf'}</th><th>$lt{'fr'}</th>
 ENDTABLEHEADFOUR  ENDTABLEHEADFOUR
   
            if ($csec) {             if ($csec) {
                $r->print('<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>');                 $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
            }             }
   
            if ($uname) {             if ($uname) {
                $r->print('<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>');                 $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
            }             }
   
            $r->print('</tr>');             $r->print('</tr>');
Line 1097  ENDTABLEHEADFOUR Line 1154  ENDTABLEHEADFOUR
                 my $rid=$_;                  my $rid=$_;
                 my ($inmapid)=($rid=~/\.(\d+)$/);                  my ($inmapid)=($rid=~/\.(\d+)$/);
   
                 if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) ||                  if ((!$pssymb && 
                     ($pssymb eq $symbp{$rid})) {       (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
       ||
       ($pssymb && $pssymb eq $symbp{$rid})) {
 # ------------------------------------------------------ Entry for one resource  # ------------------------------------------------------ Entry for one resource
                     if ($defbgone eq '"E0E099"') {                      if ($defbgone eq '"E0E099"') {
                         $defbgone='"E0E0DD"';                          $defbgone='"E0E0DD"';
Line 1135  ENDTABLEHEADFOUR Line 1194  ENDTABLEHEADFOUR
                     my $totalparms=scalar keys %name;                      my $totalparms=scalar keys %name;
                     if ($totalparms>0) {                      if ($totalparms>0) {
                         my $firstrow=1;                          my $firstrow=1;
    my $title=$bighash{'title_'.$rid};
    $title=~s/\&colon;/:/g;
                         $r->print('<tr><td bgcolor='.$defbgone.                          $r->print('<tr><td bgcolor='.$defbgone.
                              ' rowspan='.$totalparms.                               ' rowspan='.$totalparms.
                              '><tt><font size=-1>'.                               '><tt><font size=-1>'.
                              join(' / ',split(/\//,$uri)).                               join(' / ',split(/\//,$uri)).
                              '</font></tt><p><b>'.                               '</font></tt><p><b>'.
                              "<a href=\"javascript:openWindow('/res/".$uri.                               "<a href=\"javascript:openWindow('".
     &Apache::lonnet::clutter($uri).
                              "', 'metadatafile', '450', '500', 'no', 'yes')\";".                               "', 'metadatafile', '450', '500', 'no', 'yes')\";".
                              " TARGET=_self>$bighash{'title_'.$rid}");                               " TARGET=_self>$title");
   
                         if ($thistitle) {                          if ($thistitle) {
                             $r->print(' ('.$thistitle.')');                              $r->print(' ('.$thistitle.')');
Line 1245  ENDTABLEHEADFOUR Line 1306  ENDTABLEHEADFOUR
                 } # end loop through ids                  } # end loop through ids
                                                                     
 #---------------------------------------------------- print header information  #---------------------------------------------------- print header information
                 my $foldermap=($maptitle=~/^uploaded/?'Folder':'Map');                  my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
                 my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');                  my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
                 $r->print(<<ENDMAPONE);                  $r->print(<<ENDMAPONE);
 <center><h4>  <center><h4>
 <font color="red">Set Defaults for All Resources in $foldermap<br />  Set Defaults for All Resources in $foldermap<br />
 <i>$showtitle</i><br />  <font color="red"><i>$showtitle</i></font><br />
 Specifically for  Specifically for
 ENDMAPONE  ENDMAPONE
                 if ($uname) {                  if ($uname) {
Line 1258  ENDMAPONE Line 1319  ENDMAPONE
                       ('firstname','middlename','lastname','generation', 'id'));                        ('firstname','middlename','lastname','generation', 'id'));
                     my $person=$name{'firstname'}.' '.$name{'middlename'}.' '                      my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
                            .$name{'lastname'}.' '.$name{'generation'};                             .$name{'lastname'}.' '.$name{'generation'};
                     $r->print("User <i>$uname \($person\) </i> in \n");                      $r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
                           &mt('in')." \n");
                 } else {                  } else {
                     $r->print("<i>all</i> users in \n");                      $r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");
                 }                  }
                           
                 if ($csec) {$r->print("Section <i>$csec</i> of \n")};                  if ($csec) {$r->print(&mt("Section")." <font color=\"red\"><i>$csec</i></font> ".
         &mt('of')." \n")};
   
                 $r->print("<i>$coursename</i><br />");                  $r->print("<font color=\"red\"><i>$coursename</i></font><br />");
                 $r->print("</font></h4>\n");                  $r->print("</h4>\n");
 #---------------------------------------------------------------- print table  #---------------------------------------------------------------- print table
                 $r->print('<p><table border="2">');                  $r->print('<p><table border="2">');
                 $r->print('<tr><th>Parameter Name</th>');                  $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
                 $r->print('<th>Default Value</th>');                  $r->print('<th>'.&mt('Default Value').'</th>');
                 $r->print('<th>Parameter in Effect</th></tr>');                  $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
   
         foreach (sort keys %name) {          foreach (sort keys %name) {
                     &print_row($r,$_,\%part,\%name,$mapid,\%default,                      &print_row($r,$_,\%part,\%name,$mapid,\%default,
Line 1327  ENDMAPONE Line 1390  ENDMAPONE
             } # end loop through ids              } # end loop through ids
                                                                     
 #---------------------------------------------------- print header information  #---------------------------------------------------- print header information
       my $setdef=&mt("Set Defaults for All Resources in Course");
             $r->print(<<ENDMAPONE);              $r->print(<<ENDMAPONE);
 <center><h4>  <center><h4>$setdef
 <font color="red">Set Defaults for All Resources in Course  <font color="red"><i>$coursename</i></font><br />
 <i>$coursename</i><br />  
 ENDMAPONE  ENDMAPONE
             if ($uname) {              if ($uname) {
                 my %name=&Apache::lonnet::userenvironment($udom,$uname,                  my %name=&Apache::lonnet::userenvironment($udom,$uname,
                   ('firstname','middlename','lastname','generation', 'id'));                    ('firstname','middlename','lastname','generation', 'id'));
                 my $person=$name{'firstname'}.' '.$name{'middlename'}.' '                  my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
                        .$name{'lastname'}.' '.$name{'generation'};                         .$name{'lastname'}.' '.$name{'generation'};
                 $r->print(" User <i>$uname \($person\) </i> \n");                  $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
             } else {              } else {
                 $r->print("<i>ALL</i> USERS \n");                  $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
             }              }
                           
             if ($csec) {$r->print("Section <i>$csec</i>\n")};              if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
             $r->print("</font></h4>\n");              $r->print("</h4>\n");
 #---------------------------------------------------------------- print table  #---------------------------------------------------------------- print table
             $r->print('<p><table border="2">');              $r->print('<p><table border="2">');
             $r->print('<tr><th>Parameter Name</th>');              $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
             $r->print('<th>Default Value</th>');              $r->print('<th>'.&mt('Default Value').'</th>');
             $r->print('<th>Parameter in Effect</th></tr>');              $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
   
     foreach (sort keys %name) {      foreach (sort keys %name) {
                 &print_row($r,$_,\%part,\%name,$mapid,\%default,                  &print_row($r,$_,\%part,\%name,$mapid,\%default,
Line 1404  sub crsenv { Line 1467  sub crsenv {
             my $bkuptime=time;              my $bkuptime=time;
             my @tmp = &Apache::lonnet::get              my @tmp = &Apache::lonnet::get
                 ('environment',['url'],$dom,$crs);                  ('environment',['url'],$dom,$crs);
             $setoutput.='Backing up previous URL: '.              $setoutput.=&mt('Backing up previous URL').': '.
                 &Apache::lonnet::put                  &Apache::lonnet::put
                 ('environment',                  ('environment',
                  {'top level map backup '.$bkuptime => $tmp[1] },                   {'top level map backup '.$bkuptime => $tmp[1] },
Line 1433  sub crsenv { Line 1496  sub crsenv {
             }              }
         }          }
         #          #
           # Deal with the enrollment dates
           if ($name =~ /^default_enrollment_(start|end)_date$/) {
               $value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
           }
           #
         # Let the user know we made the changes          # Let the user know we made the changes
         if ($name) {          if ($name && defined($value)) {
             my $put_result = &Apache::lonnet::put('environment',              my $put_result = &Apache::lonnet::put('environment',
                                                   {$name=>$value},$dom,$crs);                                                    {$name=>$value},$dom,$crs);
             if ($put_result eq 'ok') {              if ($put_result eq 'ok') {
                 $setoutput.='Set <b>'.$name.'</b> to <b>'.$value.'</b>.<br />';                  $setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';
             } else {              } else {
                 $setoutput.='Unable to set <b>'.$name.'</b> to '.                  $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
                     '<b>'.$value.'</b> due to '.$put_result.'.<br />';      ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
             }              }
         }          }
     }      }
   # ------------------------- Re-init course environment entries for this session
   
       &Apache::lonnet::coursedescription($ENV{'request.course.id'});
   
 # -------------------------------------------------------- Get parameters again  # -------------------------------------------------------- Get parameters again
   
     my %values=&Apache::lonnet::dump('environment',$dom,$crs);      my %values=&Apache::lonnet::dump('environment',$dom,$crs);
       my $SelectStyleFile=&mt('Select Style File');
       my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');
     my $output='';      my $output='';
     if (! exists($values{'con_lost'})) {      if (! exists($values{'con_lost'})) {
         my %descriptions=          my %descriptions=
     ('url'            => '<b>Top Level Map</b> '.      ('url'            => '<b>'.&mt('Top Level Map').'</b> '.
                                  '<a href="javascript:openbrowser'.                                   '<a href="javascript:openbrowser'.
                                  "('envform','url','sequence')\">".                                   "('envform','url','sequence')\">".
                                  'Select Map</a><br /><font color=red> '.                                   &mt('Select Map').'</a><br /><font color=red> '.
                                  'Modification may make assessment data '.                                   &mt('Modification may make assessment data inaccessible').
                                  'inaccessible</font>',                                   '</font>',
              'description'    => '<b>Course Description</b>',               'description'    => '<b>'.&mt('Course Description').'</b>',
              'courseid'       => '<b>Course ID or number</b><br />'.               'courseid'       => '<b>'.&mt('Course ID or number').
                                  '(internal, optional)',                                   '</b><br />'.
              'default_xml_style' => '<b>Default XML Style File</b> '.                                   '('.&mt('internal').', '.&mt('optional').')',
                'grading'        => '<b>'.&mt('Grading').'</b><br />'.
                                    '<tt>"standard", "external", or "spreadsheet"</tt> '.&Apache::loncommon::help_open_topic('GradingOptions'),
                'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','default_xml_style'".                      "('envform','default_xml_style'".
                     ",'sty')\">Select Style File</a><br>",                      ",'sty')\">$SelectStyleFile</a><br>",
              'question.email' => '<b>Feedback Addresses for Resource Content '.               'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').
                                  'Questions</b><br />(<tt>user:domain,'.                                   '</b><br />(<tt>user:domain,'.
                                  'user:domain(section;section;...;*;...),...</tt>)',                                   'user:domain(section;section;...;*;...),...</tt>)',
              'comment.email'  => '<b>Feedback Addresses for Course Content Comments</b><br />'.               'comment.email'  => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'.
                                  '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',                                   '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
              'policy.email'   => '<b>Feedback Addresses for Course Policy</b>'.               'policy.email'   => '<b>'.&mt('Feedback Addresses for Course Policy').'</b>'.
                                  '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',                                   '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
              'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br />'.               'hideemptyrows'  => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'.
                                  '("<tt>yes</tt>" for default hiding)',                                   '('.&mt('"[_1]" for default hiding','<tt>yes</tt>').')',
              'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br />'.               'pageseparators'  => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.
                                  '("<tt>yes</tt>" for visible separation, '.                                   '('.&mt('"[_1]" for visible separation','<tt>yes</tt>').', '.
                                  'changes will not show until next login)',                                   &mt('changes will not show until next login').')',
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.  
                                   'Roles</b><br />"<tt>st</tt>": '.               'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
                                     '</b><br />"<tt>st</tt>": '.
                                     &mt('student').', "<tt>ta</tt>": '.
                                     'TA, "<tt>in</tt>": '.
                                     &mt('instructor').';<br /><tt>'.&mt('role,role,...').'</tt>) '.
          Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
                'plc.users.denied' => 
                             '<b>'.&mt('Disallow live chatroom use for Users').'</b><br />'.
                                    '(<tt>user:domain,user:domain,...</tt>)',
   
                'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').
                                     '</b><br />"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.                                    'student, "<tt>ta</tt>": '.
                                   'TA, "<tt>in</tt>": '.                                    'TA, "<tt>in</tt>": '.
                                   'instructor;<br /><tt>role,role,...</tt>) '.                                    'instructor;<br /><tt>role,role,...</tt>) '.
        Apache::loncommon::help_open_topic("Course_Disable_Discussion"),         Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
              'pch.users.denied' =>                'pch.users.denied' => 
                           '<b>Disallow Resource Discussion for Users</b><br />'.                            '<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.
                                  '(<tt>user:domain,user:domain,...</tt>)',                                   '(<tt>user:domain,user:domain,...</tt>)',
              'spreadsheet_default_classcalc'                'spreadsheet_default_classcalc' 
                  => '<b>Default Course Spreadsheet</b> '.                   => '<b>'.&mt('Default Course Spreadsheet').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_classcalc'".                      "('envform','spreadsheet_default_classcalc'".
                     ",'spreadsheet')\">Select Spreadsheet File</a><br />",                      ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
              'spreadsheet_default_studentcalc'                'spreadsheet_default_studentcalc' 
                  => '<b>Default Student Spreadsheet</b> '.                   => '<b>'.&mt('Default Student Spreadsheet').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_calc'".                      "('envform','spreadsheet_default_calc'".
                     ",'spreadsheet')\">Select Spreadsheet File</a><br />",                      ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
              'spreadsheet_default_assesscalc'                'spreadsheet_default_assesscalc' 
                  => '<b>Default Assessment Spreadsheet</b> '.                   => '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_assesscalc'".                      "('envform','spreadsheet_default_assesscalc'".
                     ",'spreadsheet')\">Select Spreadsheet File</a><br />",                      ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
      'allow_limited_html_in_feedback'       'allow_limited_html_in_feedback'
          => '<b>Allow limited HTML in discussion posts</b><br />'.           => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
             '(Set value to yes to allow)',              '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
      'rndseed'       'rndseed'
          => '<b>Randomization algorithm used</b> <br />'.           => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
                     '<font color="red">Modifying this will make problems '.                      '<font color="red">'.&mt('Modifying this will make problems').' '.
                     'have different numbers and answers</font>',                      &mt('have different numbers and answers').'</font>',
        'receiptalg'
            => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
                       &mt('This controls how receipt numbers are generated.'),
              'problem_stream_switch'               'problem_stream_switch'
                  => '<b>Allow problems to be split over pages</b><br />'.                   => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
                     ' (<tt><b>yes</b> if allow anything else if not</tt>)'                      ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
              );               'default_paper_size' 
  foreach (keys(%values)) {                   => '<b>'.&mt('Default paper type').'</b><br />'.
     unless ($descriptions{$_}) {                      ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'. 
  $descriptions{$_}=$_;                      ' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'. 
     }                      ' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
                'anonymous_quiz'
                    => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
                       ' (<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_end_date'   => '<b>'.&mt('Default ending date when enrolling students').'</b>',
                'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
                                    '<br />(<tt>user:domain,user:domain,...</tt>)',
                'languages' => '<b>'.&mt('Languages used').'</b>',
                'disable_receipt_display'
                    => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
                       ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
        'tthoptions'
            => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
                ); 
           my @Display_Order = ('url','description','courseid','grading',
                                'default_xml_style','pageseparators',
                                'question.email','comment.email','policy.email',
                                'plc.roles.denied','plc.users.denied',
                                'pch.roles.denied','pch.users.denied',
                                'allow_limited_html_in_feedback',
                                'languages',
        'nothideprivileged',
                                'rndseed',
                                'receiptalg',
                                'problem_stream_switch',
                                'default_paper_size',
                                'disable_receipt_display',
                                'spreadsheet_default_classcalc',
                                'spreadsheet_default_studentcalc',
                                'spreadsheet_default_assesscalc', 
                                'hideemptyrows',
                                'default_enrollment_start_date',
                                'default_enrollment_end_date',
        'tthoptions'
                                );
    foreach my $parameter (sort(keys(%values))) {
               unless ($parameter =~ m/^internal\./) {
                   if (! $descriptions{$parameter}) {
                       $descriptions{$parameter}=$parameter;
                       push(@Display_Order,$parameter);
                   }
               }
  }   }
  foreach (sort keys %descriptions) {          foreach my $parameter (@Display_Order) {
               my $description = $descriptions{$parameter};
             # onchange is javascript to automatically check the 'Set' button.              # onchange is javascript to automatically check the 'Set' button.
             my $onchange = 'onFocus="javascript:window.document.forms'.              my $onchange = 'onFocus="javascript:window.document.forms'.
                 '[\'envform\'].elements[\''.$_.'_setparmval\']'.                  "['envform'].elements['".$parameter."_setparmval']".
                 '.checked=true;"';                  '.checked=true;"';
     $output.='<tr><td>'.$descriptions{$_}.'</td>'.              $output .= '<tr><td>'.$description.'</td>';
                 '<td><input name="'.$_.'_value" size=40 '.              if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
                 'value="'.$values{$_}.'" '.$onchange.' /></td>'.                  $output .= '<td>'.
                 '<td><input type=checkbox name="'.$_.'_setparmval"></td>'.                      &Apache::lonhtmlcommon::date_setter('envform',
                 '</tr>'."\n";                                                          $parameter.'_value',
                                                           $values{$parameter},
                                                           $onchange).
                                                           '</td>';
               } else {
                   $output .= '<td>'.
                       &Apache::lonhtmlcommon::textbox($parameter.'_value',
                                                       $values{$parameter},
                                                       40,$onchange).'</td>';
               }
               $output .= '<td>'.
                   &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
                   '</td>';
               $output .= "</tr>\n";
  }   }
         my $onchange = 'onFocus="javascript:window.document.forms'.          my $onchange = 'onFocus="javascript:window.document.forms'.
             '[\'envform\'].elements[\'newp_setparmval\']'.              '[\'envform\'].elements[\'newp_setparmval\']'.
             '.checked=true;"';              '.checked=true;"';
  $output.='<tr><td><i>Create New Environment Variable</i><br />'.   $output.='<tr><td><i>'.&mt('Create New Environment Variable').'</i><br />'.
     '<input type="text" size=40 name="newp_name" '.      '<input type="text" size=40 name="newp_name" '.
                 $onchange.' /></td><td>'.                  $onchange.' /></td><td>'.
             '<input type="text" size=40 name="newp_value" '.              '<input type="text" size=40 name="newp_value" '.
                 $onchange.' /></td><td>'.                  $onchange.' /></td><td>'.
     '<input type="checkbox" name="newp_setparmval" /></td></tr>';      '<input type="checkbox" name="newp_setparmval" /></td></tr>';
     }      }
       my %lt=&Apache::lonlocal::texthash(
       'par'   => 'Parameter',
       'val'   => 'Value',
       'set'   => 'Set',
       'sce'   => 'Set Course Environment'
          );
   
       my $Parameter=&mt('Parameter');
       my $Value=&mt('Value');
       my $Set=&mt('Set');
       my $browse_js=&Apache::loncommon::browser_and_searcher_javascript();
     $r->print(<<ENDENV);      $r->print(<<ENDENV);
 <html>  <html>
 <script type="text/javascript" language="Javascript" >  <script type="text/javascript" language="Javascript" >
     var editbrowser;  $browse_js
     function openbrowser(formname,elementname,only,omit) {  
         var url = '/res/?';  
         if (editbrowser == null) {  
             url += 'launch=1&';  
         }  
         url += 'catalogmode=interactive&';  
         url += 'mode=parmset&';  
         url += 'form=' + formname + '&';  
         if (only != null) {  
             url += 'only=' + only + '&';  
         }   
         if (omit != null) {  
             url += 'omit=' + omit + '&';  
         }  
         url += 'element=' + elementname + '';  
         var title = 'Browser';  
         var options = 'scrollbars=1,resizable=1,menubar=0';  
         options += ',width=700,height=600';  
         editbrowser = open(url,title,options,'1');  
         editbrowser.focus();  
     }  
 </script>  </script>
 <head>  <head>
 <title>LON-CAPA Course Environment</title>  <title>LON-CAPA Course Environment</title>
Line 1572  $bodytag Line 1708  $bodytag
 $setoutput  $setoutput
 <p>  <p>
 <table border=2>  <table border=2>
 <tr><th>Parameter</th><th>Value</th><th>Set?</th></tr>  <tr><th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th></tr>
 $output  $output
 </table>  </table>
 <input type="submit" name="crsenv" value="Set Course Environment">  <input type="submit" name="crsenv" value="$lt{'sce'}">
 </form>  </form>
 </body>  </body>
 </html>      </html>    
 ENDENV  ENDENV
 }  }
   ##################################################
   
   my $tableopen;
   
   sub tablestart {
       if ($tableopen) {
    return '';
       } else {
    $tableopen=1;
    return '<table border="2"><tr><th>'.&mt('Parameter').'</th><th>'.
       &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
       }
   }
   
   sub tableend {
       if ($tableopen) {
    $tableopen=0;
    return '</table>';
       } else {
    return'';
       }
   }
   
   sub overview {
       my $r=shift;
       my $bodytag=&Apache::loncommon::bodytag(
                                'Set/Modify Course Assessment Parameters');
       my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
       my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
       $r->print(<<ENDOVER);
   <html>
   <head>
   <title>LON-CAPA Course Environment</title>
   </head>
   $bodytag
   <form method="post" action="/adm/parmset" name="overviewform">
   <input type="hidden" name="overview" value="1" />
   ENDOVER
   # Setting
       my %olddata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
       my %newdata=();
       undef %newdata;
       my @deldata=();
       undef @deldata;
       foreach (keys %ENV) {
    if ($_=~/^form\.([a-z]+)\_(.+)$/) {
       my $cmd=$1;
       my $thiskey=$2;
       if ($cmd eq 'set') {
    my $data=$ENV{$_};
    if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
       } elsif ($cmd eq 'del') {
    push (@deldata,$thiskey);
       } elsif ($cmd eq 'datepointer') {
    my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
    if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
       }
    }
       }
   # Store
       my $delentries=$#deldata+1;
       my @newdatakeys=keys %newdata;
       my $putentries=$#newdatakeys+1;
       if ($delentries) {
    if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
       $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));
    } else {
       $r->print('<h2><font color="red">'.
         &mt('Error deleting parameters').'</font></h2>');
    }
       }
       if ($putentries) {
    if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
       $r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));
    } else {
       $r->print('<h2><font color="red">'.
         &mt('Error storing parameters').'</font></h2>');
    }
       }
   # Read and display
       my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
       my $oldsection='';
       my $oldrealm='';
       my $oldpart='';
       my $pointer=0;
       $tableopen=0;
       my $foundkeys=0;
       foreach my $thiskey (sort keys %resourcedata) {
    if ($resourcedata{$thiskey.'.type'}) {
       my ($course,$middle,$part,$name)=
    ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
       my $section=&mt('All Students');
       if ($middle=~/^\[(.*)\]\./) {
    $section=&mt('Group/Section').': '.$1;
    $middle=~s/^\[(.*)\]\.//;
       }
       $middle=~s/\.$//;
       my $realm='<font color="red">'.&mt('All Resources').'</font>';
       if ($middle=~/^(.+)\_\_\_\(all\)$/) {
    $realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>';
       } elsif ($middle) {
    $realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>';
       }
       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) {
    $r->print(&tableend().
     "\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
    $oldpart=$part;
       }
   #
   # Ready to print
   #
       $r->print(&tablestart().'<tr><td><b>'.$name.
         ':</b></td><td><input type="checkbox" name="del_'.
         $thiskey.'" /></td><td>');
       $foundkeys++;
       if ($resourcedata{$thiskey.'.type'}=~/^date/) {
    my $jskey='key_'.$pointer;
    $pointer++;
    $r->print(
     &Apache::lonhtmlcommon::date_setter('overviewform',
         $jskey,
         $resourcedata{$thiskey}).
   '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
     );
       } else {
    $r->print(
     '<input type="text" name="set_'.$thiskey.'" value="'.
     $resourcedata{$thiskey}.'">');
       }
       $r->print('</td></tr>');
    }
       }
       
       $r->print(&tableend().'<p>'.
    ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');
   }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
Line 1600  sub handler { Line 1882  sub handler {
     my $r=shift;      my $r=shift;
   
     if ($r->header_only) {      if ($r->header_only) {
  $r->content_type('text/html');   &Apache::loncommon::content_type($r,'text/html');
  $r->send_http_header;   $r->send_http_header;
  return OK;   return OK;
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
   
     $r->content_type('text/html');  # ----------------------------------------------------------- Clear out garbage
     $r->send_http_header;  
       %courseopt=();
       %useropt=();
       %parmhash=();
   
       @ids=();
       %symbp=();
       %mapp=();
       %typep=();
       %keyp=();
   
       %maptitles=();
   
 # ----------------------------------------------------- Needs to be in a course  # ----------------------------------------------------- Needs to be in a course
   
     if (($ENV{'request.course.id'}) &&       if (($ENV{'request.course.id'}) && 
  (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {   (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {
   
           &Apache::loncommon::content_type($r,'text/html');
           $r->send_http_header;
     
         $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};          $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
   
  unless (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {   if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {
 # --------------------------------------------------------- Bring up assessment  
     &assessparms($r);  
 # ---------------------------------------------- This is for course environment  # ---------------------------------------------- This is for course environment
  } else {  # -------------------------- also call if toplevel map coudl not be initialized
     &crsenv($r);      &crsenv($r);
    } elsif ($ENV{'form.overview'}) {
   # --------------------------------------------------------------- Overview mode
       &overview($r);
    } else {
   # --------------------------------------------------------- Bring up assessment
       &assessparms($r);
  }   }
     } else {      } else {
 # ----------------------------- Not in a course, or not allowed to modify parms  # ----------------------------- Not in a course, or not allowed to modify parms
Removed from v.1.105  
changed lines
  Added in v.1.161

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