loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.46, 2003/11/19 14:57:32	version 1.47, 2003/12/05 14:26:25
Line 277 sub putdirectory {	Line 277 sub putdirectory {
unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|	unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|
($dirname eq '.')) {	($dirname eq '.')) {
$r->print('<tr bgcolor="#CCCCFF">'.	$r->print('<tr bgcolor="#CCCCFF">'.
'<td>Go to ...</td>'.	'<td>'.&mt('Go to ...').'</td>'.
'<td><a href="'.$here.'/'.$dirname.'/" target="_top">'.	'<td><a href="'.$here.'/'.$dirname.'/" target="_top">'.
$disfilename.'</a></td>'.	$disfilename.'</a></td>'.
'<td> </td>'.	'<td> </td>'.
Line 295 sub putresource {	Line 295 sub putresource {
$resdir, $targetdir, $linkdir,	$resdir, $targetdir, $linkdir,
$cmtime) = @_;	$cmtime) = @_;

my $status='Unpublished';	my $status=&mt('Unpublished');
my $bgcolor='#FFCCCC';	my $bgcolor='#FFCCCC';
my $title=' ';	my $title=' ';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {