loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.225, 2007/12/31 01:58:17	version 1.226, 2007/12/31 02:28:12
Line 2029 END	Line 2029 END
}	}
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
&enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser);	&enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser);
	$r->print('<p><a href="javascript:backPage(document.userupdate)">'. &mt('Enroll Another Student').'</a></p>');
} else {	} else {
my @rolechanges = &update_roles($r);	my @rolechanges = &update_roles($r);
if ($namechanged) {	if ($namechanged) {
Line 2046 END	Line 2047 END
}	}
}	}
}	}
	my $userinfo = &Apache::loncommon::plainname($env{'form.ccuname'},
	$env{'form.ccdomain'});
	$r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'.&mt('Modify this user: <span class="LC_cusr_emph">([_1])</span>',$userinfo).'</a>'.(' 'x5).'<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a></p>');
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}