From bbc05414cf6aa24faa364afb48119f802b50bda2 Mon Sep 17 00:00:00 2001 From: Loui Chang Date: Tue, 3 Mar 2009 11:21:08 -0500 Subject: Update cleanup script to remove non-unsupported files. Signed-off-by: Loui Chang --- web/lib/pkgfuncs.inc | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'web') diff --git a/web/lib/pkgfuncs.inc b/web/lib/pkgfuncs.inc index b95f910d..9d7a0db7 100644 --- a/web/lib/pkgfuncs.inc +++ b/web/lib/pkgfuncs.inc @@ -84,6 +84,21 @@ function pkgLocations() { return $locs; } +# Return the repository name for a particular package. +function package_location($name="") { + if (!$name) {return NULL;} + $dbh = db_connect(); + $q = "SELECT PackageLocations.Location FROM Packages "; + $q.= "LEFT JOIN PackageLocations ON "; + $q.= "Packages.LocationID = PackageLocations.ID "; + $q.= "WHERE Name = '".mysql_real_escape_string($name)."' "; + $q.= "AND DummyPkg = 0"; + $result = db_query($q, $dbh); + if (!$result) {return NULL;} + $row = mysql_fetch_row($result); + return $row[0]; +} + # check to see if the package name exists # function package_exists($name="") { -- cgit v1.2.3-24-g4f1b