Overview
Comment: | Updated teapot_index to remove duplicate requirements from built index page |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 084420440801135d2191fdb7ac0c84fd83f7eae5 |
User & Date: | rkeene on 2010-10-09 15:48:30 |
Other Links: | manifest | tags |
Context
2010-10-17
| ||
12:54 | Added TclPCKS11 build script Reworked build script for Tcl to install Tcl and set TCLCONFIGDIR to installed location check-in: b759ce7ece user: rkeene tags: trunk | |
2010-10-09
| ||
15:48 | Updated teapot_index to remove duplicate requirements from built index page check-in: 0844204408 user: rkeene tags: trunk | |
15:32 | Updated to not emit duplicate requirements check-in: 256ae2708d user: rkeene tags: trunk | |
Changes
Modified server/teapot_index from [833e43f77d] to [aa6092043f].
83 83 set currpkginfo(name) $name 84 84 set currpkginfo(vers) $vers 85 85 } 86 86 "META" { 87 87 set var [string tolower [lindex $line 1]] 88 88 set val [lrange $line 2 end] 89 89 90 - lappend currpkginfo($var) $val 90 + if {![info exists currpkginfo($var)]} { 91 + set currpkginfo($var) "" 92 + } 93 + 94 + if {[lsearch -exact $currpkginfo($var) $val] == -1} { 95 + lappend currpkginfo($var) $val 96 + } 91 97 } 92 98 } 93 99 } 94 100 95 101 set pkginfo([list $currpkginfo(name) $currpkginfo(vers) $currpkginfo(platform)]) [array get currpkginfo] 96 102 } 97 103