version 1.103, 2004/02/26 22:42:21
|
version 1.109, 2004/05/12 20:04:57
|
Line 699 sub enroll_single_student {
|
Line 699 sub enroll_single_student {
|
$ENV{'form.csec'}=~s/\W//g; |
$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 separate from the action of enrolling the |
# student. Also, a failure in setting the dates as default is not fatal |
# student. Also, a failure in setting the dates as default is not fatal |
# to the process of enrolling / modifying a student. |
# to the process of enrolling / modifying a student. |
my ($startdate,$enddate) = &get_dates_from_form(); |
my ($startdate,$enddate) = &get_dates_from_form(); |
Line 1145 sub print_html_classlist {
|
Line 1145 sub print_html_classlist {
|
foreach my $outputformat ('html','csv','excel') { |
foreach my $outputformat ('html','csv','excel') { |
my $option = '<option value="'.$outputformat.'" '; |
my $option = '<option value="'.$outputformat.'" '; |
if ($outputformat eq $ENV{'form.state'}) { |
if ($outputformat eq $ENV{'form.state'}) { |
$option .= 'checked '; |
$option .= 'selected '; |
} |
} |
$option .='>'.$lt{$outputformat}.'</option>'; |
$option .='>'.$lt{$outputformat}.'</option>'; |
$output_selector .= "\n".$option; |
$output_selector .= "\n".$option; |
Line 1154 sub print_html_classlist {
|
Line 1154 sub print_html_classlist {
|
$r->print(&mt('Output Format: [_1]',$output_selector).(' 'x3)); |
$r->print(&mt('Output Format: [_1]',$output_selector).(' 'x3)); |
} |
} |
$r->print(&mt('Student Status: [_1]',$status_select)."\n"); |
$r->print(&mt('Student Status: [_1]',$status_select)."\n"); |
$r->print('<input type="submit" value="'.&mt('Refresh Display').'" />'."\n</p>\n"); |
$r->print('<input type="submit" value="'.&mt('Update Display').'" />'. |
|
"\n</p>\n"); |
|
|
# |
# |
# Print the classlist |
# Print the classlist |
Line 1183 sub show_class_list {
|
Line 1184 sub show_class_list {
|
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
# |
# |
# Variables for excel output |
# Variables for excel output |
my ($excel_workbook, $excel_sheet, $excel_filename,$row); |
my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format); |
# |
# |
# Variables for csv output |
# Variables for csv output |
my ($CSVfile,$CSVfilename); |
my ($CSVfile,$CSVfilename); |
Line 1194 sub show_class_list {
|
Line 1195 sub show_class_list {
|
} |
} |
# Print out header |
# Print out header |
$r->print(<<END); |
$r->print(<<END); |
|
|
|
<input type="hidden" name="state" value="$ENV{'form.state'}" /> |
<input type="hidden" name="sortby" value="$sortby" /> |
<input type="hidden" name="sortby" value="$sortby" /> |
<input type="hidden" name="sname" value="" /> |
|
<input type="hidden" name="sdom" value="" /> |
|
END |
END |
if ($mode eq 'view') { |
if ($mode eq 'view') { |
if ($linkto eq 'aboutme') { |
if ($linkto eq 'aboutme') { |
Line 1211 END
|
Line 1212 END
|
'sec' => "section", |
'sec' => "section", |
); |
); |
$r->print(<<END); |
$r->print(<<END); |
|
|
<input type="hidden" name="sortby" value="$sortby" /> |
|
<input type="hidden" name="sname" value="" /> |
<input type="hidden" name="sname" value="" /> |
<input type="hidden" name="sdom" value="" /> |
<input type="hidden" name="sdom" value="" /> |
<p> |
<p> |
<table border=2> |
<table border=2> |
<tr><th> |
<tr><th>Count |
|
</th><th> |
<a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">$lt{'usrn'}</a> |
<a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">$lt{'usrn'}</a> |
</th><th> |
</th><th> |
<a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">$lt{'dom'}</a> |
<a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">$lt{'dom'}</a> |
Line 1267 END
|
Line 1267 END
|
$excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'. |
$excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'. |
$excel_filename); |
$excel_filename); |
$excel_workbook->set_tempdir('/home/httpd/perl/tmp'); |
$excel_workbook->set_tempdir('/home/httpd/perl/tmp'); |
|
# |
|
$format = &Apache::loncommon::define_excel_formats($excel_workbook); |
$excel_sheet = $excel_workbook->addworksheet('classlist'); |
$excel_sheet = $excel_workbook->addworksheet('classlist'); |
# |
# |
my $description = 'Class List 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,$format->{'h1'}); |
# |
# |
$excel_sheet->write($row++,0,["username","domain","ID", |
$excel_sheet->write($row++,0,["username","domain","ID", |
"student name","section","status"]); |
"student name","section","status"],$format->{'bold'}); |
} |
} |
# |
# |
# Sort the students |
# Sort the students |
Line 1293 END
|
Line 1295 END
|
|| |
|| |
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) |
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) |
} (keys(%$classlist)); |
} (keys(%$classlist)); |
|
my $studentcount = 0; |
foreach my $student (@Sorted_Students) { |
foreach my $student (@Sorted_Students) { |
my $username = $classlist->{$student}->[$index{'username'}]; |
my $username = $classlist->{$student}->[$index{'username'}]; |
my $domain = $classlist->{$student}->[$index{'domain'}]; |
my $domain = $classlist->{$student}->[$index{'domain'}]; |
Line 1302 END
|
Line 1305 END
|
my $status = $classlist->{$student}->[$index{'status'}]; |
my $status = $classlist->{$student}->[$index{'status'}]; |
next if (($statusmode ne 'Any') && ($status ne $statusmode)); |
next if (($statusmode ne 'Any') && ($status ne $statusmode)); |
if ($mode eq 'view') { |
if ($mode eq 'view') { |
$r->print("<tr>\n <td>\n "); |
$r->print("<tr>\n <td>".(++$studentcount)."</td><td>\n "); |
if ($linkto eq 'nothing') { |
if ($linkto eq 'nothing') { |
$r->print($username); |
$r->print($username); |
} elsif ($linkto eq 'aboutme') { |
} elsif ($linkto eq 'aboutme') { |
Line 2160 sub handler {
|
Line 2163 sub handler {
|
} elsif ($ENV{'form.action'} eq 'upload') { |
} elsif ($ENV{'form.action'} eq 'upload') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=upload&state=', |
({href=>'/adm/dropadd?action=upload&state=', |
text=>"Upload Classlist", |
text=>"Upload Classlist"}); |
faq=>9,bug=>'Instructor Interface',}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Upload Classlist')); |
(undef,'Upload Classlist')); |
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |
Line 2180 sub handler {
|
Line 2182 sub handler {
|
} elsif ($ENV{'form.action'} eq 'drop') { |
} elsif ($ENV{'form.action'} eq 'drop') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=drop', |
({href=>'/adm/dropadd?action=drop', |
text=>"Drop Students", |
text=>"Drop Students"}); |
faq=>9,bug=>'Instructor Interface',}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Drop Students')); |
(undef,'Drop Students')); |
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |
Line 2194 sub handler {
|
Line 2195 sub handler {
|
} elsif ($ENV{'form.action'} eq 'enrollstudent') { |
} elsif ($ENV{'form.action'} eq 'enrollstudent') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=enrollstudent', |
({href=>'/adm/dropadd?action=enrollstudent', |
text=>"Enroll Student", |
text=>"Enroll Student"}); |
faq=>9,bug=>'Instructor Interface',}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Enroll Student')); |
(undef,'Enroll Student')); |
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |
Line 2210 sub handler {
|
Line 2210 sub handler {
|
} elsif ($ENV{'form.action'} eq 'classlist') { |
} elsif ($ENV{'form.action'} eq 'classlist') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=classlist', |
({href=>'/adm/dropadd?action=classlist', |
text=>"View Classlist", |
text=>"View Classlist"}); |
faq=>9,bug=>'Instructor Interface',}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'View Classlist')); |
(undef,'View Classlist')); |
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |
Line 2226 sub handler {
|
Line 2225 sub handler {
|
} elsif ($ENV{'form.action'} eq 'modifystudent') { |
} elsif ($ENV{'form.action'} eq 'modifystudent') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=modifystudent', |
({href=>'/adm/dropadd?action=modifystudent', |
text=>"Modify Student Data", |
text=>"Modify Student Data"}); |
faq=>9,bug=>'Instructor Interface',}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Modify Student Data')); |
(undef,'Modify Student Data')); |
if (! exists($ENV{'form.state'})) { |
if (! exists($ENV{'form.state'})) { |