loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.51, 2003/12/31 02:33:28	version 1.52, 2004/01/03 03:19:43
Line 270 sub putdirectory {	Line 270 sub putdirectory {
foreach (keys %{$bombs}) {	foreach (keys %{$bombs}) {
if ($_=~/^$resdir\/$disfilename\//) { $kaputt=1; last; }	if ($_=~/^$resdir\/$disfilename\//) { $kaputt=1; last; }
}	}
	%Apache::lonpublisher::metadatafields=();
	%Apache::lonpublisher::metadatakeys=();
	my $construct=$here;
	$construct=~s/^\/priv\/(\w+)$/\/home\/$1\/public_html/;
	&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile(
	$construct.'/'.$dirname.'/default.meta'
	));
$r->print('<tr bgcolor="#CCCCFF">'.	$r->print('<tr bgcolor="#CCCCFF">'.
'<td>'.&mt('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>'.($kaputt?'<img src="/adm/lonMisc/bomb.gif" />':' ').'</td>'.	'<td colspan="2">'.($kaputt?'<img src="/adm/lonMisc/bomb.gif" />':'').$Apache::lonpublisher::metadatafields{'title'}.' '.
'<td> </td>'.	$Apache::lonpublisher::metadatafields{'subject'}.' '.
	$Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.
'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
"</tr>\n");	"</tr>\n");
}	}