[popfile-commit] engine/UI HTML.pm,1.210,1.211

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv16027/UI

Modified Files:
	HTML.pm 
Log Message:
Allow lookup of pseudowords

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.210
retrieving revision 1.211
diff -C2 -d -r1.210 -r1.211
*** HTML.pm	6 Oct 2003 14:24:41 -0000	1.210
--- HTML.pm	9 Oct 2003 18:32:51 -0000	1.211
***************
*** 2271,2275 ****
          my $word = $self->{form_}{word};
  
!         if ( !( $word =~ /^header:/ ) ) {
             $word = $self->{classifier__}->{mangler__}->mangle($word, 1);
          }
--- 2271,2275 ----
          my $word = $self->{form_}{word};
  
!         if ( !( $word =~ /^[A-Za-z0-9\-_]+:/ ) ) {
             $word = $self->{classifier__}->{mangler__}->mangle($word, 1);
          }