version 1.385, 2014/01/08 17:18:11
|
version 1.386, 2014/01/15 18:47:56
|
Line 3116 sub update_user_data {
|
Line 3116 sub update_user_data {
|
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
&enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context, |
&enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context, |
$crstype,$showcredits,$defaultcredits); |
$crstype,$showcredits,$defaultcredits); |
$r->print('<p><a href="javascript:backPage(document.userupdate)">'); |
my $linktext = ($crstype eq 'Community' ? |
if ($crstype eq 'Community') { |
&mt('Enroll Another Member') : &mt('Enroll Another Student')); |
$r->print(&mt('Enroll Another Member')); |
$r->print( |
} else { |
&Apache::lonhtmlcommon::actionbox([ |
$r->print(&mt('Enroll Another Student')); |
'<a href="javascript:backPage(document.userupdate)">' |
} |
.($crstype eq 'Community' ? |
$r->print('</a></p>'); |
&mt('Enroll Another Member') : &mt('Enroll Another Student')) |
|
.'</a>'])); |
} else { |
} else { |
my @rolechanges = &update_roles($r,$context,$showcredits); |
my @rolechanges = &update_roles($r,$context,$showcredits); |
if (keys(%namechanged) > 0) { |
if (keys(%namechanged) > 0) { |
Line 3944 sub enroll_single_student {
|
Line 3945 sub enroll_single_student {
|
} |
} |
$r->print('.<br />'.$showstart.'; '.$showend); |
$r->print('.<br />'.$showstart.'; '.$showend); |
if ($startdate <= $now && !$newuser) { |
if ($startdate <= $now && !$newuser) { |
$r->print('<p> '); |
$r->print('<p class="LC_info">'); |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role will be available when the member next logs in.')); |
$r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role will be available when the member next logs in.')); |
} else { |
} else { |