--- loncom/interface/lonhtmlcommon.pm 2003/12/29 17:11:53 1.35
+++ loncom/interface/lonhtmlcommon.pm 2004/01/01 20:13:17 1.38
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.35 2003/12/29 17:11:53 www Exp $
+# $Id: lonhtmlcommon.pm,v 1.38 2004/01/01 20:13:17 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -91,8 +91,9 @@ sub textbox {
##############################################
##############################################
sub checkbox {
- my ($name) = @_;
- my $Str = '';
+ my ($name,$value) = @_;
+ my $Str = '';
return $Str;
}
@@ -437,11 +438,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";
}
@@ -842,15 +843,16 @@ sub crumbs {
my ($uri,$target,$prefix)=@_;
my $output='
'.$prefix.'/';
if ($ENV{'user.adv'}) {
- my $path=$prefix.'/';
+ my $path=$prefix;
foreach (split('/',$uri)) {
unless ($_) { next; }
- $path.=$_.'/';
+ $path.='/'.$_;
$output.=''.$_.'/';
}
} else {
$output.=$uri;
}
+ unless ($uri=~/\/$/) { $output=~s/\/$//; }
return $output.'
';
}