[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface loncreateuser.pm

[raeburn]

raeburn		Fri Aug 14 14:45:50 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	loncreateuser.pm 
  Log:
  - Backport 1.304.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.295.2.4 loncom/interface/loncreateuser.pm:1.295.2.5
--- loncom/interface/loncreateuser.pm:1.295.2.4	Fri Aug 14 14:21:00 2009
+++ loncom/interface/loncreateuser.pm	Fri Aug 14 14:45:50 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.295.2.4 2009/08/14 14:21:00 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.295.2.5 2009/08/14 14:45:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -246,13 +246,15 @@
             &Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef,
                                               $context);
         if ($userenv{$context.'.'.$item} eq '') {
-            $custom_access = 'default';
+            $custom_access = 
+                &mt('Availability determined currently from default setting.');
             if (!$curr_access) {
                 $tool_off = 'checked="checked" ';
                 $tool_on = '';
             }
         } else {
-            $custom_access = 'custom';
+            $custom_access = 
+                &mt('Availability determined currently from custom setting.');
             $cust_on = ' checked="checked" ';
             $cust_off = '';
             if ($userenv{$context.'.'.$item} == 0) {
@@ -264,8 +266,7 @@
                    '   <td>'.$lt{$item}.'</td>'."\n".
                    '  </tr>'."\n".
                    &Apache::loncommon::start_data_table_row()."\n".
-                   '  <td>'.&mt('Availability determined currently from [_1] setting.',$custom_access).
-                   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$lt{'avai'}.': '.
+                   '  <td>'.$custom_access.('&nbsp;'x5).$lt{'avai'}.': '.
                    ($curr_access?&mt('Yes'):&mt('No')).'</td>'."\n".
                    &Apache::loncommon::end_data_table_row()."\n".
                    &Apache::loncommon::start_data_table_row()."\n".
@@ -879,6 +880,13 @@
         } else {
             $r->print($home_server_pick);
         }
+        if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
+            $r->print('<br /><h3>'.&mt('User Can Request Creation of Courses in this Domain?').'</h3>'.
+                      &Apache::loncommon::start_data_table().
+                      &build_tools_display($ccuname,$ccdomain,
+                                           'requestcourses').
+                      &Apache::loncommon::end_data_table());
+        }
         $r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.
                   $lt{'lg'}.'</h3>');
         my ($fixedauth,$varauth,$authmsg);