version 1.388, 2014/02/05 18:02:16
|
version 1.389, 2014/02/10 18:39:29
|
Line 1230 ENDFORMINFO
|
Line 1230 ENDFORMINFO
|
} |
} |
} |
} |
} |
} |
|
my $title = ''; |
if ($newuser) { |
if ($newuser) { |
my ($portfolioform,$domroleform); |
my ($portfolioform,$domroleform); |
if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) || |
if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) || |
Line 1243 ENDFORMINFO
|
Line 1244 ENDFORMINFO
|
} |
} |
&initialize_authen_forms($ccdomain,$formname); |
&initialize_authen_forms($ccdomain,$formname); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'cnu' => 'Create New User', |
|
'ast' => 'as a student', |
|
'ame' => 'as a member', |
|
'ind' => 'in domain', |
|
'lg' => 'Login Data', |
'lg' => 'Login Data', |
'hs' => "Home Server", |
'hs' => "Home Server", |
); |
); |
Line 1260 $loginscript
|
Line 1257 $loginscript
|
// ]]> |
// ]]> |
</script> |
</script> |
<input type='hidden' name='makeuser' value='1' /> |
<input type='hidden' name='makeuser' value='1' /> |
<h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain |
|
ENDTITLE |
ENDTITLE |
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$r->print(' ('.$lt{'ame'}.')'); |
$title = &mt('Create New User [_1] in domain [_2] as a member', |
|
'"'.$ccuname.'"','"'.$ccdomain.'"'); |
} else { |
} else { |
$r->print(' ('.$lt{'ast'}.')'); |
$title = &mt('Create New User [_1] in domain [_2] as a student', |
|
'"'.$ccuname.'"','"'.$ccdomain.'"'); |
} |
} |
|
} else { |
|
$title = &mt('Create New User [_1] in domain [_2]', |
|
'"'.$ccuname.'"','"'.$ccdomain.'"'); |
} |
} |
$r->print('</h2>'."\n".'<div class="LC_left_float">'); |
$r->print('<h2>'.$title.'</h2>'."\n"); |
|
$r->print('<div class="LC_left_float">'); |
my $personal_table = |
my $personal_table = |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$inst_results{$ccuname.':'.$ccdomain}); |
$inst_results{$ccuname.':'.$ccdomain}); |
Line 1360 ENDAUTH
|
Line 1362 ENDAUTH
|
} |
} |
$r->print('</div><div class="LC_clear_float_footer"></div>'); |
$r->print('</div><div class="LC_clear_float_footer"></div>'); |
} else { # user already exists |
} else { # user already exists |
my %lt=&Apache::lonlocal::texthash( |
$r->print($start_page.$forminfo); |
'cup' => "Modify existing user: ", |
|
'ens' => "Enroll one student: ", |
|
'enm' => "Enroll one member: ", |
|
'id' => "in domain", |
|
); |
|
$r->print(<<ENDCHANGEUSER); |
|
$start_page |
|
$forminfo |
|
<h2> |
|
ENDCHANGEUSER |
|
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$r->print($lt{'enm'}); |
$title = &mt('Enroll one member: [_1] in domain [_2]', |
|
'"'.$ccuname.'"','"'.$ccdomain.'"'); |
} else { |
} else { |
$r->print($lt{'ens'}); |
$title = &mt('Enroll one student: [_1] in domain [_2]', |
|
'"'.$ccuname.'"','"'.$ccdomain.'"'); |
} |
} |
} else { |
} else { |
$r->print($lt{'cup'}); |
$title = &mt('Modify existing user: [_1] in domain [_2]', |
|
'"'.$ccuname.'"','"'.$ccdomain.'"'); |
} |
} |
$r->print(' "'.$ccuname.'" '.$lt{'id'}.' "'.$ccdomain.'"</h2>'. |
$r->print('<h2>'.$title.'</h2>'."\n"); |
"\n".'<div class="LC_left_float">'); |
$r->print('<div class="LC_left_float">'); |
my $personal_table = |
my $personal_table = |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$inst_results{$ccuname.':'.$ccdomain}); |
$inst_results{$ccuname.':'.$ccdomain}); |
Line 2292 sub personal_data_display {
|
Line 2287 sub personal_data_display {
|
} |
} |
} |
} |
if (!$hiderow) { |
if (!$hiderow) { |
my $row = &Apache::lonhtmlcommon::row_title(&mt('Affliations'),undef,'LC_oddrow_value')."\n". |
my $row = &Apache::lonhtmlcommon::row_title(&mt('Affiliations'),undef,'LC_oddrow_value')."\n". |
$shown.&Apache::lonhtmlcommon::row_closure(1); |
$shown.&Apache::lonhtmlcommon::row_closure(1); |
if ($context eq 'selfcreate') { |
if ($context eq 'selfcreate') { |
$rowcount ++; |
$rowcount ++; |
Line 2472 sub update_user_data {
|
Line 2467 sub update_user_data {
|
if (! exists($env{'form.makeuser'})) { |
if (! exists($env{'form.makeuser'})) { |
# Modifying an existing user, so check the validity of the name |
# Modifying an existing user, so check the validity of the name |
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
$r->print($error.&mt('Unable to determine home server for '). |
$r->print( |
$env{'form.ccuname'}.&mt(' in domain '). |
$error |
$env{'form.ccdomain'}.'.'); |
.'<p class="LC_error">' |
|
.&mt('Unable to determine home server for [_1] in domain [_2].', |
|
'"'.$env{'form.ccuname'}.'"','"'.$env{'form.ccdomain'}.'"') |
|
.'</p>'); |
return; |
return; |
} |
} |
} |
} |
Line 3064 sub update_user_data {
|
Line 3062 sub update_user_data {
|
&Apache::lonnet::appenv(\%newenvhash); |
&Apache::lonnet::appenv(\%newenvhash); |
} |
} |
} else { # error occurred |
} else { # error occurred |
$r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '. |
$r->print( |
$env{'form.ccuname'}.' '.&mt('in domain').' '. |
'<p class="LC_error">' |
$env{'form.ccdomain'}.'</span><br />'); |
.&mt('Unable to successfully change environment for [_1] in domain [_2].', |
|
'"'.$env{'form.ccuname'}.'"', |
|
'"'.$env{'form.ccdomain'}.'"') |
|
.'</p>'); |
} |
} |
} else { # End of if ($env ... ) logic |
} else { # End of if ($env ... ) logic |
# They did not want to change the users name, quota, tool availability, |
# They did not want to change the users name, quota, tool availability, |
Line 6994 sub course_level_dc {
|
Line 6995 sub course_level_dc {
|
my $otheritems = &Apache::loncommon::start_data_table_row()."\n". |
my $otheritems = &Apache::loncommon::start_data_table_row()."\n". |
'<td><br /><span class="LC_nobreak"><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc','','','','crstype'".')" />'. |
'<td><br /><span class="LC_nobreak"><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc','','','','crstype'".')" />'. |
$courseform.(' ' x4).'</span></td>'."\n". |
$courseform.(' ' x4).'</span></td>'."\n". |
'<td valign><br /><select name="role">'."\n"; |
'<td valign="top"><br /><select name="role">'."\n"; |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $plrole=&Apache::lonnet::plaintext($role); |
my $plrole=&Apache::lonnet::plaintext($role); |
$otheritems .= ' <option value="'.$role.'">'.$plrole; |
$otheritems .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
} |
} |
if ( keys %customroles > 0) { |
if ( keys %customroles > 0) { |
foreach my $cust (sort keys %customroles) { |
foreach my $cust (sort keys %customroles) { |
my $custrole='cr_cr_'.$env{'user.domain'}. |
my $custrole='cr_cr_'.$env{'user.domain'}. |
'_'.$env{'user.name'}.'_'.$cust; |
'_'.$env{'user.name'}.'_'.$cust; |
$otheritems .= ' <option value="'.$custrole.'">'.$cust; |
$otheritems .= ' <option value="'.$custrole.'">'.$cust.'</option>'; |
} |
} |
} |
} |
$otheritems .= '</select></td><td>'. |
$otheritems .= '</select></td><td>'. |
'<table border="0" cellspacing="0" cellpadding="0">'. |
'<table border="0" cellspacing="0" cellpadding="0">'. |
'<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'. |
'<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'. |
' <option value=""><--'.&mt('Pick course first').'</select></td>'. |
' <option value=""><--'.&mt('Pick course first').'</option></select></td>'. |
'<td> </td>'. |
'<td> </td>'. |
'<td valign="top"> <b>'.$lt{'new'}.'</b><br />'. |
'<td valign="top"> <b>'.$lt{'new'}.'</b><br />'. |
'<input type="text" name="newsec" value="" />'. |
'<input type="text" name="newsec" value="" />'. |