[LON-CAPA-cvs] cvs: loncom /interface courseprefs.pm
raeburn
raeburn at source.lon-capa.org
Sun Sep 13 15:55:34 EDT 2015
raeburn Sun Sep 13 19:55:34 2015 EDT
Modified files:
/loncom/interface courseprefs.pm
Log:
- Version requirements for map-level parameters need one row per version
number in pop-up Version Constraints display.
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.72 loncom/interface/courseprefs.pm:1.73
--- loncom/interface/courseprefs.pm:1.72 Tue Jun 9 21:22:55 2015
+++ loncom/interface/courseprefs.pm Sun Sep 13 19:55:34 2015
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set configuration settings for a course
#
-# $Id: courseprefs.pm,v 1.72 2015/06/09 21:22:55 damieng Exp $
+# $Id: courseprefs.pm,v 1.73 2015/09/13 19:55:34 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3044,8 +3044,13 @@
sub releases_by_map {
my ($r,$bymap,$url,$scopeorder,$lt) = @_;
return unless ((ref($bymap) eq 'HASH') && (ref($scopeorder) eq 'ARRAY'));
+ my $newrow = 0;
if (ref($bymap->{$url}) eq 'HASH') {
foreach my $rev (sort(keys(%{$bymap->{$url}}))) {
+ if ($newrow) {
+ $r->print(&Apache::loncommon::end_data_table_row().
+ &Apache::loncommon::continue_data_table_row());
+ }
$r->print('<td valign="middle">'.$rev.'</td><td>');
if (ref($bymap->{$url}{$rev}) eq 'HASH') {
$r->print('<table border="0">');
@@ -3067,6 +3072,7 @@
$r->print('</table>');
}
$r->print('</td>');
+ $newrow = 1;
}
} else {
$r->print('<td colspan="2"> </td>');
More information about the LON-CAPA-cvs
mailing list