Minor fix for anchor references.

diff --git a/robot.tcl b/robot.tcl
index bad9a25..9b672cd 100755 (executable)
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh 
-# $Id: robot.tcl,v 1.11 2001/01/23 11:26:43 adam Exp $
+# $Id: robot.tcl,v 1.12 2001/01/23 14:28:41 adam Exp $
 #
 proc RobotFileNext1 {area lead} {
     puts "RobotFileNext1 area=$area lead=$lead"
@@ -281,16 +281,18 @@ proc RobotHref {url hrefx hostx pathx} {
        if {![string length $surl]} {
            set surl /
        }
-       set ok 0
-       foreach domain $domains {
-           if {[string match $domain $host]} {
-               set ok 1
-               break
+        if {[info exist domains]} {
+           set ok 0
+           foreach domain $domains {
+               if {[string match $domain $host]} {
+                   set ok 1
+                   break
+                }
            }
-       }
-       if {!$ok} {
-           return 0
-       }
+           if {!$ok} {
+               return 0
+           }
+        }
     } else {
        regexp {^([^\#]*)} $hpath x surl
        set host $URL($url,hostport)
@@ -429,7 +431,7 @@ proc RobotTextHtml {url out} {
            puts $out "<documentcontent>"
             puts $out $nbody
             puts $out "</documentcontent>"
-        } a {
+        } -nonest a {
             if {![info exists parm(href)]} {
                puts "no href"
                continue