various fixes to EMS Submissin system

This commit is contained in:
daviddelikat 2009-11-22 20:32:17 -06:00
parent 31fb0886bc
commit e0b87268c5
8 changed files with 28 additions and 33 deletions

View file

@ -35,6 +35,22 @@ my $session = start(); # this line required
finish($session); # this line required
#----------------------------------------------------------------------------
# Describe what our function does
sub deleteFieldFromEMSSubmission {
my $session = shift;
print "\tDrop collumn from EMS Submission Table... " unless $quiet;
my $db = $session->db;
$db->write(<<ENDSQL);
ALTER TABLE EMSSubmission
DROP COLUMN sendEmailOnChange;
ENDSQL
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
# Describe what our function does
#sub exampleFunction {