--- loncom/interface/spellcheck.pm 2012/08/27 11:09:56 1.2 +++ loncom/interface/spellcheck.pm 2012/09/04 10:46:05 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: spellcheck.pm,v 1.2 2012/08/27 11:09:56 foxr Exp $ +# $Id: spellcheck.pm,v 1.3 2012/09/04 10:46:05 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,7 +76,7 @@ sub spell_check { # Turn the words into an array: - my @word_list = split(/\s+/, $words); + my @word_list = split(/\+/, $words); my @mis_spelled; foreach my $word (@word_list) {