Index: openacs-4/packages/acs-templating/catalog/acs-templating.de_DE.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/catalog/acs-templating.de_DE.ISO-8859-1.xml,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-templating/catalog/acs-templating.de_DE.ISO-8859-1.xml 8 Jun 2005 16:36:18 -0000 1.7 +++ openacs-4/packages/acs-templating/catalog/acs-templating.de_DE.ISO-8859-1.xml 21 Jun 2005 13:41:46 -0000 1.8 @@ -21,7 +21,7 @@ Minuten Monat Weiter >> - Keine %row_pretty_plural% vorhanden + Keine Daten vorhanden << Zur�ck Angabe erforderlich Sekunden Index: openacs-4/packages/acs-templating/tcl/file-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/file-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-templating/tcl/file-procs.tcl 21 Jun 2005 13:07:32 -0000 1.7 +++ openacs-4/packages/acs-templating/tcl/file-procs.tcl 21 Jun 2005 13:41:46 -0000 1.8 @@ -56,66 +56,3 @@ } -ad_proc -private template::util::file::generate_filename { - {-title:required} - {-extension:required} - {-existing_filenames ""} - {-party_id ""} -} { - Generate a pretty filename that relates to the title supplied and is unique - - @param party_id if supplied the filenames associated with this party will be used as existing_filenames if existing filenames is not provided - - @param existing_filenames a list of filenames that the generated filename must not be equal to -} { -} - -ad_proc -public template::util::file::store_for_party { - {-upload_file:required} - {-party_id:required} - {-package_id ""} -} { - Store the file uploaded under the party_id if a file was uploaded - - @author Malte Sussdorff (sussdorff@sussdorff.de) - @creation-date 2005-06-21 - - @param upload_file - - @param party_id - - @return the revision_id of the generated item - - @error -} { - - set filename [template::util::file::get_property filename $upload_file] - if {$filename != "" } { - set tmp_filename [template::util::file::get_property tmp_filename $upload_file] - set mime_type [template::util::file::get_property mime_type $upload_file] - set tmp_size [file size $tmp_filename] - set extension [file extension $filename] - if {![exists_and_not_null title]} { - regsub -all ".${extension}\$" $filename "" title - } - - set existing_filenames [db_list get_parties_existing_filenames {}] - set filename [util_text_to_url \ - -text ${title} -replacement "_"] - set output_filename "${filename}.${extension}" - set num 1 - while {[lsearch $existing_filenames $output_filename] >= 0} { - set output_filename "${filename}${num}.${extension}" - incr num - } - - set filename $output_filename - - set revision_id [cr_import_content \ - -storage_type "file" -title $title -package_id $package_id $party_id $tmp_filename $tmp_size $mime_type $filename] - - content::item::set_live_revision -revision_id $revision_id - - return $revision_id - } -} Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-templating/tcl/file-procs.xql'. Fisheye: No comparison available. Pass `N' to diff?