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:
Ferdi Franceschini
2010-05-23 15:12:59 +10:00
committed by Douglas Clowes
parent 88eefb0064
commit b1bfbb08b5
4 changed files with 8 additions and 1 deletions

View File

@@ -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 {