Index: openacs-4/packages/download/www/download-verify.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/download-verify.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/download-verify.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/download-verify.tcl 11 May 2001 05:20:45 -0000 1.2 @@ -39,6 +39,15 @@ return } +# oracle version gets file_size from the blob +# postgres version can't (content is in fs, not db), +# so it gets content_path +# and we can calculate file_size here + +if { ![info exists file_size] } { + set file_size [cr_file_size $content_path] +} + set context_bar [list [list "one-archive?archive_id=$archive_id" $archive_name] "Download $archive_name $version_name"] ##TODO Get version name