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

Diff for /loncom/interface/lonparmset.pm between versions 1.444 and 1.445

version 1.444, 2009/05/06 16:19:34 version 1.445, 2009/05/08 22:47:01
Line 1321  sub parmmenu { Line 1321  sub parmmenu {
   
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     $r->print();      $r->print();    
     $r->print('<tr>');      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));
     $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 1384  ENDSCRIPT Line 1380  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 1411  sub partmenu { Line 1402  sub partmenu {
     $r->print('>'.$$allparts{$tempkey}.'</option>');      $r->print('>'.$$allparts{$tempkey}.'</option>');
  }   }
     }      }
     $r->print('</select>');      $r->print('</select>');    
      $r->print('</blockquote></td></tr>');  
 }  }
   
 sub usermenu {  sub usermenu {
Line 1495  function group_or_section(caller) { Line 1485  function group_or_section(caller) {
         $groups.='</select>';          $groups.='</select>';
     }      }
   
     if (%sectionhash || %grouphash) {         if (%sectionhash || %grouphash) {
         $r->print('<tr>');          $r->print(&Apache::lonhtmlcommon::row_title(&mt('Group/Section')));       
         $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');          $r->print($sections.$groups);        
         $r->print('<blockquote>'.&mt('Group/Section').'</blockquote>');      }
         $r->print('</td>');                        
         $r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>');      $r->print(&Apache::lonhtmlcommon::row_title(&mt('User')));             
         $r->print($sections.$groups);  
         $r->print('</blockquote></td></tr>');   
     }  
     $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('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]'      $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));  
      
    $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('<div class="LC_ContentBoxSpecial">');      $r->print('<div class="LC_ContentBoxSpecial">');
     $r->print('<h2 class="LC_hcell">Step 2</h2>');      $r->print('<h2 class="LC_hcell">Step 2</h2>');
     $r->print('<blockquote>');      $r->print('<div class="LC_BoxPadding">' );
     $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(&Apache::lonhtmlcommon::start_pick_box());
       
     #$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(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
     &partmenu($r,$allparts,$psprt);      &partmenu($r,$allparts,$psprt);
     $r->print('</table></blockquote></div>');      $r->print(&Apache::lonhtmlcommon::end_pick_box());
       $r->print('</div></div>');
 }  }
   
 sub mapmenu {##  sub mapmenu {
     my ($r,$allmaps,$pschp,$maptitles)=@_;       my ($r,$allmaps,$pschp,$maptitles)=@_; 
     $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(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder')));
     $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 1547  sub mapmenu {## Line 1523  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('<tr>');      
     $r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">');      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels')));
     $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 1565  sub levelmenu { Line 1538  sub levelmenu {
  }   }
  $r->print('>'.&mt($_).'</option>');   $r->print('>'.&mt($_).'</option>');
     }      }
     $r->print("</select>");      $r->print("</select>");    
     $r->print('</blockquote></td></tr>');  
 }  }
   
   
