version 1.75, 2003/07/15 19:23:14
|
version 1.81, 2003/08/14 14:16:42
|
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 198 to this page if the data selected is ins
|
Line 198 to this page if the data selected is ins
|
<input type="hidden" name="associate" value="" /> |
<input type="hidden" name="associate" value="" /> |
<input type="hidden" name="datatoken" value="$datatoken" /> |
<input type="hidden" name="datatoken" value="$datatoken" /> |
<input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" /> |
<input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" /> |
|
<input type="hidden" name="noFirstLine" value="$ENV{'form.noFirstLine'}" /> |
<input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" /> |
<input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" /> |
<input type="hidden" name="upfile_associate" |
<input type="hidden" name="upfile_associate" |
value="$ENV{'form.upfile_associate'}" /> |
value="$ENV{'form.upfile_associate'}" /> |
Line 524 sub print_upload_manager_form {
|
Line 525 sub print_upload_manager_form {
|
&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom); |
&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom); |
my $i; |
my $i; |
my $keyfields; |
my $keyfields; |
|
my $dummy; |
if ($total>=0) { |
if ($total>=0) { |
my @d=(['username','Username'], |
my @d=(['username','Username'], |
['names','Last Name, First Names'], |
['names','Last Name, First Names'], |
Line 535 sub print_upload_manager_form {
|
Line 537 sub print_upload_manager_form {
|
['sec','Group/Section'], |
['sec','Group/Section'], |
['ipwd','Initial Password'], |
['ipwd','Initial Password'], |
['email','EMail Address']); |
['email','EMail Address']); |
|
if($ENV{'form.noFirstLine'}){ |
|
($dummy,@records)=@records; |
|
} |
|
|
if ($ENV{'form.upfile_associate'} eq 'reverse') { |
if ($ENV{'form.upfile_associate'} eq 'reverse') { |
&Apache::loncommon::csv_print_samples($r,\@records); |
&Apache::loncommon::csv_print_samples($r,\@records); |
$i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d); |
$i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d); |
Line 553 sub print_upload_manager_form {
|
Line 559 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 non alphanumeric values from section |
|
$ENV{'form.csec'}=~s/\W//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 620 sub enroll_single_student {
|
Line 628 sub enroll_single_student {
|
$r->print("unable to enroll: ".$login_result); |
$r->print("unable to enroll: ".$login_result); |
} |
} |
} else { |
} else { |
$r->print('<p><font color="#ff0000">ERROR</font> '. |
$r->print('<p><font color="#ff0000">ERROR</font> '); |
'Invalid login mode or password. '. |
if ($amode =~ /^krb/) { |
'Unable to enroll '.$ENV{'form.cuname'}.'.</p>'); |
$r->print('Missing Kerberos domain information. '); |
} |
} else { |
|
$r->print('Invalid login mode or password. '); |
|
} |
|
$r->print('<b>Unable to enroll '.$ENV{'form.cuname'}.'.</b></p>'); |
|
} |
} else { |
} else { |
$r->print('Invalid username or domain'); |
$r->print('Invalid username or domain'); |
} |
} |
Line 923 sub print_html_classlist {
|
Line 935 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 1040 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 1207 END
|
sub modify_single_student { |
sub modify_single_student { |
my $r = shift; |
my $r = shift; |
# |
# |
|
# Remove non alphanumeric values from the section |
|
$ENV{'form.section'} =~ s/\W//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 1519 $upfile_select
|
Line 1534 $upfile_select
|
<input type=submit name="fileupload" value="Upload Courselist"> |
<input type=submit name="fileupload" value="Upload Courselist"> |
<input type="hidden" name="action" value="upload" /> |
<input type="hidden" name="action" value="upload" /> |
<input type="hidden" name="state" value="got_file" /> |
<input type="hidden" name="state" value="got_file" /> |
|
<input type="checkbox" name="noFirstLine" /> Ignore First Line<br /> |
</p> |
</p> |
$create_classlist_help <br /> |
$create_classlist_help <br /> |
$create_csv_help |
$create_csv_help |
Line 1580 sub upfile_drop_add {
|
Line 1596 sub upfile_drop_add {
|
$genpwd=$ENV{'form.locarg'}; |
$genpwd=$ENV{'form.locarg'}; |
} |
} |
} |
} |
|
if ($amode =~ /^krb/) { |
|
if (! defined($genpwd) || $genpwd eq '') { |
|
$r->print('<font color="red" size="+1">'. |
|
'Unable to enroll students:'.'</font> '. |
|
'No Kerberos domain was specified.</p>'); |
|
$amode = ''; # This causes the loop below to be skipped |
|
} |
|
} |
unless (($domain=~/\W/) || ($amode eq '')) { |
unless (($domain=~/\W/) || ($amode eq '')) { |
####################################### |
####################################### |
## Enroll Students ## |
## Enroll Students ## |
Line 1625 sub upfile_drop_add {
|
Line 1649 sub upfile_drop_add {
|
$sec=$entries{$fields{'sec'}}; |
$sec=$entries{$fields{'sec'}}; |
} |
} |
} |
} |
|
# remove non alphanumeric values from section |
|
$sec =~ s/\W//g; |
# determine student id number |
# determine student id number |
my $id=''; |
my $id=''; |
if (defined($fields{'id'})) { |
if (defined($fields{'id'})) { |