4 require_once '../sistema/local_lib/Servicio.php';
6 $db = DB::connect('mysql://intranet:intranet@bal747f/intranet');
8 if (DB::isError($db)) {
15 $servicio = new Servicio(1);
16 if (PEAR::isError($err = $servicio->cargar($db))) {
23 echo "\n\n\nObtengo Hijos:\n";
24 if (PEAR::isError($err = $servicio->cargarHijos($db))) {
27 var_dump($servicio->getHijos());
32 $servicio->servicio = 0;
34 if (PEAR::isError($err = $servicio->guardar($db))) {
37 $err = $servicio->cargarHijos($db);
38 echo "Carga hijos: "; var_dump($err);
42 $id_nuevo = $servicio->servicio;
45 echo "\n\n\nModificación:\n";
46 $servicio->nombre = 'Me cambiaron';
47 if (PEAR::isError($err = $servicio->guardar($db))) {
54 echo "\n\n\nVerifica:\n";
55 $servicio->servicio = 1;
56 if (PEAR::isError($err = $servicio->cargar($db))) {
58 } elseif (PEAR::isError($err = $servicio->cargarHijos($db))) {
65 echo "\n\n\nBorra servicio $id_nuevo:\n";
66 $servicio->servicio = $id_nuevo;
67 $err = $servicio->borrar($db);
70 // Verifica obteniendo hijos.
71 echo "\n\n\nVerifica Hijos:\n";
72 $servicio->servicio = 1;
73 if (PEAR::isError($err = $servicio->cargarHijos($db))) {
76 var_dump($servicio->getHijos());