blob: 2dd036c4c2bdc3e470dc3a429bae805cebc568c1 (
plain) (
tree)
|
|
--- ../neowebscript/common.tcl Fri Nov 19 19:36:10 1999
+++ ../neowebscript/common.tcl Mon Sep 3 13:32:49 2001
@@ -31,7 +31,7 @@
if {[catch {mkdir -path $parallelDir$plusSubDir} result] == 1} {
if {[lrange $errorCode 0 1] != "POSIX EEXIST"} {
- error "$errorCode"
+ error "can not create $parallelDir $plusSubDir: $errorCode"
}
}
}
@@ -512 +512,7 @@
}
+
+proc emit_full_header {title} {
+ html <HTML><HEAD><TITLE>
+ html $title
+ html </TITLE><HEAD>
+}
|