]> git.llucax.com Git - mecon/ai.git/blob - test/grupo_secciones.php
b7887131a8ebeb1820b60ba336a03246307cfcaf
[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 $grupo =& new GrupoSecciones;
14
15 $grupo->grupo = 3;
16 $err =& $grupo->cargar($db);
17 if (PEAR::isError($err)) {
18     var_dump($err);
19 } else {
20     var_dump($grupo);
21 }
22
23 echo "\n\n\nAlta:\n";
24
25 // Alta.
26 $grupo->grupo = 0;
27 $grupo->secciones = array(1, 4, 6, 8);
28 $err = $grupo->guardar($db);
29 if (PEAR::isError($err)) {
30     var_dump($err);
31 } else {
32     var_dump($err);
33 }
34
35 ?>