Index: web/openacs/www/file-storage/upload-version.tcl
===================================================================
RCS file: /usr/local/cvsroot/web/openacs/www/file-storage/Attic/upload-version.tcl,v
diff -u -N
--- web/openacs/www/file-storage/upload-version.tcl	17 Apr 2001 14:05:15 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,101 +0,0 @@
-# upload-version.tcl,v 1.5.2.1 2000/02/03 09:50:58 ron Exp
-#
-# /file-storage/upload-version-2.tcl
-#
-# by aure@arsdigita.com mid-1999
-#
-# extended in January 2000 by randyg@arsdigita.com
-# to accomodate general permission system
-#
-
-set_the_usual_form_variables
-
-# return url, file_id
-
-set db [ns_db gethandle]
-
-set user_id [ad_verify_and_get_user_id]
-
-ad_maybe_redirect_for_registration
-
-set exception_text ""
-set exception_count 0
-
-if {(![info exists file_id])||([empty_string_p $file_id])} {
-    incr exception_count
-    append exception_text "<li>No file was specified"
-}
-
-set version_id [database_to_tcl_string $db "select version_id from fs_versions_latest where file_id = $file_id"]
-
-if {![info exists group_id]} {
-    set group_id ""
-}
-
-if {! [fs_check_write_p $db $user_id $version_id $group_id]} {
-    incr exception_count
-    append exception_text "<li>You can't write into this file"
-}
-
-## return errors
-if { $exception_count> 0 } {
-    ad_return_complaint $exception_count $exception_text
-    return 0
-}
-
-
-
-if { $exception_count> 0 } {
-    ad_return_complaint $exception_count $exception_text
-    return 0
-}
-
-set title "Upload New Version of "
-
-append title [database_to_tcl_string $db "select file_title from fs_files where file_id=$file_id"]
-
-set navbar [ad_context_bar_ws [list "index.tcl" [ad_parameter SystemName fs]] "Upload New Version"]
-
-set version_id [database_to_tcl_string $db "select fs_version_id_seq.nextval from dual"]
-
-ns_db releasehandle $db
-
-set html "[ad_header $title]
-
-<h2>$title</h2>
-
-$navbar
-
-<hr>
-<form enctype=multipart/form-data method=POST action=upload-version-2.tcl>
-
-<form  method=POST action=upload-version-2.tcl>
-[export_form_vars file_id version_id return_url]
-
-<table>
-<tr>
-<td align=right>Filename: </td>
-<td>
-<input type=file name=upload_file size=20><br>
-Use the \"Browse...\" button to locate your file, then click \"Open\".
-</td>
-</tr>
-<tr>
-<td align=right>
-Version Notes:</td>
-<td><input type=text size=50  name=version_description></td>
-</tr>
-<tr>
-<td></td>
-<td><input type=submit value=\"Update\">
-</td>
-</tr>
-</table>
-
-</form>
-
-[ad_footer [fs_system_owner]]
-"
-
-ns_return 200 text/html $html
-