1 files changed, 121 insertions, 0 deletions
diff --git a/web/cgi/alpine/1.0/querydelfldr.tcl b/web/cgi/alpine/1.0/querydelfldr.tcl
new file mode 100755
index 00000000..e0fa960a
--- /dev/null
+++ b/web/cgi/alpine/1.0/querydelfldr.tcl
@@ -0,0 +1,121 @@
+#!./tclsh
+# $Id: querydelfldr.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
+#
+# ========================================================================
+
+#  querydelfldr.tcl
+#
+#  Purpose:  CGI script to generate html form used to confirm 
+#            folder deletion
+
+#  Input:
+set fldr_vars {
+  {fid	"No Folder Specified"}
+}
+
+#  Output:
+#
+#	HTML/CSS data representing the message specified
+#	by the 'uid' argument
+
+# inherit global config
+source ./alpine.tcl
+source cmdfunc.tcl
+
+set query_menu {
+  {
+    {}
+    {
+      {
+	# * * * * HELP * * * *
+	cgi_put "Get Help"
+      }
+    }
+  }
+}
+
+WPEval $fldr_vars {
+  if {[catch {WPCmd PEFolder collections} collections]} {
+    error [list _action "Collection list" $collections]
+  }
+
+  cgi_http_head {
+    WPStdHttpHdrs
+  }
+
+  cgi_html {
+    cgi_head {
+      WPStdHtmlHdr "Confirm Delete"
+      WPStyleSheets
+    }
+
+    cgi_body BGCOLOR="$_wp(bordercolor)" {
+      cgi_form $_wp(appdir)/$_wp(ui1dir)/wp method=get name=confirm target=_top {
+	cgi_text "page=folders" type=hidden notab
+	cgi_text "fid=$fid" type=hidden notab
+	cgi_text "cid=[WPCmd PEInfo key]" type=hidden notab
+	cgi_text "frestore=1" type=hidden notab
+
+	cgi_table border=0 cellspacing=0 cellpadding=2 width="100%" height="100%" {
+	  cgi_table_row {
+	    eval {
+	      cgi_table_data $_wp(menuargs) {
+		WPTFCommandMenu query_menu {}
+	      }
+	    }
+	    
+	    cgi_table_data valign=top align=center class=dialog {
+	      cgi_table border=0 cellspacing=0 cellpadding=2 width="75%" {
+		cgi_table_row {
+		  cgi_table_data align=center {
+		    cgi_puts [cgi_nl][cgi_nl][cgi_nl][cgi_nl]
+
+		    regsub -all { } [lindex $fid end] {\&nbsp;} dfn
+
+		    cgi_puts "Please confirm that you would like to permanently remove [cgi_bold $dfn]"
+
+		    if {[llength $fid] > 2} {
+		      if {[catch {WPCmd PEFolder delimiter [lindex $fid 0]} delim]} {
+			set delim /
+		      }
+
+		      set dirname ""
+		      for {set i 1} {$i < ([llength $fid] - 1)} {incr i} {
+			append dirname "[lindex $fid $i]$delim"
+		      }
+
+		      if {[string length $dirname]} {
+			cgi_put " from the directory [cgi_bold $dirname] "
+		      }
+		    }
+		    if {[llength $collections] > 1} {
+		      cgi_put "in the collection '[lindex [lindex $collections [lindex $fid 0]] 1]'."
+		    } else {
+		      cgi_put "."
+		    }
+
+		    cgi_br
+		    cgi_br
+		    cgi_puts "Click [cgi_italic Delete] to remove the folder permanently, or [cgi_italic Cancel] to return to the Folder List."
+		    cgi_br
+		    cgi_br
+		    cgi_submit_button delete=Delete
+		    cgi_submit_button delete=Cancel
+		  }
+		}
+	      }
+	    }
+	  }
+	}
+      }
+    }
+  }
+}