added thingyrecord per-field price to right upgrade

This commit is contained in:
Doug Bell 2009-07-15 05:00:23 +00:00
parent 47c6aaa994
commit 40fcbb5fa9
3 changed files with 16 additions and 17 deletions

View file

@ -7,6 +7,7 @@
- fixed #10633: GET requests in Operation/User require valid CSRF token.
- fixed #10621: ThingRecord needs an Asset Icon
- fixed #10638: Paste from Admin Bar broken
- fixed per-field prices in ThingyRecord
7.7.14
- fixed #10606: shelf selector

View file

@ -27,8 +27,6 @@ use WebGUI::Asset;
my $toVersion = '7.7.14';
my $quiet; # this line required
addFieldPriceToThingyRecord( $session );
my $session = start(); # this line required
# upgrade functions go here
@ -46,21 +44,6 @@ finish($session); # this line required
#}
#----------------------------------------------------------------------------
# Add the field price storage to ThingyRecord
sub addFieldPriceToThingyRecord {
my $session = shift;
print "\tAdd field prices to ThingyRecord... " unless $quiet;
$session->db->write(
"ALTER TABLE ThingyRecord ADD COLUMN fieldPrice LONGTEXT",
);
print "DONE!\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
#----------------------------------------------------------------------------

View file

@ -32,6 +32,7 @@ my $session = start(); # this line required
# upgrade functions go here
replacePayPalDriver($session);
addFieldPriceToThingyRecord( $session );
finish($session); # this line required
@ -45,6 +46,20 @@ finish($session); # this line required
# print "DONE!\n" unless $quiet;
#}
#----------------------------------------------------------------------------
# Add the field price storage to ThingyRecord
sub addFieldPriceToThingyRecord {
my $session = shift;
print "\tAdd field prices to ThingyRecord... " unless $quiet;
$session->db->write(
"ALTER TABLE ThingyRecord ADD COLUMN fieldPrice LONGTEXT",
);
print "DONE!\n" unless $quiet;
}
sub replacePayPalDriver {
my $session = shift;
my $config = $session->config;