loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.720, 2006/03/08 21:47:15	version 1.721, 2006/03/26 21:20:55
Line 4739 sub GetFileTimestamp {	Line 4739 sub GetFileTimestamp {

sub stat_file {	sub stat_file {
my ($uri) = @_;	my ($uri) = @_;
$uri = &clutter($uri);	$uri = '/'.&declutter($uri);
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) =
Line 4760 sub stat_file {	Line 4760 sub stat_file {

my ($result) = &dirlist($file,$udom,$uname,$dir);	my ($result) = &dirlist($file,$udom,$uname,$dir);
my @stats = split('&', $result);	my @stats = split('&', $result);

if($stats[0] ne 'empty' && $stats[0] ne 'no_such_dir') {	if($stats[0] ne 'empty' && $stats[0] ne 'no_such_dir') {
shift(@stats); #filename is first	shift(@stats); #filename is first
return @stats;	return @stats;