Quote:

if ($cat_r->{Description}=~/^SUB[01]$/) {

Problem is that will only find descriptions that are exactly SUB0 or SUB1

The original logic assumed that the description would only be SUB0 or SUB1. Odds are small this sort of thing will happen, and it can be affected by trailing spaces.

I'm not sure if (^SUB[01]|SUB[01]$) would do what is expected, or if you'd have to use two different tests, which is what is usually usgested or shown as an example:

if ( ( $cat_r->{Description}=~ /^SUB[01]/ ) or ( $cat_r->{Description}=~ /SUB[01] *$/ ) ) {


is an attempt to match the begining of the line, or end of line, with any number of trailing spaces. Not tested, but it's the idea.




PUGDOG� Enterprises, Inc.

The best way to contact me is to NOT use Email.
Please leave a PM here.