diff -crNB dotlrn-2.4.1/packages/file-storage/tcl/file-storage-callback-procs.tcl file-storage/tcl/file-storage-callback-procs.tcl
*** dotlrn-2.4.1/packages/file-storage/tcl/file-storage-callback-procs.tcl 2009-07-05 21:02:54.000000000 -0400
--- file-storage/tcl/file-storage-callback-procs.tcl 2009-07-05 21:25:19.000000000 -0400
***************
*** 243,245 ****
--- 243,367 ----
}
+
+ ad_proc -public -callback search::url -impl content_extlink {} {
+ returns a url from an object in the file storage to the search package
+ } {
+ set item_id $object_id
+ set ext_url [db_string get_url { *SQL* } -default ""]
+
+ return "$ext_url"
+ }
+
+ ad_proc -public -callback search::url -impl content_folder {} {
+ returns a url from a folder in the file storage to the search package
+ } {
+ set folder_id $object_id
+ set folder_data [fs::get_folder_package_and_root $folder_id]
+ set package_id [lindex $folder_data 0]
+ set package_url [apm_package_url_from_id $package_id]
+
+ return "${package_url}?folder_id=$folder_id"
+ }
+
+ ad_proc -public -callback planner::edit_url -impl content_folder {} {
+ returns a url to the edit action of a folder in the file storage to the search package
+ } {
+ set folder_id $object_id
+ set folder_data [fs::get_folder_package_and_root $folder_id]
+ set package_id [lindex $folder_data 0]
+ set package_url [apm_package_url_from_id $package_id]
+
+ return "${package_url}folder-edit?folder_id=$folder_id"
+ }
+
+ ad_proc -public -callback planner::edit_url -impl file_storage_object {} {
+ returns a url to the edit action of an object in the file storage to the search package
+ } {
+ set item_id [content::revision::item_id -revision_id $object_id]
+ set package_id [acs_object::package_id -object_id $item_id]
+ set package_url [apm_package_url_from_id $package_id]
+
+ return "${package_url}file?file_id=$item_id"
+ }
+
+ ad_proc -public -callback planner::edit_url -impl content_extlink {} {
+ returns a url to the edit action of an object in the file storage to the search package
+ } {
+ set item_id $object_id
+ set package_id [acs_object::package_id -object_id $item_id]
+ set package_url [apm_package_url_from_id $package_id]
+
+ return "${package_url}simple-edit?object_id=$item_id"
+ }
+
+ ad_proc -public -callback planner::delete_url -impl content_folder {} {
+ returns a url to the delete action of a folder in the file storage to the search package
+ } {
+ set folder_id $object_id
+ set folder_data [fs::get_folder_package_and_root $folder_id]
+ set package_id [lindex $folder_data 0]
+ set package_url [apm_package_url_from_id $package_id]
+
+ return "${package_url}folder-delete?folder_id=${folder_id}&form:id=folder-delete"
+ }
+
+ ad_proc -public -callback planner::delete_url -impl file_storage_object {} {
+ returns a url to the delete action of an object in the file storage to the search package
+ } {
+ set item_id [content::revision::item_id -revision_id $object_id]
+ set package_id [acs_object::package_id -object_id $item_id]
+ set package_url [apm_package_url_from_id $package_id]
+
+ return "${package_url}delete?object_id=${item_id}&form:id=delete_confirm"
+ }
+
+ ad_proc -public -callback planner::delete_url -impl content_extlink {} {
+ returns a url to the delete action of an object in the file storage to the search package
+ } {
+ set item_id $object_id
+ set folder_id [db_string get_folder_id { *SQL* } -default 0]
+ set package_id [acs_object::package_id -object_id $item_id]
+ set package_url [apm_package_url_from_id $package_id]
+
+ return "${package_url}simple-delete?object_id=${item_id}&folder_id=$folder_id"
+ }
+
+ ad_proc -public -callback planner::insert_object -impl file-storage {} {
+
+ @author alvaro@viaro.net
+ @creation_date Jul-2008
+
+ Insert the recently created object into the blocks view objects table
+
+ } {
+ set block_id [ad_get_cookie fs_block_id "0"]
+ if { $block_id != 0 && [ad_get_cookie fs_community_id ""] == $community_id } {
+ set object_index [planner::get_next_object_index -block_id $block_id]
+ planner::insert_object_to_block -block_id $block_id -object_id $object_id -object_index $object_index
+ ad_set_cookie fs_block_id 0
+ set community_id [planner::get_community_id_from_block_id -block_id $block_id]
+ set community_url [dotlrn_community::get_community_url $community_id]
+ planner::show_alert_message -object_id $object_id -community_url $community_url
+ } else {
+ set community_id [dotlrn_community::get_community_id]
+ }
+ planner::flush_blocks_cache -community_id $community_id
+ }
+
+ ad_proc -public -callback planner::extend_form -impl file-storage {} {
+
+ @author alvaro@viaro.net
+ @creation_date Jul-2008
+
+ Extend the form of the file-storage to add items to blocks view table
+
+ } {
+ upvar elements elements
+ set block_id [ad_get_cookie fs_block_id "0"]
+ set community_url [dotlrn_community::get_community_url $community_id]
+ set display_t "\#planner.blocks_choose\#"
+ if { $block_id != 0 && [ad_get_cookie fs_community_id 0] == $community_id} {
+ lappend elements choose_link [list label "" display_template $display_t]
+ }
+ }
diff -crNB dotlrn-2.4.1/packages/file-storage/www/delete.tcl file-storage/www/delete.tcl
*** dotlrn-2.4.1/packages/file-storage/www/delete.tcl 2009-07-05 21:02:54.000000000 -0400
--- file-storage/www/delete.tcl 2009-07-05 21:29:52.000000000 -0400
***************
*** 82,87 ****
--- 82,90 ----
}
}
}
+ ## Planner View -> Flush Cache
+ callback -catch -impl "planner" planner::flush_blocks_cache -community_id [dotlrn_community::get_community_id]
+ ###
ad_returnredirect $return_url
ad_script_abort
}
diff -crNB dotlrn-2.4.1/packages/file-storage/www/file-add.tcl file-storage/www/file-add.tcl
*** dotlrn-2.4.1/packages/file-storage/www/file-add.tcl 2009-07-05 21:02:54.000000000 -0400
--- file-storage/www/file-add.tcl 2009-07-05 21:29:03.000000000 -0400
***************
*** 249,254 ****
--- 249,257 ----
set file_id [db_nextval "acs_object_id_seq"]
}
}
+ ## Planner View
+ callback -catch -impl "file-storage" planner::insert_object -block_id 0 -object_id $this_file_id -community_id [dotlrn_community::get_community_id]
+ ###
file delete $upload_file.tmpfile
} -edit_data {
set this_title $title
diff -crNB dotlrn-2.4.1/packages/file-storage/www/file.adp file-storage/www/file.adp
*** dotlrn-2.4.1/packages/file-storage/www/file.adp 2009-07-05 21:02:54.000000000 -0400
--- file-storage/www/file.adp 2009-07-05 21:28:37.000000000 -0400
***************
*** 3,8 ****
--- 3,9 ----
@description@
diff -crNB dotlrn-2.4.1/packages/file-storage/www/simple-delete.tcl file-storage/www/simple-delete.tcl *** dotlrn-2.4.1/packages/file-storage/www/simple-delete.tcl 2009-07-05 21:02:54.000000000 -0400 --- file-storage/www/simple-delete.tcl 2009-07-05 21:42:11.000000000 -0400 *************** *** 22,27 **** --- 22,30 ---- } + ## Planner View -> Flush Cache + callback -catch -impl "planner" planner::flush_blocks_cache -community_id [dotlrn_community::get_community_id] + ### ad_returnredirect "./?folder_id=$folder_id" diff -crNB dotlrn-2.4.1/packages/file-storage/www/simple-edit.tcl file-storage/www/simple-edit.tcl *** dotlrn-2.4.1/packages/file-storage/www/simple-edit.tcl 2009-07-05 21:02:54.000000000 -0400 --- file-storage/www/simple-edit.tcl 2009-07-05 21:34:13.000000000 -0400 *************** *** 38,43 **** --- 38,46 ---- -container_object_id $package_id \ -element_name category_id] } + ## Planner View -> Flush Cache + callback -catch -impl "planner" planner::flush_blocks_cache -community_id [dotlrn_community::get_community_id] + ### ad_returnredirect "?[export_vars folder_id]" }