loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.37 and 1.38

version 1.37, 2003/08/03 01:20:02	version 1.38, 2003/09/21 03:30:02
Line 318 sub putresource {	Line 318 sub putresource {
$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';	$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
}	}
my $editlink='';	my $editlink='';
	my $editlink2='';
if ($filename=~/\.(xml\|html\|htm\|xhtml\|xhtm\|sty)$/) {	if ($filename=~/\.(xml\|html\|htm\|xhtml\|xhtm\|sty)$/) {
$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)$/) {	if ($filename=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">EditXML</a>)';	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">EditXML</a>)';
	$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">Edit</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=/~'.
Line 330 sub putresource {	Line 332 sub putresource {
'</td>'.	'</td>'.
'<td>'.	'<td>'.
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'.	'<a href="'.$linkdir.'/'.$filename.'" target="_top">'.
$filename.'</a>'.$editlink.	$filename.'</a>'.$editlink2.$editlink.
'</td>'.	'</td>'.
'<td>'.$title.'</td>'.	'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.	'<td>'.$status.'</td>'.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.37
changed lines
	Added in v.1.38