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

Added $webguiRoot and BEGIN preamble to upgrade skeleton.

Browse source
This commit is contained in:
Ernesto Hernández-Novich 2008-06-09 15:40:53 +00:00
parent a338e75d41
commit a268eead6a
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
docs/upgrades/_upgrade.skeleton
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "../..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -64,7 +70,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});