|
version 1.290, 2005/11/15 15:52:51
|
version 1.292, 2005/11/15 18:07:46
|
|
Line 3128 sub get_course_users {
|
Line 3128 sub get_course_users {
|
| my $now = time; |
my $now = time; |
| foreach my $student (keys(%{$classlist})) { |
foreach my $student (keys(%{$classlist})) { |
| my $match = 0; |
my $match = 0; |
| if (ref($sections) eq 'ARRAY') && (@{$sections} > 0) { |
if ((ref($sections) eq 'ARRAY') && (@{$sections} > 0)) { |
| unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/, |
unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/, |
| @{$sections})) { |
@{$sections})) { |
| next; |
next; |
|
Line 3207 sub get_user_info {
|
Line 3207 sub get_user_info {
|
| my ($udom,$uname,$idx,$userdata) = @_; |
my ($udom,$uname,$idx,$userdata) = @_; |
| $$userdata{$uname.':'.$udom}[$$idx{fullname}] = |
$$userdata{$uname.':'.$udom}[$$idx{fullname}] = |
| &plainname($uname,$udom,'lastname'); |
&plainname($uname,$udom,'lastname'); |
| $$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname; |
| $$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom |
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom; |
| return; |
return; |
| } |
} |
| |
|
|
Line 3350 sub no_cache {
|
Line 3350 sub no_cache {
|
| |
|
| sub content_type { |
sub content_type { |
| my ($r,$type,$charset) = @_; |
my ($r,$type,$charset) = @_; |
| |
&no_cache($r); |
| if ($env{'browser.mathml'} && $type eq 'text/html') { $type='text/xml'; } |
if ($env{'browser.mathml'} && $type eq 'text/html') { $type='text/xml'; } |
| unless ($charset) { |
unless ($charset) { |
| $charset=&Apache::lonlocal::current_encoding; |
$charset=&Apache::lonlocal::current_encoding; |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface