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

Diff for /loncom/interface/lonparmset.pm between versions 1.128 and 1.134

version 1.128, 2003/10/08 18:08:11 version 1.134, 2003/11/10 16:33:57
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 293  sub startpage { Line 293  sub startpage {
         &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"
          );
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 <html>  <html>
 <head>  <head>
Line 343  $selscript Line 356  $selscript
 $bodytag  $bodytag
   
 <form method="post" action="/adm/parmset" name="envform">  <form method="post" action="/adm/parmset" name="envform">
 <h4>Course Environment Parameters</h4>  <h4>$lt{'cep'}</h4>
 <input type="submit" name="crsenv" value="Set Course Environment Parameters" />  <input type="submit" name="crsenv" value="$lt{'scep'}" />
 </form>  </form>
 <hr />  <hr />
 <form method="post" action="/adm/helper/parameter.helper" name="helpform">  <form method="post" action="/adm/helper/parameter.helper" name="helpform">
 <h4>Course Assessment Parameter - Helper Mode</h4>  <h4>$lt{'caphm'}</h4>
 <input type="submit" value="Set/Modify Course Assessment Parameter" />  <input type="submit" value="$lt{'smcap'}" />
 </form>  </form>
 <hr />  <hr />
 <form method="post" action="/adm/parmset" name="overview">  <form method="post" action="/adm/parmset" name="overview">
 <h4>Course Assessment Parameters - Overview Mode</h4>  <h4>$lt{'capom'}</h4>
 <input type="submit" name="overview" value="Modify Course Assessment Parameters" />  <input type="submit" name="overview" value="$lt{'mcap'}" />
 </form>  </form>
 <hr />  <hr />
 <form method="post" action="/adm/parmset" name="parmform">  <form method="post" action="/adm/parmset" name="parmform">
 <h4>Course Assessments Parameters - Table Mode</h4>  <h4>$lt{'captm'}</h4>
 ENDHEAD  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 505  sub print_td { Line 518  sub print_td {
     $r->print('</td>'."\n");      $r->print('</td>'."\n");
 }  }
   
 sub get_env_multiple {  
     my ($name) = @_;  
     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);  
 }  
   
 =pod  =pod
   
 =item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.  =item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.
