version 1.82, 2003/08/14 16:08:46
|
version 1.84, 2003/08/26 04:56:29
|
Line 521 sub print_upload_manager_form {
|
Line 521 sub print_upload_manager_form {
|
my $distotal=$total+1; |
my $distotal=$total+1; |
my $today=time; |
my $today=time; |
my $halfyear=$today+15552000; |
my $halfyear=$today+15552000; |
my $defdom=$r->dir_config('lonDefDomain'); |
my $defdom=$ENV{'request.role.domain'}; |
my ($krbdef,$krbdefdom) = |
my ($krbdef,$krbdefdom) = |
&Apache::loncommon::get_kerberos_defaults($defdom); |
&Apache::loncommon::get_kerberos_defaults($defdom); |
&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom); |
&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom); |
Line 723 sub make_dates_default {
|
Line 723 sub make_dates_default {
|
sub get_student_username_domain_form { |
sub get_student_username_domain_form { |
my $r = shift; |
my $r = shift; |
my $domform = &Apache::loncommon::select_dom_form |
my $domform = &Apache::loncommon::select_dom_form |
($r->dir_config('lonDefDomain'),'cudomain',0); |
($ENV{'request.role.domain'},'cudomain',0); |
$r->print(<<END); |
$r->print(<<END); |
<input type="hidden" name="action" value="enrollstudent" /> |
<input type="hidden" name="action" value="enrollstudent" /> |
<input type="hidden" name="state" value="gotusername" /> |
<input type="hidden" name="state" value="gotusername" /> |
Line 759 sub print_enroll_single_student_form {
|
Line 759 sub print_enroll_single_student_form {
|
my $user_data_html = ''; |
my $user_data_html = ''; |
my $javascript_validations = ''; |
my $javascript_validations = ''; |
if ($new_user) { |
if ($new_user) { |
my $defdom=$r->dir_config('lonDefDomain'); |
my $defdom=$ENV{'request.role.domain'}; |
# Set up authentication forms |
# Set up authentication forms |
my ($krbdef,$krbdefdom) = |
my ($krbdef,$krbdefdom) = |
&Apache::loncommon::get_kerberos_defaults($domain); |
&Apache::loncommon::get_kerberos_defaults($domain); |
Line 1681 sub upfile_drop_add {
|
Line 1681 sub upfile_drop_add {
|
\$lname,\$gen,\$sec) { |
\$lname,\$gen,\$sec) { |
$$_ =~ s/(\s+$|^\s+)//g; |
$$_ =~ s/(\s+$|^\s+)//g; |
} |
} |
if ($password) { |
if ($password || $ENV{'form.login'} eq 'loc') { |
&modifystudent($domain,$username,$cid,$sec, |
&modifystudent($domain,$username,$cid,$sec, |
$desiredhost); |
$desiredhost); |
my $reply=&Apache::lonnet::modifystudent |
my $reply=&Apache::lonnet::modifystudent |