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

Diff for /loncom/interface/lonparmset.pm between versions 1.489 and 1.492

version 1.489, 2009/12/09 17:09:26 version 1.492, 2010/01/30 17:35:10
Line 1361  ENDSCRIPT Line 1361  ENDSCRIPT
                  .'</li>'                   .'</li>'
         );          );
     }      }
     $r->print('</ul>'      $r->print('</ul>');
              .'<p><a href="javascript:showParms()">'  
              .&mt('Show detailed Parameter Selection')  
              .'</a></p>'  
     );  
   
       $r->print('<hr />');
     &shortCuts($r,$allparms,$pscat,$keyorder);      &shortCuts($r,$allparms,$pscat,$keyorder);
       $r->print('<hr />');
   
       $r->print(
           '<p><a href="javascript:showParms()">'
          .&mt('Show detailed Parameter Selection')
          .'</a></p>'
       );
   
     $r->print(&Apache::lonhtmlcommon::row_closure(1));      $r->print(&Apache::lonhtmlcommon::row_closure(1));
 }  }
Line 1551  sub parmboxes { Line 1555  sub parmboxes {
 sub shortCuts {  sub shortCuts {
     my ($r,$allparms,$pscat,$keyorder)=@_;      my ($r,$allparms,$pscat,$keyorder)=@_;
   
     #part to print out the shortcuts for parmselection      # Parameter Selection
     $r->print('<table><tr id="LC_parm_overview_parm_menu_selectors">'      $r->print(
              .'<td valign="top">'          &Apache::lonhtmlcommon::start_funclist(&mt('Parameter Selection'))
              .'<fieldset><legend>'.&mt('Parameter Selection').'</legend>'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'<span class="LC_nobreak">'              '<a href="javascript:checkall(true, \'pscat\')">'.&mt('Select All').'</a>')
              .'&bull; <a href="javascript:checkall(true, \'pscat\')">'.&mt('Select All').'</a>'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'</span>'              '<a href="javascript:checkstandard()">'.&mt('Select Common Only').'</a>')
              .'<br />'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'<span class="LC_nobreak">'              '<a href="javascript:checkall(false, \'pscat\')">'.&mt('Unselect All').'</a>')
              .'&bull; <a href="javascript:checkstandard()">'.&mt('Select Common Only').'</a>'         .&Apache::lonhtmlcommon::end_funclist()
              .'</span>'      );
              .'<br />'  
              .'<span class="LC_nobreak">'      # Add Selection for...
              .'&bull; <a href="javascript:checkall(false, \'pscat\')">'.&mt('Unselect All').'</a>'      $r->print(
              .'</span>'          &Apache::lonhtmlcommon::start_funclist(&mt('Add Selection for...'))
              .'</fieldset>'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'</td>'              '<a href="javascript:checkdates()">'.&mt('Problem Dates').'</a>')
              .'<td colspan="2" valign="top">'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'<fieldset><legend>'.&mt('Add Selection for...').'</legend>'              '<a href="javascript:checkcontdates()">'.&mt('Content Dates').'</a>')
              .'<span class="LC_nobreak">'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'&bull; <a href="javascript:checkdates()">'.&mt('Problem Dates').'</a>'              '<a href="javascript:checkdisset()">'.&mt('Discussion Settings').'</a>')
              .'</span>'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'<span class="LC_nobreak">'              '<a href="javascript:checkvisi()">'.&mt('Visibilities').'</a>')
              .' &bull; <a href="javascript:checkcontdates()">'.&mt('Content Dates').'</a>'         .&Apache::lonhtmlcommon::add_item_funclist(
              .'</span>'              '<a href="javascript:checkparts()">'.&mt('Part Parameters').'</a>')
 #            .'<br />'         .&Apache::lonhtmlcommon::end_funclist()
              .'<span class="LC_nobreak">'      );
              .' &bull; <a href="javascript:checkdisset()">'.&mt('Discussion Settings').'</a>'  
              .'</span>'  
              .'<span class="LC_nobreak">'  
              .' &bull; <a href="javascript:checkvisi()">'.&mt('Visibilities').'</a>'  
              .'</span>'  
 #            .'<br />'  
              .'<span class="LC_nobreak">'  
              .' &bull; <a href="javascript:checkparts()">'.&mt('Part Parameters').'</a>'  
              .'</span>'  
              .'</fieldset>'  
              .'</td>'  
              .'</tr></table>');  
 }  }
   
 sub partmenu {  sub partmenu {
Line 1721  sub displaymenu { Line 1713  sub displaymenu {
     &parmmenu($r,$allparms,$pscat,$keyorder);      &parmmenu($r,$allparms,$pscat,$keyorder);
     $r->print(&Apache::lonhtmlcommon::end_pick_box());      $r->print(&Apache::lonhtmlcommon::end_pick_box());
     &parmboxes($r,$allparms,$pscat,$keyorder);      &parmboxes($r,$allparms,$pscat,$keyorder);
     $r->print(&Apache::lonhtmlcommon::start_pick_box());  
     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));  
     &partmenu($r,$allparts,$psprt);  
     $r->print(&Apache::lonhtmlcommon::row_closure(1));  
     $r->print(&Apache::lonhtmlcommon::end_pick_box());  
 }  }
   
 sub mapmenu {  sub mapmenu {
Line 2198  function parmsel_show() { Line 2185  function parmsel_show() {
 </script>  </script>
 ENDPARMSELSCRIPT  ENDPARMSELSCRIPT
           
     # Display Unit 1 "General Parameters"  
     if (!$pssymb) {      if (!$pssymb) {
         my $parmselhiddenstyle=' style="display:none"';          my $parmselhiddenstyle=' style="display:none"';
         if($env{'form.hideparmsel'} eq 'hidden') {          if($env{'form.hideparmsel'} eq 'hidden') {
Line 2207  ENDPARMSELSCRIPT Line 2193  ENDPARMSELSCRIPT
            $r->print('<div id="parmsel">');             $r->print('<div id="parmsel">');
         }          }
   
           # Step 1
         $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 2216  COURSECONTENTSCRIPT
   
         $r->print(&Apache::lonhtmlcommon::start_pick_box());          $r->print(&Apache::lonhtmlcommon::start_pick_box());
         &levelmenu($r,\%alllevs,$parmlev);          &levelmenu($r,\%alllevs,$parmlev);
         $r->print(&Apache::lonhtmlcommon::row_closure(1));          $r->print(&Apache::lonhtmlcommon::row_closure());
         $r->print(&Apache::lonhtmlcommon::end_pick_box());  
         $r->print(&Apache::lonhtmlcommon::start_pick_box());  
         &mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);          &mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
           $r->print(&Apache::lonhtmlcommon::row_closure());
           $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
           &partmenu($r,\%allparts,\@psprt);
         $r->print(&Apache::lonhtmlcommon::row_closure(1));          $r->print(&Apache::lonhtmlcommon::row_closure(1));
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
         #Display Unit 2 "Select Parameter"     
           # Step 2
         $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);
   
           # Step 3
         $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());          $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(&Apache::lonhtmlcommon::row_closure(1));          $r->print(&Apache::lonhtmlcommon::row_closure(1));
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
   
           # Update Display 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>');          $r->print('</div>');
   
         # Offer link to display parameter selection again          # Offer link to display parameter selection again
         $r->print('<p id="parmsellink"');          $r->print('<p id="parmsellink"');
         if ($env{'form.hideparmsel'} ne 'hidden') {          if ($env{'form.hideparmsel'} ne 'hidden') {
Line 3670  ENDMAINFORMHEAD Line 3664  ENDMAINFORMHEAD
             url => '/adm/slotrequest?command=showslots',              url => '/adm/slotrequest?command=showslots',
             permission => $vgr,              permission => $vgr,
             linktitle => "Manage slots for this $lc_crstype."  ,              linktitle => "Manage slots for this $lc_crstype."  ,
             icon => 'format-justify-fill.png'  ,              icon => 'rsrv.png'  ,
             },              },
           { linktext => 'Reset Student Access Times',            { linktext => 'Reset Student Access Times',
             url => '/adm/helper/resettimes.helper',              url => '/adm/helper/resettimes.helper',
Line 4631  sub handler { Line 4625  sub handler {
             &date_shift_one($r);              &date_shift_one($r);
         } elsif ($env{'form.action'} eq 'dateshift2') {          } elsif ($env{'form.action'} eq 'dateshift2') {
             &date_shift_two($r);              &date_shift_two($r);
     } elsif ($env{'form.action'} eq 'categorizecourse') {  
             &assign_course_categories($r);  
         }          }
     } else {      } else {
 # ----------------------------- Not in a course, or not allowed to modify parms  # ----------------------------- Not in a course, or not allowed to modify parms
Removed from v.1.489  
changed lines
  Added in v.1.492

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