drop another SQL Form table if the SQL form isn't used. Fixes bug #11061
This commit is contained in:
parent
c169a901ab
commit
0a23831f91
2 changed files with 15 additions and 0 deletions
|
|
@ -21,6 +21,7 @@
|
|||
- fixed #11059: WebGUI upgrade packages do not overwrite versions in the db
|
||||
- fixed #11064: spelling error
|
||||
- fixed #11062: subscriptionCode
|
||||
- fixed #11061: SQLForm_fieldOrder
|
||||
|
||||
7.8.0
|
||||
- upgraded YUI to 2.8.0r4
|
||||
|
|
@ -83,6 +84,7 @@
|
|||
- fixed #11008: Test::Class
|
||||
- fixed #10990: Survey: View Transposed Results not working
|
||||
- fixed #11022: Deleting user shows "TRUE" prompt
|
||||
- fixed
|
||||
|
||||
7.7.19
|
||||
- fixed #10838: Forwarded forum post email to new CS adds reply to original thread
|
||||
|
|
|
|||
|
|
@ -33,6 +33,7 @@ my $session = start(); # this line required
|
|||
fixWikis( $session );
|
||||
fixEMSTemplates( $session );
|
||||
removeOldSubscriptionTables( $session );
|
||||
removeSQLFormTables( $session );
|
||||
|
||||
finish($session); # this line required
|
||||
|
||||
|
|
@ -46,6 +47,18 @@ finish($session); # this line required
|
|||
# print "DONE!\n" unless $quiet;
|
||||
#}
|
||||
|
||||
# Describe what our function does
|
||||
sub removeSQLFormTables {
|
||||
my $session = shift;
|
||||
print "\tRemoving leftover SQL Form tables if not used... " unless $quiet;
|
||||
my $tablesUsed = $session->db->quickScalar("select count(*) from asset where className='WebGUI::Asset::Wobject::SQLForm'");
|
||||
if (!$tablesUsed) {
|
||||
$session->db->write('DROP TABLE IF EXISTS SQLForm_fieldOrder');
|
||||
print "\n\t\tSQL Form not used, dropping table...";
|
||||
}
|
||||
print "Done.\n" unless $quiet;
|
||||
}
|
||||
|
||||
# Describe what our function does
|
||||
sub removeOldSubscriptionTables {
|
||||
my $session = shift;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue