Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.457 and 1.464

-version 1.457, 2009/06/09 22:50:28
+version 1.464, 2009/06/30 14:59:17
  Line 1269  sub parmmenu {
      }
      function checkthis(thisvalue, checkName) {
-         checkboxChecked(thisvalue);
+         document.getElementById(thisvalue.concat("_li")).style.display = "";
  	for (i=0; i<document.forms.parmform.elements.length; i++) {
              ele = document.forms.parmform.elements[i];
              if (ele.name == checkName) {
- Line 1351  ENDSCRIPT
+ Line 1353  ENDSCRIPT
          if (!($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat})) {
              $r->print(' style="display:none"');
          }
-         $r->print(' />'
+         $r->print('>'
                   .($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} : $tempkey)
                   .'</li>'
          );
- Line 1587  sub displaymenu {
+ Line 1589  sub displaymenu {
  sub mapmenu {
      my ($r,$allmaps,$pschp,$maptitles)=@_;
+     my $navmap = Apache::lonnavmaps::navmap->new();
+     my $tree=[];
+     my $treeinfo={};
+     if (defined($navmap)) {
+         my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
+         my $curRes;
+         my $depth = 0;
+         while ($curRes = $it->next()) {
+             if ($curRes == $it->BEGIN_MAP()) {
+                 $depth++;
+             }
+             if ($curRes == $it->END_MAP()) {
+                 $depth--;
+             }
+             if (ref($curRes)) {
+                 if (($curRes->is_sequence()) || ($curRes->is_page())) {
+                     my $type = 'sequence';
+                     if ($curRes->is_page()) {
+                         $type = 'page';
+                     }
+                     my $id= $curRes->id();
+                     my ($mapid,$resid)=split(/\./,$id);
+                     if(!exists($treeinfo->{$mapid})) {
+                         push(@$tree,$mapid);
+                         $treeinfo->{$mapid} = {
+                                     depth => $depth,
+                                     type  => $type,
+                                     };
+                     }
+                 }
+             }
+         }
+     }
      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder')));
-     $r->print('<select name="pschp">');
+     if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
-     $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
+         my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
-     foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
+         $r->print(&Apache::loncommon::start_data_table()
- 	$r->print('<option value="'.$_.'"');
+                  .&Apache::loncommon::start_data_table_row()
- 	if (($pschp eq $_)) { $r->print(' selected="selected"'); }
+                  .'<td>'.$icon
- 	$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');
+                  .'<label>&nbsp;'
+                  .'<input type="radio" name="pschp" checked="checked" value="all" />'
+                  .&mt('All Maps or Folders')
+                  .'</label></td>'
+                  .&Apache::loncommon::end_data_table_row()
+         );
+         my $whitespace = '<img src="'
+                         .&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif")
+                         .'" alt="" />';
+         foreach my $mapid (@{$tree}) {
+             # Indentation
+             my $depth = $treeinfo->{$mapid}->{'depth'};
+             my $indent;
+             for (my $i = 0; $i < $depth; $i++) {
+                 $indent.= $whitespace;
+             }
+             $icon =  '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
+             if ($treeinfo->{$mapid}->{'type'} eq 'page') {
+                 $icon = '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" />';
+             }
+             $r->print(&Apache::loncommon::start_data_table_row()
+                      .'<td>'.$indent.$icon
+                      .'<label>&nbsp;'
+                      .'<input type ="radio" name="pschp" value="'.$mapid.'"'
+             );
+             if ($pschp eq $mapid) {
+                 $r->print(' checked="checked"');
+             }
+             $r->print('/>'
+                      .$$maptitles{$mapid}
+                      .($$allmaps{$mapid}!~/^uploaded/?' ['.$$allmaps{$mapid}.']':'')
+                      .'</label>'
+                      .'</td>'
+                      .&Apache::loncommon::end_data_table_row()
+             );
+         }
+         $r->print(&Apache::loncommon::end_data_table());
      }
-     $r->print("</select>");
  }
  sub levelmenu {
- Line 1918  sub assessparms {
+ Line 1988  sub assessparms {
  				 $uname,$udom,$csec,$cgroup);
  	}
  # ---------------------------------------------------------------- Done storing
- 	$message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</h3>';
+         $message.='<p class="LC_warning">'
+                  .&mt('Changes can take up to 10 minutes before being active for all students.')
+                  .&Apache::loncommon::help_open_topic('Caching')
+                  .'</p>';
      }
  #----------------------------------------------- if all selected, fill in array
      if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
- Line 1935  sub assessparms {
+ Line 2008  sub assessparms {
  		  '" name="recent_'.$_.'" />');
      }
+     # ----- Start Parameter Selection
+     # Hide parm selection?
+     $r->print(<<ENDPARMSELSCRIPT);
+ <script type="text/javascript">
+ // <![CDATA[
+ function parmsel_show() {
+   document.getElementById('parmsel').style.display = "";
+   document.getElementById('parmsellink').style.display = "none";
+ }
+ // ]]>
+ </script>
+ 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 parameter selection boxes
      if (!$pssymb) {
          $r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));
          $r->print(&Apache::lonhtmlcommon::start_pick_box());
- Line 1964  sub assessparms {
+ Line 2058  sub assessparms {
      $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>'
+              .'<input type="submit" name="dis"'
+              .' value="'.&mt('Update Parameter Display').'" />'
+              .'<input type="hidden" name="hideparmsel" value="hidden" />'
+              .'</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>');
-     $r->print('<p>'.$message.'</p>');
+     # Display Messages
+     $r->print('<div>'.$message.'</div>');
-     $r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');
      my @temp_pscat;
      map {

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.457
changed lines
	Added in v.1.464