Check-in [0844204408]
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
84
85
86
87
88
89





90
91
92
93

94
95
96
97
98
99
100
					set currpkginfo(name) $name
					set currpkginfo(vers) $vers
				}
				"META" {
					set var [string tolower [lindex $line 1]]
					set val [lrange $line 2 end]






					lappend currpkginfo($var) $val
				}
			}
		}


		set pkginfo([list $currpkginfo(name) $currpkginfo(vers) $currpkginfo(platform)]) [array get currpkginfo]
	}

	return [array get pkginfo]
}








>
>
>
>
>




>







83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
					set currpkginfo(name) $name
					set currpkginfo(vers) $vers
				}
				"META" {
					set var [string tolower [lindex $line 1]]
					set val [lrange $line 2 end]

					if {![info exists currpkginfo($var)]} {
						set currpkginfo($var) ""
					}

					if {[lsearch -exact $currpkginfo($var) $val] == -1} {
					lappend currpkginfo($var) $val
				}
			}
		}
		}

		set pkginfo([list $currpkginfo(name) $currpkginfo(vers) $currpkginfo(platform)]) [array get currpkginfo]
	}

	return [array get pkginfo]
}