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

Diff for /loncom/interface/lonparmset.pm between versions 1.442 and 1.443

version 1.442, 2009/04/05 17:31:04 version 1.443, 2009/05/05 16:53:25
Line 1322  sub parmmenu { Line 1322  sub parmmenu {
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     $r->print();      $r->print();
       $r->print('<tr>');
       $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');
       $r->print('<blockquote>'.&mt('Select Parameters to View').'</blockquote>');
       $r->print('</td>');                  
       $r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); 
     $r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>');      $r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>');
     my $cnt=0;      my $cnt=0;
     foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {      foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
Line 1379  ENDSCRIPT Line 1384  ENDSCRIPT
              .'</td>'               .'</td>'
              .'</tr></table>'               .'</tr></table>'
     );      );
       $r->print('</blockquote></td></tr>');
 }  }
   
 sub partmenu {  sub partmenu {
     my ($r,$allparts,$psprt)=@_;      my ($r,$allparts,$psprt)=@_;
       $r->print('<tr>');
       $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');
       $r->print('<blockquote>'. &mt('Select Parts to View').'</blockquote>');
       $r->print('</td>');                  
       $r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); 
     $r->print('<select multiple="multiple" name="psprt" size="8">');      $r->print('<select multiple="multiple" name="psprt" size="8">');
     $r->print('<option value="all"');      $r->print('<option value="all"');
     $r->print(' selected="selected"') unless (@{$psprt});      $r->print(' selected="selected"') unless (@{$psprt});
Line 1401  sub partmenu { Line 1412  sub partmenu {
  }   }
     }      }
     $r->print('</select>');      $r->print('</select>');
        $r->print('</blockquote></td></tr>');
 }  }
   
 sub usermenu {  sub usermenu {
Line 1417  sub usermenu { Line 1429  sub usermenu {
   
     my $g_s_header='';      my $g_s_header='';
     my $g_s_footer='';      my $g_s_footer='';
       
     if (%sectionhash) {      if (%sectionhash) {
         $sections=&mt('Section:').' <select name="csec"';          $sections=&mt('Section:').' <select name="csec"';
         if (%grouphash && $parmlev ne 'full') {          if (%grouphash && $parmlev ne 'full') {
Line 1483  function group_or_section(caller) { Line 1495  function group_or_section(caller) {
         $groups.='</select>';          $groups.='</select>';
     }      }
   
     if (%sectionhash || %grouphash) {      if (%sectionhash || %grouphash) {   
         $g_s_header='<fieldset><legend>'.&mt('Group/Section').'</legend><div>';          $r->print('<tr>');
         $g_s_footer='</div></fieldset>';          $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');
     }          $r->print('<blockquote>'.&mt('Group/Section').'</blockquote>');
           $r->print('</td>');                  
     $r->print('<b>'          $r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>');
              .$g_s_header          $r->print($sections.$groups);
              .$sections          $r->print('</blockquote></td></tr>'); 
              .$groups      }
              .$g_s_footer      $r->print('<tr>');
              .'<fieldset><legend>'.&mt('User').'</legend><div>'      $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');
              .&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'      $r->print('<blockquote>'. &mt('User').'</blockquote>');
       $r->print('</td>');                  
       $r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>');
                
       $r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
                  ,'<input type="text" value="'.$uname.'" size="12" name="uname" />'                   ,'<input type="text" value="'.$uname.'" size="12" name="uname" />'
                  ,'<input type="text" value="'.$id.'" size="12" name="id" /> '                   ,'<input type="text" value="'.$id.'" size="12" name="id" /> '
                  ,$chooseopt)                   ,$chooseopt));        
              .'</div></fieldset>'     
              .'</b>'     $r->print('</blockquote></td></tr>'); 
     );  
 }  }
   
 sub displaymenu {  sub displaymenu {
     my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;      my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;
     $r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.      $r->print('<div class="LC_ContentBoxSpecial">');
      &mt('Select Parts to View').'</th></tr><tr><td>');        $r->print('<h2 class="LC_hcell">Step 2</h2>');
       $r->print('<blockquote>');
       $r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">');
   
       #$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,$keyorder);      &parmmenu($r,$allparms,$pscat,$keyorder);
     $r->print('</td><td valign="top" align="center">');     
     &partmenu($r,$allparts,$psprt);      &partmenu($r,$allparts,$psprt);
     $r->print('</td></tr></table>');      $r->print('</table></blockquote></div>');
 }  }
   
 sub mapmenu {  sub mapmenu {##
     my ($r,$allmaps,$pschp,$maptitles)=@_;      my ($r,$allmaps,$pschp,$maptitles)=@_; 
     $r->print('<b>'.&mt('Select Enclosing Map or Folder').'</b> ');      $r->print('<tr>');
       $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');
       $r->print('<blockquote>'.&mt('Select Enclosing Map or Folder').'</blockquote>');
       $r->print('</td>');                  
       $r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); 
     $r->print('<select name="pschp">');      $r->print('<select name="pschp">');
     $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');      $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
     foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {      foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
Line 1524  sub mapmenu { Line 1547  sub mapmenu {
  $r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');   $r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');
     }      }
     $r->print("</select>");      $r->print("</select>");
       $r->print('</blockquote></td></tr>');
 }  }
   
 sub levelmenu {  sub levelmenu {
     my ($r,$alllevs,$parmlev)=@_;      my ($r,$alllevs,$parmlev)=@_;    
     $r->print('<b>'.&mt('Select Parameter Level').      $r->print('<tr>');
       &Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</b> ');      $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');
       $r->print('<blockquote>'.&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</blockquote>');
       $r->print('</td>');                  
       $r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); 
     $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 1539  sub levelmenu { Line 1566  sub levelmenu {
  $r->print('>'.&mt($_).'</option>');   $r->print('>'.&mt($_).'</option>');
     }      }
     $r->print("</select>");      $r->print("</select>");
       $r->print('</blockquote></td></tr>');
 }  }
   
   
Line 1861  sub assessparms { Line 1889  sub assessparms {
   '" name="recent_'.$_.'" />');    '" name="recent_'.$_.'" />');
     }      }
                                                   
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<table border="1"><tr><td>');          $r->print('<div class="LC_ContentBoxSpecial">');
           $r->print('<h2 class="LC_hcell">Step 1</h2>');
           $r->print('<blockquote>');
           $r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">');
         &levelmenu($r,\%alllevs,$parmlev);          &levelmenu($r,\%alllevs,$parmlev);
         $r->print('</td>');         
  if ($parmlev ne 'general') {   if ($parmlev ne 'general') {
             $r->print('<td>');             
     &mapmenu($r,\%allmaps,$pschp,\%maptitles);      &mapmenu($r,\%allmaps,$pschp,\%maptitles);
     $r->print('</td>');      
  }   }
         $r->print('</tr></table>');          $r->print('</table>');
           $r->print('</blockquote>');
           $r->print('</div>');
  &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);   &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
     } else {      } else {
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);          my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
Line 1880  sub assessparms { Line 1913  sub assessparms {
   '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.    '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
   ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');    ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');
     }      }
       $r->print('<div class="LC_ContentBoxSpecial">');
       $r->print('<h2 class="LC_hcell">Step 3</h2>');
       $r->print('<blockquote>');
       $r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">');
     &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);          &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);    
       $r->print('</table>');
       $r->print('</blockquote>');
       $r->print('</div>');
   
     $r->print('<p>'.$message.'</p>');      $r->print('<p>'.$message.'</p>');
   
Removed from v.1.442  
changed lines
  Added in v.1.443

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