#!/usr/bin/tclsh
-# $Id: robot.tcl,v 1.46 2003/09/18 07:41:25 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"
set metacontent $parm($a)
}
}
- unset parm($al)
+ unset parm($a)
}
puts $out "></meta>"
# go through robots directives (af any)