summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xviewhtml5
1 files changed, 3 insertions, 2 deletions
diff --git a/viewhtml b/viewhtml
index 8297020..cdb5ee3 100755
--- a/viewhtml
+++ b/viewhtml
@@ -70,8 +70,9 @@ proc displayNode {node tagList} {
} elseif {$tag == "img"} {
$w insert end "\n"
set lattr [array get $attributes]
- set path "$baseAddress/[lindex $lattr [expr [lsearch -exact $lattr src] + 1]]"
- image create photo $path -file $path
+ set path "$baseAddress[lindex $lattr [expr [lsearch -exact $lattr src] + 1]]"
+ set localPath [lindex [split [exec ./phttp $path] { }] 2]
+ image create photo $path -file $localPath
$w image create end -image $path
$w insert end "\n"
}