Help for this page

Select Code to Download

Select or download this

sub db_execute {
    my(@return, @a, $cursor);
    unless ($VARS{connected}) {db_connect(); $VARS{connected}++;}
...
  my @row = @$_;
  ...
}