Changeset 956 for trunk

Timestamp:

Mar 11, 2010 2:31:26 PM (15 years ago)

Author:

toby

Message:

fixes for self update

File:

• trunk/gsascmds.tcl (modified) (3 diffs)

trunk/gsascmds.tcl ¶

@@ -3262 +3262 @@
     #set wish "[info nameofexecutable]"
     # check for updates
-    if [catch {set res [exec $SVN status $::expgui(scriptdir) -u]} err] {
+    if [catch {set res [exec $SVN status $::expgui(gsasdir) -u]} err] {
         MyMessageBox -parent . -title "Error checking status" \
             -message "Error checking for updates: $err" \
@@ -3294 +3294 @@
         puts $fp "@echo Preparing to start upgrade of EXPGUI."
         puts $fp "@pause"
-        puts $fp "$SVN cleanup $::expgui(scriptdir)"
-        puts $fp "$SVN up $::expgui(scriptdir)"
+        puts $fp "$SVN cleanup $::expgui(gsasdir)"
+        puts $fp "$SVN up $::expgui(gsasdir)"
         puts $fp "@echo *"
         puts $fp "@echo ******************************************************************"
@@ -3311 +3311 @@
 
     # do a quiet cleanup. Sometimes needed after install, and never hurts
-    if [catch {set res [exec $SVN cleanup $::expgui(scriptdir)]} err] {
+    if [catch {set res [exec $SVN cleanup $::expgui(gsasdir)]} err] {
         MyMessageBox -parent . -title "Error in cleanup" \
             -message "Error performing cleanup. Will try to continue anyway. Error:\n$err" \
             -icon error
     }
-    if [catch {set res [exec $SVN up $::expgui(scriptdir)]} err] {
+    if [catch {set res [exec $SVN up $::expgui(gsasdir)]} err] {
         MyMessageBox -parent . -title "Error updating" \
             -message "Error performing update:\n$err" \