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

Diff for /loncom/interface/lonparmset.pm between versions 1.496 and 1.497

version 1.496, 2010/06/06 02:40:30 version 1.497, 2010/06/16 14:26:18
Line 1736  sub mapmenu { Line 1736  sub mapmenu {
     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));
     if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {      if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
         my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';          my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
         $r->print(&Apache::loncommon::start_data_table()          my $whitespace =
                  .&Apache::loncommon::start_data_table_row()              '<img src="'
              .&Apache::loncommon::lonhttpdurl('/adm/lonIcons/whitespace_21.gif')
              .'" alt="" />';
   
           $r->print(&Apache::loncommon::start_data_table());
   
           # Display row: "All Maps and Folders"
           $r->print(&Apache::loncommon::start_data_table_row()
                  .'<td>'.$icon                   .'<td>'.$icon
                  .'<label>&nbsp;'                   .'<label>'
                  .'<input type="radio" name="pschp" checked="checked" value="all" />'                   .'<input type="radio" name="pschp"'
           );
           $r->print(' checked="checked"') if ($pschp eq 'all' || !$pschp);
           $r->print( ' value="all" />'
                  .&mt('All Maps or Folders')                   .&mt('All Maps or Folders')
                  .'</label></td>'                   .'</label></td>'
                  .&Apache::loncommon::end_data_table_row()                   .&Apache::loncommon::end_data_table_row()
         );          );
         my $whitespace = '<img src="'  
                         .&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif")          # Display row: "Main Course Documents"
                         .'" alt="" />';  
         if (exists($$allmaps{1})) {          if (exists($$allmaps{1})) {
             $r->print(&Apache::loncommon::start_data_table_row()              $r->print(&Apache::loncommon::start_data_table_row()
                 .'<td>'.$icon                  .'<td>'.$icon
                 .'<label>&nbsp;'                  .'<label>'
                 .'<input type="radio" name="pschp" value="1"'                  .'<input type="radio" name="pschp" value="1"'
             );              );
             if ($pschp eq 1) {              $r->print(' checked="checked"') if ($pschp eq '1');
                 $r->print(' checked="checked"');  
             }  
             $r->print('/>'              $r->print('/>'
                 .$$maptitles{1}                  .$$maptitles{1}
                 .($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')                  .($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')
Line 1765  sub mapmenu { Line 1772  sub mapmenu {
                 .&Apache::loncommon::end_data_table_row()                  .&Apache::loncommon::end_data_table_row()
             );              );
         }          }
   
           # Display rows for all course maps and folders
         foreach my $id (@{$tree}) {          foreach my $id (@{$tree}) {
             my ($mapid,$resid)=split(/\./,$id);              my ($mapid,$resid)=split(/\./,$id);
             # Indentation              # Indentation
Line 1782  sub mapmenu { Line 1791  sub mapmenu {
             $symb_name = $tail;              $symb_name = $tail;
             $r->print(&Apache::loncommon::start_data_table_row()              $r->print(&Apache::loncommon::start_data_table_row()
                      .'<td>'.$indent.$icon                       .'<td>'.$indent.$icon
                      .'<label>&nbsp;'                       .'<label>'
                      .'<input type ="radio" name="pschp" value="'.$allmaps_inverted{$symb_name}.'"'                       .'<input type ="radio" name="pschp" value="'.$allmaps_inverted{$symb_name}.'"'
             );              );
             if ($pschp eq $allmaps_inverted{$symb_name}) {              if ($allmaps_inverted{$symb_name} && $pschp) {
                 $r->print(' checked="checked"');                  if ($allmaps_inverted{$symb_name} eq $pschp) {
                       $r->print(' checked="checked"');
                   }
             }              }
             $r->print('/>'              $r->print('/>'
                      .$treeinfo->{$id}->{name}                       .$treeinfo->{$id}->{name}
Line 1796  sub mapmenu { Line 1807  sub mapmenu {
                      .&Apache::loncommon::end_data_table_row()                       .&Apache::loncommon::end_data_table_row()
             );              );
         }          }
   
         $r->print(&Apache::loncommon::end_data_table());          $r->print(&Apache::loncommon::end_data_table());
     }      }
 }  }
Removed from v.1.496  
changed lines
  Added in v.1.497

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