linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't add objects which have privilege=internal to the hdb tree.

Browse Source 
r2222 | ffr | 2007-11-05 13:14:25 +1100 (Mon, 05 Nov 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-11-05 13:14:25 +11:00
committed by Douglas Clowes
parent 9b6fb6ac77
commit 05c5b5ee12
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl
View File

@@ -300,7 +300,10 @@ proc ::hdb::sobjadd {hpath sobj args} {
if {[lsearch [hlist $hpath] $sobjatt(long_name)] != -1} { if {[lsearch [hlist $hpath] $sobjatt(long_name)] != -1} {
clientput "ERROR: $hpath/$sobjatt(long_name) for $sobj exists" error clientput "ERROR: $hpath/$sobjatt(long_name) for $sobj exists" error
} else { } else {
add_node $hpath kind $sobjatt(kind) node $sobj priv $sobjatt(privilege) set node_path [add_node $hpath kind $sobjatt(kind) node $sobj priv $sobjatt(privilege) ]
if [info exists sobjatt(mutable)] {
if {[catch {hsetprop $node_path mutable $sobjatt(mutable)} err]} {clientput $err error}
}
} }
} }
sicsvariable { sicsvariable {
@@ -386,9 +389,13 @@ proc ::hdb::sobjadd {hpath sobj args} {
# @see sobjadd # @see sobjadd
proc ::hdb::sobjtypeadd {hpath sobjtype given_klass} { proc ::hdb::sobjtypeadd {hpath sobjtype given_klass} {
foreach {sobj} [sobjlist $sobjtype $given_klass] { foreach {sobj} [sobjlist $sobjtype $given_klass] {
array unset sobjatt
array set sobjatt [attlist $sobj]
if {[info exists sobjatt(privilege)] && $sobjatt(privilege) != "internal"} {
sobjadd $hpath $sobj sobjadd $hpath $sobj
} }
} }
}
## ##