--- loncom/interface/lonhtmlcommon.pm 2003/10/17 19:56:13 1.33
+++ loncom/interface/lonhtmlcommon.pm 2003/12/29 21:17:00 1.37
@@ -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.37 2003/12/29 21:17:00 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -437,11 +437,11 @@ sub StatusOptions {
$Str .= ' size="'.$size.'" ';
$Str .= '>'."\n";
$Str .= ''."\n";
+ &mt('Currently Enrolled').''."\n";
$Str .= ''."\n";
+ &mt('Previously Enrolled').''."\n";
$Str .= ''."\n";
+ &mt('Any Enrollment Status').''."\n";
$Str .= ''."\n";
}
@@ -835,6 +835,27 @@ sub Close_PrgWin {
$r->rflush();
}
+
+# ------------------------------------------------------- Puts directory header
+
+sub crumbs {
+ my ($uri,$target,$prefix)=@_;
+ my $output='
'.$prefix.'/';
+ if ($ENV{'user.adv'}) {
+ my $path=$prefix;
+ foreach (split('/',$uri)) {
+ unless ($_) { next; }
+ $path.='/'.$_;
+ $output.=''.$_.'/';
+ }
+ } else {
+ $output.=$uri;
+ }
+ unless ($uri=~/\/$/) { $output=~s/\/$//; }
+ return $output.'
';
+}
+
+
1;
__END__