SICS-309 nxscript_common_1.tcl
The savetree function now checks to see if an hdb node has a "permlink" property set when making data links SICS-309 quokka parameters.tcl, sct_velsel.tcl r2933 | ffr | 2010-05-23 15:12:59 +1000 (Sun, 23 May 2010) | 4 lines
This commit is contained in:
committed by
Douglas Clowes
parent
88eefb0064
commit
b1bfbb08b5
@@ -580,6 +580,9 @@ proc ::nexus::savetree {hpath pt filestatus} {
|
||||
if {[info exists p_arr(link)] && ($p_arr(link) != "@none")} {
|
||||
nxscript makelink $p_arr(link) $p_arr(nxalias)
|
||||
}
|
||||
if {[info exists p_arr(permlink)] && ($p_arr(permlink) != "@none")} {
|
||||
nxscript makelink $p_arr(permlink) $p_arr(nxalias)
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -1247,7 +1250,7 @@ set nx_content_release_tag [lindex $tmpstr [expr [llength $tmpstr] - 1]]
|
||||
sics_release $nx_content_release_tag
|
||||
sics_release lock
|
||||
|
||||
set tmpstr [string map {"$" ""} {$Revision: 1.51.2.12 $}]
|
||||
set tmpstr [string map {"$" ""} {$Revision: 1.51.2.13 $}]
|
||||
set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
|
||||
|
||||
#namespace eval data {
|
||||
|
||||
Reference in New Issue
Block a user