Index: openacs-4/packages/dotlrn/www/bio-update.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/bio-update.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/dotlrn/www/bio-update.tcl 6 Sep 2005 09:58:21 -0000 1.1.2.2 +++ openacs-4/packages/dotlrn/www/bio-update.tcl 20 May 2006 21:52:18 -0000 1.1.2.3 @@ -13,7 +13,7 @@ # HAM : 090705 user must be logged in to view this page auth::require_login -set page_title [_ dotlrn._Update_Bio] +set page_title [_ dotlrn.Edit_Bio] if {[empty_string_p $user_id]} { set user_id [ad_conn user_id] @@ -135,7 +135,6 @@ if {![empty_string_p $upload_file]} { set tmp_filename [template::util::file::get_property tmp_filename $upload_file] - set file_extension [string tolower [file extension $upload_file]] # remove the first . from the file extension @@ -191,9 +190,14 @@ } } - set convert_path [parameter::get -parameter ConvertBinPath -package_id [dotlrn::get_package_id] -default "/bin/convert"] - exec $convert_path -scale 135 $tmp_filename $tmp_filename + set convert_path [parameter::get -parameter ConvertBinPath -package_id [dotlrn::get_package_id] -default "/usr/local/bin/convert"] + if { [file exists $convert_path] } { + if { [catch {exec $convert_path -type [lindex [split $guessed_file_type /] 1] -scale 135 $tmp_filename $tmp_filename} errmsg] } { + ns_log Warning "\"convert\" failed with the following error: $errmsg" + } + } + set revision_id [cr_import_content \ -image_only \ -item_id $item_id \ @@ -206,7 +210,7 @@ $guessed_file_type \ portrait-of-user-$user_id] - cr_set_imported_content_live $guessed_file_type $revision_id + item::publish -item_id $item_id -revision_id $revision_id } } else {