[Papo-hackers] papo/neb/PAPO DataSource.pm Condition.pm

[John Lenton]

CVSROOT:        /cvsroot/papo
Module name:    papo
Changes by:     John Lenton <address@hidden>    03/04/25 14:37:56

Modified files:
        neb/PAPO       : DataSource.pm 
Added files:
        neb/PAPO       : Condition.pm 

Log message:
        use PAPO::DataSource
        
        $ds = PAPO::DataSource->new("PAPO-ER.zot", "name" => "fooDS");
        $ds->search("client");
        $ds->dated("client", "own_document");
        $ds->search("own_document");
        print $ds->datasource;
        
        produce
        
        <datasource name="fooDS" 
tables="_client_data,_persona_data,_alien_entity_data,_entity_data,own_document">
        <condition>
        <and>
        <!-- pega client con su persona -->
        <eq>
        <cfield name="_client_data.persona"/>
        <cfield name="_persona_data._table"/>
        </eq>
        <!-- pega persona con su alien_entity -->
        <eq>
        <cfield name="_persona_data.alien_entity"/>
        <cfield name="_alien_entity_data._table"/>
        </eq>
        <!-- pega alien_entity con su entity -->
        <eq>
        <cfield name="_alien_entity_data.entity"/>
        <cfield name="_entity_data._table"/>
        </eq>
        <!-- pega client con own_document por fecha -->
        <and>
        <le>
        <cfield name="_client_data._start_t"/>
        <cfield name="own_document.date"/>
        </le>
        <or>
        <null>
        <cfield name="_client_data._end_t"/>
        </null>
        <le>
        <cfield name="own_document.date"/>
        <cfield name="_client_data._end_t"/>
        </le>
        </or>
        </and>
        </and>
        </condition>
        </datasource>
        
        ahora solo falta un neb que use esto, y estamos.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/papo/papo/neb/PAPO/Condition.pm?rev=1.1
http://savannah.gnu.org/cgi-bin/viewcvs/papo/papo/neb/PAPO/DataSource.pm.diff?tr1=1.1&tr2=1.2&r1=text&r2=text