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

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

version 1.209, 2005/06/05 01:37:26 version 1.210, 2005/06/05 17:24:04
Line 667  sub extractResourceInformation { Line 667  sub extractResourceInformation {
     my $symbp = shift;      my $symbp = shift;
     my $maptitles=shift;      my $maptitles=shift;
     my $uris=shift;      my $uris=shift;
       my $keyorder=shift;
   
       my $keyordercnt=100;
   
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);      my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);
Line 709  sub extractResourceInformation { Line 711  sub extractResourceInformation {
  } else {   } else {
     $$keyp{$id}=$key;      $$keyp{$id}=$key;
  }   }
   #
   # Put in order
   # 
                   unless ($$keyorder{$key}) {
                       $$keyorder{$key}=$keyordercnt;
                       $keyordercnt++;
    }
   
     }      }
  }   }
  $$mapp{$id}=   $$mapp{$id}=
Line 743  sub parmmenu { Line 753  sub parmmenu {
             }              }
         }          }
     }      }
   
       function checkthis(thisvalue, checkName) {
    for (i=0; i<document.forms.parmform.elements.length; i++) {
               ele = document.forms.parmform.elements[i];
               if (ele.name == checkName) {
    if (ele.value == thisvalue) {
       document.forms.parmform.elements[i].checked=true;
    }
               }
           }
       }
   
       function checkdates() {
    checkthis('duedate','pscat');
     checkthis('opendate','pscat');
    checkthis('answerdate','pscat');
    checkthis('interval','pscat');
      }
   
       function checkvisi() {
    checkthis('hiddenresource','pscat');
     checkthis('encrypturl','pscat');
    checkthis('problemstatus','pscat');
    checkthis('contentopen','pscat');
    checkthis('opendate','pscat');
       }
   
       function checkparts() {
    checkthis('hiddenparts','pscat');
    checkthis('display','pscat');
    checkthis('ordered','pscat');
       }
   
       function checkstandard() {
           checkall(false,'pscat');
    checkdates();
    checkthis('weight','pscat');
    checkthis('maxtries','pscat');
       }
   
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     $r->print();      $r->print();
Line 764  ENDSCRIPT Line 814  ENDSCRIPT
     }      }
     $r->print('      $r->print('
 </tr><tr><td>  </tr><tr><td>
 <input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />  <a href="javascript:checkall(true, \'pscat\')">Select All</a>
 </td><td></td><td>  <a href="javascript:checkstandard()">Select Standard</a>
 <input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />  </td><td>
   <a href="javascript:checkdates()">Select Dates</a>
   <a href="javascript:checkvisi()">Select Visibilities</a>
   <a href="javascript:checkparts()">Select Part Parameters</a>
   </td><td>
   <a href="javascript:checkall(false, \'pscat\')">Unselect All</a>
 </td>  </td>
 ');  ');
     $r->print('</tr></table>');      $r->print('</tr></table>');
Line 868  sub levelmenu { Line 923  sub levelmenu {
     $r->print("</select>");      $r->print("</select>");
 }  }
   
   sub keysplit {
       my $keyp=shift;
       return (split(/\,/,$keyp));
   }
   
   sub keysinorder {
       my ($name,$keyorder)=@_;
       return sort {
    $$keyorder{$a} <=> $$keyorder{$b};
       } (keys %{$name});
   }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
   