Line 653  sub assessparms { Line 652  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 680  sub assessparms { Line 679  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'};
   
Line 726  sub assessparms { Line 725  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 737  sub assessparms { Line 737  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 864  sub assessparms { Line 865  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.'.&Apache::loncommon::help_open_topic('Caching').'</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(
Line 923  sub assessparms { Line 924  sub assessparms {
   
     $r->print('<h2>'.$message.'</h2><table>');      $r->print('<h2>'.$message.'</h2><table>');
                                                   
     my $submitmessage = 'Update Section or Specific User';      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').'</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 938  sub assessparms { Line 939  sub assessparms {
   
         $r->print('</tr>');          $r->print('</tr>');
  if ($parmlev ne 'general') {   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'); }
Line 950  sub assessparms { Line 951  sub assessparms {
  }   }
     } else {      } else {
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($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 958  sub assessparms { Line 959  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 967  sub assessparms { Line 968  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 992  sub assessparms { Line 993  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 1006  sub assessparms { Line 1007  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 1045  sub assessparms { Line 1046  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/Modify 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 1076  sub assessparms { Line 1077  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 1264  ENDTABLEHEADFOUR Line 1283  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>
Line 1277  ENDMAPONE Line 1296  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")." <i>$uname \($person\) </i> ".
                           &mt('in')." \n");
                 } else {                  } else {
                     $r->print("<i>all</i> users in \n");                      $r->print("<i>".&mt('all').'</i> '.&mt('users in')." \n");
                 }                  }
                           
                 if ($csec) {$r->print("Section <i>$csec</i> of \n")};                  if ($csec) {$r->print(&mt("Section")." <i>$csec</i> ".
         &mt('of')." \n")};
   
                 $r->print("<i>$coursename</i><br />");                  $r->print("<i>$coursename</i><br />");
                 $r->print("</font></h4>\n");                  $r->print("</font></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 1346  ENDMAPONE Line 1367  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><br />  <i>$coursename</i><br />
 ENDMAPONE  ENDMAPONE
             if ($uname) {              if ($uname) {
Line 1356  ENDMAPONE Line 1378  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> \n");                  $r->print(" ".&mt("User")." <i>$uname \($person\) </i> \n");
             } else {              } else {
                 $r->print("<i>ALL</i> USERS \n");                  $r->print("<i>".&mt("ALL")."</i> ".&mt("USERS")." \n");
             }              }
                           
             if ($csec) {$r->print("Section <i>$csec</i>\n")};              if ($csec) {$r->print(&mt("Section")." <i>$csec</i>\n")};
             $r->print("</font></h4>\n");              $r->print("</font></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 1423  sub crsenv { Line 1445  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 1462  sub crsenv { Line 1484  sub crsenv {
             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 />';
             }              }
         }          }
     }      }
Line 1616  sub crsenv { Line 1638  sub crsenv {
         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" '.
Line 1675  sub tablestart { Line 1697  sub tablestart {
  return '';   return '';
     } else {      } else {
  $tableopen=1;   $tableopen=1;
  return '<table border="2"><tr><th>Parameter</th><th>Delete</th><th>Set to ...</th></tr>';   return '<table border="2"><tr><th>'.&mt('Parameter').'</th><th>'.
       &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
     }      }
 }  }
   
Line 1738  ENDOVER Line 1761  ENDOVER
  if ($resourcedata{$thiskey.'.type'}) {   if ($resourcedata{$thiskey.'.type'}) {
     my ($course,$middle,$part,$name)=      my ($course,$middle,$part,$name)=
  ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);   ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
     my $section='All Students';      my $section=&mt('All Students');
     if ($middle=~/^\[(.*)\]\./) {      if ($middle=~/^\[(.*)\]\./) {
  $section='Group/Section: '.$1;   $section=&mt('Group/Section').': '.$1;
  $middle=~s/^\[(.*)\]\.//;   $middle=~s/^\[(.*)\]\.//;
     }      }
     $middle=~s/\.$//;      $middle=~s/\.$//;
     my $realm='<font color="red">All Resources</font>';      my $realm='<font color="red">'.&mt('All Resources').'</font>';
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {      if ($middle=~/^(.+)\_\_\_\(all\)$/) {
  $realm='<font color="green">Folder/Map: '.&Apache::lonnet::gettitle($1).'</font>';   $realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>';
     } elsif ($middle) {      } elsif ($middle) {
  $realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>';   $realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>';
     }      }
     if ($section ne $oldsection) {      if ($section ne $oldsection) {
  $r->print(&tableend()."\n<hr /><h1>$section</h1>");   $r->print(&tableend()."\n<hr /><h1>$section</h1>");
Line 1762  ENDOVER Line 1785  ENDOVER
     }      }
     if ($part ne $oldpart) {      if ($part ne $oldpart) {
  $r->print(&tableend().   $r->print(&tableend().
   "\n<h3><font color='blue'>Part: $part</font></h3>");    "\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
  $oldpart=$part;   $oldpart=$part;
     }      }
 #  #
Line 1790  ENDOVER Line 1813  ENDOVER
     }      }
           
     $r->print(&tableend().      $r->print(&tableend().
       '<p><input type="submit" value="Modify Parameters" /></p></form></body></html>');        '<p><input type="submit" value="'.&mt('Modify Parameters').'" /></p></form></body></html>');
 }  }
   
 ##################################################  ##################################################
Line 1817  sub handler { Line 1840  sub handler {
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
   
   # ----------------------------------------------------------- Clear out garbage
   
       %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'}) && 
Removed from v.1.128  
changed lines
  Added in v.1.134

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