loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.87, 2004/01/26 19:55:44	version 1.88, 2004/01/27 16:35:37
Line 511 END	Line 511 END
my $indent = 0;	my $indent = 0;
$uri = $uri.'/' if $uri !~ /.*\/$/;	$uri = $uri.'/' if $uri !~ /.*\/$/;

	if ($ENV{'form.dirPointer'} ne 'on') {
$hash{'top.level'} = $uri;	$hash{'top.level'} = $uri;
$toplevel = $uri;	$toplevel = $uri;
	} else {
	$toplevel = $hash{'top.level'};
	}

# -------------------------------- if not at top level, provide an uplink arrow	# -------------------------------- if not at top level, provide an uplink arrow
if ($toplevel ne '/res/'){	if ($toplevel ne '/res/'){
Line 725 sub display_line {	Line 728 sub display_line {

# display domain	# display domain
if ($filecom[1] eq 'domain') {	if ($filecom[1] eq 'domain') {
	$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n")
	if ($ENV{'form.dirPointer'} eq "on");
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");	$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
$r->print("<td>");	$r->print("<td>");
&begin_form ($r,$filecom[0]);	&begin_form ($r,$filecom[0]);
Line 1009 sub begin_form {	Line 1014 sub begin_form {
'enctype="application/x-www-form-urlencoded">'."\n");	'enctype="application/x-www-form-urlencoded">'."\n");
$r->print ('<input type="hidden" name="openuri" value="'.$uri.'">'.	$r->print ('<input type="hidden" name="openuri" value="'.$uri.'">'.
"\n");	"\n");
	$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n");
$dnum++;	$dnum++;
}	}