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

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

version 1.133, 2003/10/10 16:56:16 version 1.161, 2004/05/27 17:31:47
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/Modify Course Parameters','',      my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');                                              'onUnload="pclose()"');
Line 306  sub startpage { Line 306  sub startpage {
     'oi'    => "or ID",      'oi'    => "or ID",
     'ad'    => "at Domain"      '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 355  $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">
 <h4>$lt{'cep'}</h4>  <h4>$lt{'cep'}</h4>
 <input type="submit" name="crsenv" value="$lt{'scep'}" />  <input type="submit" name="crsenv" value="$lt{'scep'}" />
 </form>  </form>
 <hr />  <hr />
   $assessparmhelp
 <form method="post" action="/adm/helper/parameter.helper" name="helpform">  <form method="post" action="/adm/helper/parameter.helper" name="helpform">
 <h4>$lt{'caphm'}</h4>  <h4>$lt{'caphm'}</h4>
 <input type="submit" value="$lt{'smcap'}" />  <input type="submit" value="$lt{'smcap'}" />
Line 370  $bodytag Line 379  $bodytag
 <input type="submit" name="overview" value="$lt{'mcap'}" />  <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">
 <h4>$lt{'captm'}</h4>  <h4>$lt{'captm'}</h4>
 ENDHEAD  ENDHEAD3
   
     if (!$have_assesments) {      if (!$have_assesments) {
  $r->print('<font color="red">'.&mt('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 />');
Line 485  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 518  sub print_td { Line 532  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 587  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 693  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 723  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 917  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) {      if (!$have_assesments) {
  untie(%bighash);   untie(%bighash);
Line 940  sub assessparms { Line 944  sub assessparms {
                                                   
     my $submitmessage = &mt('Update Section or Specific User');      my $submitmessage = &mt('Update Section or Specific User');
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<tr><td>'.&mt('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 1148  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 1193  ENDTABLEHEADFOUR Line 1201  ENDTABLEHEADFOUR
                              '><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>$title");                               " TARGET=_self>$title");
   
Line 1301  ENDTABLEHEADFOUR Line 1310  ENDTABLEHEADFOUR
                 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 1310  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(&mt("User")." <i>$uname \($person\) </i> ".                      $r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
                         &mt('in')." \n");                          &mt('in')." \n");
                 } else {                  } else {
                     $r->print("<i>".&mt('all').'</i> '.&mt('users in')." \n");                      $r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");
                 }                  }
                           
                 if ($csec) {$r->print(&mt("Section")." <i>$csec</i> ".                  if ($csec) {$r->print(&mt("Section")." <font color=\"red\"><i>$csec</i></font> ".
       &mt('of')." \n")};        &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>'.&mt('Parameter Name').'</th>');                  $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
Line 1384  ENDMAPONE Line 1393  ENDMAPONE
     my $setdef=&mt("Set Defaults for All Resources in Course");      my $setdef=&mt("Set Defaults for All Resources in Course");
             $r->print(<<ENDMAPONE);              $r->print(<<ENDMAPONE);
 <center><h4>$setdef  <center><h4>$setdef
 <font color="red">  <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(" ".&mt("User")." <i>$uname \($person\) </i> \n");                  $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
             } else {              } else {
                 $r->print("<i>".&mt("ALL")."</i> ".&mt("USERS")." \n");                  $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
             }              }
                           
             if ($csec) {$r->print(&mt("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>'.&mt('Parameter Name').'</th>');              $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
Line 1494  sub crsenv { Line 1502  sub crsenv {
         }          }
         #          #
         # 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') {
Line 1512  sub crsenv { Line 1520  sub crsenv {
 # -------------------------------------------------------- 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 />'.
              'grading'        => '<b>Grading</b>'.                                   '('.&mt('internal').', '.&mt('optional').')',
                                  '"standard" or any other value.  '.               'grading'        => '<b>'.&mt('Grading').'</b><br />'.
                                  'Default for new courses is "standard".',                                   '<tt>"standard", "external", or "spreadsheet"</tt> '.&Apache::loncommon::help_open_topic('GradingOptions'),
                'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b> '.
              'default_xml_style' => '<b>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').')',
   
              'plc.roles.denied'=> '<b>Disallow live chatroom use for '.               'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
                                   'Roles</b><br />"<tt>st</tt>": '.                                    '</b><br />"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.                                    &mt('student').', "<tt>ta</tt>": '.
                                   'TA, "<tt>in</tt>": '.                                    'TA, "<tt>in</tt>": '.
                                   'instructor;<br /><tt>role,role,...</tt>) '.                                    &mt('instructor').';<br /><tt>'.&mt('role,role,...').'</tt>) '.
        Apache::loncommon::help_open_topic("Course_Disable_Discussion"),         Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
              'plc.users.denied' =>                'plc.users.denied' => 
                           '<b>Disallow live chatroom use for Users</b><br />'.                            '<b>'.&mt('Disallow live chatroom use for Users').'</b><br />'.
                                  '(<tt>user:domain,user:domain,...</tt>)',                                   '(<tt>user:domain,user:domain,...</tt>)',
   
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.               'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').
                                   'Roles</b><br />"<tt>st</tt>": '.                                    '</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 "<tt>yes</tt>" 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>yes</tt>" if allowed, anything else if not)',                      ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
                'default_paper_size' 
                    => '<b>'.&mt('Default paper type').'</b><br />'.
                       ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'. 
                       ' 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'               'anonymous_quiz'
                  => '<b>Anonimous quiz/exam</b><br />'.                   => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
                     ' (<tt><b>yes</b> to avoid print students names </tt>)',                      ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
              'default_enrollment_start_date' => '<b>Default beginning date '.               'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',
                                                 'when enrolling students</b>',               'default_enrollment_end_date'   => '<b>'.&mt('Default ending date when enrolling students').'</b>',
              'default_enrollment_end_date'   => '<b>Default ending date '.               'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
                                                 'when enrolling students</b>',                                   '<br />(<tt>user:domain,user:domain,...</tt>)',
              'languages' => '<b>Languages used</b>',               'languages' => '<b>'.&mt('Languages used').'</b>',
              'disable_receipt_display'               'disable_receipt_display'
                  => '<b>Disable display of problem receipts</b><br />'.                   => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
                     ' ("<tt>yes</tt>" to disable, anything else if not)'                      ' ('.&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',          my @Display_Order = ('url','description','courseid','grading',
                              'default_xml_style','pageseparators',                               'default_xml_style','pageseparators',
Line 1608  sub crsenv { Line 1627  sub crsenv {
                              'pch.roles.denied','pch.users.denied',                               'pch.roles.denied','pch.users.denied',
                              'allow_limited_html_in_feedback',                               'allow_limited_html_in_feedback',
                              'languages',                               'languages',
        'nothideprivileged',
                              'rndseed',                               'rndseed',
                                'receiptalg',
                              'problem_stream_switch',                               'problem_stream_switch',
                                'default_paper_size',
                              'disable_receipt_display',                               'disable_receipt_display',
                              'spreadsheet_default_classcalc',                               'spreadsheet_default_classcalc',
                              'spreadsheet_default_studentcalc',                               'spreadsheet_default_studentcalc',
Line 1617  sub crsenv { Line 1639  sub crsenv {
                              'hideemptyrows',                               'hideemptyrows',
                              'default_enrollment_start_date',                               'default_enrollment_start_date',
                              'default_enrollment_end_date',                               'default_enrollment_end_date',
        'tthoptions'
                              );                               );
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
     if (! $descriptions{$parameter}) {              unless ($parameter =~ m/^internal\./) {
                 $descriptions{$parameter}=$parameter;                  if (! $descriptions{$parameter}) {
                 push(@Display_Order,$parameter);                      $descriptions{$parameter}=$parameter;
     }                      push(@Display_Order,$parameter);
                   }
               }
  }   }
         foreach my $parameter (@Display_Order) {          foreach my $parameter (@Display_Order) {
             my $description = $descriptions{$parameter};              my $description = $descriptions{$parameter};
Line 1659  sub crsenv { Line 1684  sub crsenv {
                 $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 1693  $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>    
Line 1757  ENDOVER Line 1772  ENDOVER
  push (@deldata,$thiskey);   push (@deldata,$thiskey);
     } elsif ($cmd eq 'datepointer') {      } elsif ($cmd eq 'datepointer') {
  my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});   my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
  if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }   if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
     }      }
  }   }
     }      }
 # Store  # Store
     &Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);      my $delentries=$#deldata+1;
     &Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);      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  # Read and display
     my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);      my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
     my $oldsection='';      my $oldsection='';
Line 1771  ENDOVER Line 1803  ENDOVER
     my $oldpart='';      my $oldpart='';
     my $pointer=0;      my $pointer=0;
     $tableopen=0;      $tableopen=0;
       my $foundkeys=0;
     foreach my $thiskey (sort keys %resourcedata) {      foreach my $thiskey (sort keys %resourcedata) {
  if ($resourcedata{$thiskey.'.type'}) {   if ($resourcedata{$thiskey.'.type'}) {
     my ($course,$middle,$part,$name)=      my ($course,$middle,$part,$name)=
Line 1808  ENDOVER Line 1841  ENDOVER
     $r->print(&tablestart().'<tr><td><b>'.$name.      $r->print(&tablestart().'<tr><td><b>'.$name.
       ':</b></td><td><input type="checkbox" name="del_'.        ':</b></td><td><input type="checkbox" name="del_'.
       $thiskey.'" /></td><td>');        $thiskey.'" /></td><td>');
       $foundkeys++;
     if ($resourcedata{$thiskey.'.type'}=~/^date/) {      if ($resourcedata{$thiskey.'.type'}=~/^date/) {
  my $jskey='key_'.$pointer;   my $jskey='key_'.$pointer;
  $pointer++;   $pointer++;
Line 1826  ENDOVER Line 1860  ENDOVER
  }   }
     }      }
           
     $r->print(&tableend().      $r->print(&tableend().'<p>'.
       '<p><input type="submit" value="'.&mt('Modify Parameters').'" /></p></form></body></html>');   ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');
 }  }
   
 ##################################################  ##################################################
Removed from v.1.133  
changed lines
  Added in v.1.161

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