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

oops forgot to add this file for frank

Browse source
This commit is contained in:
JT Smith 2003-06-24 20:13:45 +00:00
parent be95534057
commit 5257488285
1 changed files with 45 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

45
docs/upgrades/upgrade_5.3.3-5.4.0.pl Normal file
View file

@ -0,0 +1,45 @@
#!/usr/bin/perl
use lib "../../lib";
use Getopt::Long;
use Parse::PlainConfig;
use strict;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
use WebGUI::Utility;
my $configFile;
my $quiet;
GetOptions(
'configFile=s'=>\$configFile,
'quiet'=>\$quiet
);
#print "\tUpdating config file.\n" unless ($quiet);
my $pathToConfig = '../../etc/'.$configFile;
WebGUI::Session::open("../..",$configFile);
print "\tAdding new columns to wobject.\n" unless ($quiet);
#Add new columns
WebGUI::SQL->write("alter table wobject add ownerId Integer Not Null Default 0");
WebGUI::SQL->write("alter table wobject add groupIdEdit Integer Not Null Default 3");
WebGUI::SQL->write("alter table wobject add groupIdView Integer Not Null Default 3");
print "\tUpdating Wobject Privileges.\n" unless ($quiet);
#setting wobject privileges to page privileges
my $page;
my $wobject;
my $sth = WebGUI::SQL->read("select * from page");
while($page = $sth->hashRef){
my $sth2 = WebGUI::SQL->read("select * from wobject where pageId=".$page->{pageId});
while($wobject = $sth2->hashRef){
WebGUI::SQL->write("update wobject set ownerId=".$page->{ownerId}.", groupIdEdit=".$page->{groupIdEdit}.", groupIdView=".$page->{groupIdView}." where wobjectId=".$wobject->{wobjectId});
}
}
WebGUI::Session::close();