Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
awit-frameworks
awit-perl-toolkit
Commits
df782aa7
Commit
df782aa7
authored
Sep 23, 2017
by
Nigel Kukard
Browse files
Merge branch 'nkwork3' into 'master'
Small syntax cleanup See merge request
!23
parents
39c4e39d
f4ca7570
Pipeline
#1931
passed with stages
in 1 minute and 19 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
lib/AWITPT/DataObj.pm
View file @
df782aa7
...
...
@@ -487,7 +487,7 @@ sub set
}
# Check if we should insted do a load if we're have DATAOBJ_LOADONIDSET and we're an ID property
if
(
$self
->
{'
_options
'}
&
DATAOBJ_LOADONIDSET
&&
$property
->
{'
options
'}
&
DATAOBJ_PROPERTY_ID
==
DATAOBJ_PROPERTY_ID
)
{
if
(
$self
->
{'
_options
'}
&
DATAOBJ_LOADONIDSET
&&
(
$property
->
{'
options
'}
&
DATAOBJ_PROPERTY_ID
)
==
DATAOBJ_PROPERTY_ID
)
{
# As this is a object set to load when set, and set as a ID
if
(
!
defined
(
$self
->
load
(
$property
->
{'
name
'}
=>
$value
)))
{
return
;
...
...
@@ -1216,7 +1216,7 @@ sub _init
# Process options if we have any
if
(
defined
(
my
$options
=
$propertyConfig
->
{'
options
'}))
{
# Check if this is an ID property, if it is, set the internal attribute
if
(
$options
&
DATAOBJ_PROPERTY_ID
==
DATAOBJ_PROPERTY_ID
)
{
if
(
(
$options
&
DATAOBJ_PROPERTY_ID
)
==
DATAOBJ_PROPERTY_ID
)
{
if
(
defined
(
$self
->
{'
_property_id
'}))
{
$self
->
_log
(
DATAOBJ_LOG_ERROR
,
"
Multiple properties with DATAOBJ_PROPERTY_ID set, ignoring for property '%s'
",
$propertyName
);
...
...
@@ -1546,7 +1546,9 @@ sub _propertiesWithout
my
(
$self
,
$option
)
=
@_
;
return
$self
->
_properties
(
DATAOBJ_PROPERTY_ALL
&~
$option
);
my
$mask
=
DATAOBJ_PROPERTY_ALL
&~
$option
;
return
$self
->
_properties
(
$mask
);
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment