package Library::Data::Base;

use strict;
use warnings;
use Class::DBI::AbstractSearch;

use base qw(Class::DBI::Pg);
__PACKAGE__->set_db(Main =>
      'dbi:Pg:dbname=library;host=10.0.0.1, ‘user’, ‘pass’,{AutoCommit => 1});


package Library::Data::Res;

use strict;
use warnings;

use base qw( Library::Data::Base );

__PACKAGE__->set_up_table('res');



package WebApp;

use strict;
use warnings;

use Library::Data::Res;

my @results   = Library::Data::Res->search_where(
                                information_type        =>      \@info_type,
                                format                  =>      \@formats,
                                starting_point          =>      \@topics
        );

##</code><code>##

[Tue Apr  6 15:46:33 2004] [error] Library::Data::ResLibrary::Data::Res can't SELECT id FROM
   res WHERE  ( ( ( format = ? ) ) AND  AND ( ( 
starting_point = ? ) ) )

: DBD::Pg::st execute failed: ERROR:  syntax error at or 
near "AND" at character 126 
[for Statement "SELECT id 
FROM   res WHERE  ( ( ( format = ? ) ) AND  AND ( ( starting_point = ? ) ) )
"] at /usr/lib/perl5/site_perl/5.8.1/Ima/DBI.pm line 714.

errDBD::Pg::st execute failed: ERROR:  syntax error at or near "AND" at character 126 [for Statement "SELECT id

FROM   res WHERE  ( ( ( format = ? ) ) AND  AND ( ( starting_point = ? ) ) )
"] at /usr/lib/perl5/site_perl/5.8.1/Ima/DBI.pm line 714.

 at /usr/lib/perl5/site_perl/5.8.3/Class/DBI/AbstractSearch.pm line 26