Line 928  sub assessparms { Line 995  sub assessparms {
   
     my %allparms;      my %allparms;
     my %allparts;      my %allparts;
   #
   # Order in which these parameters will be displayed
   #
       my %keyorder=('parameter_0_opendate' => 1,
                     'parameter_0_duedate' => 2,
                     'parameter_0_answerdate' => 3,
                     'parameter_0_interval' => 4,
                     'parameter_0_weight' => 5,
                     'parameter_0_maxtries' => 6,
                     'parameter_0_hinttries' => 7,
                     'parameter_0_contentopen' => 8,
                     'parameter_0_contentclose' => 9,
                     'parameter_0_type' => 10,
                     'parameter_0_problemstatus' => 11,
                     'parameter_0_hiddenresource' => 12,
                     'parameter_0_hiddenparts' => 13,
                     'parameter_0_display' => 14,
                     'parameter_0_ordered' => 15,
                     'parameter_0_tol' => 16,
                     'parameter_0_sig' => 17,
                     'parameter_0_turnoffunit' => 18);
     @ids=();      @ids=();
     %symbp=();      %symbp=();
     %typep=();      %typep=();
Line 1022  sub assessparms { Line 1109  sub assessparms {
     unless ($csec) { $csec=''; }      unless ($csec) { $csec=''; }
   
 # --------------------------------------------------------- Get all assessments  # --------------------------------------------------------- Get all assessments
     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, \%mapp, \%symbp,\%maptitles,\%uris);      &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
    \%mapp, \%symbp,\%maptitles,\%uris,
    \%keyorder);
   
     $mapp{'0.0'} = '';      $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';      $symbp{'0.0'} = '';
Line 1054  sub assessparms { Line 1143  sub assessparms {
  $r->print('<input type="hidden" value="'.   $r->print('<input type="hidden" value="'.
   $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');    $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');
     }      }
   
     $r->print('<h2>'.$message.'</h2>');  
                                                   
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<table border="1"><tr><td>');          $r->print('<table border="1"><tr><td>');
Line 1074  sub assessparms { Line 1161  sub assessparms {
     }      }
     &usermenu($r,$uname,$id,$udom,$csec);          &usermenu($r,$uname,$id,$udom,$csec);    
   
       $r->print('<p>'.$message.'</p>');
   
     $r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');      $r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');
   
     my @temp_pscat;      my @temp_pscat;
Line 1176  ENDTABLEHEADFOUR Line 1265  ENDTABLEHEADFOUR
                     my %default=();                      my %default=();
                     my $uri=&Apache::lonnet::declutter($uris{$rid});                      my $uri=&Apache::lonnet::declutter($uris{$rid});
   
                     foreach (split(/\,/,$keyp{$rid})) {                      foreach (&keysplit($keyp{$rid})) {
                         my $tempkeyp = $_;                          my $tempkeyp = $_;
                         if (grep $_ eq $tempkeyp, @catmarker) {                          if (grep $_ eq $tempkeyp, @catmarker) {
                           $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');                            $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
Line 1220  ENDTABLEHEADFOUR Line 1309  ENDTABLEHEADFOUR
   
                         $r->print('</font></tt></td>');                          $r->print('</font></tt></td>');
   
                         foreach (sort keys %name) {                          foreach (&keysinorder(\%name,\%keyorder)) {
                             unless ($firstrow) {                              unless ($firstrow) {
                                 $r->print('<tr>');                                  $r->print('<tr>');
                             } else {                              } else {
Line 1283  ENDTABLEHEADFOUR Line 1372  ENDTABLEHEADFOUR
 # When storing information, store as part 0  # When storing information, store as part 0
 # When requesting information, request from full part  # When requesting information, request from full part
 #-------------------------------------------------------------------  #-------------------------------------------------------------------
                     foreach (split(/\,/,$keyp{$rid})) {                      foreach (&keysplit($keyp{$rid})) {
                       my $tempkeyp = $_;                        my $tempkeyp = $_;
                       my $fullkeyp = $tempkeyp;                        my $fullkeyp = $tempkeyp;
                       $tempkeyp =~ s/_\w+_/_0_/;                        $tempkeyp =~ s/_\w+_/_0_/;
Line 1333  ENDMAPONE Line 1422  ENDMAPONE
                 $r->print('<th>'.&mt('Default Value').'</th>');                  $r->print('<th>'.&mt('Default Value').'</th>');
                 $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');                  $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
   
         foreach (sort keys %name) {          foreach (&keysinorder(\%name,\%keyorder)) {
                     $r->print('<tr>');                      $r->print('<tr>');
                     &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,                      &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
                            \%type,\%display,$defbgone,$defbgtwo,                             \%type,\%display,$defbgone,$defbgtwo,
                            $parmlev,$uname,$udom,$csec);                             $parmlev,$uname,$udom,$csec);
 #                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");  
                 }                  }
                 $r->print("</table></center>");                  $r->print("</table></center>");
             } # end each map              } # end each map
Line 1370  ENDMAPONE Line 1458  ENDMAPONE
 # When storing information, store as part 0  # When storing information, store as part 0
 # When requesting information, request from full part  # When requesting information, request from full part
 #-------------------------------------------------------------------  #-------------------------------------------------------------------
                 foreach (split(/\,/,$keyp{$rid})) {                  foreach (&keysplit($keyp{$rid})) {
                   my $tempkeyp = $_;                    my $tempkeyp = $_;
                   my $fullkeyp = $tempkeyp;                    my $fullkeyp = $tempkeyp;
                   $tempkeyp =~ s/_\w+_/_0_/;                    $tempkeyp =~ s/_\w+_/_0_/;
Line 1411  ENDMAPONE Line 1499  ENDMAPONE
             $r->print('<th>'.&mt('Default Value').'</th>');              $r->print('<th>'.&mt('Default Value').'</th>');
             $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');              $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
   
     foreach (sort keys %name) {      foreach (&keysinorder(\%name,\%keyorder)) {
                 $r->print('<tr>');                  $r->print('<tr>');
                 &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,                  &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
                        \%type,\%display,$defbgone,$defbgtwo,$parmlev,$uname,$udom,$csec);                         \%type,\%display,$defbgone,$defbgtwo,$parmlev,$uname,$udom,$csec);
 #                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");  
             }              }
             $r->print("</table></center>");              $r->print("</table></center>");
         } # end of $parmlev eq general          } # end of $parmlev eq general
Removed from v.1.209  
changed lines
  Added in v.1.210

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