version 1.74, 2003/07/14 15:25:59
|
version 1.77, 2003/07/25 18:05:06
|
Line 154 sub print_main_menu {
|
Line 154 sub print_main_menu {
|
</font> |
</font> |
</p><p> |
</p><p> |
<font size="+1"> |
<font size="+1"> |
<a href="/adm/dropadd?action=classlist">View Classlist</a> |
<a href="/adm/dropadd?action=classlist">View Class List</a> |
</font> |
</font> |
</p><p> |
</p><p> |
<font size="+1"> |
<font size="+1"> |
Line 553 sub print_upload_manager_form {
|
Line 553 sub print_upload_manager_form {
|
# ======================================================= Enroll single student |
# ======================================================= Enroll single student |
sub enroll_single_student { |
sub enroll_single_student { |
my $r=shift; |
my $r=shift; |
|
# Remove whitespace from section |
|
$ENV{'form.csec'}=~s/\s//g; |
# |
# |
# We do the dates first because the action of making them the defaul |
# We do the dates first because the action of making them the defaul |
# in the course is entirely seperate from the action of enrolling the |
# in the course is entirely seperate from the action of enrolling the |
Line 753 sub print_enroll_single_student_form {
|
Line 755 sub print_enroll_single_student_form {
|
my $defdom=$r->dir_config('lonDefDomain'); |
my $defdom=$r->dir_config('lonDefDomain'); |
# Set up authentication forms |
# Set up authentication forms |
my ($krbdef,$krbdefdom) = |
my ($krbdef,$krbdefdom) = |
&Apache::loncommon::get_kerberos_defaults($defdom); |
&Apache::loncommon::get_kerberos_defaults($domain); |
$javascript_validations=&javascript_validations($krbdefdom); |
$javascript_validations=&javascript_validations($krbdefdom); |
my %param = ( formname => 'document.studentform', |
my %param = ( formname => 'document.studentform', |
kerb_def_dom => $krbdefdom, |
kerb_def_dom => $krbdefdom, |
Line 794 Please select an authentication mechanis
|
Line 796 Please select an authentication mechanis
|
<table> |
<table> |
<p> |
<p> |
$krbform |
$krbform |
</p><p> |
<br /> |
$intform |
$intform |
</p><p> |
<br /> |
$locform |
$locform |
</p> |
</p> |
END |
END |
Line 923 sub print_html_classlist {
|
Line 925 sub print_html_classlist {
|
<input type="hidden" name="action" value="$ENV{'form.action'}" /> |
<input type="hidden" name="action" value="$ENV{'form.action'}" /> |
<input type="hidden" name="state" value="" /> |
<input type="hidden" name="state" value="" /> |
<p> |
<p> |
<font size="+1">Current Classlist</font> |
<font size="+1">Current Class List</font> |
|
|
END |
END |
if ($ENV{'form.action'} ne 'modifystudent') { |
if ($ENV{'form.action'} ne 'modifystudent') { |
Line 1028 END
|
Line 1030 END
|
$excel_workbook->set_tempdir('/home/httpd/perl/tmp'); |
$excel_workbook->set_tempdir('/home/httpd/perl/tmp'); |
$excel_sheet = $excel_workbook->addworksheet('classlist'); |
$excel_sheet = $excel_workbook->addworksheet('classlist'); |
# |
# |
my $description = 'Classlist for '. |
my $description = 'Class List for '. |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$excel_sheet->write($row++,0,$description); |
$excel_sheet->write($row++,0,$description); |
# |
# |
Line 1195 END
|
Line 1197 END
|
sub modify_single_student { |
sub modify_single_student { |
my $r = shift; |
my $r = shift; |
# |
# |
|
# Remove whitespace from the section |
|
$ENV{'form.section'} =~ s/\s//g; |
|
# |
# Do the date defaults first |
# Do the date defaults first |
my ($starttime,$endtime) = &get_dates_from_form(); |
my ($starttime,$endtime) = &get_dates_from_form(); |
if ($ENV{'form.makedatesdefault'}) { |
if ($ENV{'form.makedatesdefault'}) { |
Line 1625 sub upfile_drop_add {
|
Line 1630 sub upfile_drop_add {
|
$sec=$entries{$fields{'sec'}}; |
$sec=$entries{$fields{'sec'}}; |
} |
} |
} |
} |
|
# remove whitespace from section |
|
$sec =~ s/\s//g; |
# determine student id number |
# determine student id number |
my $id=''; |
my $id=''; |
if (defined($fields{'id'})) { |
if (defined($fields{'id'})) { |