loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.41 and 1.46

version 1.41, 2003/09/29 16:09:20	version 1.46, 2003/11/19 14:57:32
Line 113 sub handler {	Line 113 sub handler {
my $dirptr=16384; # Mask indicating a directory in stat.cmode.	my $dirptr=16384; # Mask indicating a directory in stat.cmode.

opendir(DIR,$fn);	opendir(DIR,$fn);
my @files=sort(readdir(DIR));	my @files=sort {uc($a) cmp uc($b)} (readdir(DIR));
foreach my $filename (@files) {	foreach my $filename (@files) {
my ($cdev,$cino,$cmode,$cnlink,	my ($cdev,$cino,$cmode,$cnlink,
$cuid,$cgid,$crdev,$csize,	$cuid,$cgid,$crdev,$csize,
Line 282 sub putdirectory {	Line 282 sub putdirectory {
$disfilename.'</a></td>'.	$disfilename.'</a></td>'.
'<td> </td>'.	'<td> </td>'.
'<td> </td>'.	'<td> </td>'.
'<td>'.localtime($modtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
"</tr>\n");	"</tr>\n");
}	}
return OK;	return OK;
Line 336 sub putresource {	Line 336 sub putresource {
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('EditXML').'</a>)';	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('EditXML').'</a>)';
$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';	$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';
}	}
	if ($filename=~/\.(zip\|tar\|bz2\|gz\|tar.gz\|tar.bz2\|tgz)$/) {
	$editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'.
	$uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';
	}
$r->print('<tr bgcolor="'.$bgcolor.'">'.	$r->print('<tr bgcolor="'.$bgcolor.'">'.
'<td><a target="_parent" href="/adm/publish?filename=/~'.	'<td><a target="_parent" href="/adm/publish?filename=/~'.
$uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').'</a>'.	$uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').'</a>'.
Line 346 sub putresource {	Line 350 sub putresource {
'</td>'.	'</td>'.
'<td>'.$title.'</td>'.	'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.	'<td>'.$status.'</td>'.
'<td>'.localtime($cmtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'.
"</tr>\n");	"</tr>\n");
return OK;	return OK;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.41
changed lines
	Added in v.1.46