source: pmb4.2/trunk/fuentes/pmb/admin/proc/clas.inc.php @ 815

Last change on this file since 815 was 815, checked in by jrpelegrina, 4 years ago

Initial release of pmb 4.2

  • Property svn:executable set to *
File size: 4.4 KB
Line 
1<?php
2// +-------------------------------------------------+
3// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
4// +-------------------------------------------------+
5// $Id$
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9// gestion des classements d'actions personnalisables
10?>
11<script type="text/javascript">
12function test_form(form) {
13        if(form.form_libelle.value.length == 0) {
14                alert("<?php echo $msg[98]; ?>");
15                return false;
16        }
17        return true;
18}
19
20</script>
21<?php
22function show_clas($dbh) {
23        global $msg;
24        print "<table>
25        <tr>
26                <th>".$msg[proc_clas_lib]."</th>
27        </tr>";
28
29        $requete = "SELECT idproc_classement,libproc_classement FROM procs_classements ORDER BY libproc_classement ";
30        $res = pmb_mysql_query($requete, $dbh);
31        $nbr = pmb_mysql_num_rows($res);
32        $parity=1;
33        for($i=0;$i<$nbr;$i++) {
34                $row=pmb_mysql_fetch_object($res);
35                if ($parity % 2) {
36                        $pair_impair = "even";
37                        } else {
38                                $pair_impair = "odd";
39                                }
40                $parity += 1;
41        $tr_javascript=" onmouseover=\"this.className='surbrillance'\" onmouseout=\"this.className='$pair_impair'\" onmousedown=\"document.location='./admin.php?categ=proc&sub=clas&action=modif&idproc_classement=$row->idproc_classement';\" ";
42                print "<tr class='$pair_impair' $tr_javascript style='cursor: pointer'><td><strong>$row->libproc_classement</strong></td>"; 
43                print "</tr>";
44                }
45        print "</table>
46                <input class='bouton' type='button' value=' $msg[proc_clas_bt_add] ' onClick=\"document.location='./admin.php?categ=proc&sub=clas&action=add'\" />";
47        }
48
49function clas_form($libproc_classement="", $idproc_classement=0) {
50        global $msg;
51        global $charset;
52        global $admin_procs_clas_form;
53
54        $admin_procs_clas_form = str_replace('!!idproc_classement!!', $idproc_classement, $admin_procs_clas_form);
55        if(!$idproc_classement) $admin_procs_clas_form = str_replace('!!form_title!!', $msg[proc_clas_bt_add], $admin_procs_clas_form);
56        else $admin_procs_clas_form = str_replace('!!form_title!!', $msg["proc_clas_modif"], $admin_procs_clas_form);
57
58        $admin_procs_clas_form = str_replace('!!libelle!!', htmlentities($libproc_classement,ENT_QUOTES, $charset), $admin_procs_clas_form);
59        $admin_procs_clas_form = str_replace('!!libelle_suppr!!', addslashes($libproc_classement), $admin_procs_clas_form);
60
61        print confirmation_delete("./admin.php?categ=proc&sub=clas&action=del&idproc_classement=");
62        print $admin_procs_clas_form;
63
64        }
65
66switch($action) {
67        case 'update':
68                // vérification validité des données fournies.
69                $requete = " SELECT count(1) FROM procs_classements WHERE (libproc_classement='$form_libproc_classement' AND idproc_classement!='$idproc_classement' ) LIMIT 1 ";
70                $res = pmb_mysql_query($requete, $dbh);
71                $nbr = pmb_mysql_result($res, 0, 0);
72                if(!trim($form_libproc_classement)){
73                        error_form_message($msg["acquisition_lib_liv_inv"]);
74                }elseif ($nbr > 0) {
75                        error_form_message($form_libelle.$msg["proc_clas_lib_already_used"]);
76                } else {
77                        // O.K.  if item already exists UPDATE else INSERT
78                        if ($idproc_classement) {
79                                $requete = "UPDATE procs_classements SET libproc_classement='$form_libproc_classement' WHERE idproc_classement='$idproc_classement' ";
80                                $res = pmb_mysql_query($requete, $dbh);
81                        } else {
82                                $requete = "INSERT INTO procs_classements SET libproc_classement='$form_libproc_classement' ";
83                                $res = pmb_mysql_query($requete, $dbh);
84                        }
85                }
86                show_clas($dbh);
87                break;
88        case 'add':
89                if (empty($form_libproc_classement)) {
90                        clas_form();
91                } else {
92                        show_clas($dbh);
93                }
94                break;
95        case 'modif':
96                if ($idproc_classement) {
97                        $requete = "SELECT libproc_classement FROM procs_classements WHERE idproc_classement='$idproc_classement' ";
98                        $res = pmb_mysql_query($requete, $dbh);
99                        if(pmb_mysql_num_rows($res)) {
100                                $row=pmb_mysql_fetch_object($res);
101                                clas_form($row->libproc_classement, $idproc_classement);
102                        } else {
103                                show_clas($dbh);
104                        }
105                } else {
106                        show_clas($dbh);
107                }
108                break;
109        case 'del':
110                if ($idproc_classement) {
111                        $total = pmb_mysql_result(pmb_mysql_query("select count(1) from procs where num_classement='".$idproc_classement."' ", $dbh), 0, 0);
112                        if ($total==0) {
113                                $requete = "DELETE FROM procs_classements WHERE idproc_classement='$idproc_classement' ";
114                                $res = pmb_mysql_query($requete, $dbh);
115                                show_clas($dbh);
116                        } else {
117                                error_message(  $msg[proc_clas], $msg[proc_clas_used], 1, 'admin.php?categ=proc&sub=clas&action=');
118                        }
119                } else show_clas($dbh);
120                break;
121        default:
122                show_clas($dbh);
123                break;
124}
Note: See TracBrowser for help on using the repository browser.