X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=robot.tcl;h=608f562c089c2d4a4593d57ccad33f0df826f866;hb=refs%2Fheads%2Fmaster;hp=73d558aad3893ad0b0b823f929247a5cb5d02dac;hpb=f637a09bc608ef42b26df53f9a1535fa3acef91b;p=tclrobot.git

diff --git a/robot.tcl b/robot.tcl
index 73d558a..608f562 100755
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh 
-# $Id: robot.tcl,v 1.45 2003/06/11 10:29:41 adam Exp $
+# $Id: robot.tcl,v 1.47 2003/12/10 09:58:22 adam Exp $
 #
 proc RobotFileNext1 {area lead} {
     # puts "RobotFileNext1 area=$area lead=$lead"
@@ -707,7 +707,7 @@ proc RobotTextHtml {task url out} {
                         set metacontent $parm($a)
                     }
                 }
-	 	unset parm($al)
+	 	unset parm($a)
             }
 	    puts $out "></meta>"
             # go through robots directives (af any)
@@ -737,7 +737,7 @@ proc RobotTextHtml {task url out} {
             set href [string trim $parm(href)]
             if {![RobotHref $task $url href host path]} continue
             set URL($task,$url,bpath) $path
-        } a {
+        } -nonest a {
             # <a href="...."> .. </a> 
             # we're not using nonest - otherwise body isn't set
             if {$nofollow} continue