Changeset bc8a9f9 in tol for tolbase/lib/toltk/tolpkg.tcl

Timestamp:

Mar 26, 2015, 11:45:28 AM (12 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

b582cf1

Parents:

be3dec5

Message:

Refs #1821
Se modifican los archivos tcl para recoger los cambios en TolPackage.4

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

File:

• tolbase/lib/toltk/tolpkg.tcl (modified) (2 diffs)

tolbase/lib/toltk/tolpkg.tcl

@@ -149 +149 @@
   set pkgsInfo {}
   foreach d $dirs {
-    lappend pkgsInfo [ list $d [ GetLocalPackageInfo $d ] ]
+    set pkgInfo [ GetLocalPackageInfo $d ]
+    if { [llength $pkgInfo] > 0 } {
+      lappend pkgsInfo [ list $d $pkgInfo ]
+    }
   }
   return $pkgsInfo
@@ -156 +159 @@
 proc ::TolPkg::GetLocalPackageInfo { p } {
   set tolScript [ string map [ list %p $p ] {
-    Set TolPackage::Client::GetPackageInfo( "%p" );
+    Set TolPackage::Client::GetPackageInfo_Compatible( "%p" );
   } ]
   return [ lindex [ toltcl::eval $tolScript -named 1 ] 1 ]