Help for this page

Select Code to Download


  1. or download this
    # get Discontinued
my $sql = qq!SELECT DISTINCT("Discontinued") AS disc 
...
for my $row (@$dr) {
  $discs .= qq!<option value="$row->[0]">$row->[0]</option>\n!;
}
  2. or download this
    
Discontinued :<select name="discontinued"> $discs </select><br/>
  3. or download this
    DBD::Pg::db do failed: ERROR:  invalid input syntax for type boolean: 
+"" at /usr/share/perlproj/cgi-bin/editprod.pl line 44