--- loncom/interface/lonhtmlcommon.pm	2009/02/18 19:28:45	1.201
+++ loncom/interface/lonhtmlcommon.pm	2009/04/29 18:42:38	1.210
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.201 2009/02/18 19:28:45 droeschl Exp $
+# $Id: lonhtmlcommon.pm,v 1.210 2009/04/29 18:42:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -62,6 +62,29 @@ 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 '<span class="LC_error">'.
+          $message.
+          ' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>';
+   } else {
+      return '<span class="LC_success">'.
+          $message.
+          ' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';
+   }
+}
 
 ##############################################
 ##############################################
@@ -285,7 +308,7 @@ sub checkbox {
         $Str .= 'value="'.$value.'"';
     } 
     if ($checked) {
-        $Str .= ' checked="1"';
+        $Str .= ' checked="checked"';
     }
     $Str .= ' />';
     return $Str;
@@ -307,7 +330,7 @@ sub radio {
         $Str .= 'value="'.$value.'"';
     } 
     if ($checked eq $value) {
-        $Str .= ' checked="1"';
+        $Str .= ' checked="checked"';
     }
     $Str .= ' />';
     return $Str;
@@ -1305,10 +1328,15 @@ returns: nothing
     my @Crumbs;
     
     sub breadcrumbs {
-        my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_;
+        my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;
         #
 	$css_class ||= 'LC_breadcrumbs';
         my $Str1 = '<ol id="LC_MenuBreadcrumbs">';
+	
+		if($no_realBreadcrumb){
+			$Str1 = '<ul class="LC_CourseBreadcrumbs">';
+		}
+
         my $Str = '';
         #
         # Make the faq and bug data cascade
@@ -1316,7 +1344,7 @@ returns: nothing
         my $bug = '';
 	my $help='';
 	# Crumb Symbol
-	my $crumbsymbol = '&#x25b6; ';
+	my $crumbsymbol = '&raquo;&nbsp;';
         # The last breadcrumb does not have a link, so handle it separately.
         my $last = pop(@Crumbs);
         #
@@ -1339,7 +1367,7 @@ returns: nothing
                     no_mt  =>$no_mt_descr,
                 });
         }
-        my $links .= '<li>'.
+        my $links .= '<li>'. 
             join('</li><li>'.$crumbsymbol,
                  map {
                      $faq = $_->{'faq'} if (exists($_->{'faq'}));
@@ -1349,6 +1377,7 @@ returns: nothing
                      if (defined($_->{'target'}) && $_->{'target'} ne '') {
                          $result .= 'target="'.$_->{'target'}.'" ';
                      }
+			# set the possible translation for title 
 		     if ($_->{'no_mt'}) {
 			 $result .='title="'.$_->{'title'}.'">'.
 			     $_->{'text'}.'</a>';
@@ -1359,13 +1388,19 @@ returns: nothing
                      $result;
                      } @Crumbs
                  ).'</li>';
-        $links .= '<li>'.$crumbsymbol if ($links ne '');
+#Workaround for edit course. 
+	if(@Crumbs == 0 ){
+		$links .= '<li>' if ($links ne '');
+	} else {
+		$links .= '<li>'.$crumbsymbol if ($links ne '');
+	}
+#should the last Element be translated?
 	if ($last->{'no_mt'}) {
-	    $links .= '<b>'.$last->{'text'}.'</b></li>';
+	    $links .= '<b>'.$last->{'text'}.'</b>';
 	} else {
-	    $links .= '<b>'.&mt($last->{'text'}).'</b></li>';
+	    $links .= '<b>'.&mt($last->{'text'}).'</b>';
 	}
-        #
+	$links .= '</li>';
         my $icons = '';
         $faq = $last->{'faq'} if (exists($last->{'faq'}));
         $bug = $last->{'bug'} if (exists($last->{'bug'}));
@@ -1383,7 +1418,13 @@ returns: nothing
 							 $faq,$bug);
 	}
         #
-        $Str1 .= $links.'</ol>';
+		
+
+		if($no_realBreadcrumb){
+        	$Str1 .= $links.'</ul>';
+		} else {
+        	$Str1 .= $links.'</ol>';		
+		}
         #
         if (defined($component)) {
             $Str .= "\n".'<table class="'.$css_class.'">'
@@ -1402,7 +1443,7 @@ returns: nothing
         # Return the @Crumbs stack to what we started with
         push(@Crumbs,$last);
         shift(@Crumbs);
-        #
+        # Return a table and after that the breadcrumb's line
         return "$Str\n$Str1";
     }
 
@@ -1505,9 +1546,9 @@ END
 }
 
 sub row_title {
+    my ($title,$css_title_class,$css_value_class) = @_;
     $row_count[0]++;
     my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
-    my ($title,$css_title_class,$css_value_class) = @_;
     $css_title_class ||= 'LC_pick_box_title';
     $css_title_class = 'class="'.$css_title_class.'"';
 
@@ -2091,15 +2132,15 @@ sub generate_menu {
                             $img->("", {
                                 class => "LC_noBorder LC_middle",
                                 src   => "/res/adm/pages/$$link{icon}",
-                                alt   => defined($$link{alttext}) ?
-                                $$link{alttext} : $$link{linktext}
+                                alt   => mt(defined($$link{alttext}) ?
+                                $$link{alttext} : $$link{linktext})
                             }), {
                             href  => $$link{url},
-                            title => $$link{linktitle}
+                            title => mt($$link{linktitle})
                             }).
-                        $a->($$link{linktext}, {
+                        $a->(mt($$link{linktext}), {
                             href  => $$link{url},
-                            title => $$link{linktitle},
+                            title => mt($$link{linktitle}),
                             class => "LC_menubuttons_link"
                             }).
                          (defined($$link{help}) ? 
@@ -2115,9 +2156,9 @@ sub generate_menu {
         # <div><h3>title</h3><ul><li>...</li>...</ul></div>
         # the category won't be added if there aren't any links
         push @categories, 
-            $div->($h3->($$category{categorytitle}, {class=>"LC_hcell"}).
+            $div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
             $ul->(join('' ,@links),  {class =>"LC_ListStyleNormal" }),
-            {class=>"LC_ContentBoxSpecial"}) if scalar(@links);
+            {class=>"LC_ContentBoxSpecial LC_400Box"}) if scalar(@links);
     }
 
     # wrap the joined @categories in another <div> (column layout)