Workarround para que no explote con un nivel de profundidad mayor a 4.

[mecon/meconlib.git] / lib / MECON / Agente.php

diff --git a/lib/MECON/Agente.php b/lib/MECON/Agente.php
index c80cad7a8ea08322e9dbfe4c1dc55ca6ca37b5f0..691efd3e9c4d6ae519226701bfedc77607f3ff9f 100644 (file)
--- a/lib/MECON/Agente.php
+++ b/lib/MECON/Agente.php
@@ -1,38 +1,36 @@
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +----------------------------------------------------------------------+
-// | PHP Version 4                                                        |
-// +----------------------------------------------------------------------+
-// | Copyright (c) 1997-2003 The PHP Group                                |
-// +----------------------------------------------------------------------+
-// | This source file is subject to version 2.02 of the PHP license,      |
-// | that is bundled with this package in the file LICENSE, and is        |
-// | available at through the world-wide-web at                           |
-// | http://www.php.net/license/2_02.txt.                                 |
-// | If you did not receive a copy of the PHP license and are unable to   |
-// | obtain it through the world-wide-web, please send a note to          |
-// | license@php.net so we can mail you a copy immediately.               |
-// +----------------------------------------------------------------------+
-// | Created: Thu Jun 19 15:17:11 2003
-// | Author:  Gonzalo Merayo <gmeray@mecon.gov.ar>
-// +----------------------------------------------------------------------+
-//
-// $Id$
-// $Author$
-// $URL$
-// $Date$
-// $Rev$
-//
+<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
+-------------------------------------------------------------------------------
+                             Ministerio de Economía
+                                    meconlib
+-------------------------------------------------------------------------------
+This file is part of meconlib.
+
+meconlib is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2 of the License, or (at your option)
+any later version.
+
+meconlib is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+ 
+You should have received a copy of the GNU General Public License; if not,
+write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+Boston, MA  02111-1307  USA
+-------------------------------------------------------------------------------
+Creado: Thu Jun 19 15:17:11 2003
+Autor:  Gonzalo Merayo <gmeray@mecon.gov.ar>
+-------------------------------------------------------------------------------
+$Id$
+-----------------------------------------------------------------------------*/
 
 #require_once 'PEAR.php';
 require_once 'DB.php';
 require_once 'MECON/Tiempo/Hora.php';
 
-
-
-
 // +X2C Class 131 :Agente
 /**
+ * @package
  * @access public
  */
 class Agente {
@@ -85,38 +83,8 @@ class Agente {
      */
     function Agente($agente) // ~X2C
   {
-      $this->agente = $agente;
-      $dsn = 'mysql://intranet:intranet@intranet-db/novedades';
-      $db = DB::connect($dsn);
-      if (DB::isError($db)) die ($db->getMessage("No pudo conectarse a la base"));
-      $sql = "SELECT * 
-              FROM web003
-             WHERE nrodoc = $agente";
-      $result = $db->query($sql);
-      if(DB::isError($result))
-        die($result->getMessage("query mal hecho"));
-      if($result->numRows() > 0)
-      {
-          $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC); 
-      }
-      else
-      {
-          $dsn = 'mysql://intranet:intranet@intranet-db/Contratados';
-          $db = DB::connect($dsn);
-          if (DB::isError($db)) die ($db->getMessage("No pudo conectarse a la base"));
-          $sql = "SELECT * 
-                  FROM Contratados
-                 WHERE nrodoc = $agente";
-          $result = $db->query($sql);
-          if(DB::isError($result))
-            die($result->getMessage("query mal hecho"));
-          if($result->numRows() > 0)
-          {
-            $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
-          }
-         else
-            trigger_error("Ahhhhh, agente no encontrado!"); 
-      }
+      if(! is_null($agente))
+        $this->buscarAgente($agente);
   }
   // -X2C
 
@@ -164,7 +132,7 @@ class Agente {
      * @return void
      * @access public
      */
-    function getCuil()// ~X2C
+    function getCuil() // ~X2C
     {
         $aux = $this->datos['cuil'];
         $aux = preg_replace('/(\d{2})(\d*)(\d{1})/','$1-$2-$3',$aux);
@@ -177,7 +145,7 @@ class Agente {
      * @return void
      * @access public
      */
-    function getOtrosDatos()// ~X2C
+    function getOtrosDatos() // ~X2C
     {
         if(!is_null($this->datos['tipo_agente'])) {
             $aux['tipo_doc'] = $this->datos['tipodoc']; 
@@ -207,6 +175,52 @@ class Agente {
         }
         return $aux;
     }
+    // -X2C
+
+    // +X2C Operation 154
+    /**
+     * @param  int $agente 
+     *
+     * @return void
+     * @access public
+     */
+    function buscarAgente($agente) // ~X2C
+    {
+      $this->agente = $agente;
+      $dsn = 'mysql://intranet:intranet@intranet-db/novedades';
+      $db = DB::connect($dsn);
+      if (DB::isError($db)) die ($db->getMessage("No pudo conectarse a la base"));
+      $sql = "SELECT * 
+              FROM web003
+             WHERE nrodoc = $agente";
+      $result = $db->query($sql);
+      if(DB::isError($result))
+        die($result->getMessage("query mal hecho"));
+      if($result->numRows() > 0)
+      {
+          $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC); 
+      }
+      else
+      {
+          $dsn = 'mysql://intranet:intranet@intranet-db/Contratados';
+          $db = DB::connect($dsn);
+          if (DB::isError($db)) die ($db->getMessage("No pudo conectarse a la base"));
+          $sql = "SELECT * 
+                  FROM Contratados
+                 WHERE nrodoc = $agente";
+          $result = $db->query($sql);
+          if(DB::isError($result))
+            die($result->getMessage("query mal hecho"));
+          if($result->numRows() > 0)
+          {
+            $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
+          }
+         else
+            return false;
+      }
+      return true;
+    }
+    // -X2C
 
 } // -X2C Class :Agente
 ?>