loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.32, 2003/06/15 18:02:57	version 1.34, 2003/06/18 14:58:39
Line 310 sub putresource {	Line 310 sub putresource {
$status.='<br><a href="/adm/retrieve?filename=/~'.$uname.	$status.='<br><a href="/adm/retrieve?filename=/~'.$uname.
$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';	$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
}	}
	my $editlink='';
	if ($filename=~/\.(xml\|html\|htm\|xhtml\|xhtm)$/) {
	$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>'.
'</td>'.	'</td>'.
'<td>'.	'<td>'.
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'.	'<a href="'.$linkdir.'/'.$filename.'" target="_top">'.
$filename.'</a>'.	$filename.'</a>'.$editlink.
'</td>'.	'</td>'.
'<td>'.$title.'</td>'.	'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.	'<td>'.$status.'</td>'.