loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.9, 2001/06/23 18:26:40	version 1.10, 2001/07/12 21:23:12
Line 92 sub handler {	Line 92 sub handler {
my $dirptr=16384;	my $dirptr=16384;

opendir(DIR,$fn);	opendir(DIR,$fn);
while ($filename=readdir(DIR)) {	my @files=sort(readdir(DIR));
	foreach my$filename (@files) {
my ($cdev,$cino,$cmode,$cnlink,	my ($cdev,$cino,$cmode,$cnlink,
$cuid,$cgid,$crdev,$csize,	$cuid,$cgid,$crdev,$csize,
$catime,$cmtime,$cctime,	$catime,$cmtime,$cctime,
$cblksize,$cblocks)=stat($fn.'/'.$filename);	$cblksize,$cblocks)=stat($fn.'/'.$filename);
$filename=~/\.(\w+)$/;	my $extension='';
if (($1 ne 'meta') && (&Apache::lonnet::fileembstyle($1))) {	if ($filename=~/\.(\w+)$/) { $extension=$1; }
	if (($extension ne 'meta') && (&Apache::lonnet::fileembstyle($extension))) {
my $status='Unpublished';	my $status='Unpublished';
my $bgcol='#FFBBBB';	my $bgcol='#FFBBBB';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
Line 134 sub handler {	Line 136 sub handler {
'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename.	'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename.
'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>');	'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>');
}	}
	} else {
	#no extension that we know of and not a directory
	#just hide it away
}	}
}	}
closedir(DIR);	closedir(DIR);