fs::get_object_info (public)

 fs::get_object_info -file_id file_id [ -revision_id revision_id ]

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

Returns an array containing the fs object info.

Switches:

-file_id

(required)

Id of the file

-revision_id

(optional)

Id of the revision

Returns:

Error:

Author:

Deds Castillo <deds@i-manila.com.ph>

Created:

2004-07-03

Partial Call Graph (max 5 caller/called nodes):

Testcases:

fs_add_delete_copy

Source code:

    if {![info exists revision_id] || $revision_id eq ""} {
        set revision_id [content::item::get_live_revision -item_id $file_id]
    }

    db_1row file_info {
        select r.item_id as file_id, r.revision_id,
               r.mime_type, r.title, r.description,
               r.content_length as content_size,
               i.name, o.last_modified, i.parent_id,
               i.storage_type, i.storage_area_key
        from cr_revisions r, cr_items i, acs_objects o
        where r.revision_id = :revision_id
        and r.item_id = i.item_id
        and i.item_id = :file_id
        and i.content_type = 'file_storage_object'
        and r.revision_id = o.object_id
    } -column_array file_object_info

    # GN: this query was probably never defined in CVS
    #set content [db_exec_plsql get_content {}]

    if {$file_object_info(storage_type) eq "file"} {
        set file_object_info(cr_file_path) [content::revision::get_cr_file_path  -revision_id $revision_id]
    }

    return [array get file_object_info]

Generic XQL file:

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