Index: openacs-4/packages/postcard/www/add-picture.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/postcard/www/add-picture.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/postcard/www/add-picture.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/postcard/www/add-picture.tcl	21 Aug 2001 22:22:29 -0000	1.2
@@ -9,36 +9,11 @@
 } {
 }
 
-ad_require_permission [ad_conn package_id] admin
+ad_require_permission [ad_conn package_id] "postcard_create_image"
 
-append page_content [ad_header "Add Comment"]
+set image_id [db_nextval postcard_image_sequence] 
 
-append page_content "
-<center>
-<form enctype=multipart/form-data method=POST action=add-picture-2>
-Add a picture<br>
-<table border=1>
- <tr>
-  <td>Select Image</td>
-  <td><input type=file name=upload_file size=20></td>
- </tr>
- <tr>
-  <td>Title</td>
-  <td><input type=text name=title size=30></td>
- </tr>
- <tr>
-  <td>Description</td>
-  <td><textarea name=description rows=5 cols=40></textarea></td>
- </tr>
-</table>
-<input type=submit>
-</form>
-</center>
-"
-append page_content [ad_footer]
+ad_return_template
 
 
-doc_return 200 text/html $page_content
 
-
-