loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

-version 1.16, 2003/09/29 13:24:49
+version 1.17, 2003/10/02 17:35:57
  Line 280  sub get_language_handle {
  ###    setlocale(LC_ALL,&current_locale);
  }
+ # ==================== Normalize string (reduce fragility in the lexicon files)
+ # This normalizes a string to reduce fragility in the lexicon files of
+ # huge messages (such as are used by the helper), and allow useful
+ # formatting: reduce all consecutive whitespace to a single space,
+ # and remove all HTML
+ sub normalize_string {
+     my $s = shift;
+     $s =~ s/\s+/ /g;
+     $s =~ s/<[^>]+>//g;
+     return $s;
+ }
 ;
  __END__