loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.97, 2004/03/30 02:50:27	version 1.98, 2004/03/30 17:55:26
Line 732 sub display_line {	Line 732 sub display_line {

# display uplink arrow	# display uplink arrow
if ($filecom[1] eq 'viewOneUp') {	if ($filecom[1] eq 'viewOneUp') {
	my $updir=$startdir;
	# -------------- Filter out sequence containment in crumbs and "recent folders"
	$updir='/'.(split(/\.(page\|sequence)\/\//,$startdir))[-1];
	$updir=~s/\/+/\//g;

$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");	$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
$r->print("<td>\n");	$r->print("<td>\n");
$r->print ('<form method="post" name="dirpathUP" action="'.$startdir.	$r->print ('<form method="post" name="dirpathUP" action="'.$updir.
'/" '.	'/" '.
'onSubmit="return rep_dirpath(\'UP\','.	'onSubmit="return rep_dirpath(\'UP\','.
'document.forms.fileattr.acts.value)" '.	'document.forms.fileattr.acts.value)" '.