[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm

[raeburn]

raeburn		Thu Dec 20 13:23:50 2012 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - Include the $r->print() statements missing from rev. 1.180.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.180 loncom/interface/domainprefs.pm:1.181
--- loncom/interface/domainprefs.pm:1.180	Thu Dec 20 13:15:36 2012
+++ loncom/interface/domainprefs.pm	Thu Dec 20 13:23:49 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.180 2012/12/20 13:15:36 raeburn Exp $
+# $Id: domainprefs.pm,v 1.181 2012/12/20 13:23:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -436,22 +436,25 @@
         my ($configuserok,$author_ok,$switchserver) =
             &config_check($dom,$confname,$servadm);
         unless ($configuserok eq 'ok') {
-            &Apache::lonconfigsettings::print_header($r,$phase,$context).
-            &mt('The domain configuration user "[_1]" has yet to be created.',
-                $confname).
-            '<br />';
+            &Apache::lonconfigsettings::print_header($r,$phase,$context);
+            $r->print(&mt('The domain configuration user "[_1]" has yet to be created.',
+                           $confname).
+                      '<br />'
+            );
             if ($switchserver) {
-                &mt('Ordinarily, that domain configuration user is created when the ./UPDATE script is run to install LON-CAPA for the first time.').
-                '<br />'.
-                &mt('However, that does not apply when new domains are added to a multi-domain server, and ./UPDATE has not been run recently.').
-                '<br />'.
-                &mt('The "[_1]" user can be created automatically when a Domain Coordinator visits the web-based "Set domain configuration" screen, in a session hosted on the primary library server.',$confname).
-                '<br />'.
-                &mt("To do that now, use the following link: [_1],$switchserver);
-            } else {
-                &mt('To create that user from the command line run the ./UPDATE script found in the top level directory of the extracted LON-CAPA tarball.').
-                '<br />'.
-                &mt('Once that is done, you will be able to use the web-based "Set domain configuration" to configure the domain');
+                $r->print(&mt('Ordinarily, that domain configuration user is created when the ./UPDATE script is run to install LON-CAPA for the first time.').
+                          '<br />'.
+                          &mt('However, that does not apply when new domains are added to a multi-domain server, and ./UPDATE has not been run recently.').
+                          '<br />'.
+                          &mt('The "[_1]" user can be created automatically when a Domain Coordinator visits the web-based "Set domain configuration" screen, in a session hosted on the primary library server.',$confname).
+                          '<br />'.
+                          &mt('To do that now, use the following link: [_1]',$switchserver)
+                );
+            } else {
+                $r->print(&mt('To create that user from the command line run the ./UPDATE script found in the top level directory of the extracted LON-CAPA tarball.').
+                          '<br />'.
+                          &mt('Once that is done, you will be able to use the web-based "Set domain configuration" to configure the domain')
+                );
             }
             $r->print(&Apache::loncommon::end_page());
             return OK;