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

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

version 1.497, 2010/06/16 14:26:18 version 1.498, 2010/06/18 11:11:08
Line 1741  sub mapmenu { Line 1741  sub mapmenu {
            .&Apache::loncommon::lonhttpdurl('/adm/lonIcons/whitespace_21.gif')             .&Apache::loncommon::lonhttpdurl('/adm/lonIcons/whitespace_21.gif')
            .'" alt="" />';             .'" alt="" />';
   
           # Info about selectable folders/maps
           $r->print(
               '<div class="LC_info">'
              .&mt('You can only select those maps and folders which can be currently parameterized.')
            # .' '.&Apache::loncommon::help_open_topic('...') # Later: Add further help
              .'</div>'
           );
   
   
         $r->print(&Apache::loncommon::start_data_table());          $r->print(&Apache::loncommon::start_data_table());
   
         # Display row: "All Maps and Folders"          # Display row: "All Maps or Folders"
         $r->print(&Apache::loncommon::start_data_table_row()          $r->print(
                  .'<td>'.$icon              &Apache::loncommon::start_data_table_row()
                  .'<label>'             .'<td>'
                  .'<input type="radio" name="pschp"'             .'<label>'
              .'<input type="radio" name="pschp"'
         );          );
         $r->print(' checked="checked"') if ($pschp eq 'all' || !$pschp);          $r->print(' checked="checked"') if ($pschp eq 'all' || !$pschp);
         $r->print( ' value="all" />'          $r->print(
                  .&mt('All Maps or Folders')              ' value="all" />&nbsp;'.$icon.'&nbsp;'
                  .'</label></td>'             .&mt('All Maps or Folders')
                  .&Apache::loncommon::end_data_table_row()             .'</label>'
              .'<hr /></td>'
              .&Apache::loncommon::end_data_table_row()
         );          );
   
         # Display row: "Main Course Documents"          # Display row: "Main Course Documents"
         if (exists($$allmaps{1})) {          if (exists($$allmaps{1})) {
             $r->print(&Apache::loncommon::start_data_table_row()              $r->print(
                 .'<td>'.$icon                  &Apache::loncommon::start_data_table_row()
                 .'<label>'                 .'<td>'
                 .'<input type="radio" name="pschp" value="1"'                 .'<label>'
                  .'<input type="radio" name="pschp" value="1"'
             );              );
             $r->print(' checked="checked"') if ($pschp eq '1');              $r->print(' checked="checked"') if ($pschp eq '1');
             $r->print('/>'              $r->print(
                 .$$maptitles{1}                  '/>&nbsp;'.$icon.'&nbsp;'
                 .($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')                 .$$maptitles{1}
                 .'</label>'                 .($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')
                 .'</td>'                 .'</label>'
                 .&Apache::loncommon::end_data_table_row()                 .'</td>'
                  .&Apache::loncommon::end_data_table_row()
             );              );
         }          }
   
Line 1789  sub mapmenu { Line 1803  sub mapmenu {
             my $symb_name = $$symbp{$id};              my $symb_name = $$symbp{$id};
             my ($front, $tail) = split (/___${resid}___/, $symb_name);              my ($front, $tail) = split (/___${resid}___/, $symb_name);
             $symb_name = $tail;              $symb_name = $tail;
             $r->print(&Apache::loncommon::start_data_table_row()              $r->print(
                      .'<td>'.$indent.$icon                  &Apache::loncommon::start_data_table_row()
                      .'<label>'                 .'<td>'
                      .'<input type ="radio" name="pschp" value="'.$allmaps_inverted{$symb_name}.'"'                 .'<label>'
             );              );
             if ($allmaps_inverted{$symb_name} && $pschp) {              # Only offer radio button for folders/maps which can be parameterized
                 if ($allmaps_inverted{$symb_name} eq $pschp) {              if ($allmaps_inverted{$symb_name}) {
                     $r->print(' checked="checked"');                  $r->print(
                 }                      '<input type ="radio" name="pschp"'
                      .' value="'.$allmaps_inverted{$symb_name}.'"'
                   );
                   $r->print(' checked="checked"') if ($allmaps_inverted{$symb_name} eq $pschp);
                   $r->print('/>');
               } else {
                   $r->print($whitespace);
             }              }
             $r->print('/>'              $r->print(
                      .$treeinfo->{$id}->{name}                  $indent.$icon.'&nbsp;'
                      .($$allmaps{$mapid}!~/^uploaded/?' ['.$$allmaps{$mapid}.']':'')                 .$treeinfo->{$id}->{name}
                      .'</label>'                 .($$allmaps{$mapid}!~/^uploaded/?' ['.$$allmaps{$mapid}.']':'')
                      .'</td>'                 .'</label>'
                      .&Apache::loncommon::end_data_table_row()                 .'</td>'
                  .&Apache::loncommon::end_data_table_row()
             );              );
         }          }
   
Removed from v.1.497  
changed lines
  Added in v.1.498

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