loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.81, 2003/12/08 18:29:50	version 1.82, 2003/12/22 18:58:26
Line 83 my @Only = ();	Line 83 my @Only = ();
my @Omit = ();	my @Omit = ();


	# ------------------------------------------------------- Puts directory header

	sub crumbs {
	my $uri=shift;
	my $output='<br /><tt><b><font size="+2">/';
	my $path='/';
	foreach (split('/',$uri)) {
	unless ($_) { next; }
	$path.=$_.'/';
	$output.='<a href="'.$path.'">'.$_.'</a>/';
	}
	return $output.'</font></b></tt><br />';
	}

# ----------------------------- Handling routine called via Apache and mod_perl	# ----------------------------- Handling routine called via Apache and mod_perl
sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 458 $closebutton	Line 472 $closebutton
$groupimportbutton	$groupimportbutton
</form>	</form>
END	END
	# ---------------------------------------------------------------- Bread crumbs
	$r->print(&crumbs($uri));
# ----------------- output starting row to the indexed file/directory hierarchy	# ----------------- output starting row to the indexed file/directory hierarchy
my $titleclr="#ddffff";	my $titleclr="#ddffff";
# $r->print(&initdebug());	# $r->print(&initdebug());