Index: openacs-4/packages/attachments/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/attachments/www/simple-add.tcl	17 May 2003 10:13:02 -0000	1.7
+++ openacs-4/packages/attachments/www/simple-add.tcl	25 Feb 2004 18:01:38 -0000	1.8
@@ -1,47 +1,46 @@
-ad_page_contract {
-    page to add a new nonversioned object to the system
-
-    @author Ben Adida (ben@openforce.net)    
-    @author arjun (arjun@openforce.net)
-    @creation-date 01 April 2002
-    @cvs-id $Id$
-} {
-    folder_id:integer,notnull
-    object_id:integer,notnull
-    return_url:notnull
-    pretty_object_name:notnull
-    {type "fs_url"}
-    {title ""}
-    {lock_title_p 0}
-} -validate {
-    valid_folder -requires {folder_id:integer} {
-	if ![fs_folder_p $folder_id] {
-	    ad_complain "[_ attachments.lt_The_specified_parent_]"
-	}
-    }
-} -properties {
-    folder_id:onevalue
-    context:onevalue
-}
-
-# check for write permission on the folder
-
-ad_require_permission $folder_id write
-
-# set templating datasources
-
-set pretty_name [fs::simple_get_type_pretty_name -type $type]
-if {[empty_string_p $pretty_name]} {
-    return -code error "[_ attachments.No_such_type]"
-}
-
-set context [list [_ attachments.Attach_URL]]
-set fs_context_bar [fs_context_bar_list -final "[_ attachments.Add_pretty_name]" $folder_id]
-
-# Should probably generate the item_id and version_id now for
-# double-click protection
-
-# if title isn't passed in ignore lock_title_p
-if {[empty_string_p $title]} {
-    set lock_title_p 0
-}
+ad_page_contract {
+    page to add a new nonversioned object to the system
+
+    @author Ben Adida (ben@openforce.net)
+    @author arjun (arjun@openforce.net)
+    @creation-date 01 April 2002
+    @cvs-id $Id$
+} {
+    folder_id:integer,notnull
+    object_id:integer,notnull
+    return_url:notnull
+    pretty_object_name:notnull
+    {type "fs_url"}
+    {title ""}
+    {lock_title_p 0}
+} -validate {
+    valid_folder -requires {folder_id:integer} {
+        if ![fs_folder_p $folder_id] {
+            ad_complain "[_ attachments.lt_The_specified_parent_]"
+        }
+    }
+} -properties {
+    folder_id:onevalue
+    context:onevalue
+}
+
+# check for write permission on the folder
+
+ad_require_permission $folder_id write
+
+# set templating datasources
+
+set pretty_name "URL"
+if {[empty_string_p $pretty_name]} {
+    return -code error "[_ attachments.No_such_type]"
+}
+
+set context [fs_context_bar_list -final [_ attachments.Add_pretty_name [list pretty_name $pretty_name]] $folder_id]
+
+# Should probably generate the item_id and version_id now for
+# double-click protection
+
+# if title isn't passed in ignore lock_title_p
+if {[empty_string_p $title]} {
+    set lock_title_p 0
+}