1 files changed, 70 insertions, 0 deletions
diff --git a/web/cgi/alpine/1.0/fr_seldate.tcl b/web/cgi/alpine/1.0/fr_seldate.tcl
new file mode 100755
index 00000000..99f0a933
--- /dev/null
+++ b/web/cgi/alpine/1.0/fr_seldate.tcl
@@ -0,0 +1,70 @@
+# $Id: fr_seldate.tcl 1204 2009-02-02 19:54:23Z hubert@u.washington.edu $
+# ========================================================================
+# Copyright 2006 University of Washington
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# ========================================================================
+
+#  fr_seldate.tcl
+#
+#  Purpose:  CGI script to generate frame set for selecting by date
+#	     in webpine-lite pages.  the idea is that this
+#            page specifies a frameset that loads a "header" page 
+#            used to keep the servlet alive via
+#            periodic reloads and a "body" page containing static/form
+#            elements that can't/needn't be periodically reloaded or
+#            is blocked on user input.
+
+#  Input:
+set frame_vars {
+  {uid		""	0}
+}
+
+#  Output:
+#
+
+## read vars
+foreach item $frame_vars {
+  if {[catch {cgi_import [lindex $item 0].x}]} {
+    if {[catch {eval WPImport $item} errstr]} {
+      error [list _action "Impart Variable" $errstr]
+    }
+  } else {
+    set [lindex $item 0] 1
+  }
+}
+
+cgi_http_head {
+  WPStdHttpHdrs
+}
+
+cgi_html {
+  cgi_head {
+  }
+
+  cgi_frameset "rows=$_wp(titleheight),*" resize=yes border=0 frameborder=0 framespacing=0 {
+
+    set parms ""
+    if {[info exists frame_vars]} {
+      foreach v $frame_vars {
+	if {[string length [subst $[lindex $v 0]]]} {
+	  if {[string length $parms]} {
+	    append parms "&"
+	  } else {
+	    append parms "?"
+	  }
+
+	  append parms "[lindex $v 0]=[subst $[lindex $v 0]]"
+	}
+      }
+    }
+
+    cgi_frame subhdr=header.tcl?title=101
+    cgi_frame subbody=seldate.tcl${parms}
+  }
+}