Diff for /loncom/interface/lonparmset.pm between versions 1.206 and 1.209

version 1.206, 2005/06/03 21:19:04 version 1.209, 2005/06/05 01:37:26
Line 440  sub plink { Line 440  sub plink {
             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};              $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
         }          }
     }      }
   
   
     return       return 
  '<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"   '<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
     .$marker."','".$return."','".$call."'".');">'.      .$marker."','".$return."','".$call."'".');">'.
Line 447  sub plink { Line 449  sub plink {
 }  }
   
 sub startpage {  sub startpage {
     my ($r,$id,$udom,$csec,$uname,$have_assessments)=@_;      my $r=shift;
   
     my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',      my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');                                              'onUnload="pclose()"');
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table Mode Parameter Setting');      my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table Mode Parameter Setting');
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.  
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');  
     my $selscript=&Apache::loncommon::studentbrowser_javascript();      my $selscript=&Apache::loncommon::studentbrowser_javascript();
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     my %lt=&Apache::lonlocal::texthash(  
                     'captm' => "Course Assessments Parameters - Table Mode",  
     'sg'    => "Section/Group",  
     'fu'    => "For User",  
     'oi'    => "or ID",  
     'ad'    => "at Domain"  
        );  
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 $html  $html
Line 513  $selscript Line 506  $selscript
 </head>  </head>
 $bodytag  $bodytag
 $breadcrumbs  $breadcrumbs
 ENDHEAD  
     my %sectionhash=();  
     my $sections='';  
     if (&Apache::loncommon::get_sections(  
                  $env{'course.'.$env{'request.course.id'}.'.domain'},  
                  $env{'course.'.$env{'request.course.id'}.'.num'},  
  \%sectionhash)) {  
         $sections=$lt{'sg'}.': <select name="csec">';  
  foreach ('',sort keys %sectionhash) {  
     $sections.='<option value="'.$_.'"'.  
  ($_ eq $csec?'selected="selected"':'').'>'.$_.'</option>';  
         }  
         $sections.='</select>';  
      }  
      $r->print(<<ENDHEAD3);  
 <form method="post" action="/adm/parmset?action=settable" name="parmform">  <form method="post" action="/adm/parmset?action=settable" name="parmform">
 <h4>$lt{'captm'}</h4>  
 ENDHEAD3  
   
     if (!$have_assessments) {  
  $r->print('<font color="red">'.&mt('There are no assessment parameters in this course to set.').'</font><br />');  
     } else {  
  $r->print(<<ENDHEAD);  
 <b>  
 $sections  
 <br />  
 $lt{'fu'}   
 <input type="text" value="$uname" size="12" name="uname" />  
 $lt{'oi'}  
 <input type="text" value="$id" size="12" name="id" />   
 $lt{'ad'}  
 $chooseopt  
 </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">
   <input type="hidden" value='1' name="prevvisit">
 ENDHEAD  ENDHEAD
     }  
 }  }
   
   
 sub print_row {  sub print_row {
     my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,      my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
  $defbgtwo,$parmlev,$uname,$udom,$csec)=@_;   $defbgtwo,$parmlev,$uname,$udom,$csec)=@_;
