From a268eead6a08151ccf39bc87cdeccca957c3fb70 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ernesto=20Hern=C3=A1ndez-Novich?= <ernesto@webgui-svn>
Date: Mon, 9 Jun 2008 15:40:53 +0000
Subject: [PATCH] Added $webguiRoot and BEGIN preamble to upgrade skeleton.

---
 docs/upgrades/_upgrade.skeleton | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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