--- loncom/interface/lonhtmlcommon.pm	2003/10/17 19:56:13	1.33
+++ loncom/interface/lonhtmlcommon.pm	2003/12/22 19:30:25	1.34
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.33 2003/10/17 19:56:13 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.34 2003/12/22 19:30:25 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -835,6 +835,22 @@ sub Close_PrgWin {
     $r->rflush(); 
 }
 
+
+# ------------------------------------------------------- Puts directory header
+
+sub crumbs {
+    my ($uri,$target,$prefix)=@_;
+    my $output='<br /><tt><b><font size="+2">'.$prefix.'/';
+    my $path=$prefix.'/';
+    foreach (split('/',$uri)) {
+	unless ($_) { next; }
+	$path.=$_.'/';
+	$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';
+    }
+    return $output.'</font></b></tt><br />';
+}
+
+
 1;
 
 __END__