Line 700  sub extractResourceInformation { Line 662  sub extractResourceInformation {
     my $keyp = shift;      my $keyp = shift;
     my $allparms = shift;      my $allparms = shift;
     my $allparts = shift;      my $allparts = shift;
     my $allkeys = shift;  
     my $allmaps = shift;      my $allmaps = shift;
     my $fcat = shift;  
     my $defp = shift;  
     my $mapp = shift;      my $mapp = shift;
     my $symbp = shift;      my $symbp = shift;
     my $maptitles=shift;      my $maptitles=shift;
Line 725  sub extractResourceInformation { Line 684  sub extractResourceInformation {
  foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {   foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
     if ($_=~/^parameter\_(.*)/) {      if ($_=~/^parameter\_(.*)/) {
  my $key=$_;   my $key=$_;
  my $allkey=$1;  # Hidden parameters
  $allkey=~s/\_/\./g;   if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 'parm') {
  if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq       next;
     'parm') {  
     next; #hide hidden things  
  }   }
  my $display= &Apache::lonnet::metadata($srcf,$key.'.display');   my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
  my $name=&Apache::lonnet::metadata($srcf,$key.'.name');   my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
  my $part= &Apache::lonnet::metadata($srcf,$key.'.part');   my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
   #
   # allparms is a hash of parameter names
   #
  my $parmdis = $display;   my $parmdis = $display;
  $parmdis =~ s|(\[Part.*)$||g;   $parmdis =~ s/\[Part.*$//g;
  my $partkey = $part;                  $$allparms{$name}=$parmdis;
  $partkey =~ tr|_|.|;  #
  $$allparms{$name} = $parmdis;  # allparts is a hash of all parts
  $$allparts{$part} = "[Part $part]";  #
  $$allkeys{$allkey}=$display;   $$allparts{$part} = "Part: $part";
  if ($allkey eq $fcat) {  #
     $$defp{$id}= &Apache::lonnet::metadata($srcf,$key);  # Remember all keys going with this resource
  }  #
  if ($$keyp{$id}) {   if ($$keyp{$id}) {
     $$keyp{$id}.=','.$key;      $$keyp{$id}.=','.$key;
  } else {   } else {
Line 766  sub extractResourceInformation { Line 726  sub extractResourceInformation {
     }      }
 }  }
   
   
   ##################################################
   ##################################################
   
   sub parmmenu {
       my ($r,$allparms,$pscat)=@_;
       my $tempkey;
       $r->print(<<ENDSCRIPT);
   <script type="text/javascript">
       function checkall(value, checkName) {
    for (i=0; i<document.forms.parmform.elements.length; i++) {
               ele = document.forms.parmform.elements[i];
               if (ele.name == checkName) {
                   document.forms.parmform.elements[i].checked=value;
               }
           }
       }
   </script>
   ENDSCRIPT
       $r->print();
       $r->print("\n<table><tr>");
       my $cnt=0;
       foreach $tempkey (sort { $$allparms{$a} cmp $$allparms{$b} }
                         keys %{$allparms} ) {
    $r->print("\n<td><font size='-1'><input type='checkbox' name='pscat' ");
    $r->print('value="'.$tempkey.'"');
    if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
       $r->print(' checked');
    }
    $r->print('>'.$$allparms{$tempkey}.'</font></td>');
     $cnt++;
           if ($cnt==3) {
       $r->print("</tr>\n<tr>");
       $cnt=0;
    }
       }
       $r->print('
   </tr><tr><td>
   <input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />
   </td><td></td><td>
   <input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />
   </td>
   ');
       $r->print('</tr></table>');
   }
   
   sub partmenu {
       my ($r,$allparts,$psprt)=@_;
       $r->print('<select multiple name="psprt" size="5">');
       $r->print('<option value="all"');
       $r->print(' selected') unless (@{$psprt});
       $r->print('>'.&mt('All Parts').'</option>');
       my %temphash=();
       foreach (@{$psprt}) { $temphash{$_}=1; }
       foreach my $tempkey (sort keys %{$allparts}) {
    unless ($tempkey =~ /\./) {
       $r->print('<option value="'.$tempkey.'"');
       if ($$psprt[0] eq "all" ||  $temphash{$tempkey}) {
    $r->print(' selected');
       }
       $r->print('>'.$$allparts{$tempkey}.'</option>');
    }
       }
       $r->print('</select>');
   }
   
   sub usermenu {
       my ($r,$uname,$id,$udom,$csec)=@_;
       my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
           &Apache::loncommon::selectstudent_link('parmform','uname','udom');
       my $selscript=&Apache::loncommon::studentbrowser_javascript();
       my %lt=&Apache::lonlocal::texthash(
       'sg'    => "Section/Group",
       'fu'    => "For User",
       'oi'    => "or ID",
       'ad'    => "at Domain"
          );
       my %sectionhash=();
       my $sections='';
       if (&Apache::loncommon::get_sections(
                    $env{'course.'.$env{'request.course.id'}.'.domain'},
                    $env{'course.'.$env{'request.course.id'}.'.num'},
    \%sectionhash)) {
           $sections=$lt{'sg'}.': <select name="csec">';
    foreach ('',sort keys %sectionhash) {
       $sections.='<option value="'.$_.'"'.
    ($_ eq $csec?'selected="selected"':'').'>'.$_.'</option>';
           }
           $sections.='</select>';
        }
        $r->print(<<ENDMENU);
   <b>
   $sections
   <br />
   $lt{'fu'} 
   <input type="text" value="$uname" size="12" name="uname" />
   $lt{'oi'}
   <input type="text" value="$id" size="12" name="id" /> 
   $lt{'ad'}
   $chooseopt
   </b>
   ENDMENU
   }
   
   sub displaymenu {
       my ($r,$allparms,$allparts,$pscat,$psprt)=@_;
       $r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.
        &mt('Select Parts to View').'</th></tr><tr><td>');  
       &parmmenu($r,$allparms,$pscat);
       $r->print('</td><td>');
       &partmenu($r,$allparts,$psprt);
       $r->print('</td></tr></table>');
   }
   
   sub mapmenu {
       my ($r,$allmaps,$pschp,$maptitles)=@_;
       $r->print(&mt('Select Enclosing Map or Folder').' ');
       $r->print('<select name="pschp">');
       $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
       foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
    $r->print('<option value="'.$_.'"');
    if (($pschp eq $_)) { $r->print(' selected'); }
    $r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');
       }
       $r->print("</select>");
   }
   
   sub levelmenu {
       my ($r,$alllevs,$parmlev)=@_;
       $r->print(&mt('Select Parameter Level').
         &Apache::loncommon::help_open_topic('Course_Parameter_Levels').' ');
       $r->print('<select name="parmlev">');
       foreach (reverse sort keys %{$alllevs}) {
    $r->print('<option value="'.$$alllevs{$_}.'"');
    if ($parmlev eq $$alllevs{$_}) {
       $r->print(' selected'); 
    }
    $r->print('>'.$_.'</option>');
       }
       $r->print("</select>");
   }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
   
Line 809  sub assessparms { Line 911  sub assessparms {
     my %maptitles=();      my %maptitles=();
   
 # -------------------------------------------------------- Variable declaration  # -------------------------------------------------------- Variable declaration
     my %allkeys=();  
     my %allmaps=();      my %allmaps=();
     my %alllevs=();      my %alllevs=();
   
Line 827  sub assessparms { Line 929  sub assessparms {
     my %allparms;      my %allparms;
     my %allparts;      my %allparts;
   
     my %defp;  
   
     @ids=();      @ids=();
     %symbp=();      %symbp=();
     %typep=();      %typep=();
Line 848  sub assessparms { Line 948  sub assessparms {
     my $pschp=$env{'form.pschp'};      my $pschp=$env{'form.pschp'};
     my @psprt=&Apache::loncommon::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 $pssymb='';      my $pssymb='';
     my $parmlev='';      my $parmlev='';
     my $prevvisit=$env{'form.prevvisit'};  
     
     unless ($env{'form.parmlev'}) {      unless ($env{'form.parmlev'}) {
         $parmlev = 'map';          $parmlev = 'map';
Line 923  sub assessparms { Line 1021  sub assessparms {
   
     unless ($csec) { $csec=''; }      unless ($csec) { $csec=''; }
   
     my $fcat=$env{'form.fcat'};  
     unless ($fcat) { $fcat=''; }  
   
 # --------------------------------------------------------- Get all assessments  # --------------------------------------------------------- Get all assessments
     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles,\%uris);      &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, \%mapp, \%symbp,\%maptitles,\%uris);
   
     $mapp{'0.0'} = '';      $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';      $symbp{'0.0'} = '';
Line 946  sub assessparms { Line 1041  sub assessparms {
 # ---------------------------------------------------------------- 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>';   $message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</h3>';
     }      }
 # ------------------------------------------------------------------- Sort this  
   
     @ids=sort  {  
  if ($fcat eq '') {  
     $a<=>$b;  
  } else {  
     my ($result,@outpar)=&parmval($fcat,$a,$defp{$a},$uname,$udom,$csec);  
     my $aparm=$outpar[$result];  
     ($result,@outpar)=&parmval($fcat,$b,$defp{$b},$uname,$udom,$csec);  
     my $bparm=$outpar[$result];  
     1*$aparm<=>1*$bparm;  
  }  
     } @ids;  
 #----------------------------------------------- if all selected, fill in array  #----------------------------------------------- if all selected, fill in array
     if ($pscat[0] eq "all" || !@pscat) {@pscat = (keys %allparms);}      if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
       if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') }; 
     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,scalar(keys(%allkeys)));      &startpage($r);
   
     $r->print('<input type="hidden" value="true" name="prevvisit">');  
   
     foreach ('tolerance','date_default','date_start','date_end',      foreach ('tolerance','date_default','date_start','date_end',
      'date_interval','int','float','string') {       'date_interval','int','float','string') {
Line 974  sub assessparms { Line 1055  sub assessparms {
   $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');    $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');
     }      }
   
     $r->print('<h2>'.$message.'</h2><table>');      $r->print('<h2>'.$message.'</h2>');
                                                   
     my $submitmessage = &mt('Update Section or Specific User');  
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<tr><td>'.&mt('Select Parameter Level').          $r->print('<table border="1"><tr><td>');
        &Apache::loncommon::help_open_topic('Course_Parameter_Levels').          &levelmenu($r,\%alllevs,$parmlev);
   '</td><td colspan="2">');  
         $r->print('<select name="parmlev">');  
         foreach (reverse sort keys %alllevs) {  
             $r->print('<option value="'.$alllevs{$_}.'"');  
             if ($parmlev eq $alllevs{$_}) {  
                $r->print(' selected');   
             }  
             $r->print('>'.$_.'</option>');  
         }  
         $r->print("</select></td>\n");  
   
         $r->print('</tr>');  
  if ($parmlev ne 'general') {   if ($parmlev ne 'general') {
     $r->print('<tr><td>'.&mt('Select Enclosing Map or Folder').'</td>');              $r->print('<td>');
     $r->print('<td colspan="2"><select name="pschp">');      &mapmenu($r,\%allmaps,$pschp,\%maptitles);
     $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');      $r->print('</td>');
     foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {  
  $r->print('<option value="'.$_.'"');  
  if (($pschp eq $_)) { $r->print(' selected'); }  
  $r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?'  ['.$allmaps{$_}.']':'').'</option>');  
     }  
     $r->print("</select></td></tr>\n");  
  }   }
           $r->print('</td></tr></table>');
    &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt);
     } else {      } else {
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);          my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
         $r->print("<tr><td>".&mt('Specific Resource')."</td><td>$resource</td>");          $r->print(&mt('Specific Resource').": ".$resource.
         $r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');                    '<input type="hidden" value="'.$pssymb.'" name="symb">');
         $r->print('</tr>');  
         $r->print('<input type="hidden" value="'.$pssymb.'" name="symb">');  
     }  
   
     $r->print('<tr><td colspan="3"><hr /><label><input type="checkbox"');  
     if ($showoptions eq 'show') {$r->print(" checked ");}  
     $r->print(' name="showoptions" value="show" />'.&mt('Show More Options').'</label><hr /></td></tr>');  
 #    $r->print("<tr><td>Show: $showoptions</td></tr>");  
 #    $r->print("<tr><td>pscat: @pscat</td></tr>");  
 #    $r->print("<tr><td>psprt: @psprt</td></tr>");  
 #    $r->print("<tr><td>fcat:  $fcat</td></tr>");  
   
     if ($showoptions eq 'show') {  
         my $tempkey;  
   
         $r->print('<tr><td colspan="3" align="center">'.&mt('Select Parameters to View').'</td></tr>');  
   
         $r->print('<tr><td colspan="2"><table><tr>');  
         my $cnt=0;  
         foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }  
                       keys %allparms ) {  
             ++$cnt;  
             $r->print('</tr><tr>') if ($cnt%2);  
             $r->print('<td><input type="checkbox" name="pscat" ');  
             $r->print('value="'.$tempkey.'"');  
             if ($pscat[0] eq "all" || grep $_ eq $tempkey, @pscat) {  
                 $r->print(' checked');  
             }  
     $r->print('>'.$allparms{$tempkey}.'</td>');  
  }  
  $r->print('  
 </tr><tr><td>  
 <script type="text/javascript">  
     function checkall(value, checkName) {  
  for (i=0; i<document.forms.parmform.elements.length; i++) {  
             ele = document.forms.parmform.elements[i];  
             if (ele.name == checkName) {  
                 document.forms.parmform.elements[i].checked=value;  
             }  
         }  
     }      }
 </script>      &usermenu($r,$uname,$id,$udom,$csec);    
 <input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />  
 </td><td>  
 <input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />  
 </td>  
 ');  
         $r->print('</tr></table>');  
   
 #        $r->print('<tr><td>Select Parts</td><td>');  
         $r->print('<td><select multiple name="psprt" size="5">');  
         $r->print('<option value="all"');  
         $r->print(' selected') unless (@psprt);  
         $r->print('>'.&mt('All Parts').'</option>');  
         my %temphash=();  
         foreach (@psprt) { $temphash{$_}=1; }  
         foreach $tempkey (sort keys %allparts) {  
             unless ($tempkey =~ /\./) {  
                 $r->print('<option value="'.$tempkey.'"');  
                 if ($psprt[0] eq "all" ||  $temphash{$tempkey}) {  
                     $r->print(' selected');  
                 }  
                 $r->print('>'.$allparts{$tempkey}.'</option>');  
             }  
         }  
         $r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');  
   
         $r->print('<tr><td>'.&mt('Sort list by').'</td><td>');  
         $r->print('<select name="fcat">');  
         $r->print('<option value="">'.&mt('Enclosing Map or Folder').'</option>');  
         foreach (sort keys %allkeys) {  
             $r->print('<option value="'.$_.'"');  
             if ($fcat eq $_) { $r->print(' selected'); }  
             $r->print('>'.$allkeys{$_}.'</option>');  
         }  
         $r->print('</select></td>');  
   
         $r->print('</tr><tr><td colspan="3"><hr /></td></tr>');      $r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');
   
     } else { # hide options - include any necessary extras here  
   
         $r->print('<input type="hidden" name="fcat" value="'.$fcat.'">'."\n");  
   
         unless (@pscat) {  
           foreach (keys %allparms ) {  
             $r->print('<input type="hidden" name="pscat" value="'.$_.'">'."\n");  
           }  
         } else {  
           foreach (@pscat) {  
             $r->print('<input type="hidden" name="pscat" value="'.$_.'">'."\n");  
           }  
         }  
   
         unless (@psprt) {  
           foreach (keys %allparts ) {  
             $r->print('<input type="hidden" name="psprt" value="'.$_.'">'."\n");  
           }  
         } else {  
           foreach (@psprt) {  
             $r->print('<input type="hidden" name="psprt" value="'.$_.'">'."\n");  
           }  
         }  
   
     }  
     $r->print('</table><br />');  
     if (($prevvisit) || ($pschp) || ($pssymb)) {  
         $submitmessage = &mt("Update Course Assessment Parameter Display");  
     } else {  
         $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;  
   
     my @temp_pscat;      my @temp_pscat;
     map {      map {
Line 1134  sub assessparms { Line 1084  sub assessparms {
   
     @pscat = @temp_pscat;      @pscat = @temp_pscat;
   
     if (($prevvisit) || ($pschp) || ($pssymb)) {      if (($env{'form.prevvisit'}) || ($pschp) || ($pssymb)) {
 # ----------------------------------------------------------------- Start Table  # ----------------------------------------------------------------- Start Table
         my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;          my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
         my $csuname=$env{'user.name'};          my $csuname=$env{'user.name'};
Line 1805  $output Line 1755  $output
 ENDenv  ENDenv
 }  }
 ##################################################  ##################################################
   # Overview mode
   ##################################################
 my $tableopen;  my $tableopen;
   
 sub tablestart {  sub tablestart {
Line 1827  sub tableend { Line 1778  sub tableend {
     }      }
 }  }
   
 sub overview {  sub readdata {
     my $r=shift;      my ($crs,$dom)=@_;
     my $bodytag=&Apache::loncommon::bodytag(  # Read coursedata
                              'Set/Modify Course Assessment Parameters');      my $resourcedata=&Apache::lonnet::get_courseresdata($crs,$dom);
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};  # Read userdata
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};  
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');      my $classlist=&Apache::loncoursedata::get_classlist();
     my $html=&Apache::lonxml::xmlbegin();      foreach (keys %$classlist) {
     $r->print(<<ENDOVER);          # the following undefs are for 'domain', and 'username' respectively.
 $html          if ($_=~/^(\w+)\:(\w+)$/) {
 <head>      my ($tuname,$tudom)=($1,$2);
 <title>LON-CAPA Course Environment</title>      my $useropt=&Apache::lonnet::get_userresdata($tuname,$tudom);
 </head>              foreach my $userkey (keys %{$useropt}) {
 $bodytag   if ($userkey=~/^$env{'request.course.id'}/) {
 $breadcrumbs                      my $newkey=$userkey;
 <form method="post" action="/adm/parmset?action=setoverview" name="overviewform">      $newkey=~s/^($env{'request.course.id'}\.)/$1\[useropt\:$tuname\:$tudom\]\./;
 <input type="hidden" name="overview" value="1" />      $$resourcedata{$newkey}=$$useropt{$userkey};
 ENDOVER   }
       }
    }
       }
       return $resourcedata;
   }
   
   
 # Setting  # Setting
     my %olddata=&Apache::lonnet::dump('resourcedata',$dom,$crs);  
   sub storedata {
       my ($r,$crs,$dom)=@_;
   # Set userlevel immediately
   # Do an intermediate store of course level
       my $olddata=&readdata($crs,$dom);
     my %newdata=();      my %newdata=();
     undef %newdata;      undef %newdata;
     my @deldata=();      my @deldata=();
Line 1855  ENDOVER Line 1818  ENDOVER
  if ($_=~/^form\.([a-z]+)\_(.+)$/) {   if ($_=~/^form\.([a-z]+)\_(.+)$/) {
     my $cmd=$1;      my $cmd=$1;
     my $thiskey=$2;      my $thiskey=$2;
       my ($tuname,$tudom)=&extractuser($thiskey);
       my $tkey=$thiskey;
               if ($tuname) {
    $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
       }
     if ($cmd eq 'set') {      if ($cmd eq 'set') {
  my $data=$env{$_};   my $data=$env{$_};
  if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }   if ($$olddata{$thiskey} ne $data) { 
       if ($tuname) {
    if (&Apache::lonnet::put('resourcedata',{$tkey=>$data},$tudom,$tuname) eq 'ok') {
       $r->print('<br />'.&mt('Stored modified parameter for').' '.
         &Apache::loncommon::plainname($tuname,$tudom));
    } else {
       $r->print('<h2><font color="red">'.
         &mt('Error storing parameters').'</font></h2>');
    }
    &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
       } else {
    $newdata{$thiskey}=$data;
                       } 
    }
     } elsif ($cmd eq 'del') {      } elsif ($cmd eq 'del') {
  push (@deldata,$thiskey);   if ($tuname) {
       if (&Apache::lonnet::del('resourcedata',[$tkey],$tudom,$tuname) eq 'ok') {
    $r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
       } else {
    $r->print('<h2><font color="red">'.
     &mt('Error deleting parameters').'</font></h2>');
       }
       &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
    } else {
       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 (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }   if (defined($data) and $$olddata{$thiskey} ne $data) { 
       if ($tuname) {
    if (&Apache::lonnet::put('resourcedata',{$tkey=>$data},$tudom,$tuname) eq 'ok') {
       $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
    } else {
       $r->print('<h2><font color="red">'.
         &mt('Error storing parameters').'</font></h2>');
    }
    &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
       } else {
    $newdata{$thiskey}=$data; 
       }
    }
     }      }
  }   }
     }      }
 # Store  # Store all course level
     my $delentries=$#deldata+1;      my $delentries=$#deldata+1;
     my @newdatakeys=keys %newdata;      my @newdatakeys=keys %newdata;
     my $putentries=$#newdatakeys+1;      my $putentries=$#newdatakeys+1;
Line 1888  ENDOVER Line 1891  ENDOVER
  }   }
  &Apache::lonnet::devalidatecourseresdata($crs,$dom);   &Apache::lonnet::devalidatecourseresdata($crs,$dom);
     }      }
 # Read coursedata  }
     my $resourcedata=&Apache::lonnet::get_courseresdata($crs,$dom);  
 # Read userdata  
   
     my $classlist=&Apache::loncoursedata::get_classlist();  sub extractuser {
     foreach (keys %$classlist) {      my $key=shift;
         # the following undefs are for 'domain', and 'username' respectively.      return ($key=~/^$env{'request.course.id'}.\[useropt\:(\w+)\:(\w+)\]\./);
         if ($_=~/^(\w+)\:(\w+)$/) {  }
     my ($tuname,$tudom)=($1,$2);  
     my $useropt=&Apache::lonnet::get_userresdata($tuname,$tudom);  sub listdata {
             foreach my $userkey (keys %{$useropt}) {      my ($r,$resourcedata,$listdata)=@_;
  if ($userkey=~/^$env{'request.course.id'}/) {  # Start list output
                     my $newkey=$userkey;  
     $newkey=~s/^($env{'request.course.id'}\.)/$1\[useropt\:$tuname\:$tudom\]\./;  
     $$resourcedata{$newkey}=$$useropt{$userkey};  
  }  
     }  
  }  
     }  
   
     my $oldsection='';      my $oldsection='';
     my $oldrealm='';      my $oldrealm='';
Line 1914  ENDOVER Line 1908  ENDOVER
     my $pointer=0;      my $pointer=0;
     $tableopen=0;      $tableopen=0;
     my $foundkeys=0;      my $foundkeys=0;
     foreach my $thiskey (sort keys %{$resourcedata}) {      foreach my $thiskey (sort keys %{$listdata}) {
  if ($$resourcedata{$thiskey.'.type'}) {   if ($$resourcedata{$thiskey.'.type'}) {
     $r->print($thiskey);      my ($middle,$part,$name)=
     my ($course,$middle,$part,$name)=   ($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
  ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);  
     my $section=&mt('All Students');      my $section=&mt('All Students');
     if ($middle=~/^\[(.*)\]\./) {      if ($middle=~/^\[(.*)\]/) {
  my $issection=$1;   my $issection=$1;
  if ($issection=~/^useropt\:(\w+)\:(\w+)/) {   if ($issection=~/^useropt\:(\w+)\:(\w+)/) {
     $section=&mt('User').": ".&Apache::loncommon::plainname($1,$2);      $section=&mt('User').": ".&Apache::loncommon::plainname($1,$2);
  } else {   } else {
     $section=&mt('Group/Section').': '.$issection;      $section=&mt('Group/Section').': '.$issection;
  }   }
  $middle=~s/^\[(.*)\]\.//;   $middle=~s/^\[(.*)\]//;
     }      }
     $middle=~s/\.$//;      $middle=~s/\.+$//;
       $middle=~s/^\.+//;
     my $realm='<font color="red">'.&mt('All Resources').'</font>';      my $realm='<font color="red">'.&mt('All Resources').'</font>';
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {      if ($middle=~/^(.+)\_\_\_\(all\)$/) {
  $realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';   $realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
Line 1976  ENDOVER Line 1970  ENDOVER
     $r->print('</td></tr>');      $r->print('</td></tr>');
  }   }
     }      }
           return $foundkeys;
   }
   
   sub newoverview {
       my $r=shift;
       my $bodytag=&Apache::loncommon::bodytag(
                                'Set Course Assessment Parameters');
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
       my $html=&Apache::lonxml::xmlbegin();
       $r->print(<<ENDOVER);
   $html
   <head>
   <title>LON-CAPA Parameters</title>
   </head>
   $bodytag
   $breadcrumbs
   <form method="post" action="/adm/parmset?action=newoverview" name="overviewform">
   ENDOVER
      $r->print(&tableend().
        '<p><input type="submit" value="'.&mt('Submit').'" /></p></form></body></html>');
   }
   
   sub overview {
       my $r=shift;
       my $bodytag=&Apache::loncommon::bodytag(
                                'Modify Course Assessment Parameters');
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
       my $html=&Apache::lonxml::xmlbegin();
       $r->print(<<ENDOVER);
   $html
   <head>
   <title>LON-CAPA Parameters</title>
   </head>
   $bodytag
   $breadcrumbs
   <form method="post" action="/adm/parmset?action=setoverview" name="overviewform">
   ENDOVER
   # Store modified
   
       &storedata($r,$crs,$dom);
   
   # Read modified data
   
       my $resourcedata=&readdata($crs,$dom);
   
   # List data
   
       my $foundkeys=&listdata($r,$resourcedata,$resourcedata);
   
     $r->print(&tableend().'<p>'.      $r->print(&tableend().'<p>'.
  ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');   ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form></body></html>');
 }  }
   
 ##################################################  ##################################################
Line 2116  ENDMAINFORMHEAD Line 2162  ENDMAINFORMHEAD
           { text => 'Modify Course Assessment Parameters - Overview Mode',            { text => 'Modify Course Assessment Parameters - Overview Mode',
             action => 'setoverview',              action => 'setoverview',
             permission => $parm_permission,              permission => $parm_permission,
               },          
     { text => 'Set Course Assessment Parameters - Overview Mode',
               action => 'newoverview',
               permission => $parm_permission,
             },              },
           { text => 'Set/Modify Course Assessment Parameters - Table Mode',            { text => 'Set/Modify Course Assessment Parameters - Table Mode',
             action => 'settable',              action => 'settable',
Line 2228  sub handler { Line 2278  sub handler {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
     text=>"Overview Mode"});      text=>"Overview Mode"});
     &overview($r);      &overview($r);
           } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {
               &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
       text=>"Overview Mode"});
       &newoverview($r);
         } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {          } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
     text=>"Table Mode",      text=>"Table Mode",

Removed from v.1.206  
changed lines
  Added in v.1.209


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