cvs: pearweb /include pear-database.php

ssb Wed Apr 24 21:39:22 2002 EDT Modified files: /pearweb/include pear-database.php Log: * allow admins to remove releases Index: pearweb/include/pear-database.php diff -u pearweb/include/pear-database.php:1.85 pearweb/include/pear-database.php:1.86 --- pearweb/include/pear-database.php:1.85 Wed Apr 24 20:38:20 2002 +++ pearweb/include/pear-database.php Wed Apr 24 21:39:21 2002 @@ -17,7 +17,7 @@ | Tomas V.V.Cox <cox@php.net> | | Martin Jansen <mj@php.net> | +----------------------------------------------------------------------+ - $Id: pear-database.php,v 1.85 2002/04/25 00:38:20 ssb Exp $ + $Id: pear-database.php,v 1.86 2002/04/25 01:39:21 ssb Exp $ */ require_once 'DB/storage.php'; @@ -927,10 +927,9 @@ function remove($package, $release) { - // XXX: Also delete logged downloads. - global $dbh, $auth_user; - if (!user::maintains($auth_user->handle, $package, 'lead')) { + if (empty($auth_user->admin) && + !user::maintains($auth_user->handle, $package, 'lead')) { return PEAR::raiseError('release::remove: insufficient privileges'); }