Changeset bc8a9f9 in tol for tolbase/lib/toltk

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

Location:

tolbase/lib/toltk

Files:

• tolpkg.tcl (modified) (2 diffs)
• tolpkg_gui.tcl (modified) (1 diff)

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 ]

tolbase/lib/toltk/tolpkg_gui.tcl

@@ -778 +778 @@
     array unset pkg
     array set pkg $localVersionInfo($pv)
-    set pkgRoot [ lindex [ split $pv . ] 0 ]
+    set pkgRoot0 [ lindex [ split $pv . ] 0 ]
+    set pkgRoot [ lindex [ split $pkgRoot0 # ] 0 ]
     set url $pkg(_.autodoc.url)
     set pkgRepo [ expr { [ string range $url end-13 end ] eq "repository.php" ?