Check-in [eb52173aaa]
Overview
Comment:Corrected issue where package name was not considered when looking up package
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:eb52173aaa3bc63191786b2161670d0800132b5b
User & Date: rkeene on 2014-11-12 08:36:04
Other Links: manifest | tags
Context
2014-11-12
15:23
Updated to fetch/update host index before fetching manifest check-in: d6262bea99 user: rkeene tags: trunk
08:36
Corrected issue where package name was not considered when looking up package check-in: eb52173aaa user: rkeene tags: trunk
05:54
Updated to call Tcl_Preserve/Tcl_Release as appropriate check-in: d9f1a05711 user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [d81f339499] to [5efeea4271].

   449    449   						set retval(_type) os-cpu
   450    450   
   451    451   						if {$pathlen > 3} {
   452    452   							set retval(version) [lindex $path 3]
   453    453   							set retval(_children) files
   454    454   							set retval(_type) versions
   455    455   
   456         -							set retval(package_sha1) [::appfs::db onecolumn {SELECT sha1 FROM packages WHERE hostname = $retval(hostname) AND os = $retval(os) AND cpuArch = $retval(cpu) AND version = $retval(version);}]
          456  +							set retval(package_sha1) [::appfs::db onecolumn {SELECT sha1 FROM packages WHERE hostname = $retval(hostname) AND package = $retval(package) AND os = $retval(os) AND cpuArch = $retval(cpu) AND version = $retval(version);}]
   457    457   							if {$retval(package_sha1) == ""} {
   458    458   								set retval(_children) dead
   459    459   								return [array get retval]
   460    460   							}
   461    461   
   462    462   							if {$pathlen > 4} {
   463    463   								set retval(_type) files