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

a whole pile of bug fixes

Browse source
This commit is contained in:
JT Smith 2005-03-28 00:10:47 +00:00
parent 4ddc5d66ec
commit a50fd5787a
18 changed files with 234 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/upgrades/upgrade_6.2.11-6.3.0.pl
View file

@ -1616,6 +1616,7 @@ $macros->{"AssetProxy"} = "AssetProxy";
$macros->{"RandomAssetProxy"} = "RandomAssetProxy";
$macros->{"FileUrl"} = "FileUrl";
$macros->{"PageUrl"} = "PageUrl";
$macros->{"Page"} = "Page";
$conf->set("paymentPlugins"=>"ITransact");
$conf->set("macros"=>$macros);
$conf->set("assets"=>[

42
docs/upgrades/upgrade_6.5.4-6.5.5.pl Normal file
View file

@ -0,0 +1,42 @@
#!/usr/bin/perl
use lib "../../lib";
use File::Path;
use Getopt::Long;
use strict;
use WebGUI::Session;
use WebGUI::SQL;
my $configFile;
my $quiet;
GetOptions(
'configFile=s'=>\$configFile,
'quiet'=>\$quiet
);
WebGUI::Session::open("../..",$configFile);
#--------------------------------------------
print "\tPartitioning limbo\n" unless ($quiet);
my $sth = WebGUI::SQL->read("select lineage from asset where state='trash'");
while (my ($lineage) = $sth->array) {
WebGUI::SQL->write("update asset set state='trash-limbo' where lineage like ".quote($lineage.'%')." and state='limbo'");
}
$sth->finish;
WebGUI::SQL->write("update asset set state='clipboard-limbo' where state='limbo'");
#--------------------------------------------
print "\tRemoving old files\n" unless ($quiet);
# should have been removed in the 6.2-6.3 upgrade
unlink("../../sbin/Hourly/EmptyTrash.pm");
unlink("../../lib/WebGUI/Wobject/IndexedSearch.pm");
rmtree("../../lib/WebGUI/Wobject/IndexedSearch");
unlink("../../lib/WebGUI/Wobject/Product.pm");
unlink("../../lib/WebGUI/Wobject/SyndicatedContent.pm");
unlink("../../lib/WebGUI/Wobject/Survey.pm");
WebGUI::Session::close();