|
version 1.722, 2006/03/27 23:00:18
|
version 1.724, 2006/03/29 19:56:36
|
|
Line 1004 sub retrievestudentphoto {
|
Line 1004 sub retrievestudentphoto {
|
| # -------------------------------------------------------------------- New chat |
# -------------------------------------------------------------------- New chat |
| |
|
| sub chatsend { |
sub chatsend { |
| my ($newentry,$anon)=@_; |
my ($newentry,$anon,$group)=@_; |
| my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
| my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
| my $chome=$env{'course.'.$env{'request.course.id'}.'.home'}; |
my $chome=$env{'course.'.$env{'request.course.id'}.'.home'}; |
| &reply('chatsend:'.$cdom.':'.$cnum.':'. |
&reply('chatsend:'.$cdom.':'.$cnum.':'. |
| &escape($env{'user.domain'}.':'.$env{'user.name'}.':'.$anon.':'. |
&escape($env{'user.domain'}.':'.$env{'user.name'}.':'.$anon.':'. |
| &escape($newentry)),$chome); |
&escape($newentry)).':'.$group,$chome); |
| } |
} |
| |
|
| # ------------------------------------------ Find current version of a resource |
# ------------------------------------------ Find current version of a resource |
|
Line 4743 sub stat_file {
|
Line 4743 sub stat_file {
|
| $uri = &clutter($uri); |
$uri = &clutter($uri); |
| |
|
| # we want just the url part without the unneeded accessor url bits |
# we want just the url part without the unneeded accessor url bits |
| if ($file =~ m-^/adm/-) { |
if ($uri =~ m-^/adm/-) { |
| $file=~s-^/adm/wrapper/-/-; |
$uri=~s-^/adm/wrapper/-/-; |
| $file=~s-^/adm/coursedocs/showdoc/-/-; |
$uri=~s-^/adm/coursedocs/showdoc/-/-; |
| } |
} |
| |
|
| my ($udom,$uname,$file,$dir); |
my ($udom,$uname,$file,$dir); |
| if ($uri =~ m-^/(uploaded|editupload)/-) { |
if ($uri =~ m-^/(uploaded|editupload)/-) { |
| ($udom,$uname,$file) = |
($udom,$uname,$file) = |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl