fs::publish_object_to_file_system (public)

 fs::publish_object_to_file_system -object_id object_id [ -path path ] \
    [ -file_name file_name ] [ -user_id user_id ]

Defined in packages/file-storage/tcl/file-storage-procs.tcl

publish a file storage object to the filesystem

Switches:
-object_id
(required)
-path
(optional)
-file_name
(optional)
-user_id
(optional)

Partial Call Graph (max 5 caller/called nodes):
%3 test_fs_publish_file fs_publish_file (test file-storage) fs::publish_object_to_file_system fs::publish_object_to_file_system test_fs_publish_file->fs::publish_object_to_file_system ad_mktmpdir ad_mktmpdir (public) fs::publish_object_to_file_system->ad_mktmpdir content::symlink::resolve content::symlink::resolve (public) fs::publish_object_to_file_system->content::symlink::resolve db_1row db_1row (public) fs::publish_object_to_file_system->db_1row fs::publish_url_to_file_system fs::publish_url_to_file_system (public) fs::publish_object_to_file_system->fs::publish_url_to_file_system fs::publish_versioned_object_to_file_system fs::publish_versioned_object_to_file_system (public) fs::publish_object_to_file_system->fs::publish_versioned_object_to_file_system fs::publish_folder_to_file_system fs::publish_folder_to_file_system (public) fs::publish_folder_to_file_system->fs::publish_object_to_file_system packages/file-storage/www/download-zip.tcl packages/file-storage/ www/download-zip.tcl packages/file-storage/www/download-zip.tcl->fs::publish_object_to_file_system

Testcases:
fs_publish_file
Source code:
    if {$path eq ""} {
        set path [ad_mktmpdir]
    }

    db_1row select_object_info {}

    switch -- $type {
        folder {
            set result [publish_folder_to_file_system  -folder_id $object_id  -path $path  -folder_name $name  -user_id $user_id]
        }
        url {
            set result [publish_url_to_file_system  -object_id $object_id  -path $path  -file_name $file_name]
        }
        symlink {
            set linked_object_id [content::symlink::resolve -item_id $object_id]
            set result [publish_versioned_object_to_file_system  -object_id $linked_object_id  -path $path  -file_name $file_name]
        }
        default {
            set result [publish_versioned_object_to_file_system  -object_id $object_id  -path $path  -file_name $file_name]
        }
    }
    return $result
Generic XQL file:
<fullquery name="fs::publish_object_to_file_system.select_object_info">
    <querytext>
            select fs_objects.*
            from fs_objects
            where fs_objects.object_id = :object_id
        </querytext>
</fullquery>
packages/file-storage/tcl/file-storage-procs.xql

PostgreSQL XQL file:
packages/file-storage/tcl/file-storage-procs-postgresql.xql

Oracle XQL file:
packages/file-storage/tcl/file-storage-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: