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

Diff for /loncom/interface/lonparmset.pm between versions 1.75 and 1.136

version 1.75, 2002/10/28 23:28:52 version 1.136, 2003/11/18 22:18:42
Line 56  package Apache::lonparmset; Line 56  package Apache::lonparmset;
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
   use Apache::lonhtmlcommon();
 use Apache::loncommon;  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 72  my %mapp; Line 73  my %mapp;
 my %typep;  my %typep;
 my %keyp;  my %keyp;
   
   my %maptitles;
   
 my $uname;  my $uname;
 my $udom;  my $udom;
 my $uhome;  my $uhome;
Line 96  Returns:  A list, the first item is the Line 99  Returns:  A list, the first item is the
 11- resource default  11- resource default
 10- map default  10- map default
 9 - General Course  9 - General Course
 8 - Map level in course  8 - Map or Folder level in course
 7 - resource level in course  7 - resource level in course
 6 - General for section  6 - General for section
 5 - Map level for section  5 - Map or Folder level for section
 4 - resource level in section  4 - resource level in section
 3 - General for specific student  3 - General for specific student
 2 - Map level for specific student  2 - Map or Folder level for specific student
 1 - resource level for specific student  1 - resource level for specific student
   
 =cut  =cut
Line 282  sub plink { Line 285  sub plink {
   
   
 sub startpage {  sub startpage {
     my ($r,$id,$udom,$csec,$uname)=@_;      my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
     $r->content_type('text/html');  
     $r->send_http_header;      my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
    
     my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',  
                                             'onUnload="pclose()"');                                              'onUnload="pclose()"');
       my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
           &Apache::loncommon::selectstudent_link('parmform','uname','udom');
       my $selscript=&Apache::loncommon::studentbrowser_javascript();
       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 300  sub startpage { Line 318  sub startpage {
         parmwin.close();          parmwin.close();
     }      }
   
     function pjump(type,dis,value,marker,ret,call) {      $pjump_def
         document.parmform.pres_marker.value='';  
         parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)  
                  +"&value="+escape(value)+"&marker="+escape(marker)  
                  +"&return="+escape(ret)  
                  +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
   
     }  
   
     function psub() {      function psub() {
         pclose();          pclose();
Line 341  sub startpage { Line 351  sub startpage {
         newWin.focus();          newWin.focus();
     }      }
 </script>  </script>
   $selscript
 </head>  </head>
 $bodytag  $bodytag
   
 <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>  </form>
   <hr />
   <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>
   <hr />
 <form method="post" action="/adm/parmset" name="parmform">  <form method="post" action="/adm/parmset" name="parmform">
 <h3>Course Assessments</h3>  <h4>$lt{'captm'}</h4>
   ENDHEAD
   
       if (!$have_assesments) {
    $r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');
       } else {
    $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'}
 <input type="text" value="$udom" size="6" name="udom">  $chooseopt
 </b>  </b>
 <input type="hidden" value='' name="pres_value">  <input type="hidden" value='' name="pres_value">
 <input type="hidden" value='' name="pres_type">  <input type="hidden" value='' name="pres_type">
 <input type="hidden" value='' name="pres_marker">  <input type="hidden" value='' name="pres_marker">
 ENDHEAD  ENDHEAD
       }
 }  }
   
 sub print_row {  sub print_row {
Line 456  sub print_row { Line 485  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 478  sub print_row { Line 509  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 544  sub extractResourceInformation { Line 567  sub extractResourceInformation {
     my $defp = shift;      my $defp = shift;
     my $mapp = shift;      my $mapp = shift;
     my $symbp = shift;      my $symbp = shift;
       my $maptitles=shift;
   
     foreach (keys %$bighash) {      foreach (keys %$bighash) {
  if ($_=~/^src\_(\d+)\.(\d+)$/) {   if ($_=~/^src\_(\d+)\.(\d+)$/) {
Line 584  sub extractResourceInformation { Line 608  sub extractResourceInformation {
     &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});      &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
                 $$mapp{$mapid}=$$mapp{$id};                  $$mapp{$mapid}=$$mapp{$id};
  $$allmaps{$mapid}=$$mapp{$id};   $$allmaps{$mapid}=$$mapp{$id};
    $$maptitles{$mapid}=
    $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
    $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
  $$symbp{$id}=$$mapp{$id}.   $$symbp{$id}=$$mapp{$id}.
  '___'.$resid.'___'.   '___'.$resid.'___'.
     &Apache::lonnet::declutter($srcf);      &Apache::lonnet::declutter($srcf);
Line 627  sub assessparms { Line 654  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 654  sub assessparms { Line 681  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'; }
     my $showoptions=$ENV{'form.showoptions'};      my $showoptions=$ENV{'form.showoptions'};
   
     my $pssymb='';      my $pssymb='';
Line 680  sub assessparms { Line 708  sub assessparms {
  my $url=$ENV{'form.url'};   my $url=$ENV{'form.url'};
  $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;   $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
  $pssymb=&Apache::lonnet::symbread($url);   $pssymb=&Apache::lonnet::symbread($url);
  @pscat='all';   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
     } elsif ($ENV{'form.symb'}) {      } elsif ($ENV{'form.symb'}) {
  $pssymb=$ENV{'form.symb'};   $pssymb=$ENV{'form.symb'};
  @pscat='all';   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
     } else {      } else {
Line 699  sub assessparms { Line 727  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 710  sub assessparms { Line 739  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::usection($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 750  sub assessparms { Line 780  sub assessparms {
     }      }
   
 # --------------------------------------------------------- Get all assessments  # --------------------------------------------------------- Get all assessments
     extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp);      extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles);
   
     $mapp{'0.0'} = '';      $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';      $symbp{'0.0'} = '';
   
 # ---------------------------------------------------------- Anything to store?  # ---------------------------------------------------------- Anything to store?
     if ($ENV{'form.pres_marker'}) {      if ($ENV{'form.pres_marker'}) {
  my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});   my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
Line 779  sub assessparms { Line 810  sub assessparms {
  if ($snum==5) { $storeunder=$seclevelm; }   if ($snum==5) { $storeunder=$seclevelm; }
  if ($snum==4) { $storeunder=$seclevelr; }   if ($snum==4) { $storeunder=$seclevelr; }
   
    my $delete;
    if ($ENV{'form.pres_value'} eq '') { $delete=1;}
         my %storecontent = ($storeunder         => $ENV{'form.pres_value'},          my %storecontent = ($storeunder         => $ENV{'form.pres_value'},
                             $storeunder.'.type' => $ENV{'form.pres_type'});                              $storeunder.'.type' => $ENV{'form.pres_type'});
  my $reply='';   my $reply='';
Line 795  sub assessparms { Line 828  sub assessparms {
  &Apache::lonnet::expirespread('','','assesscalc');   &Apache::lonnet::expirespread('','','assesscalc');
     }      }
 # Store parameter  # Store parameter
             $reply=&Apache::lonnet::cput      if ($delete) {
                 ('resourcedata',\%storecontent,   $reply=&Apache::lonnet::del
                  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},      ('resourcedata',[keys(%storecontent)],
                  $ENV{'course.'.$ENV{'request.course.id'}.'.num'});       $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
        $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
       } else {
    $reply=&Apache::lonnet::cput
       ('resourcedata',\%storecontent,
        $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
        $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
       }
  } else {   } else {
 # ------------------------------------------------------------------ Store User  # ------------------------------------------------------------------ Store User
 #  #
Line 814  sub assessparms { Line 854  sub assessparms {
  &Apache::lonnet::expirespread($uname,$udom,'assesscalc');   &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
     }      }
 # Store parameter  # Store parameter
     $reply=&Apache::lonnet::cput      if ($delete) {
                 ('resourcedata',\%storecontent,$udom,$uname);   $reply=&Apache::lonnet::del
       ('resourcedata',[keys(%storecontent)],$udom,$uname);
       } else {
    $reply=&Apache::lonnet::cput
       ('resourcedata',\%storecontent,$udom,$uname);
       }
  }   }
   
  if ($reply=~/^error\:(.*)/) {   if ($reply=~/^error\:(.*)/) {
     $message.="<font color=red>Write Error: $1</font>";      $message.="<font color=red>Write Error: $1</font>";
  }   }
 # ---------------------------------------------------------------- Done storing  # ---------------------------------------------------------------- Done storing
    $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 855  sub assessparms { Line 902  sub assessparms {
     if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}      if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
 # ------------------------------------------------------------------ Start page  # ------------------------------------------------------------------ Start page
   
     &startpage($r,$id,$udom,$csec,$uname);      my $have_assesments=1;
       if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
   
       &startpage($r,$id,$udom,$csec,$uname,$have_assesments);
   
       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 870  sub assessparms { Line 926  sub assessparms {
   
     $r->print('<h2>'.$message.'</h2><table>');      $r->print('<h2>'.$message.'</h2><table>');
                                                   
     $r->print('<tr><td><hr /></td></tr>');      my $submitmessage = &mt('Update Section or Specific User');
   
     my $submitmessage;  
     if (($prevvisit) || ($pschp) || ($pssymb)) {  
         $submitmessage = "Update Display";  
     } else {  
         $submitmessage = "Display";  
     }  
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<tr><td>Select Parameter Level</td><td>');          $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 889  sub assessparms { Line 938  sub assessparms {
             $r->print('>'.$_.'</option>');              $r->print('>'.$_.'</option>');
         }          }
         $r->print("</select></td>\n");          $r->print("</select></td>\n");
       
         $r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');  
   
         $r->print('</tr><tr><td><hr /></td>');  
   
         $r->print('<tr><td>Select Enclosing Map</td>');          $r->print('</tr>');
         $r->print('<td colspan="2"><select name="pschp">');   if ($parmlev ne 'general') {
         $r->print('<option value="all">All Maps</option>');      $r->print('<tr><td>'.&mt('Select Enclosing Map or Folder').'</td>');
         foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {      $r->print('<td colspan="2"><select name="pschp">');
             $r->print('<option value="'.$_.'"');      $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
             if (($pschp eq $_)) { $r->print(' selected'); }      foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
             $r->print('>/res/'.$allmaps{$_}.'</option>');   $r->print('<option value="'.$_.'"');
         }   if (($pschp eq $_)) { $r->print(' selected'); }
         $r->print("</select></td></tr>\n");   $r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?'  ['.$allmaps{$_}.']':'').'</option>');
       }
       $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 913  sub assessparms { Line 961  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" onclick="form.submit();">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 922  sub assessparms { Line 970  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} }
                       keys %allparms ) {                        keys %allparms ) {
             ++$cnt;              ++$cnt;
Line 948  sub assessparms { Line 995  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=();
           foreach (@psprt) { $temphash{$_}=1; }
         foreach $tempkey (sort keys %allparts) {          foreach $tempkey (sort keys %allparts) {
             unless ($tempkey =~ /\./) {              unless ($tempkey =~ /\./) {
                 $r->print('<option value="'.$tempkey.'"');                  $r->print('<option value="'.$tempkey.'"');
                 if ($psprt[0] eq "all" ||  grep $_ == $tempkey, @psprt) {                  if ($psprt[0] eq "all" ||  $temphash{$tempkey}) {
                     $r->print(' selected');                      $r->print(' selected');
                 }                  }
                 $r->print('>'.$allparts{$tempkey}.'</option>');                  $r->print('>'.$allparts{$tempkey}.'</option>');
Line 960  sub assessparms { Line 1009  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</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 997  sub assessparms { Line 1046  sub assessparms {
         }          }
   
     }      }
     $r->print('</table>');      $r->print('</table><br />');
       if (($prevvisit) || ($pschp) || ($pssymb)) {
     my @temp_psprt;          $submitmessage = &mt("Update Course Assessment Parameter Display");
     foreach my $t (@psprt) {      } else {
  push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));          $submitmessage = &mt("Set/Modify Course Assessment Parameters");
     }      }
       $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
   
   #    my @temp_psprt;
   #    foreach my $t (@psprt) {
   # push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
   #    }
   
     @psprt = @temp_psprt;  #    @psprt = @temp_psprt;
   
     my @temp_pscat;      my @temp_pscat;
     map {      map {
Line 1020  sub assessparms { Line 1075  sub assessparms {
         my $csuname=$ENV{'user.name'};          my $csuname=$ENV{'user.name'};
         my $csudom=$ENV{'user.domain'};          my $csudom=$ENV{'user.domain'};
   
   
         if ($parmlev eq 'full' || $parmlev eq 'brief') {          if ($parmlev eq 'full' || $parmlev eq 'brief') {
   
            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</th><th>Part No.</th><th>Parameter Name</th>  <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
 <th>default</th><th>from Enclosing Map</th>  <th>$lt{'def'}</th><th>$lt{'femof'}</th>
 <th>general</th><th>for Enclosing Map</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</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</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 1103  ENDTABLEHEADFOUR Line 1174  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>'.
Line 1111  ENDTABLEHEADFOUR Line 1183  ENDTABLEHEADFOUR
                              '</font></tt><p><b>'.                               '</font></tt><p><b>'.
                              "<a href=\"javascript:openWindow('/res/".$uri.                               "<a href=\"javascript:openWindow('/res/".$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 1213  ENDTABLEHEADFOUR Line 1285  ENDTABLEHEADFOUR
                 } # end loop through ids                  } # end loop through ids
                                                                     
 #---------------------------------------------------- print header information  #---------------------------------------------------- print header information
                   my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
                   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 map  Set Defaults for All Resources in $foldermap<br />
 <i>$maptitle</i><br />  <font color="red"><i>$showtitle</i></font><br />
 Specifically for  Specifically for
 ENDMAPONE  ENDMAPONE
                 if ($uname) {                  if ($uname) {
Line 1224  ENDMAPONE Line 1298  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 1293  ENDMAPONE Line 1369  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 1337  ENDMAPONE Line 1413  ENDMAPONE
   
 =item crsenv  =item crsenv
   
 Show course data and parameters.  This is a large routine that should  Show and set course data and parameters.  This is a large routine that should
 be simplified and shortened... someday.  be simplified and shortened... someday.
   
 Inputs: $r  Inputs: $r
Line 1355  sub crsenv { Line 1431  sub crsenv {
                              'Set Course Environment Parameters');                               'Set Course Environment Parameters');
     my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
 # -------------------------------------------------- Go through list of changes  
       #
       # Go through list of changes
     foreach (keys %ENV) {      foreach (keys %ENV) {
  if ($_=~/^form\.(.+)\_setparmval$/) {          next if ($_!~/^form\.(.+)\_setparmval$/);
             my $name=$1;          my $name  = $1;
             my $value=$ENV{'form.'.$name.'_value'};          my $value = $ENV{'form.'.$name.'_value'};
             if ($name eq 'newp') {          if ($name eq 'newp') {
                 $name=$ENV{'form.newp_name'};              $name = $ENV{'form.newp_name'};
           }
           if ($name eq 'url') {
               $value=~s/^\/res\///;
               my $bkuptime=time;
               my @tmp = &Apache::lonnet::get
                   ('environment',['url'],$dom,$crs);
               $setoutput.=&mt('Backing up previous URL').': '.
                   &Apache::lonnet::put
                   ('environment',
                    {'top level map backup '.$bkuptime => $tmp[1] },
                    $dom,$crs).
                        '<br>';
           }
           #
           # Deal with modified default spreadsheets
           if ($name =~ /^spreadsheet_default_(classcalc|
                                               studentcalc|
                                               assesscalc)$/x) {
               my $sheettype = $1; 
               if ($sheettype eq 'classcalc') {
                   # no need to do anything since viewing the sheet will
                   # cause it to be updated. 
               } elsif ($sheettype eq 'studentcalc') {
                   # expire all the student spreadsheets
                   &Apache::lonnet::expirespread('','','studentcalc');
               } else {
                   # expire all the assessment spreadsheets 
                   #    this includes non-default spreadsheets, but better to
                   #    be safe than sorry.
                   &Apache::lonnet::expirespread('','','assesscalc');
                   # expire all the student spreadsheets
                   &Apache::lonnet::expirespread('','','studentcalc');
             }              }
             if ($name eq 'url') {          }
  $value=~s/^\/res\///;          #
                 my $bkuptime=time;          # Deal with the enrollment dates
                 my @tmp = &Apache::lonnet::get          if ($name =~ /^default_enrollment_(start|end)_date$/) {
                     ('environment',['url'],$dom,$crs);              $value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
                 $setoutput.='Backing up previous URL: '.          }
                     &Apache::lonnet::put          #
                         ('environment',          # Let the user know we made the changes
                          {'top level map backup '.$bkuptime => $tmp[1] },          if ($name) {
                          $dom,$crs).              my $put_result = &Apache::lonnet::put('environment',
                     '<br>';                                                    {$name=>$value},$dom,$crs);
               if ($put_result eq 'ok') {
                   $setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';
               } else {
                   $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
       ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
             }              }
             if ($name) {  
                 $setoutput.='Setting <tt>'.$name.'</tt> to <tt>'.  
                     $value.'</tt>: '.  
                     &Apache::lonnet::put  
                             ('environment',{$name=>$value},$dom,$crs).  
                     '<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);
Line 1393  sub crsenv { Line 1505  sub crsenv {
     ('url'            => '<b>Top Level Map</b> '.      ('url'            => '<b>Top Level Map</b> '.
                                  '<a href="javascript:openbrowser'.                                   '<a href="javascript:openbrowser'.
                                  "('envform','url','sequence')\">".                                   "('envform','url','sequence')\">".
                                  'Browse</a><br /><font color=red> '.                                   'Select Map</a><br /><font color=red> '.
                                  'Modification may make assessment data '.                                   'Modification may make assessment data '.
                                  'inaccessible</font>',                                   'inaccessible</font>',
              'description'    => '<b>Course Description</b>',               'description'    => '<b>Course Description</b>',
              'courseid'       => '<b>Course ID or number</b><br />'.               'courseid'       => '<b>Course ID or number</b><br />'.
                                  '(internal, optional)',                                   '(internal, optional)',
                'grading'        => '<b>Grading</b>'.
                                    '"standard" or any other value.  '.
                                    'Default for new courses is "standard".',
   
              'default_xml_style' => '<b>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')\">Browse</a><br>",                      ",'sty')\">Select Style File</a><br>",
              'question.email' => '<b>Feedback Addresses for Resource Content '.               'question.email' => '<b>Feedback Addresses for Resource Content '.
                                  'Questions</b><br />(<tt>user:domain,'.                                   'Questions</b><br />(<tt>user:domain,'.
                                  'user:domain(section;section;...;*;...),...</tt>)',                                   'user:domain(section;section;...;*;...),...</tt>)',
Line 1413  sub crsenv { Line 1529  sub crsenv {
              'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br />'.               'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br />'.
                                  '("<tt>yes</tt>" for default hiding)',                                   '("<tt>yes</tt>" for default hiding)',
              'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br />'.               'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br />'.
                                  '("<tt>yes</tt>" for visible separation)',                                   '("<tt>yes</tt>" for visible separation, '.
                                    'changes will not show until next login)',
   
                'plc.roles.denied'=> '<b>Disallow live chatroom use for '.
                                     'Roles</b><br />"<tt>st</tt>": '.
                                     'student, "<tt>ta</tt>": '.
                                     'TA, "<tt>in</tt>": '.
                                     'instructor;<br /><tt>role,role,...</tt>) '.
          Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
                'plc.users.denied' => 
                             '<b>Disallow live chatroom use for Users</b><br />'.
                                    '(<tt>user:domain,user:domain,...</tt>)',
   
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.               'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
                                   'Roles</b><br />"<tt>st</tt>": '.                                    'Roles</b><br />"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.                                    'student, "<tt>ta</tt>": '.
Line 1427  sub crsenv { Line 1555  sub crsenv {
                  => '<b>Default Course Spreadsheet</b> '.                   => '<b>Default Course Spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_classcalc'".                      "('envform','spreadsheet_default_classcalc'".
                     ",'spreadsheet')\">Browse</a><br />",                      ",'spreadsheet')\">Select Spreadsheet File</a><br />",
              'spreadsheet_default_studentcalc'                'spreadsheet_default_studentcalc' 
                  => '<b>Default Student Spreadsheet</b> '.                   => '<b>Default Student Spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_calc'".                      "('envform','spreadsheet_default_calc'".
                     ",'spreadsheet')\">Browse</a><br />",                      ",'spreadsheet')\">Select Spreadsheet File</a><br />",
              'spreadsheet_default_assesscalc'                'spreadsheet_default_assesscalc' 
                  => '<b>Default Assessment Spreadsheet</b> '.                   => '<b>Default Assessment Spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_assesscalc'".                      "('envform','spreadsheet_default_assesscalc'".
                     ",'spreadsheet')\">Browse</a><br />",                      ",'spreadsheet')\">Select Spreadsheet File</a><br />",
      'allow_limited_html_in_feedback'       'allow_limited_html_in_feedback'
          => '<b>Allow limited HTML in discussion posts</b><br />'.           => '<b>Allow limited HTML in discussion posts</b><br />'.
             '(Set value to yes to allow)'              '(Set value to "<tt>yes</tt>" to allow)',
              );       'rndseed'
  foreach (keys(%values)) {           => '<b>Randomization algorithm used</b> <br />'.
     unless ($descriptions{$_}) {                      '<font color="red">Modifying this will make problems '.
  $descriptions{$_}=$_;                      'have different numbers and answers</font>',
                'problem_stream_switch'
                    => '<b>Allow problems to be split over pages</b><br />'.
                       ' ("<tt>yes</tt>" if allowed, anything else if not)',
                'anonymous_quiz'
                    => '<b>Anonimous quiz/exam</b><br />'.
                       ' (<tt><b>yes</b> to avoid print students names </tt>)',
                'default_enrollment_start_date' => '<b>Default beginning date '.
                                                   'when enrolling students</b>',
                'default_enrollment_end_date'   => '<b>Default ending date '.
                                                   'when enrolling students</b>',
                'languages' => '<b>Languages used</b>',
                'disable_receipt_display'
                    => '<b>Disable display of problem receipts</b><br />'.
                       ' ("<tt>yes</tt>" to disable, anything else if not)'
                ); 
           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',
                                'rndseed',
                                'problem_stream_switch',
                                'disable_receipt_display',
                                'spreadsheet_default_classcalc',
                                'spreadsheet_default_studentcalc',
                                'spreadsheet_default_assesscalc', 
                                'hideemptyrows',
                                'default_enrollment_start_date',
                                'default_enrollment_end_date',
                                );
    foreach my $parameter (sort(keys(%values))) {
       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" '.
Line 1511  $output Line 1689  $output
 </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 ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
       }
    }
       }
   # Store
       &Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);
       &Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);
   # Read and display
       my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
       my $oldsection='';
       my $oldrealm='';
       my $oldpart='';
       my $pointer=0;
       $tableopen=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>');
       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><input type="submit" value="'.&mt('Modify Parameters').'" /></p></form></body></html>');
   }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
   
 =pod  =pod
   
 =item handler  =item * handler
   
 Main handler.  Calls &assessparms and &crsenv subroutines.  Main handler.  Calls &assessparms and &crsenv subroutines.
   
Line 1525  Main handler.  Calls &assessparms and &c Line 1830  Main handler.  Calls &assessparms and &c
   
 ##################################################  ##################################################
 ##################################################  ##################################################
       use Data::Dumper;
 sub handler {  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'});
   
   # ----------------------------------------------------------- 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'}) && 
  (&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.75  
changed lines
  Added in v.1.136

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