loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2002/07/31 14:56:36	version 1.5, 2002/07/31 15:23:55
Line 90 ENDDOCUMENT	Line 90 ENDDOCUMENT
foreach (sort keys (%currentdocs)) {	foreach (sort keys (%currentdocs)) {
if ($_=~/(\d+)\_(\w+)\_(\w+)\.url/) {	if ($_=~/(\d+)\_(\w+)\_(\w+)\.url/) {
$r->print('<hr>'.localtime($1).' '.$2.' '.$3.'<blockquote>'.	$r->print('<hr>'.localtime($1).' '.$2.' '.$3.'<blockquote>'.
$currentdocs{$1.'_'.$2.'_'.$3.'.comment'}.	&Apache::lontexconvert::msgtexconverted(
'</blockquote><a href="'.$currentdocs{$_}.'">View</a>');	$currentdocs{$1.'_'.$2.'_'.$3.'.comment'}
	).
	'</blockquote><a href="'.
	&Apache::lonnet::tokenwrapper($currentdocs{$_}).'">View</a>');
	if (($2 eq $ENV{'user.name'}) && ($3 eq $ENV{'user.domain'})
	&& ($allowed)) {
	$r->print(' <a href="/adm/coursedocs?remove='.
	$1.'_'.$2.'_'.$3.'">Remove</a>');
	}
}	}
}	}
# ----------------------------------------------------------------- Upload form	# ----------------------------------------------------------------- Upload form