Changeset 1405

Timestamp:

2000-08-16T11:47:48+12:00 (24 years ago)

Author:

say1

Message:

fixed acronym bugs

File:

• trunk/gsdl/perllib/acronym.pm (modified) (3 diffs)

trunk/gsdl/perllib/acronym.pm

@@ -144 +144 @@
     print STDERR "evaluated file $acronym_options_file...\n";
     }
-    
-    
+
     $max_offset = $local_max_offset;
     $upper_case = $local_upper_case;
@@ -156 +155 @@
     @stop_words = @local_stop_words;
     
-$local_acronym_accumulate_file = $local_acronym_accumulate_file;
-    
+    $local_acronym_accumulate_file = $local_acronym_accumulate_file;
+    
+
     &read_all_acronyms_from_file();
 #    rename $acronym_file, $acronym_file . "." . int(rand (2<<7)). 
@@ -568 +568 @@
     my $processed_text =  shift @_;
     $$processed_text =~ s/<[^>]*>/ /g;
-    $$processed_text =~ s/[^\w]/ /g;
+    $$processed_text =~ s/\W/ /g;
     $$processed_text =~ s/[0-9_]/ /g;
     $$processed_text =~ s/\s+/ /g;
     $$processed_text =~ s/(\n|\>)References.*/ /i;
     $$processed_text =~ s/(\n|\>)Bibliography.*/ /i;
+    $$processed_text =~ s/(\n|\>)(Cited Works?).*/ /i;
+    $$processed_text =~ s/(\n|\>)(Works? Cited).*/ /i;
 
     #clear some global variables