source: pmb4.2/trunk/fuentes/pmb/catalog/caddie/pointage/selection.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: 3.3 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: selection.inc.php,v 1.16 2015-04-03 11:16:22 jpermanne Exp $
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9if ($idcaddie) {
10        $myCart = new caddie($idcaddie);
11        print pmb_bidi(aff_cart_titre ($myCart));
12        $droit = verif_droit_proc_caddie($id) ;
13        switch ($action) {
14                case 'form_proc' :
15                        $hp = new parameters ($id) ;
16                        $hp->gen_form("./catalog.php?categ=caddie&sub=pointage&moyen=selection&action=pointe_item&idcaddie=$idcaddie&id=$id") ;
17                        break;
18                case 'pointe_item':
19                        if ($droit) {
20                                $hp = new parameters ($id) ;
21                                $hp->get_final_query();
22                                echo "<hr />".$hp->final_query."<hr />"; ;
23                                if (pmb_strtolower(pmb_substr($hp->final_query,0,6))!="select") {
24                                        error_message_history($msg['caddie_action_invalid_query'],$msg['requete_echouee'],1);
25                                        exit();
26                                }
27                                if (!explain_requete($hp->final_query)) die("<br /><br />".$hp->final_query."<br /><br />".$msg["proc_param_explain_failed"]."<br /><br />".$erreur_explain_rqt);
28                                $result_selection = pmb_mysql_query($hp->final_query, $dbh);
29                                if (!$result_selection) {
30                                        error_message_history($msg['caddie_action_invalid_query'],$msg['requete_echouee'].pmb_mysql_error(),1);
31                                        exit();
32                                }
33                                if(pmb_mysql_num_rows($result_selection)) {
34                                        while ($obj_selection = pmb_mysql_fetch_object($result_selection)) {
35                                                $myCart->pointe_item($obj_selection->object_id,$obj_selection->object_type);
36                                        }
37                                } 
38                        }
39                        print pmb_bidi(aff_cart_nb_items ($myCart)) ;
40                        break;
41                default:
42                        print pmb_bidi(aff_cart_nb_items ($myCart)) ;
43                        show_procs($idcaddie);
44                        break;
45                }
46        } else aff_paniers($idcaddie, "NOTI", "./catalog.php?categ=caddie&sub=pointage&moyen=selection", "", $msg[caddie_select_pointe], "", 0, 0, 0);
47
48function show_procs($idcaddie) {
49        global $msg;
50        global $PMBuserid;
51        global $dbh;
52       
53        print "<table>";
54        // affichage du tableau des procédures
55        if ($PMBuserid!=1) $where=" and (autorisations='$PMBuserid' or autorisations like '$PMBuserid %' or autorisations like '% $PMBuserid %' or autorisations like '% $PMBuserid') ";
56        $requete = "SELECT idproc, type, name, requete, comment, autorisations, parameters FROM caddie_procs WHERE type='SELECT' $where ORDER BY name ";
57        $res = pmb_mysql_query($requete, $dbh);
58
59        $nbr = pmb_mysql_num_rows($res);
60
61        $parity=1;
62        for($i=0;$i<$nbr;$i++) {
63                $row=pmb_mysql_fetch_row($res);
64                $rqt_autorisation=explode(" ",$row[5]);
65                if (array_search ($PMBuserid, $rqt_autorisation)!==FALSE || $PMBuserid == 1) {
66                        if ($parity % 2) {
67                                $pair_impair = "even";
68                        } else {
69                                $pair_impair = "odd";
70                        }
71                        $parity += 1;
72                        if (preg_match_all("|!!(.*)!!|U",$row[3],$query_parameters))  $action = "form_proc" ;
73                        else $action = "pointe_item" ;
74                $tr_javascript=" onmouseover=\"this.className='surbrillance'\" onmouseout=\"this.className='$pair_impair'\" onmousedown=\"document.location='./catalog.php?categ=caddie&sub=pointage&moyen=selection&action=$action&id=$row[0]&idcaddie=$idcaddie';\" ";
75                print pmb_bidi("<tr class='$pair_impair' $tr_javascript style='cursor: pointer'>
76                                        <td>
77                                                <strong>$row[2]</strong><br />
78                                                <small>$row[4]&nbsp;</small>
79                                                </td>
80                                </tr>");
81                }
82        }
83        print "</table>";
84}
85
Note: See TracBrowser for help on using the repository browser.