[137791] branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv. tcl

[ijackson at macports.org]

Revision: 137791
          https://trac.macports.org/changeset/137791
Author:   ijackson at macports.org
Date:     2015-06-19 12:37:50 -0700 (Fri, 19 Jun 2015)
Log Message:
-----------
Add URL and Category information to solv's repodata.

Modified Paths:
--------------
    branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl

Modified: branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl
===================================================================
--- branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl	2015-06-19 19:08:55 UTC (rev 137790)
+++ branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl	2015-06-19 19:37:50 UTC (rev 137791)
@@ -114,6 +114,14 @@
                                 $repodata set_str [$solvable cget -id] $solv::SOLVABLE_LICENSE \
                                 $portinfo(license)
                             }
+                            if {[info exists portinfo(homepage)]} {
+                                $repodata set_str [$solvable cget -id] $solv::SOLVABLE_URL \
+                                $portinfo(homepage)
+                            }
+                            if {[info exists portinfo(categories)]} {
+                                $repodata set_str [$solvable cget -id] $solv::SOLVABLE_CATEGORY \
+                                $portinfo(categories)
+                            }
 
                             ## Set portinfo of each solv object. Map it to correct solvid.
                             set portindexinfo([$solvable cget -id]) $line
@@ -186,6 +194,8 @@
             ui_debug "summary = [$s lookup_str $solv::SOLVABLE_SUMMARY]"
             ui_debug "description = [$s lookup_str $solv::SOLVABLE_DESCRIPTION]"
             ui_debug "license = [$s lookup_str $solv::SOLVABLE_LICENSE]"
+            ui_debug "URL = [$s lookup_str $solv::SOLVABLE_URL]"
+            ui_debug "category = [$s lookup_str $solv::SOLVABLE_CATEGORY]"
 
             lappend matches [$s cget -name]
             lappend matches $portindexinfo([$s cget -id])
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150619/c4f4d30c/attachment.html>