Help for this page

Select Code to Download


  1. or download this
    print 
    $q->header(),
    $q->start_html(-title=>"R3: edit ads",
           -style=>{-code=>&css()});
$q->{header_was_sent}++;
  2. or download this
    sub error {
    my (@msgs) = @_;
...
    print $q->end_html;
    exit(0);
}
  3. or download this
      my @inqs = @{$dbh_g->selectcol_arrayref($sql,undef,$adid)} or &error
+("Bad selectcol in get_inqs", $sql, $dbh_g->errstr);