[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