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

forward upgrade script work for fixing broken assets sizes for Image, File

Browse source
This commit is contained in:
Colin Kuskie 2007-06-19 22:56:58 +00:00
parent 8ced11c8ab
commit 67b92500cc
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
docs/upgrades/upgrade_7.3.18-7.3.19.pl
View file

@ -12,6 +12,7 @@ use lib "../../lib";
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Asset;
my $toVersion = "7.3.19"; # make this match what version you're going to my $toVersion = "7.3.19"; # make this match what version you're going to
@ -21,16 +22,21 @@ my $quiet; # this line required
my $session = start(); # this line required my $session = start(); # this line required
# upgrade functions go here # upgrade functions go here
fixAssetSizes($session);
finish($session); # this line required finish($session); # this line required
##------------------------------------------------- #-------------------------------------------------
#sub exampleFunction { sub fixAssetSizes {
# my $session = shift; my $session = shift;
# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); print "\tFix the sizes of ALL Image and Size assets. This will take a while.\n" unless ($quiet);
# # and here's our code my $root = WebGUI::Asset->getRoot($session);
#} foreach my $fileAsset ( @{ $root->getLineage(["self","descendants"],{returnObjects=>1,includeOnlyClasses=>['WebGUI::Asset::File','WebGUI::Asset::Image']}) } ) {
$fileAsset->setSize();
}
# and here's our code
}