3 * Project Admin: Edit Packages
5 * Copyright 1999-2001 (c) VA Linux Systems
6 * Copyright 2002-2004 (c) GForge Team
7 * http://fusionforge.org/
9 * This file is part of FusionForge.
11 * FusionForge is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 2 of the License, or
14 * (at your option) any later version.
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
22 * along with FusionForge; if not, write to the Free Software
23 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 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';
30 require_once $gfcommon.'frs/FRSRelease.class.php';
31 require_once $gfcommon.'frs/FRSFile.class.php';
33 $group_id = getIntFromRequest('group_id');
34 $package_id = getIntFromRequest('package_id');
35 $release_id = getIntFromRequest('release_id');
40 $project = group_get_object($group_id);
41 if (!$project || !is_object($project)) {
43 } elseif ($project->isError()) {
44 exit_error($project->getErrorMessage(),'frs');
47 session_require_perm ('frs', $group_id, 'write') ;
49 $frsp = new FRSPackage($project,$package_id);
50 if (!$frsp || !is_object($frsp)) {
51 exit_error(_('Could Not Get FRS Package'),'frs');
52 } elseif ($frsp->isError()) {
53 exit_error($frsp->getErrorMessage(),'frs');
56 $frsr = new FRSRelease($frsp,$release_id);
57 if (!$frsr || !is_object($frsr)) {
58 exit_error(_('Could Not Get FRS Release'),'frs');
59 } elseif ($frsr->isError()) {
60 exit_error($frsr->getErrorMessage(),'frs');
65 Relatively simple form to delete packages of releases
68 frs_admin_header(array('title'=>_('Release Edit/File Releases'),'group'=>$group_id));
71 <form action="/frs/admin/showreleases.php?group_id='.$group_id.'&package_id='.$package_id.'" method="post">
72 <input type="hidden" name="func" value="delete_release" />
73 <input type="hidden" name="release_id" value="'. $release_id .'" />
74 '._('You are about to permanently and irretrievably delete this release and its files!').'
76 <input type="checkbox" name="sure" value="1" />'._('I\'m Sure').'<br />
77 <input type="checkbox" name="really_sure" value="1" />'._('I\'m Really Sure').'<br />
78 <input type="submit" name="submit" value="'._('Delete').'" />