Changeset 682 for trunk/gui/scripts

Timestamp:

Apr 24, 2007, 8:08:51 PM (17 years ago)

Author:

mmc

Message:

Fixed the Rappture::filexfer::upload operation to display an error
message when the user forgets to choose a file and nothing gets uploaded.

File:

• trunk/gui/scripts/filexfer.tcl (modified) (2 diffs)

trunk/gui/scripts/filexfer.tcl

@@ -121 +121 @@
 
         if {$status == 0} {
+            set changed ""
             set errs ""
             foreach file $job(output) {
@@ -135 +136 @@
                     append errs "Error loading data for \"$file2label($file)\":\n$result\n"
                 } else {
+                    lappend changed $file2path($file)
                     uplevel #0 [list $callback path $file2path($file) data $info]
                 }
+            }
+            if {[llength $changed] == 0} {
+                set errs "The form was empty, so none of your controls were changed.  In order to upload a file, you must select the file name--or enter text into the copy/paste area--before pushing the Upload button."
             }
             if {[string length $errs] > 0} {