]> git.llucax.com Git - mecon/ai.git/blob - test/grupo_secciones.php
Se arregla un bug.
[mecon/ai.git] / test / grupo_secciones.php
1 <?
2
3 require_once 'DB.php';
4 require_once '../sistema/local_lib/GrupoSecciones.php';
5
6 $db = DB::connect('mysql://intranet:intranet@bal747f/intranet');
7
8 if (DB::isError($db)) {
9     var_dump($db);
10     exit;
11 }
12
13
14 // Carga.
15 echo "Cargas:\n";
16 $grupo = new GrupoSecciones(1);
17 $err   = $grupo->cargar($db);
18 if (PEAR::isError($err)) {
19     var_dump($err);
20 } else {
21     var_dump($grupo);
22 }
23
24 // Obtengo hijos.
25 echo "\n\n\nObtengo Hijos:\n";
26 $err = $grupo->cargarHijos($db);
27 if (PEAR::isError($err)) {
28     var_dump($err);
29 } else {
30     var_dump($grupo->getHijos());
31 }
32
33 // Alta.
34 echo "\n\n\nAlta:\n";
35 $grupo->grupo  = 0;
36 $grupo->padre  = 1;
37 $grupo->secciones = array(1, 4, 6, 8);
38 $err = $grupo->guardar($db);
39 if (PEAR::isError($err)) {
40     var_dump($err);
41 }
42 $err = $grupo->cargarHijos($db);
43 echo "Carga hijos: "; var_dump($err);
44 var_dump($grupo);
45
46 // Nuevo ID.
47 $id_nuevo = $grupo->grupo;
48
49 // ModificaciĆ³n.
50 echo "\n\n\nModificaciĆ³n:\n";
51 $grupo->secciones = array(2, 3, 5, 11);
52 $grupo->nombre = 'Me cambiaron';
53 $err = $grupo->guardar($db);
54 if (PEAR::isError($err)) {
55     var_dump($err);
56 } else {
57     var_dump($grupo);
58 }
59
60 // Verifica.
61 echo "\n\n\nVerifica:\n";
62 $grupo->grupo = 1;
63 $err = $grupo->cargar($db);
64 if (PEAR::isError($err)) {
65     var_dump($err);
66 } else {
67     var_dump($grupo);
68 }
69
70 // Borra.
71 echo "\n\n\nBorra grupo $id_nuevo:\n";
72 $grupo->grupo = $id_nuevo;
73 $err = $grupo->borrar($db);
74 var_dump($err);
75
76 // Verifica obteniendo hijos.
77 echo "\n\n\nVerifica Hijos:\n";
78 $grupo->grupo = 1;
79 $err = $grupo->cargarHijos($db);
80 if (PEAR::isError($err)) {
81     var_dump($err);
82 } else {
83     var_dump($grupo->getHijos());
84 }
85
86 ?>