Changeset be70fb2 in tol for tolbase/lib/toltk

Timestamp:

Dec 15, 2011, 5:39:11 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

48947f4

Parents:

2d896ea

Message:

refs #1191, packages can be exported also from remote repository

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3933 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolpkg_gui.tcl (modified) (3 diffs)

tolbase/lib/toltk/tolpkg_gui.tcl

@@ -916 +916 @@
       }
     }
-    if { $pkgInfo(lastlocal) ne "" } {
-      lappend listEXP $pkgInfo(lastlocal)
-    }
+    lappend listEXP [ list $pkgInfo(lastremote) $nodesInfo($nid,status) ]
   }
   # next process the list of pkgver
@@ -938 +936 @@
       }
     }
-    if { [ lsearch $listEXP $pkg ] == -1 && 
-         $nodesInfo($nid,status) ne "new"} {
-      lappend listEXP $pkg
-    }
-
+    if { [ lsearch $listEXP $pkg ] == -1 } {
+      lappend listEXP [ list $pkg $nodesInfo($nid,status) ]
+    }
   }
   # install list
@@ -977 +973 @@
   $w add separator
   if { [ llength $listEXP ] == 1 } {
-    $w add command -label [ mc "Export %s" [ lindex $listEXP 0 ] ] \
+    $w add command -label [ mc "Export %s" [ lindex [ lindex $listEXP 0 ] 0 ] ] \
         -command [ list ::TolPkgGUI::ExportPackageVersion [ lindex $listEXP 0 ] ]
   } elseif { [ llength $listEXP ] > 1 } {