--- loncom/interface/lonhtmlcommon.pm 2003/12/22 19:30:25 1.34 +++ 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.34 2003/12/22 19:30:25 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"; } @@ -841,12 +842,17 @@ sub Close_PrgWin { sub crumbs { my ($uri,$target,$prefix)=@_; my $output='
'.$prefix.'/'; - my $path=$prefix.'/'; - foreach (split('/',$uri)) { - unless ($_) { next; } - $path.=$_.'/'; - $output.=''.$_.'/'; + if ($ENV{'user.adv'}) { + my $path=$prefix; + foreach (split('/',$uri)) { + unless ($_) { next; } + $path.='/'.$_; + $output.=''.$_.'/'; + } + } else { + $output.=$uri; } + unless ($uri=~/\/$/) { $output=~s/\/$//; } return $output.'
'; }