Changeset 4735 for trunk/bbc/collect/bbc/perllib

Timestamp:

2003-06-19T14:53:15+12:00 (21 years ago)

Author:

sjboddie

Message:

* empty log message *

Location:

trunk/bbc/collect/bbc/perllib

Files:

• bbcotherbuildproc.pm (modified) (1 diff)
• bfibuildproc.pm (modified) (1 diff)
• nsabuildproc.pm (modified) (1 diff)

trunk/bbc/collect/bbc/perllib/bbcotherbuildproc.pm

@@ -53 +53 @@
     my $self = shift (@_);
 
-    if ($self->{'indexing_text'} && ($_[0] eq "ProgNumber" || $_[0] eq "zzabn" )) {
+    if ($self->{'indexing_text'} && $_[0] eq "ProgNumber") {
     $_[1] =~ s/[^\w]//g;
     }

trunk/bbc/collect/bbc/perllib/bfibuildproc.pm

@@ -53 +53 @@
     my $self = shift (@_);
 
-    if ($self->{'indexing_text'} && ($_[0] eq "ProgNumber" || $_[0] eq "zzabn" )) {
+    if ($self->{'indexing_text'} && $_[0] eq "ProgNumber") {
     $_[1] =~ s/[^\w]//g;
     }

trunk/bbc/collect/bbc/perllib/nsabuildproc.pm

@@ -53 +53 @@
     my $self = shift (@_);
 
-    if ($self->{'indexing_text'} && ($_[0] eq "ProgNumber" || $_[0] eq "zzabn" )) {
+    if ($self->{'indexing_text'} && $_[0] eq "ProgNumber") {
     $_[1] =~ s/[^\w]//g;
     }