--- loncom/interface/lonindexer.pm 2003/12/08 18:29:50 1.81
+++ loncom/interface/lonindexer.pm 2003/12/22 18:58:26 1.82
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.81 2003/12/08 18:29:50 sakharuk Exp $
+# $Id: lonindexer.pm,v 1.82 2003/12/22 18:58:26 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -83,6 +83,20 @@ my @Only = ();
my @Omit = ();
+# ------------------------------------------------------- Puts directory header
+
+sub crumbs {
+ my $uri=shift;
+ my $output='
/';
+ my $path='/';
+ foreach (split('/',$uri)) {
+ unless ($_) { next; }
+ $path.=$_.'/';
+ $output.=''.$_.'/';
+ }
+ return $output.'
';
+}
+
# ----------------------------- Handling routine called via Apache and mod_perl
sub handler {
my $r = shift;
@@ -458,7 +472,8 @@ $closebutton
$groupimportbutton
END
-
+# ---------------------------------------------------------------- Bread crumbs
+ $r->print(&crumbs($uri));
# ----------------- output starting row to the indexed file/directory hierarchy
my $titleclr="#ddffff";
# $r->print(&initdebug());