[Openinteract-commits] CVS: OpenInteract/OpenInteract/SPOPS DBI.pm,1.9,1.10

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract/OpenInteract/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv16225

Modified Files:
	DBI.pm 
Log Message:
fix leftover DEBUG/_w statements (doh!)


Index: DBI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/SPOPS/DBI.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** DBI.pm	2001/10/28 02:40:09	1.9
--- DBI.pm	2001/10/29 03:14:09	1.10
***************
*** 36,40 ****
  sub behavior_factory {
      my ( $class ) = @_;
-     DEBUG() && _w( 1, "Installing field discovery for ($class)" );
      return { manipulate_configuration => \&discover_fields };
  }
--- 36,39 ----
***************
*** 43,47 ****
      my ( $class ) = @_;
      my $CONFIG = $class->CONFIG;
!     return ( OK, undef ) unless ( $CONFIG->{field_discover} eq 'yes' );
      my $dbh = $class->global_datasource_handle( $CONFIG->{datasource} );
      unless ( $dbh ) {
--- 42,49 ----
      my ( $class ) = @_;
      my $CONFIG = $class->CONFIG;
!     unless ( $CONFIG->{field_discover} and $CONFIG->{field_discover} eq 'yes' ) {
!         return ( OK, undef );
!     }
! 
      my $dbh = $class->global_datasource_handle( $CONFIG->{datasource} );
      unless ( $dbh ) {
***************
*** 57,62 ****
      return ( NOTIFY, "Cannot discover fields: $@" ) if ( $@ );
      $CONFIG->{field} = $sth->{NAME};
-     DEBUG() && _w( 1, "Table: ($CONFIG->{base_table}); ",
- 			          "Fields: (", join( ', ', @{ $CONFIG->{field} } ), ")" );
      return ( OK, undef );
  }
--- 59,62 ----