4 * Project Admin: Edit Packages
6 * Copyright 1999-2001 (c) VA Linux Systems
7 * Copyright 2002-2004 (c) GForge Team
8 * http://fusionforge.org/
10 * This file is part of FusionForge. FusionForge is free software;
11 * you can redistribute it and/or modify it under the terms of the
12 * GNU General Public License as published by the Free Software
13 * Foundation; either version 2 of the Licence, or (at your option)
16 * FusionForge is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
21 * You should have received a copy of the GNU General Public License along
22 * with FusionForge; if not, write to the Free Software Foundation, Inc.,
23 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 require_once('../../env.inc.php');
27 require_once $gfcommon.'include/pre.php';
28 require_once $gfwww.'frs/include/frs_utils.php';
29 require_once $gfcommon.'frs/FRSPackage.class.php';
31 $group_id = getIntFromRequest('group_id');
32 $package_id = getIntFromRequest('package_id');
37 $project = group_get_object($group_id);
38 if (!$project || !is_object($project)) {
40 } elseif ($project->isError()) {
41 exit_error($project->getErrorMessage(),'frs');
44 session_require_perm ('frs', $group_id, 'write') ;
46 $frsp = new FRSPackage($project,$package_id);
47 if (!$frsp || !is_object($frsp)) {
48 exit_error(_('Could Not Get FRS Package'),'frs');
49 } elseif ($frsp->isError()) {
50 exit_error($frsp->getErrorMessage(),'frs');
54 Relatively simple form to delete packages of releases
57 frs_admin_header(array('title'=>sprintf(_('Delete Package: %1$s'), $frsp->getName()),'group'=>$group_id));
60 <form action="/frs/admin/?group_id='.$group_id.'" method="post">
62 <input type="hidden" name="func" value="delete_package" />
63 <input type="hidden" name="package_id" value="'. $package_id .'" />
64 '._('You are about to permanently and irretrievably delete this package and all its releases and files!').'
67 <input type="checkbox" name="sure" value="1" />'._('I\'m Sure').'
70 <input type="checkbox" name="really_sure" value="1" />'._('I\'m Really Sure').'
73 <input type="submit" name="submit" value="'._('Delete').'" />