[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonconfigsettings.pm
raeburn
raeburn at source.lon-capa.org
Sun Jan 5 14:15:48 EST 2014
raeburn Sun Jan 5 19:15:48 2014 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface lonconfigsettings.pm
Log:
- For 2.11
- Backport 1.27.
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.21.4.3 loncom/interface/lonconfigsettings.pm:1.21.4.4
--- loncom/interface/lonconfigsettings.pm:1.21.4.3 Tue Sep 10 01:23:45 2013
+++ loncom/interface/lonconfigsettings.pm Sun Jan 5 19:15:48 2014
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: lonconfigsettings.pm,v 1.21.4.3 2013/09/10 01:23:45 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.21.4.4 2014/01/05 19:15:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -181,7 +181,7 @@
{href=>"javascript:changePage(document.$phase,'$phase')",
text=>"Updated"});
&print_header($r,$phase,$context,undef,$container);
- my ($crstype,$lastact);
+ my ($crstype,%lastact);
if ($context eq 'course') {
$crstype = &Apache::loncommon::course_type();
}
@@ -192,7 +192,7 @@
if ($context eq 'domain') {
$r->print('<h3>'.&mt($prefs->{$item}{'text'}).'</h3>'.
&Apache::domainprefs::process_changes($r,$dom,
- $confname,$item,$roles,$values,\$lastact));
+ $confname,$item,$roles,$values,\%lastact));
} else {
$changes{$item} = {};
&Apache::courseprefs::process_changes($dom,$item,$values,
@@ -237,7 +237,7 @@
}
&print_footer($r,$phase,'display',$footer_text,\@actions,$container);
$r->print('</p>');
- return $lastact;
+ return \%lastact;
}
sub display_settings {
More information about the LON-CAPA-cvs
mailing list