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

Diff for /loncom/interface/lonparmset.pm between versions 1.453 and 1.454

version 1.453, 2009/06/03 17:17:03 version 1.454, 2009/06/04 16:56:27
Line 854  sub page_js { Line 854  sub page_js {
   
     return(<<ENDJS);      return(<<ENDJS);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
     function pclose() {      function pclose() {
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",          parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                  "height=350,width=350,scrollbars=no,menubar=no");                   "height=350,width=350,scrollbars=no,menubar=no");
Line 893  sub page_js { Line 893  sub page_js {
         var newWin = window.open(url, wdwName, options);          var newWin = window.open(url, wdwName, options);
         newWin.focus();          newWin.focus();
     }      }
   // ]]>
 </script>  </script>
 $selscript  $selscript
 ENDJS  ENDJS
Line 1248  sub parmmenu { Line 1249  sub parmmenu {
     my $tempkey;      my $tempkey;
     $r->print(<<ENDSCRIPT);      $r->print(<<ENDSCRIPT);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
     function checkall(value, checkName) {      function checkall(value, checkName) {
   
         var li = "_li";          var li = "_li";
Line 1334  sub parmmenu { Line 1336  sub parmmenu {
             document.getElementById(id_li).style.display = "none";              document.getElementById(id_li).style.display = "none";
         }          }
     }      }
   // ]]>
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     $r->print();  
     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));
   
     #part to print selected parms overview      #part to print selected parms overview
     $r->print('<table id="LC_parm_overview_parm_overview">'      $r->print(&mt('Selected Parameters:').'<br />');
              .'<tr>'  
              .'<td style="vertical-align:top; width:250px"><p>'.&mt('Selected Parameters').': ');      #print out all possible parms and hide them by default
       $r->print('<ul>');
     #print out all possible parms and hide it  
     $r->print('<td>');  
     $r->print('<ol style="list-style-type:disc">');  
     foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {      foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
         $r->print('<li id="'.$tempkey.'_li" value="'.$tempkey.'_li" name="pscat_li"');          $r->print('<li id="'.$tempkey.'_li" value="'.$tempkey.'_li" name="pscat_li"');
         if (!($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat})) {          if (!($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat})) {
             $r->print('style="display:none"');              $r->print(' style="display:none"');
         }          }
                   $r->print('>'
         $r->print('>'.($$allparms{$tempkey}=~/\s/ ? $$allparms{$tempkey} : $tempkey).'</li>');                   .($$allparms{$tempkey}=~/\s/ ? $$allparms{$tempkey} : $tempkey)
     }                   .'</li>'
     $r->print('<a href="javascript:showParms()">('.&mt('add more parameter').')'          );
              .'</a></p></td>');      }
     $r->print('</td>');      $r->print('</ul>'
     $r->print('</tr>'               .'<p><a href="javascript:showParms()">'
              .'</table>');               .&mt('Show detailed Parameter Selection')
                .'</a></p>'
       );
   
     &shortCuts($r,$allparms,$pscat,$keyorder);      &shortCuts($r,$allparms,$pscat,$keyorder);
   
     $r->print('</table>');      $r->print(&Apache::lonhtmlcommon::row_closure(1));
 }  }
   
 sub parmboxes {  sub parmboxes {
Line 1372  sub parmboxes { Line 1372  sub parmboxes {
     my $tempkey;      my $tempkey;
   
     #part to print the parm-list      #part to print the parm-list
     $r->print('<table><tr><td><fieldset id="LC_parm_overview_parm_menu" style="display:none"><legend><b>'.&mt('Parameter').'</legend>');      $r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">'
     $r->print("\n".'<table>');               .'<legend>'.&mt('Parameter').'</legend>'
                ."\n"
                .'<table>'
       );
     my $cnt=0;      my $cnt=0;
   
     $r->print('<tr>');      $r->print('<tr>');
Line 1395  sub parmboxes { Line 1398  sub parmboxes {
     }      }
     $r->print('</tr>'      $r->print('</tr>'
              .'</table>'               .'</table>'
              .'<a href="javascript:hideParms()" style="font-weight:normal">('.&mt('hide more parameter').')');               .'<hr />'
                .'<a href="javascript:hideParms()">'
                .&mt('Hide')
                .'</a>'
       );
   
     #&shortCuts($r,$allparms,$pscat,$keyorder);      #&shortCuts($r,$allparms,$pscat,$keyorder);
     $r->print('</fieldset></td></tr></table>');      $r->print('</fieldset>');
 }  }
 sub shortCuts {  sub shortCuts {
     my ($r,$allparms,$pscat,$keyorder)=@_;      my ($r,$allparms,$pscat,$keyorder)=@_;
Line 1500  sub usermenu { Line 1507  sub usermenu {
         $sections .= '&nbsp;'.&mt('or').'&nbsp;';          $sections .= '&nbsp;'.&mt('or').'&nbsp;';
         $sections .= qq|          $sections .= qq|
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function group_or_section(caller) {  function group_or_section(caller) {
    if (caller == "cgroup") {     if (caller == "cgroup") {
        if (document.parmform.cgroup.selectedIndex != 0) {         if (document.parmform.cgroup.selectedIndex != 0) {
Line 1511  function group_or_section(caller) { Line 1519  function group_or_section(caller) {
        }         }
    }     }
 }  }
   // ]]>
 </script>  </script>
 |;  |;
     } else {      } else {
         $sections .= qq|          $sections .= qq|
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function group_or_section(caller) {  function group_or_section(caller) {
     return;      return;
 }  }
   // ]]>
 </script>  </script>
 |;  |;
     }      }
Line 1565  sub displaymenu { Line 1576  sub displaymenu {
     $r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));      $r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
     $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::lonhtmlcommon::start_pick_box());
     &parmmenu($r,$allparms,$pscat,$keyorder);      &parmmenu($r,$allparms,$pscat,$keyorder);
     #$r->print(&Apache::lonhtmlcommon::row_closure());  
     $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::start_pick_box());
Line 2887  ENDOVER Line 2897  ENDOVER
     $r->print('<div>');      $r->print('<div>');
     $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::lonhtmlcommon::start_pick_box());
     &parmmenu($r,\%allparms,\@pscat,\%keyorder);      &parmmenu($r,\%allparms,\@pscat,\%keyorder);
     #$r->print(&Apache::lonhtmlcommon::row_closure());  
     $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::start_pick_box());
Removed from v.1.453  
changed lines
  Added in v.1.454

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