Line 1889  sub assessparms { Line 1861  sub assessparms {
   '" name="recent_'.$_.'" />');    '" name="recent_'.$_.'" />');
     }      }
                                                   
     if (!$pssymb) {      if (!$pssymb) {
   
         $r->print('<div class="LC_ContentBoxSpecial">');          $r->print('<div class="LC_ContentBoxSpecial">');
         $r->print('<h2 class="LC_hcell">Step 1</h2>');          $r->print('<h2 class="LC_hcell">Step 1</h2>');
         $r->print('<blockquote>');          $r->print('<div class="LC_BoxPadding">' );
         $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(&Apache::lonhtmlcommon::start_pick_box());
          
         &levelmenu($r,\%alllevs,$parmlev);          &levelmenu($r,\%alllevs,$parmlev);
                 
  if ($parmlev ne 'general') {   if ($parmlev ne 'general') {           
                  &mapmenu($r,\%allmaps,$pschp,\%maptitles);    
     &mapmenu($r,\%allmaps,$pschp,\%maptitles);  
       
  }   }
         $r->print('</table>');             
         $r->print('</blockquote>');          $r->print(&Apache::lonhtmlcommon::end_pick_box());        
         $r->print('</div>');          $r->print('</div></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 1915  sub assessparms { Line 1888  sub assessparms {
     }      }
     $r->print('<div class="LC_ContentBoxSpecial">');      $r->print('<div class="LC_ContentBoxSpecial">');
     $r->print('<h2 class="LC_hcell">Step 3</h2>');      $r->print('<h2 class="LC_hcell">Step 3</h2>');
     $r->print('<blockquote>');      $r->print('<div class="LC_BoxPadding">' );
     $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(&Apache::lonhtmlcommon::start_pick_box());
     &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(&Apache::lonhtmlcommon::end_pick_box());
     $r->print('</div>');      $r->print('</div></div>');
   
     $r->print('<p>'.$message.'</p>');      $r->print('<p>'.$message.'</p>');
   
Line 3630  ENDOVER Line 3603  ENDOVER
     }      }
 # Menu to select levels, etc  # Menu to select levels, etc
   
     $r->print('<table id="LC_parm_overview_scope">      #$r->print('<table id="LC_parm_overview_scope">
                <tr><td class="LC_parm_overview_level_menu">');      #           <tr><td class="LC_parm_overview_level_menu">');
       $r->print('<div class="LC_ContentBoxSpecial">');
       #$r->print('<h2 class="LC_hcell">Step 1</h2>');
       $r->print('<div class="LC_BoxPadding">' );
       $r->print(&Apache::lonhtmlcommon::start_pick_box());
     &levelmenu($r,\%alllevs,$parmlev);      &levelmenu($r,\%alllevs,$parmlev);
     if ($parmlev ne 'general') {      if ($parmlev ne 'general') {
  $r->print('<td class="LC_parm_overview_map_menu">');   #$r->print('<td class="LC_parm_overview_map_menu">');
  &mapmenu($r,\%allmaps,$pschp,\%maptitles);   &mapmenu($r,\%allmaps,$pschp,\%maptitles);
  $r->print('</td>');   #$r->print('</td>');
     }      }
     $r->print('</td></tr></table>');      $r->print(&Apache::lonhtmlcommon::end_pick_box());
       $r->print('</div></div>');
     $r->print('<table id="LC_parm_overview_controls">      #$r->print('</td></tr></table>');
                <tr><td class="LC_parm_overview_parm_selectors">');        
       #$r->print('<table id="LC_parm_overview_controls">
       #           <tr><td class="LC_parm_overview_parm_selectors">');
       $r->print('<div class="LC_ContentBoxSpecial">');
       $r->print('<div class="LC_BoxPadding">' );
       $r->print(&Apache::lonhtmlcommon::start_pick_box());  
     &parmmenu($r,\%allparms,\@pscat,\%keyorder);      &parmmenu($r,\%allparms,\@pscat,\%keyorder);
     $r->print('</td><td class="LC_parm_overview_restrictions">  
                 <table class="LC_parm_overview_restrictions">'.      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));    
       #$r->print('</td><td class="LC_parm_overview_restrictions">'.
        $r->print('<table>'.
               '<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').                '<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').
               '</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');                '</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');
     &partmenu($r,\%allparts,\@psprt);      &partmenu($r,\%allparts,\@psprt);
Line 3653  ENDOVER Line 3637  ENDOVER
     $r->print('</td><td>');      $r->print('</td><td>');
     &groupmenu($r,\@selected_groups);      &groupmenu($r,\@selected_groups);
     $r->print('</td></tr></table>');      $r->print('</td></tr></table>');
     $r->print('</td></tr></table>');      #$r->print('</td></tr></table>');
        $r->print(&Apache::lonhtmlcommon::end_pick_box());
       $r->print('</div></div>');
   
       $r->print('<div class="LC_ContentBoxSpecial">');
       $r->print('<div class="LC_BoxPadding">' );
     my $sortorder=$env{'form.sortorder'};      my $sortorder=$env{'form.sortorder'};
     unless ($sortorder) { $sortorder='realmstudent'; }      unless ($sortorder) { $sortorder='realmstudent'; }
     &sortmenu($r,$sortorder);      &sortmenu($r,$sortorder);
       $r->print('</div></div>');
      
     $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');      $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
       
 # Build the list data hash from the specified parms  # Build the list data hash from the specified parms
   
     my $listdata;      my $listdata;
Removed from v.1.444  
changed lines
  Added in v.1.445

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