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

moving into sub folders

Browse source
This commit is contained in:
JT Smith 2006-01-16 17:29:45 +00:00
parent 175871d7b7
commit dc74b0da8d
6 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/FormGetName.t → t/Form/GetName.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Form::FieldType; use WebGUI::Form::FieldType;
use WebGUI::Form::DynamicField; use WebGUI::Form::DynamicField;
@ -67,7 +67,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

4
t/FormListEquiv.t → t/Form/ListEquiv.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Form::DynamicField; use WebGUI::Form::DynamicField;
use WebGUI::Form::SelectList; use WebGUI::Form::SelectList;
@ -435,7 +435,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

4
t/help_compiled.t → t/Help/compiled.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Operation::Help; use WebGUI::Operation::Help;
@ -54,7 +54,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
return WebGUI::Session->open("..",$configFile); return WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

4
t/help_related.t → t/Help/related.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Operation::Help; use WebGUI::Operation::Help;
@ -76,7 +76,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
return WebGUI::Session->open("..",$configFile); return WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

4
t/help_toc.t → t/Help/toc.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Operation::Help; use WebGUI::Operation::Help;
@ -52,7 +52,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
return WebGUI::Session->open("..",$configFile); return WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

12
t/i18n.t → t/i18n/label.t
View file

@ -1,5 +1,5 @@
#------------------------------------------------------------------- #-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation. # WebGUI is Copyright 2001-2006 Plain Black Corporation.
#------------------------------------------------------------------- #-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license # Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using # (docs/license.txt) that came with this distribution before using
@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Text::Balanced qw(extract_codeblock); use Text::Balanced qw(extract_codeblock);
use Getopt::Long; use Getopt::Long;
use WebGUI::Operation::Help; use WebGUI::Operation::Help;
@ -75,10 +75,10 @@ diag("Getting Help labels");
#@sqlLabels = getSQLLabels(); #@sqlLabels = getSQLLabels();
diag("Getting subroutine labels"); diag("Getting subroutine labels");
find(\&label_finder_pm, '../lib/'); find(\&label_finder_pm, '../../lib/');
diag("Getting object labels"); diag("Getting object labels");
find(\&obj_finder_pm, '../lib/'); find(\&obj_finder_pm, '../../lib/');
diag ("Checking ". scalar(@helpLabels). " help labels"); diag ("Checking ". scalar(@helpLabels). " help labels");
#diag ("Checking ". scalar(@sqlLabels). " SQL labels"); #diag ("Checking ". scalar(@sqlLabels). " SQL labels");
@ -213,7 +213,7 @@ sub getHelpLabels {
sub getSQLLabels { sub getSQLLabels {
my @sqlLabels = (); my @sqlLabels = ();
foreach my $file (qw/create.sql previousVersion.sql/) { foreach my $file (qw/create.sql previousVersion.sql/) {
my $file2 = join '/', '..', 'docs', $file; my $file2 = join '/', '../..', 'docs', $file;
open my $fh, $file2 or open my $fh, $file2 or
die "Unable to open $file2: $!\n"; die "Unable to open $file2: $!\n";
local $/; local $/;
@ -243,7 +243,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
return WebGUI::Session->open("..",$configFile); return WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {