# file: # Copyright (c) 1996-2001 Cuesta Technologies, LLC # All rights reserved. # This document contains confidential and/or proprietary information # beloging to Cuesta Technologies, LLC. # Package: # # Purpose: # # Requires: # #set pageID PG_25 set pageID PG_S_25 cw source $cw_templatePath/templateSetup.tcl cw source $cw_templatePath/templateTop.tcl ######################## # Add your own code here #opengdb_r set sectionList1 [sectionGetChildren root] # start with the Home Page section, if desired set sectionList {root} ### 4.12.18 mes: hardcode sectionList set sectionList { GENSEC_360 GENSEC_379 GENSEC_408 GENSEC_385 GENSEC_382} ### set hardcoded list of hidden sections ### need to be displayed set hiddenList {SEC_8 SEC_20 SEC_0} # add all the other sections to the list foreach sec $sectionList1 { # do not include hidden sections if {[gethidden $sec]} { if {[lsearch $hiddenList $sec] > -1} { lappend sectionList $sec } else { continue } } elseif {[itemIsSection $sec] && [string compare root $sec]} { lappend sectionList $sec } } set fieldslist {ID Title Parent Image Menu hidden Deleted HTML Text Layout Items} set displayfieldList {Title Items} set cellNO 0 foreach field $fieldslist { if {[regexp $field $displayfieldList] } { set flag($field) 1 incr cellNO 1 } else { set flag($field) 0 } }
puts "" if { $flag(ID) } { puts "" } if { $flag(Title) } { puts "" } if { $flag(Parent) } { puts "" } if { $flag(Image) } { puts "" } if { $flag(Menu) } { puts "" } if { $flag(hidden) } { puts "" } if { $flag(Deleted) } { puts "" } if { $flag(HTML) } { puts "" } if { $flag(Text) } { puts "" } if { $flag(Layout) } { puts "" } if { $flag(Items) } { puts "" } puts "" # Get the titles for the items in section (instead of printing out # the ID foreach item $sectionList { # set children [sectionGetChildren $item] # set clist "" # foreach child $children { # if { [itemIsPage $child] || [itemIsSection $child] } { # append clist "" # append clist [getTitle $child] # append clist
# } else { # append clist [getTitle $child] # append clist
# } # } puts "" if { $flag(ID) } { puts "" } if { $flag(Title) } { puts "" } if { $flag(Parent) } { puts "" } if { $flag(Image) } { puts "" } if { $flag(Menu) } { puts "" } if { $flag(hidden) } { puts "" } if { $flag(Deleted) } { puts "" } if { $flag(HTML) } { puts "" } if { $flag(Text) } { puts "" } if { $flag(Layout) } { puts " " } if { $flag(Items) } { #puts "" ### 4.12.18 mes: using doTextMenuRollOver puts "" } puts "" }
IDSectionParentImageMenu InfoHiddenDeletedHTML fileText fileLayoutInside this Section
$item" ## display hardcoded hidden sections as title only if {[lsearch -exact $hiddenList $item] > -1} { puts "[getTitle $item]" } else { ### 4.12.18 mes: no link on Section names # puts "" puts "[getTitle $item]" } puts "[getParent $item][getImage $item][getMenuInfo $item][gethidden $item][getDeleted $item] [sectionGetHTML $item][sectionGetTxt $item][sectionGetLayout $item][displayMenu $item t][doTextMenuRollOver $item {} {} {} {} "
"]$clist
#closegdb ######################## cw source $new_cw_templatePath/templateBottom.tcl