--- loncom/interface/lonhtmlcommon.pm	2006/06/22 23:22:41	1.136
+++ loncom/interface/lonhtmlcommon.pm	2006/07/06 22:51:34	1.141
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.136 2006/06/22 23:22:41 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.141 2006/07/06 22:51:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -467,14 +467,14 @@ ENDJS
         $result .= &mt('[_1] [_2] [_3] ',
                        $monthselector,$dayselector,$yearselector);
         if (!$nolink) {
-            $result .= &mt('[_4]Select Date[_5]',$cal_link,'</a>');
+            $result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');
         }
     } else {
         $result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s ',
                       $monthselector,$dayselector,$yearselector,
                       $hourselector,$minuteselector,$secondselector);
         if (!$nolink) {
-            $result .= &mt('[_7]Select Date[_8]',$cal_link,'</a>');
+            $result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');
         }
     }
     $result .= "</span>\n<!-- end $dname date setting form -->\n";
@@ -1025,9 +1025,14 @@ sub crumbs {
 sub spellheader {
     my $start_page=
 	&Apache::loncommon::start_page('Speller Suggestions',undef,
-				       {'only_body' => 1,
-					'js_ready'  => 1,
-					'bgcolor'   => '#DDDDDD',});
+				       {'only_body'   => 1,
+					'js_ready'    => 1,
+					'bgcolor'     => '#DDDDDD',
+				        'add_entries' => {
+					    'onload' => 
+                                               'document.forms.spellcheckform.submit()',
+                                             }
+				        });
     my $end_page=
 	&Apache::loncommon::end_page({'js_ready'  => 1}); 
 
@@ -1037,9 +1042,10 @@ sub spellheader {
 //<!-- BEGIN LON-CAPA Internal
 var checkwin;
 
-function spellcheckerwindow() {
+function spellcheckerwindow(string) {
+    var esc_string = string.replace(/\"/g,'&quot;');
     checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
-    checkwin.document.writeln('$start_page<form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="" /><\\/form>$end_page');
+    checkwin.document.writeln('$start_page<form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="'+esc_string+'" /><\/form>$end_page');
     checkwin.document.close();
 }
 // END LON-CAPA Internal -->
@@ -1053,7 +1059,7 @@ sub spelllink {
     my ($form,$field)=@_;
     my $linktext=&mt('Check Spelling');
     return (<<ENDLINK);
-<a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { if (document.$form.onsubmit!=null) { document.$form.onsubmit();}};spellcheckerwindow();checkwin.document.forms.spellcheckform.text.value=this.document.forms.$form.$field.value;checkwin.document.forms.spellcheckform.submit();">$linktext</a>
+<a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { if (document.$form.onsubmit!=null) { document.$form.onsubmit();}};spellcheckerwindow(this.document.forms.$form.$field.value);">$linktext</a>
 ENDLINK
 }
 
@@ -1178,13 +1184,11 @@ A link to help for the component will be
 
 All inputs can be undef without problems.
 
-Inputs: $color (the background color of the table returned),
-        $component (the large text on the right side of the table),
+Inputs: $component (the large text on the right side of the table),
         $component_help
-        $function (role to get colors from)
-        $domain   (domian of role)
         $menulink (boolean, controls whether to include a link to /adm/menu)
-
+        $helplink (if 'nohelp' don't include the orange help link)
+        $css_class (optional name for the class to apply to the table for CSS)
 Returns a string containing breadcrumbs for the current page.
 
 =item clear_breadcrumbs
@@ -1209,9 +1213,10 @@ returns: nothing
     my @Crumbs;
     
     sub breadcrumbs {
-        my ($component,$component_help,$menulink,$helplink) = @_;
+        my ($component,$component_help,$menulink,$helplink,$css_class) = @_;
         #
-        my $Str = "\n".'<table id="LC_breadcrumbs"><tr><td>';
+	$css_class ||= 'LC_breadcrumbs';
+        my $Str = "\n".'<table class="'.$css_class.'"><tr><td>';
         #
         # Make the faq and bug data cascade
         my $faq = '';
@@ -1266,9 +1271,9 @@ returns: nothing
 #            $icons .= &Apache::loncommon::help_open_bug($bug);
 #        }
 	if ($helplink ne 'nohelp') {
-	    $icons .= &Apache::loncommon::help_open_menu(undef,$component,
+	    $icons .= &Apache::loncommon::help_open_menu($component,
 							 $component_help,
-							 undef,$faq,$bug);
+							 $faq,$bug);
 	}
         if ($icons ne '') {
             $Str .= $icons.'&nbsp;';
@@ -1277,7 +1282,7 @@ returns: nothing
         $Str .= $links.'</td>';
         #
         if (defined($component)) {
-            $Str .= '<td class="LC_breadcrumb_component">'.
+            $Str .= '<td class="'.$css_class.'_component">'.
                 &mt($component).'</td>';
         }
         $Str .= '</tr></table>'."\n";