Attachment "hpupdate_patch.txt" to
ticket [440064ffff]
added by
andreas_kupries
2001-09-18 05:00:57.
--- hpupdate.tcl Sun Jul 9 16:13:35 2000
+++ hpupdate2.tcl Mon Jul 2 11:26:22 2001
@@ -219,3 +219,3 @@
- switch $state {
+ switch -- $state {
data {return}
@@ -362,3 +362,3 @@
global status
- switch $mode {
+ switch -- $mode {
on {
@@ -613,3 +613,3 @@
set w .progress
- switch $state {
+ switch -- $state {
init {
@@ -704,3 +704,3 @@
tk_messageBox -parent . -title INFO -message "No connection!" -type ok
- return
+ return 0
}
@@ -709,3 +709,3 @@
if { [.view.local.list curselection] == {} } {
- return
+ return 0
}
@@ -716,3 +716,3 @@
if { $rc == "no" } {
- return
+ return 0
}
@@ -728,3 +728,3 @@
tk_messageBox -parent . -title INFO -type ok -message "Nothing selected for
upload!!"
- return
+ return 0
}
@@ -780,2 +780,3 @@
set status(header) " last update: [clock format $opt(Timestamp) -format
%d.%m.%Y\ %H:%M:%S\ Uhr -gmt 0]"
+ return 0
}
