sub qsearch {
my($table, $record, $select, $extra_sql ) = @_;
- $table =~ /^([\w\_])+$/ or die "Illegal table: $table";
+ $table =~ /^([\w\_]+)$/ or die "Illegal table: $table";
$table = $1;
$select ||= '*';
my $dbh = dbh;
=head1 VERSION
-$Id: Record.pm,v 1.15 2001-05-07 15:36:04 ivan Exp $
+$Id: Record.pm,v 1.16 2001-05-07 15:42:02 ivan Exp $
=head1 BUGS