[- $args = shift @param; $theme = $args->{theme}; @suggestions = split(/:+/, &EMU::get_var('suggestions')); $current_word = &EMU::get_var('bad_word'); $the_message = &EMU::get_var('the_message'); $the_message =~ s/\n//g; $the_message =~ s/<.*?>//g -] [+ $EMU::c{publisher_name} +] - Spell Check [# Open Header #] [- &Execute("$args->{DOCROOT}/header.html", $args) -] [# Close Header #]
 
[# Open Toolbar #] [- &Execute("$args->{DOCROOT}/toolbar.html", $args) -] [# Close Toolbar #]
Spell Check
[$ if (&EMU::get_status()) $]
[+ &EMU::get_status() +]
 
[$ endif $]
Select a word from the Suggestion List or type your own word in the space provided, then press "Replace."
 
 Unknown Word:   [+ $current_word +] 
Suggested Replacements:  
Edit Replacement:  
       
 
[+ $the_message +]