my $var;
  if ($new eq "charter") { $var = "c"; } elsif ($new eq "sales") { $var = "s"; }
  my $sth = $dbh->prepare("INSERT INTO $new (active) VALUES (0)");
 #line 192
 $sth->execute;