Index: openacs-4/packages/lorsm/www/edit-content.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/edit-content.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/edit-content.tcl	17 May 2005 17:03:40 -0000	1.3
+++ openacs-4/packages/lorsm/www/edit-content.tcl	27 Dec 2006 11:03:51 -0000	1.3.4.1
@@ -24,7 +24,7 @@
 set user_id [ad_conn user_id]
 
 set folder [db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]
-set fs_root_folder [db_string sql {select file_storage__get_root_folder(:fs_package_id)}]
+set fs_root_folder [db_string sql {}]
 set identifierref [lorsm::fix_url -url $identifierref]
 set pather $folder/$identifierref
 
@@ -43,5 +43,5 @@
 #ns_write "[_ lorsm.lt_folder_foldern_pather]"
 #ad_script_abort
 
-ad_returnredirect [export_vars -base [apm_package_url_from_id $fs_package_id]file-content-edit {file_id return_url}]
+ad_returnredirect [export_vars -base [apm_package_url_from_id $fs_package_id]file-edit {file_id return_url}]