oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

drop another SQL Form table if the SQL form isn't used. Fixes bug #11061

Browse source
This commit is contained in:
Colin Kuskie 2009-09-29 14:56:21 -07:00
parent c169a901ab
commit 0a23831f91
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/changelog/7.x.x.txt
View file

@ -21,6 +21,7 @@
- fixed #11059: WebGUI upgrade packages do not overwrite versions in the db - fixed #11059: WebGUI upgrade packages do not overwrite versions in the db
- fixed #11064: spelling error - fixed #11064: spelling error
- fixed #11062: subscriptionCode - fixed #11062: subscriptionCode
- fixed #11061: SQLForm_fieldOrder
7.8.0 7.8.0
- upgraded YUI to 2.8.0r4 - upgraded YUI to 2.8.0r4
@ -83,6 +84,7 @@
- fixed #11008: Test::Class - fixed #11008: Test::Class
- fixed #10990: Survey: View Transposed Results not working - fixed #10990: Survey: View Transposed Results not working
- fixed #11022: Deleting user shows "TRUE" prompt - fixed #11022: Deleting user shows "TRUE" prompt
- fixed
7.7.19 7.7.19
- fixed #10838: Forwarded forum post email to new CS adds reply to original thread - fixed #10838: Forwarded forum post email to new CS adds reply to original thread

13
docs/upgrades/upgrade_7.8.0-7.8.1.pl
View file

@ -33,6 +33,7 @@ my $session = start(); # this line required
fixWikis( $session ); fixWikis( $session );
fixEMSTemplates( $session ); fixEMSTemplates( $session );
removeOldSubscriptionTables( $session ); removeOldSubscriptionTables( $session );
removeSQLFormTables( $session );
finish($session); # this line required finish($session); # this line required
@ -46,6 +47,18 @@ finish($session); # this line required
# print "DONE!\n" unless $quiet; # 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 # Describe what our function does
sub removeOldSubscriptionTables { sub removeOldSubscriptionTables {
my $session = shift; my $session = shift;