[Zope-Perl] Beta 1

[Joseph Wayne Norton]

Gisle -

I believe I fixed a bug with the Zope.pm module for zope dbi.  If the
query is not a select statement, then $sth->{NUM_OF_FIELDS} should be
equal to 0.

Please review.

regards,

- joe n.

*** Zope.pm.orig        Tue Sep 19 05:24:27 2000
--- Zope.pm     Mon Sep 25 17:21:06 2000
***************
*** 269,275 ****
            my $sth = $dbh->prepare($q);
            my $rows = $sth->execute;
  
!           if (my $name = $sth->{NAME}) {
                # it was a select statement
                if ($heading) {
                    Python::raise 'Query Error', 'Multiple select statements'
--- 269,275 ----
            my $sth = $dbh->prepare($q);
            my $rows = $sth->execute;
  
!             if ($sth->{NUM_OF_FIELDS} and my $name = $sth->{NAME}) {
                # it was a select statement
                if ($heading) {
                    Python::raise 'Query Error', 'Multiple select statements'


At 18 Sep 2000 09:31:10 +0200,
Gisle Aas wrote:
> 
> The URLs to download beta1 from are:
> 
>   ftp://ftp.ActiveState.com/Zope-Perl/pyperl-1.0.beta1.tar.gz
>   ftp://ftp.ActiveState.com/Zope-Perl/zoperl-1.0.beta1.tar.gz
> 
> Zope-perl maillist  -  Zope-perl@zope.org
> http://lists.zope.org/mailman/listinfo/zope-perl
>