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

more versioning bug fixes

Browse source
This commit is contained in:
JT Smith 2005-08-10 19:46:14 +00:00
parent e9f74cdc0f
commit abf4076569
5 changed files with 107 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

7
sbin/rebuildLineage.pl
View file

@ -69,9 +69,12 @@ print "Starting..." unless ($quiet);
WebGUI::Session::open($webguiRoot,$configFile);
print "OK\n" unless ($quiet);
print "Rewriting existing lineage...\n" unless ($quiet);
WebGUI::SQL->write("update asset set lineage=concat('old___',lineage)");
my ($lineage) = WebGUI::SQL->quickArray("select lineage from asset where assetId='PBasset000000000000001'");
print "Rebuilding lineage...\n" unless ($quiet);
my $oldRootLineage = WebGUI::SQL->quickArray("select lineage from asset where assetId='PBasset000000000000001'");
$oldRootLineage = sprintf("%06d",$oldRootLineage);
my ($oldRootLineage) = WebGUI::SQL->quickArray("select lineage from asset where assetId='PBasset000000000000001'");
printChange("Asset ID","Old Lineage","New Lineage");
printChange('PBasset000000000000001',$oldRootLineage,'000001');
WebGUI::SQL->write("update asset set lineage='000001' where assetId='PBasset000000000000001'");