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

Diff for /loncom/interface/lonparmset.pm between versions 1.485 and 1.486

version 1.485, 2009/11/15 20:50:03 version 1.486, 2009/11/22 21:07:41
Line 2187  function parmsel_show() { Line 2187  function parmsel_show() {
 // ]]>  // ]]>
 </script>  </script>
 ENDPARMSELSCRIPT  ENDPARMSELSCRIPT
     my $parmselhiddenstyle=' style="display:none"';  
     if($env{'form.hideparmsel'} eq 'hidden') {  
         $r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');  
     } else  {  
         $r->print('<div id="parmsel">');  
     }  
   
           
     # Display Unit 1 "General Parameters"      # Display Unit 1 "General Parameters"
     if (!$pssymb) {      if (!$pssymb) {
           my $parmselhiddenstyle=' style="display:none"';
           if($env{'form.hideparmsel'} eq 'hidden') {
              $r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');
           } else  {
              $r->print('<div id="parmsel">');
           }
   
         $r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));          $r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));
         $r->print(<<COURSECONTENTSCRIPT);          $r->print(<<COURSECONTENTSCRIPT);
 <script type="text/javascript">  <script type="text/javascript">
Line 2229  COURSECONTENTSCRIPT Line 2229  COURSECONTENTSCRIPT
         $r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));          $r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));
         &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);          &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
         $r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));          $r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));
           $r->print(&Apache::lonhtmlcommon::start_pick_box());
           &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
           $r->print(&Apache::lonhtmlcommon::row_closure(1));
           $r->print(&Apache::lonhtmlcommon::end_pick_box());
           $r->print('<p>'
                .'<input type="submit" name="dis"'
                .' value="'.&mt('Update Parameter Display').'" />'
                .'<input type="hidden" name="hideparmsel" value="hidden" />'
                .'</p>');
           $r->print('</div>');
           # Offer link to display parameter selection again
           $r->print('<p id="parmsellink"');
           if ($env{'form.hideparmsel'} ne 'hidden') {
              $r->print($parmselhiddenstyle);
           }
           $r->print('>'
                .'<a href="javascript:parmsel_show()">'
                .&mt('Change Parameter Selection')
                .'</a>'
                .'</p>');
     } else {      } else {
         # parameter screen for a single resource.           # parameter screen for a single resource. 
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);          my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);
         my $title = &Apache::lonnet::gettitle($pssymb);          my $title = &Apache::lonnet::gettitle($pssymb);
         $r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).          $r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).
                 '<input type="hidden" value="'.$pssymb.'" name="symb" />'.                  '<input type="hidden" value="'.$pssymb.'" name="symb" />'.
                   '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.                    '<br />');
                   ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');          $r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
         $r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('User Specification (optional)')));          $r->print(&Apache::lonhtmlcommon::start_pick_box());
     }          $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).
     $r->print(&Apache::lonhtmlcommon::start_pick_box());                    '<label>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
     &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);                    ($env{'form.psprt'}?' checked="checked"':'').' /></label></td></tr>');
     $r->print(&Apache::lonhtmlcommon::row_closure(1));          &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
     $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::row_closure(1));
               $r->print(&Apache::lonhtmlcommon::end_pick_box());
     # parm selection is shown: display parm update button          $r->print('<p>'
     $r->print('<p>'  
              .'<input type="submit" name="dis"'               .'<input type="submit" name="dis"'
              .' value="'.&mt('Update Parameter Display').'" />'               .' value="'.&mt('Update Parameter Display').'" />'
              .'<input type="hidden" name="hideparmsel" value="hidden" />'               .'<input type="hidden" name="hideparmsel" value="hidden" />'
              .'</p>'               .'</p>');
     );  
   
     $r->print('</div>');  
     # ----- End Parameter Selection  
   
     # Offer link to display parameter selection again  
     $r->print('<p id="parmsellink"');  
     if($env{'form.hideparmsel'} ne 'hidden') {  
         $r->print($parmselhiddenstyle);  
     }      }
     $r->print('>'  
              .'<a href="javascript:parmsel_show()">'  
              .&mt('Change Parameter Selection')  
              .'</a>'  
              .'</p>'  
     );  
           
       # ----- End Parameter Selection
   
     # Display Messages      # Display Messages
     $r->print('<div>'.$message.'</div>');      $r->print('<div>'.$message.'</div>');
Removed from v.1.485  
changed lines
  Added in v.1.486

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