version 1.56, 2002/10/15 14:41:31
|
version 1.58, 2002/10/16 15:02:28
|
Line 752 sub print_drop_menu {
|
Line 752 sub print_drop_menu {
|
# ============================================== view classlist |
# ============================================== view classlist |
sub print_html_classlist { |
sub print_html_classlist { |
my $r=shift; |
my $r=shift; |
|
if (! exists($ENV{'form.sortby'})) { |
|
$ENV{'form.sortby'} = 'username'; |
|
} |
|
if (! exists($ENV{'form.Status'}) || |
|
$ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) { |
|
$ENV{'form.Status'} = 'Active'; |
|
} |
|
my $status_select = &Apache::lonhtmlcommon::StatusOptions |
|
($ENV{'form.Status'},'studentform'); |
$r->print(<<END); |
$r->print(<<END); |
|
<input type="hidden" name="action" value="$ENV{'form.action'}" /> |
|
<input type="hidden" name="state" value="" /> |
<p> |
<p> |
<font size="+1">Current Classlist</font> |
<font size="+1">Current Classlist</font> |
<font size="+1"><a href="/adm/dropadd?action=classlist&state=csv">CSV format</a></font> |
|
|
<font size="+1"> |
|
<a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a> |
|
</font> |
|
|
|
$status_select |
</p> |
</p> |
END |
END |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
Line 766 END
|
Line 782 END
|
# Print out the available choices |
# Print out the available choices |
if ($ENV{'form.action'} eq 'modifystudent') { |
if ($ENV{'form.action'} eq 'modifystudent') { |
&show_class_list($r,'view','modify','modifystudent', |
&show_class_list($r,'view','modify','modifystudent', |
'Active',$classlist,$keylist); |
$ENV{'form.Status'},$classlist,$keylist); |
} else { |
} else { |
&show_class_list($r,'view','aboutme','classlist', |
&show_class_list($r,'view','aboutme','classlist', |
'Active',$classlist,$keylist); |
$ENV{'form.Status'},$classlist,$keylist); |
} |
} |
} |
} |
} |
} |
Line 783 sub print_csv_classlist {
|
Line 799 sub print_csv_classlist {
|
$r->print("There are no students currently enrolled.\n"); |
$r->print("There are no students currently enrolled.\n"); |
} else { |
} else { |
&show_class_list($r,'csv','nolink','csv', |
&show_class_list($r,'csv','nolink','csv', |
'Active',$classlist,$keylist); |
$ENV{'form.Status'},$classlist,$keylist); |
} |
} |
} |
} |
|
|
Line 791 sub print_csv_classlist {
|
Line 807 sub print_csv_classlist {
|
sub show_class_list { |
sub show_class_list { |
my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_; |
my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_; |
my $cid=$ENV{'request.course.id'}; |
my $cid=$ENV{'request.course.id'}; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
# &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['sortby']); |
# ['sortby']); |
my $sortby = $ENV{'form.sortby'}; |
my $sortby = $ENV{'form.sortby'}; |
if ($sortby !~ /^(username|domain|section|fullname|id)$/) { |
if ($sortby !~ /^(username|domain|section|fullname|id)$/) { |
$sortby = 'username'; |
$sortby = 'username'; |
Line 809 sub show_class_list {
|
Line 825 sub show_class_list {
|
<p> |
<p> |
<table border=2> |
<table border=2> |
<tr><th> |
<tr><th> |
<a href="/adm/dropadd?action=$action&sortby=username">username</a> |
<a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">username</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=domain">domain</a> |
<a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">domain</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=id">ID</a> |
<a href="javascript:document.studentform.sortby.value='id';document.studentform.submit();">ID</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=fullname">student name</a> |
<a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">student name</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=section">section</a> |
<a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">section</a> |
</th> |
</th> |
</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 849 END
|
Line 873 END
|
my $name = $classlist->{$student}->[$index{'fullname'}]; |
my $name = $classlist->{$student}->[$index{'fullname'}]; |
my $id = $classlist->{$student}->[$index{'id'}]; |
my $id = $classlist->{$student}->[$index{'id'}]; |
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>\n "); |
if ($linkto eq 'nothing') { |
if ($linkto eq 'nothing') { |
Line 878 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"); |