--- loncom/interface/lonparmset.pm 2010/06/06 02:40:30 1.496
+++ loncom/interface/lonparmset.pm 2010/06/16 14:26:18 1.497
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.496 2010/06/06 02:40:30 raeburn Exp $
+# $Id: lonparmset.pm,v 1.497 2010/06/16 14:26:18 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1736,27 +1736,34 @@ sub mapmenu {
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));
if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
my $icon = '';
- $r->print(&Apache::loncommon::start_data_table()
- .&Apache::loncommon::start_data_table_row()
+ my $whitespace =
+ '';
+
+ $r->print(&Apache::loncommon::start_data_table());
+
+ # Display row: "All Maps and Folders"
+ $r->print(&Apache::loncommon::start_data_table_row()
.'
'.$icon
- .' | '
.&Apache::loncommon::end_data_table_row()
);
- my $whitespace = '';
+
+ # Display row: "Main Course Documents"
if (exists($$allmaps{1})) {
$r->print(&Apache::loncommon::start_data_table_row()
.''.$icon
- .' '
+ .''
.'print(' checked="checked"');
- }
+ $r->print(' checked="checked"') if ($pschp eq '1');
$r->print('/>'
.$$maptitles{1}
.($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')
@@ -1765,6 +1772,8 @@ sub mapmenu {
.&Apache::loncommon::end_data_table_row()
);
}
+
+ # Display rows for all course maps and folders
foreach my $id (@{$tree}) {
my ($mapid,$resid)=split(/\./,$id);
# Indentation
@@ -1782,11 +1791,13 @@ sub mapmenu {
$symb_name = $tail;
$r->print(&Apache::loncommon::start_data_table_row()
.''.$indent.$icon
- .' '
+ .''
.'print(' checked="checked"');
+ if ($allmaps_inverted{$symb_name} && $pschp) {
+ if ($allmaps_inverted{$symb_name} eq $pschp) {
+ $r->print(' checked="checked"');
+ }
}
$r->print('/>'
.$treeinfo->{$id}->{name}
@@ -1796,6 +1807,7 @@ sub mapmenu {
.&Apache::loncommon::end_data_table_row()
);
}
+
$r->print(&Apache::loncommon::end_data_table());
}
}
| |