Merge branch 'maint'

1 files changed, 26 insertions, 0 deletions

diff --git a/web/lib/pkgfuncs.inc.php b/web/lib/pkgfuncs.inc.php
index c35147fb..3bbf1a1e 100644
--- a/web/lib/pkgfuncs.inc.php
+++ b/web/lib/pkgfuncs.inc.php
@@ -942,3 +942,29 @@ function pkg_add_lic($pkgid, $licid) {
 	);
 	$dbh->exec($q);
 }
+
+/**
+ * Determine package information for latest package
+ *
+ * @param int $numpkgs Number of packages to get information on
+ *
+ * @return array $packages Package info for the specified number of recent packages
+ */
+function latest_pkgs($numpkgs) {
+	$dbh = DB::connect();
+
+	$q = "SELECT * FROM Packages LEFT JOIN PackageBases ON ";
+	$q.= "PackageBases.ID = Packages.PackageBaseID ";
+	$q.= "ORDER BY SubmittedTS DESC ";
+	$q.= "LIMIT " . intval($numpkgs);
+	$result = $dbh->query($q);
+
+	$packages = array();
+	if ($result) {
+		while ($row = $result->fetch(PDO::FETCH_ASSOC)) {
+			$packages[] = $row;
+		}
+	}
+
+	return $packages;
+}