loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.374, 2003/05/13 00:52:47	version 1.375, 2003/05/21 15:24:20
Line 3084 sub GetFileTimestamp {	Line 3084 sub GetFileTimestamp {
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;	$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
my $proname="$studentDomain/$subdir/$studentName";	my $proname="$studentDomain/$subdir/$studentName";
$proname .= '/'.$filename;	$proname .= '/'.$filename;
my @dir = &Apache::lonnet::dirlist($proname, $studentDomain, $studentName,	my ($fileStat) = &Apache::lonnet::dirlist($proname, $studentDomain,
$root);	$studentName, $root);
my $fileStat = $dir[0];
my @stats = split('&', $fileStat);	my @stats = split('&', $fileStat);
if($stats[0] ne 'empty' && $stats[0] ne 'no_such_dir') {	if($stats[0] ne 'empty' && $stats[0] ne 'no_such_dir') {
return $stats[9];	# @stats contains first the filename, then the stat output
	return $stats[10]; # so this is 10 instead of 9.
} else {	} else {
return -1;	return -1;
}	}