--- loncom/interface/lonhtmlcommon.pm 2009/05/20 21:32:53 1.182.4.1 +++ loncom/interface/lonhtmlcommon.pm 2008/12/03 18:53:54 1.190 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.182.4.1 2009/05/20 21:32:53 raeburn Exp $ +# $Id: lonhtmlcommon.pm,v 1.190 2008/12/03 18:53:54 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,31 +62,6 @@ use Apache::lonlocal; use Apache::lonnet; use LONCAPA; -############################################## -############################################## - -=pod - -=item confirm_success - -Successful completion of an operation message - -=cut - -sub confirm_success { - my ($message,$failure)=@_; - if ($failure) { - return ''."\n" - .' '."\n" - .$message."\n" - .''."\n"; - } else { - return ''."\n" - .' '."\n" - .$message."\n" - .''."\n"; - } -} ############################################## ############################################## @@ -310,7 +285,7 @@ sub checkbox { $Str .= 'value="'.$value.'"'; } if ($checked) { - $Str .= ' checked="checked"'; + $Str .= ' checked="1"'; } $Str .= ' />'; return $Str; @@ -332,7 +307,7 @@ sub radio { $Str .= 'value="'.$value.'"'; } if ($checked eq $value) { - $Str .= ' checked="checked"'; + $Str .= ' checked="1"'; } $Str .= ' />'; return $Str; @@ -1328,7 +1303,7 @@ returns: nothing my @Crumbs; sub breadcrumbs { - my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_; + my ($component,$component_help,$menulink,$helplink,$css_class) = @_; # $css_class ||= 'LC_breadcrumbs'; my $Str = "\n".'
'; @@ -1338,7 +1313,7 @@ returns: nothing my $bug = ''; my $help=''; # Crumb Symbol - my $crumbsymbol = '» '; + my $crumbsymbol = ' ▶ '; # The last breadcrumb does not have a link, so handle it separately. my $last = pop(@Crumbs); # @@ -1408,12 +1383,8 @@ returns: nothing $Str .= $links.' | '; # if (defined($component)) { - $Str .= ''; - if ($no_mt) { - $Str .= $component; - } else { - $Str .= &mt($component); - } + $Str .= ' | '.
+ &mt($component);
if ($icons ne '') {
$Str .= ' '.$icons;
}
@@ -1494,9 +1465,6 @@ returns: nothing
# routines, but can also be called directly to start and end rows which have
# needs that are not accommodated by the *_select_row() routines.
-{ # Start: row_count block for pick_box
-my @row_count;
-
sub start_pick_box {
my ($css_class) = @_;
if (defined($css_class)) {
@@ -1504,7 +1472,6 @@ sub start_pick_box {
} else {
$css_class= 'class="LC_pick_box"';
}
- unshift(@row_count,0);
my $output = <<"END";
| $title | -+ | ENDONE return $output; } @@ -1565,9 +1530,6 @@ ENDTWO return $output; } -} # End: row_count block for pick_box - - sub role_select_row { my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_; my $output; @@ -1575,7 +1537,7 @@ sub role_select_row { $output = &row_title($title,$css_class); } $output .= qq| - |