loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.33, 2003/06/16 21:32:43	version 1.34, 2003/06/18 14:58:39
Line 311 sub putresource {	Line 311 sub putresource {
$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';	$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
}	}
my $editlink='';	my $editlink='';
if ($filename=~/\.(xml\|html\|htm\|xhtml\|xhtm\|problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {	if ($filename=~/\.(xml\|html\|htm\|xhtml\|xhtm)$/) {
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">Edit</a>)';	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">Edit</a>)';
}	}
	if ($filename=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {
	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">EditXML</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.'">'.'Publish</a>'.	$uname.$thisdisfn.'/'.$filename.'">'.'Publish</a>'.