version 1.57, 2002/10/16 13:00:57
|
version 1.58, 2002/10/16 15:02:28
|
Line 762 sub print_html_classlist {
|
Line 762 sub print_html_classlist {
|
my $status_select = &Apache::lonhtmlcommon::StatusOptions |
my $status_select = &Apache::lonhtmlcommon::StatusOptions |
($ENV{'form.Status'},'studentform'); |
($ENV{'form.Status'},'studentform'); |
$r->print(<<END); |
$r->print(<<END); |
<input type="hidden" name="action" value="classlist" /> |
<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 Classlist</font> |
Line 838 sub show_class_list {
|
Line 838 sub show_class_list {
|
</tr> |
</tr> |
END |
END |
} elsif ($mode eq 'csv') { |
} elsif ($mode eq 'csv') { |
$r->print('"'.join('","',("username","domain","ID","student name", |
if($statusmode eq 'Expired') { |
"section")).'"'."\n"); |
$r->print('"Students with expired roles"'); |
|
} |
|
if ($statusmode eq 'Any') { |
|
$r->print('"'.join('","',("username","domain","ID","student name", |
|
"section","status")).'"'."\n"); |
|
} else { |
|
$r->print('"'.join('","',("username","domain","ID","student name", |
|
"section")).'"'."\n"); |
|
} |
} |
} |
# |
# |
# Sort the students |
# Sort the students |
Line 894 END
|
Line 902 END
|
foreach ($username,$domain,$id,$name,$section) { |
foreach ($username,$domain,$id,$name,$section) { |
push @line,&Apache::loncommon::csv_translate($_); |
push @line,&Apache::loncommon::csv_translate($_); |
} |
} |
|
if ($statusmode eq 'Any') { |
|
push @line,&Apache::loncommon::csv_translate($status); |
|
} |
my $tmp = $"; |
my $tmp = $"; |
$" = '","'; |
$" = '","'; |
$r->print("\"@line\"\n"); |
$r->print("\"@line\"\n"); |