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

fixed #9047: Unable to reorder DataForm tabs

Browse source
This commit is contained in:
Graham Knop 2008-11-06 23:39:26 +00:00
parent 7bc8ecd628
commit 78dbd7f5fd
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -1383,7 +1383,7 @@ sub www_moveFieldDown {
unless $self->canEdit;
my $newSelf = $self->addRevision;
my $fieldName = $self->session->form->process('fieldName');
$self->moveFieldDown($fieldName);
$newSelf->moveFieldDown($fieldName);
WebGUI::VersionTag->autoCommitWorkingIfEnabled($self->session);
return $newSelf->www_view;
}
@ -1417,7 +1417,7 @@ sub www_moveFieldUp {
unless $self->canEdit;
my $newSelf = $self->addRevision;
my $fieldName = $self->session->form->process('fieldName');
$self->moveFieldUp($fieldName);
$newSelf->moveFieldUp($fieldName);
WebGUI::VersionTag->autoCommitWorkingIfEnabled($self->session);
return $newSelf->www_view;
}
@ -1452,7 +1452,7 @@ sub www_moveTabRight {
unless $self->canEdit;
my $newSelf = $self->addRevision;
my $tabId = $self->session->form->process('tabId');
$self->moveTabRight($tabId);
$newSelf->moveTabRight($tabId);
WebGUI::VersionTag->autoCommitWorkingIfEnabled($self->session);
return $newSelf->www_view;
}
@ -1470,7 +1470,7 @@ sub moveTabRight {
my $newPos = $currentPos + 1;
if ($newPos < @$tabOrder) {
splice @$tabOrder, $newPos, 0, splice(@$tabOrder, $currentPos, 1);
$self->_saveFieldConfig;
$self->_saveTabConfig;
}
return 1;
}
@ -1482,7 +1482,7 @@ sub www_moveTabLeft {
unless $self->canEdit;
my $newSelf = $self->addRevision;
my $tabId = $self->session->form->process('tabId');
$self->moveTabLeft($tabId);
$newSelf->moveTabLeft($tabId);
WebGUI::VersionTag->autoCommitWorkingIfEnabled($self->session);
return $newSelf->www_view;
}
@ -1500,7 +1500,8 @@ sub moveTabLeft {
my $newPos = $currentPos - 1;
if ($newPos >= 0) {
splice @$tabOrder, $newPos, 0, splice(@$tabOrder, $currentPos, 1);
$self->_saveFieldConfig;
$self->_saveTabConfig;
}
return 1;
}