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> ' |
.'<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> ' |
.'<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> ' |
.'<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()); |
} |
} |
} |
} |