Index: openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl	1 Aug 2007 21:39:31 -0000	1.4.2.2
@@ -0,0 +1,21 @@
+ad_page_contract {
+  @author Guenter Ernst guenter.ernst@wu-wien.ac.at, 
+  @author Gustaf Neumann neumann@wu-wien.ac.at
+  @creation-date 13.07.2004
+  @cvs-id $Id: insert-ilink.tcl,v 1.4.2.2 2007/08/01 21:39:31 gustafn Exp $
+} {
+  {fs_package_id:integer,optional}
+  {folder_id:integer,optional}
+  {file_types *}
+}
+ 
+set selector_type "file"
+set file_selector_link [export_vars -base file-selector \
+                            {fs_package_id folder_id selector_type file_types}]
+set fs_found 1
+
+#set user_id [ad_verify_and_get_user_id]
+#permission::require_permission -party_id $user_id -object_id $fs_package_id \
+#    -privilege "admin"
+
+ad_return_template