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

Moved Survey test upgrade to 7.7.6-7.7.7 upgrade script

Browse source
This commit is contained in:
Patrick Donelan 2009-05-15 23:42:10 +00:00
parent bece623b8f
commit 2bde3dc02c
7 changed files with 27 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -2452,7 +2452,7 @@ sub www_editTestSuite {
my $testsFound = 0;
my $tests = '<table class="content"><tr><th></th><th>' . $i18n->get('test name') . '</th></tr><tbody class="tableData">';
my $getATest = WebGUI::Asset::Wobject::Survey::Test->getAllIterator($session);
my $getATest = WebGUI::Asset::Wobject::Survey::Test->getAllIterator($session, { sequenceKeyValue => $self->getId } );
my $icon = $session->icon;
while (my $test = $getATest->()) {
$testsFound++;

6
lib/WebGUI/Asset/Wobject/Survey/Test.pm
View file

@ -50,7 +50,7 @@ Identifies the Survey instance.
A name for the test
=head4 spec
=head4 test
The test spec
@ -74,7 +74,7 @@ sub crud_definition {
hoverHelp => $i18n->get( 'test name help', 'Asset_Survey' ),
defaultValue => '',
};
$properties->{spec} = {
$properties->{test} = {
fieldType => 'codearea',
label => $i18n->get( 'test spec', 'Asset_Survey' ),
hoverHelp => $i18n->get( 'test spec help', 'Asset_Survey' ),
@ -104,7 +104,7 @@ sub run {
return { tap => 'Bail Out! enableSurveyExpressionEngine config option disabled' };
}
my $spec = $self->get('spec')
my $spec = $self->get('test')
or return { tap => "Bail Out! Test spec undefined" };
eval {