This is one of the things ...

[lee]

... I appreciate perl for:


$dbh->do("INSERT INTO $T_ENTRIES (" .
         join(', ', map($dbh->quote_identifier($_), $cgi->param)) . ') VALUES 
(' .
         join(', ', map($dbh->quote($_), map($cgi->param($_), $cgi->param))) . 
')')
  if(scalar($cgi->param) == 111);

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/