File: toggle_fold_procedure.php

package info (click to toggle)
ibwebadmin 0.98-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,916 kB
  • ctags: 1,950
  • sloc: php: 12,454; makefile: 7
file content (53 lines) | stat: -rw-r--r-- 1,513 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
<?php
// File           toggle_fold_procedure.php / ibWebAdmin
// Purpose        unfold/fold the procedure view on the procedures panel
// Author         Lutz Brueckner <irie@gmx.de>
// Copyright      (c) 2000, 2001, 2002, 2003 by Lutz Brueckner,
//                published under the terms of the GNU General Public Licence v.2,
//                see file LICENCE for details
// Created        <02/10/17 11:06:40 lb>
//
// $Id: toggle_fold_procedure.php,v 1.5 2003/02/02 19:55:15 lbrueckner Exp $

// $_GET variables:   $n  procedure name


include('inc/configuration.inc.php');
include('inc/session.inc.php');
include('inc/functions.inc.php');

if (DEBUG === TRUE) { 
    include('inc/debug_funcs.inc.php');
}

session_start();
localize_session_vars();

$pname = $HTTP_GET_VARS['n'];

if (isset($s_procedures[$pname])) {

    if ($s_procedures[$pname]['status'] == 'open') {
        $s_procedures[$pname]['status'] = 'close';
    }

    else {
        $s_procedures[$pname]['status'] = 'open';

        include('inc/interbase.inc.php');
        include('inc/procedures.inc.php');

        if (!($dbhandle = db_connect())) {
            ib_error(__FILE__, __LINE__, 'connect');
        }
        list($in, $out) = get_procedure_parameters($pname);
        $s_procedures[$pname]['in']     = $in;
        $s_procedures[$pname]['out']    = $out;
        $s_procedures[$pname]['source'] = get_procedure_source($pname);
    }
}

globalize_session_vars();
redirect(url_session($HTTP_SERVER_VARS['HTTP_REFERER']));

?>