[tyndur-devel] [PATCH] lpt: Section spezifizieren

[Kevin Wolf <kevin@xxxxxxxxxx>]

+ lpt: Wenn mit lpt get/reget ein Paket aus einer anderen Section als
  bin installiert werden soll, wird die Section durch Schraegstrich
  getrennt angehaengt (z.B. libgcc/lib)
---
 src/modules/pas/lpt/lpt.pas |   11 ++++++++++-
 1 files changed, 10 insertions(+), 1 deletions(-)

diff --git a/src/modules/pas/lpt/lpt.pas b/src/modules/pas/lpt/lpt.pas
index 62db55f..10c3403 100644
--- a/src/modules/pas/lpt/lpt.pas
+++ b/src/modules/pas/lpt/lpt.pas
@@ -256,7 +256,16 @@ begin
 
     ReadPkglists(pkgset);
 
-    section := 'bin';
+    // Parameter hat die Form Paketname/Section. Wenn keine Section angegeben
+    // ist, wird bin als Default benutzt.
+    i := Pos('/', pkgname);
+    if i > 0 then begin
+        section := Copy(pkgname, i + 1, Length(pkgname));
+        pkgname := Copy(pkgname, 1, i - 1);
+    end else begin
+        section := 'bin';
+    end;
+
     version := pkgset.GetCurrentVersion(pkgname, section);
     
     if version = nil then begin
-- 
1.6.0.2