[LON-CAPA-cvs] cvs: loncom /localize/localize checksimilar_2files.pl

[bisitz]

bisitz		Wed Sep 25 13:22:42 2013 EDT

  Modified files:              
    /loncom/localize/localize	checksimilar_2files.pl 
  Log:
  Also ignore brackets for better matching of similar phrases.
  
  
Index: loncom/localize/localize/checksimilar_2files.pl
diff -u loncom/localize/localize/checksimilar_2files.pl:1.6 loncom/localize/localize/checksimilar_2files.pl:1.7
--- loncom/localize/localize/checksimilar_2files.pl:1.6	Thu Jan 24 13:52:21 2013
+++ loncom/localize/localize/checksimilar_2files.pl	Wed Sep 25 13:22:42 2013
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # The LearningOnline Network with CAPA
-# $Id: checksimilar_2files.pl,v 1.6 2013/01/24 13:52:21 bisitz Exp $
+# $Id: checksimilar_2files.pl,v 1.7 2013/09/25 13:22:42 bisitz Exp $
 
 use strict;
 use warnings;
@@ -37,7 +37,7 @@
 sub similar_chars {
     my $text = shift;
     $text =~ s/\[_\d\]//g; # translation parameters
-    $text =~ s/[.,\_\-?!: \/]//g; # punctuation
+    $text =~ s/[.,\_\-?!: \/\(\)]//g; # punctuation
     return $text;
 }