my $Form = new CGI;
  my $Vars = $Form->Vars;

  my @Fields =  qw(short_descr class_id long_descr contact_org contact_web chapter_id contact_name contact_phone contact_email est_value other comments);

  my $InsertCmd = "insert into item (" . join (",",@Fields) . ") values(" .  join ( ",", map { "'$Vars->{ $_ }'" } @Fields ) . ")";

  $hDB->do ( $InsertCmd ) || die "DBI failed: $DBI::errstr";