--- loncom/interface/loncreateuser.pm 2009/08/05 13:40:10 1.303
+++ loncom/interface/loncreateuser.pm 2009/08/06 05:48:56 1.304
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.303 2009/08/05 13:40:10 bisitz Exp $
+# $Id: loncreateuser.pm,v 1.304 2009/08/06 05:48:56 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -248,13 +248,15 @@ sub build_tools_display {
&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) {
@@ -266,8 +268,7 @@ sub build_tools_display {
'
'.$lt{$item}.' | '."\n".
' '."\n".
&Apache::loncommon::start_data_table_row()."\n".
- ' '.&mt('Availability determined currently from [_1] setting.',$custom_access).
- ' '.$lt{'avai'}.': '.
+ ' | '.$custom_access.(' 'x5).$lt{'avai'}.': '.
($curr_access?&mt('Yes'):&mt('No')).' | '."\n".
&Apache::loncommon::end_data_table_row()."\n".
&Apache::loncommon::start_data_table_row()."\n".
@@ -835,6 +836,7 @@ ENDTITLE
&personal_data_display($ccuname,$ccdomain,$newuser,$context,
$inst_results{$ccuname.':'.$ccdomain});
$r->print($personal_table);
+#FIXME
my ($home_server_pick,$numlib) =
&Apache::loncommon::home_server_form_item($ccdomain,'hserver',
'default','hide');
@@ -846,6 +848,13 @@ $lt{'hs'}: $home_server_pick
} else {
$r->print($home_server_pick);
}
+ if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
+ $r->print('
'.&mt('User Can Request Creation of Courses in this Domain?').'
'.
+ &Apache::loncommon::start_data_table().
+ &build_tools_display($ccuname,$ccdomain,
+ 'requestcourses').
+ &Apache::loncommon::end_data_table());
+ }
$r->print(''."\n".''.
$lt{'lg'}.'
');
my ($fixedauth,$varauth,$authmsg);