file_storage::twt::delete_uploaded_file (private)

 file_storage::twt::delete_uploaded_file file_name

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

Deletes a file from the UI.

Parameters:
file_name (required)

Partial Call Graph (max 5 caller/called nodes):
%3 aa_error aa_error (public) aa_log aa_log (public) file_storage::twt::delete_uploaded_file file_storage::twt::delete_uploaded_file file_storage::twt::delete_uploaded_file->aa_error file_storage::twt::delete_uploaded_file->aa_log

Testcases:
No testcase defined.
Source code:
    set response 0

    # Follow the Delete File Link
    tclwebtest::link follow properties
    tclwebtest::link follow {Delete File}

    tclwebtest::form find ~n "file-delete"
    tclwebtest::form submit

    set response_url [tclwebtest::response url]

    if { [string match  "*\?folder*id*" $response_url] } {

        # Get the short filename
        set list_words [split "$file_name" /]
        set short_file_name [lindex $list_words [llength $list_words]-1]

        if {![catch {tclwebtest::link find $short_file_name} errmsg]} {
            aa_error "file_storage::twt::delete_file failed $errmsg : Didn't delete a File"
        } else {
            aa_log "a File deleted"
            set response 1
        }
    } else {
        aa_error "file_storage::twt::delete_file failed, bad response url : $response_url"
    }

    return $response
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: