[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm
raeburn
raeburn at source.lon-capa.org
Tue Oct 2 14:35:19 EDT 2012
raeburn Tue Oct 2 18:35:19 2012 EDT
Modified files:
/loncom/interface domainprefs.pm
Log:
- Domain config option to allow requests for author spaces.
- fix retrieval of current default.
- more detail in message about what changes were made.
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.171 loncom/interface/domainprefs.pm:1.172
--- loncom/interface/domainprefs.pm:1.171 Tue Sep 25 19:54:21 2012
+++ loncom/interface/domainprefs.pm Tue Oct 2 18:35:19 2012
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.171 2012/09/25 19:54:21 raeburn Exp $
+# $Id: domainprefs.pm,v 1.172 2012/10/02 18:35:19 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1714,9 +1714,7 @@
} elsif ($context eq 'requestauthor') {
my $curroption;
if (ref($settings) eq 'HASH') {
- if (ref($settings->{'requestauthor'}) eq 'HASH') {
- $curroption = $settings->{'requestauthor'};
- }
+ $curroption = $settings->{'default'};
}
if (!$curroption) {
$curroption = 'norequest';
@@ -5934,6 +5932,10 @@
$cond = $conditions{$inconf{$type}};
}
$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>';
+ } elsif ($context eq 'requestauthor') {
+ $resulttext .= '<li>'.&mt('Set to "[_1]" for "[_2]".',
+ $titles{$inconf{$type}},$typetitle);
+
} else {
$resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>';
}
More information about the LON-CAPA-cvs
mailing list