debian/0000755000000000000000000000000011344214741007167 5ustar debian/control0000644000000000000000000000304111344204222010561 0ustar Source: libdbix-recordset-perl Section: perl Priority: optional Build-Depends: debhelper (>= 7.0.50~) Build-Depends-Indep: perl, libdbi-perl Maintainer: Debian Perl Group Uploaders: Jonathan Yu , gregor herrmann Standards-Version: 3.8.4 Homepage: http://search.cpan.org/dist/DBIx-Recordset/ Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdbix-recordset-perl/ Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdbix-recordset-perl/ Package: libdbix-recordset-perl Architecture: all Depends: ${misc:Depends}, libdbi-perl, ${perl:Depends} Description: Perl extension for DBI recordsets DBIx::Recordset is a perl module for abstraction and simplification of database access. . The goal is to make standard database access (select/insert/update/delete) easier to handle and independent of the underlying DBMS. Special attention is made on web applications to make it possible to handle the state-less access and to process the posted data of form fields, but DBIx::Recordset is not limited to web applications. . DBIx::Recordset uses the DBI API to access the database, so it should work with every database for which a DBD driver is available (see also DBIx::Compat). . Most public functions take a hash reference as parameter, which makes it simple to supply various different arguments to the same function. The parameter hash can also be taken from a hash containing posted form fields like those available with CGI.pm, mod_perl, HTML::Embperl and others. debian/libdbix-recordset-perl.examples0000644000000000000000000000000511344203467015272 0ustar eg/* debian/copyright0000644000000000000000000000226211344214564011127 0ustar Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135 Maintainer: G.Richter Source: http://search.cpan.org/dist/DBIx-Recordset/ Name: DBIx-Recordset Files: * Copyright: 1997-2001, G.Richter / ECOS License: Artistic or GPL-1+ Files: debian/* Copyright: 2001, 2002, 2003, 2004, Angus Lees 2009, Ryan Niebur 2009, Jonathan Yu 2010, gregor herrmann License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian GNU/Linux systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic' License: GPL-1+ This program 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 1, or (at your option) any later version. . On Debian GNU/Linux systems, the complete text of the GNU General Public License can be found in `/usr/share/common-licenses/GPL' debian/watch0000644000000000000000000000036011245247425010224 0ustar # format version number, currently 3; this line is compulsory! version=3 # URL to the package page followed by a regex to search http://search.cpan.org/dist/DBIx-Recordset/ .*/DBIx-Recordset-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ debian/libdbix-recordset-perl.docs0000644000000000000000000000001411344203416014376 0ustar README TODO debian/patches/0000755000000000000000000000000011344214706010617 5ustar debian/patches/spelling.patch0000644000000000000000000001027211344213666013463 0ustar Author: gregor herrmann Description: spelling fixes --- a/Intrors.pod +++ b/Intrors.pod @@ -4,7 +4,7 @@ This introduction gives an overview how to use I together with I. Since there are only a few I specific -things herein, it should be also usefull for non I users. +things herein, it should be also useful for non I users. =head2 Overview --- a/Recordset.pm +++ b/Recordset.pm @@ -4209,7 +4209,7 @@ You can also preset these parameters with the TableAttr method of DBIx::Database. This allows you to presetup most parameters for the whole database and they will be use every time you create a new -DBIx::Recordset object, without specifing it every time. +DBIx::Recordset object, without specifying it every time. =item B @@ -4650,7 +4650,7 @@ Only for tieing a hash! Gives an reference to an function that is called when more then one record for a given hash key is found to merge the records into one. The function receives -a refence to both records a arguments. If more the two records are found, the function is +a reference to both records a arguments. If more the two records are found, the function is called again for each following record, which is already merged data as first parameter. The following example sets up a hash, that, when more then one record with the same id is @@ -5037,7 +5037,7 @@ Additonal all record of links with have the C set, are either deleted or the correspending field is set to undef. What to do is determinated by the constants C and C. This is -very helpfull to guaratee the inetgrity of the database. +very helpful to guaratee the inetgrity of the database. B setup (only syntax 1), where @@ -5648,7 +5648,7 @@ =item $reconnect If set, forces I to C any preexisting database handle and call connect in any -case. This is usefull in together with I. While the database connection are still kept +case. This is useful in together with I. While the database connection are still kept open by I, I preforms a test if the handle is still vaild (which DBIx::Database itself wouldn't). @@ -5765,10 +5765,10 @@ The CreateTables method is used to create an modify the schema of your database. The idea is to define the schema as a Perl data structure and give it to this function, it will compare the actual schema of the database with the one provided and creates -new tables, new fields or drop fields as neccessary. It also sets the permission on the +new tables, new fields or drop fields as necessary. It also sets the permission on the tables and is able to create indices for the tables. It will B drop a whole table! NOTE: Create tables cannot deteminate changes of the datatype of a fields, because DBI is -not able to provide this information in a standart way. +not able to provide this information in a standard way. =over 4 @@ -5913,7 +5913,7 @@ =item !Contraints -Used to define contraints. See example under C. +Used to define constraints. See example under C. =over 4 --- a/Recordset/DBSeq.pm +++ b/Recordset/DBSeq.pm @@ -128,8 +128,8 @@ =head1 DESCRIPTION DBIx::Recordset::FileSeq generates unique numbers. State is kept in the -one table of a database accessable via DBI. With the new constructor you -give an open database handle and sepcify the the table where state should be kept. +one table of a database accessible via DBI. With the new constructor you +give an open database handle and specify the the table where state should be kept. Optionaly you can give a min and a max values, which will be used for new sequences. --- a/Recordset/FileSeq.pm +++ b/Recordset/FileSeq.pm @@ -168,7 +168,7 @@ DBIx::Recordset::FileSeq generates unique numbers. State is kept in the -filesystem. With the new constructor you sepcify the directory +filesystem. With the new constructor you specify the directory where the state is kept. (First parameter is a dummy values, that will receive the database handle from DBIx::Recordset, but you don't need it when you use it without DBIx::Recordset). Optionaly you can give a min and debian/patches/Database.pm.patch0000644000000000000000000000035411344210503013750 0ustar Author: Angus Lees --- a/Database.pm +++ b/Database.pm @@ -609,6 +609,7 @@ { $self->{'*DBHdl'} = $data_source; + $self->{'*Driver'} = $data_source->{Driver}->{Name}; } else { debian/patches/pod.patch0000644000000000000000000001356411344214215012426 0ustar Author: gregor herrmann Description: pod fixes --- a/Intrors.pod +++ b/Intrors.pod @@ -1,5 +1,9 @@ =pod +=head1 NAME + +DBIx::Intrors - Embperl and DBIx::Recordset + =head1 Embperl and DBIx::Recordset This introduction gives an overview how to use I together --- a/Compat.pm +++ b/Compat.pm @@ -612,6 +612,8 @@ Currently there are entry for +=over + =item B =item B @@ -630,6 +632,8 @@ =item B +=back + if you detect an error in the definition or add an definition for a new DBD driver, please mail it to the author. --- a/Recordset.pm +++ b/Recordset.pm @@ -4211,6 +4211,8 @@ for the whole database and they will be use every time you create a new DBIx::Recordset object, without specifying it every time. +=over + =item B Specifies the database to which to connect. This information can be given in @@ -4361,12 +4363,12 @@ The value from this field from the last insert could be retrieved by the function C. -=item C +=item B Name of the sequence to use for this table when inserting a new record and C is defind. Defaults to _seq. -=item C +=item B Name and Parameter for a class that can generate unique sequence values. This is a string that holds comma separated values. The first value is the class name and @@ -4549,8 +4551,6 @@ See also B and B below - - =item B This parameter can be used to link multiple tables together. It takes a @@ -4563,8 +4563,12 @@ occur in a link definition (see next paragraph). For a detailed description of how links are handled, see B below. +=back + =head2 Link Parameters +=over + =item B The B parameter holds a fieldname which is used to retrieve @@ -4664,10 +4668,14 @@ '!MergeFunc' => sub { my ($a, $b) = @_ ; $a->{sum} += $b->{sum} ; }, '!PrimKey' => 'id'} ; +=back + =head2 Where Parameters The following parameters are used to build an SQL WHERE expression +=over + =item B<$where> Give an SQL WHERE expression literaly. If C<$where> is specified, all @@ -4797,9 +4805,12 @@ (name = 'Richter' or country = 'de') and id = 5 +=back =head2 Search parameters +=over + =item B<$start> First row to fetch. The row specified here will appear as index 0 in @@ -4865,11 +4876,14 @@ See also B +=back =head2 Execute parameters The following parameters specify which action is to be executed: +=over + =item B<=search> search data @@ -4890,6 +4904,7 @@ setup empty object +=back =head1 METHODS @@ -5183,7 +5198,7 @@ itself is destroyed. With this method you can make sure that every update is really written to the db. -=item $set -> Dirty () +=item B<$set -E Dirty ()> Returns true if there is at least one dirty row containing unflushed data. @@ -5227,20 +5242,20 @@ Returns the DBI statement handle of the last select. -=item $set -> TableName () +=item B<$set -E TableName ()> Returns the name of the table of the recordset object. -=item $set -> TableNameWithOutFilter () +=item B<$set -E TableNameWithOutFilter ()> Returns the name of the table of the recordset object, but removes the string given with !TableFilter, if it is the prefix of the table name. -=item $set -> PrimKey () +=item B<$set -E PrimKey ()> Returns the primary key given in the !PrimKey parameter. -=item $set -> TableFilter () +=item B<$set -E TableFilter ()> Returns the table filter given in the !TableFilter parameter. @@ -5282,7 +5297,7 @@ there is no link for that field. -=item $set -> TableAttr ($key, $value, $table) +=item B<$set -E TableAttr ($key, $value, $table)> get and/or set an attribute of the table @@ -5302,13 +5317,13 @@ =back -=item $set -> Stats () +=item B<$set -E Stats ()> Returns an hash ref with some statistical values. -=item $set -> LastError () +=item B<$set -E LastError ()> -=item DBIx::Recordset -> LastError () +=item B LastError ()> Returns the last error message, if any. If called in an array context the first element receives the last error message and the second the last error code. @@ -5754,11 +5769,13 @@ Returns a reference to an array of all fieldtypes for the given table. +=over + =item $db -> do ($statement, $attribs, \%params) Same as DBI. Executes a single SQL statement on the open database. - +=back =head2 $db -> CreateTables ($dbschema, $schemaname, $user, $setpriv, $alterconstraints) @@ -6092,6 +6109,8 @@ difference between various DBD drivers and their underlying database systems. Currently, there are definitions for: +=over + =item B =item B @@ -6112,6 +6131,8 @@ =item B +=back + DBIx::Recordset has been tested with all those DBD drivers (on Linux 2.0.32, except DBD::ODBC, which has been tested on Windows '95 using Access 7 and with MS SQL Server). @@ -6408,14 +6429,21 @@ =head1 SEE ALSO +=over + =item Perl(1) + =item DBI(3) + =item DBIx::Compat(3) + =item HTML::Embperl(3) http://perl.apache.org/embperl/ + =item Tie::DBI(3) http://stein.cshl.org/~lstein/Tie-DBI/ +=back =cut --- a/Recordset/DBSeq.pm +++ b/Recordset/DBSeq.pm @@ -158,8 +158,11 @@ =head1 SEE ALSO +=over + =item DBIx::Recordset +=back =cut --- a/Recordset/FileSeq.pm +++ b/Recordset/FileSeq.pm @@ -191,8 +191,11 @@ =head1 SEE ALSO +=over + =item DBIx::Recordset +=back =cut --- a/Database.pm +++ b/Database.pm @@ -1503,7 +1503,7 @@ =head1 NAME -DBIx::Database / DBIx::Recordset - Perl extension for DBI recordsets +DBIx::Database - Perl extension for DBI recordsets =head1 SYNOPSIS debian/patches/test.pl.patch0000644000000000000000000000162511344210256013231 0ustar Description: Fix incorrect use of DBI::SQL_* constants in test.pl. Author: Angus Lees Date: Sat, 28 Sep 2002 17:20:44 +1000 --- a/test.pl +++ b/test.pl @@ -412,7 +412,7 @@ sub DropTestTables { my ($_dbh, @tlist) =@_; - return unless ($dbh and @tlist); + return unless ($_dbh and @tlist); foreach (@tlist) { if ($QuoteIdentifier) @@ -3711,12 +3711,12 @@ $db -> TableAttr ($Table[1], '!Filter', { - DBI::SQL_CHAR => + DBI::SQL_CHAR, [ sub { shift =~ /(\d\d)\.(\d\d)\.(\d\d)/ ; "19$3$2$1"}, sub { shift =~ /\d\d(\d\d)(\d\d)(\d\d)/ ; "$3.$2.$1"} ], - DBI::SQL_VARCHAR => + DBI::SQL_VARCHAR, [ sub { shift =~ /(\d\d)\.(\d\d)\.(\d\d)/ ; "19$3$2$1"}, sub { shift =~ /\d\d(\d\d)(\d\d)(\d\d)/ ; "$3.$2.$1"} debian/patches/Recordset.pm.patch0000644000000000000000000002264411344210260014204 0ustar Author: Angus Lees Date: Sun, 23 Dec 2001 17:47:22 +1100 Description: Replace several uses of '*Table' with '*MainTable' to try and avoid some of the side affects of !LinkName. Date: Tue, 29 Jan 2002 16:53:47 +1100 Description: patch (approved by upstream) to avoid "fully qualifying" fields that aren't in %tab4f - since that means they aren't column names (another side affect of !LinkName). Date: Sat, 28 Sep 2002 17:20:44 +1000 Description: * Call savecroak on *Recordset object, not $self. * Use *LastRecordFetch as the "row before the first" indicator. This prevents Next() looping back to the start in some cases. * Remove *LastRecord "cache", fixing Next(), MoreRecords(), Next() bug. * Allow TableAttr's to set an attribute to a false value. (Thanks René Seindal) * Don't return a tied row from Next when TieRow=0 (closes: #133165) (Thanks René Seindal) --- a/Recordset.pm +++ b/Recordset.pm @@ -735,8 +735,7 @@ { my ($self) = @_ ; - # 'begin' method is unhandled by DBI - ## ?? $self->{'*DBHdl'} -> func('begin') unless $self->{'*DBHdl'}->{'AutoCommit'}; + $self->{'*DBHdl'}->begin_work unless $self->{'*DBHdl'}->{'AutoCommit'}; } ## ---------------------------------------------------------------------------- @@ -866,7 +865,7 @@ sub TableName ($) { - return $_[0] -> {'*Table'} ; + return $_[0] -> {'*MainTable'} ; } ## ---------------------------------------------------------------------------- @@ -880,7 +879,7 @@ sub TableNameWithoutFilter ($) { - my $tab = $_[0] -> {'*Table'} ; + my $tab = $_[0] -> {'*MainTable'} ; return $1 if ($tab =~ /^$_[0]->{'*TableFilter'}(.*?)$/) ; return $tab ; @@ -1036,7 +1035,7 @@ $f = $v -> {'!MainField'} ; $mf -> {$f} = $k ; $mf -> {"$tab4f->{$f}.$f"} = $k ; - print LOG "DB: Field $v->{'!MainField'} has link $k\n" ; + print LOG "DB: Field $v->{'!MainField'} has link $k\n" if ($self -> {'*Debug'} > 2) ; } $self -> {'*MainFields'} = $mf ; } @@ -1203,17 +1202,17 @@ { my ($self, $fields, $vals, $bind_values, $bind_types) = @_ ; - $self -> savecroak ("Insert disabled for table $self->{'*Table'}") if (!($self->{'*WriteMode'} & wmINSERT)) ; + $self -> savecroak ("Insert disabled for table $self->{'*MainTable'}") if (!($self->{'*WriteMode'} & wmINSERT)) ; $self->{'*Stats'}{insert}++ ; if (defined ($bind_values)) { - return $self->do ("INSERT INTO $self->{'*Table'} ($fields) VALUES ($vals)", undef, $bind_values, $bind_types) ; + return $self->do ("INSERT INTO $self->{'*MainTable'} ($fields) VALUES ($vals)", undef, $bind_values, $bind_types) ; } else { - return $self->do ("INSERT INTO $self->{'*Table'} ($fields) VALUES ($vals)") ; + return $self->do ("INSERT INTO $self->{'*MainTable'} ($fields) VALUES ($vals)") ; } } @@ -1233,17 +1232,17 @@ { my ($self, $data, $where, $bind_values, $bind_types) = @_ ; - $self -> savecroak ("Update disabled for table $self->{'*Table'}") if (!($self->{'*WriteMode'} & wmUPDATE)) ; + $self -> savecroak ("Update disabled for table $self->{'*MainTable'}") if (!($self->{'*WriteMode'} & wmUPDATE)) ; $self->{'*Stats'}{update}++ ; if (defined ($bind_values)) { - return $self->do ("UPDATE $self->{'*Table'} SET $data WHERE $where", undef, $bind_values, $bind_types) ; + return $self->do ("UPDATE $self->{'*MainTable'} SET $data WHERE $where", undef, $bind_values, $bind_types) ; } else { - return $self->do ("UPDATE $self->{'*Table'} SET $data WHERE $where") ; + return $self->do ("UPDATE $self->{'*MainTable'} SET $data WHERE $where") ; } } @@ -1262,18 +1261,18 @@ { my ($self, $where, $bind_values, $bind_types) = @_ ; - $self -> savecroak ("Delete disabled for table $self->{'*Table'}") if (!($self->{'*WriteMode'} & wmDELETE)) ; - $self -> savecroak ("Clear (Delete all) disabled for table $self->{'*Table'}") if (!$where && !($self->{'*WriteMode'} & wmCLEAR)) ; + $self -> savecroak ("Delete disabled for table $self->{'*MainTable'}") if (!($self->{'*WriteMode'} & wmDELETE)) ; + $self -> savecroak ("Clear (Delete all) disabled for table $self->{'*MainTable'}") if (!$where && !($self->{'*WriteMode'} & wmCLEAR)) ; $self->{'*Stats'}{'delete'}++ ; if (defined ($bind_values)) { - return $self->do ("DELETE FROM $self->{'*Table'} " . ($where?"WHERE $where":''), undef, $bind_values, $bind_types) ; + return $self->do ("DELETE FROM $self->{'*MainTable'} " . ($where?"WHERE $where":''), undef, $bind_values, $bind_types) ; } else { - return $self->do ("DELETE FROM $self->{'*Table'} " . ($where?"WHERE $where":'')) ; + return $self->do ("DELETE FROM $self->{'*MainTable'} " . ($where?"WHERE $where":'')) ; } } @@ -1322,6 +1321,7 @@ $self->{'*EOD'} = undef ; $self->{'*SelectFields'} = undef ; $self->{'*LastRecord'} = undef ; + $self->{'*LastRecordFetch'} = undef ; $order ||= '' ; $expr ||= '' ; @@ -1486,8 +1486,6 @@ $fetch += $self->{'*FetchStart'} ; - return $self->{'*LastRecord'} if (defined ($self->{'*LastRecordFetch'}) && $fetch == $self->{'*LastRecordFetch'} && $self->{'*LastRecord'}) ; - my $max ; my $key ; my $dat ; # row data @@ -1606,12 +1604,24 @@ if (ref $dat eq 'ARRAY') { # just an Array so tie it now my $arr = $dat ; - $dat = {} ; - $obj = tie %$dat, 'DBIx::Recordset::Row', $self, $self->{'*SelectFields'} , $arr ; - $data -> [$fetch] = $dat ; - $self->{'*LastRow'} = $fetch ; - $self->{'*LastKey'} = $obj -> FETCH ($self -> {'*PrimKey'}) ; + + if ($self -> {'*TieRow'}) + { + $dat = {} ; + $obj = tie %$dat, 'DBIx::Recordset::Row', $self, $self->{'*SelectFields'} , $arr ; + $data -> [$fetch] = $dat ; + $self->{'*LastRow'} = $fetch ; + $self->{'*LastKey'} = $obj -> FETCH ($self -> {'*PrimKey'}) ; + } else { + my $fld = $self->{'*SelectFields'} ; + + $dat = {}; + @$dat{@$fld} = @$arr ; + + $self->{'*LastRow'} = $fetch ; + $self->{'*LastKey'} = $dat -> {$self -> {'*PrimKey'}} if ($self -> {'*PrimKey'}) ; } + } else { #my $v ; @@ -1673,6 +1683,7 @@ my $self = shift ; $self->{'*LastRecord'} = undef ; + $self->{'*LastRecordFetch'} = undef ; $self ->{'*LastRow'} = 0 ; } @@ -1725,7 +1736,7 @@ $lr -= $self -> {'*FetchStart'} ; $lr = 0 if ($lr < 0) ; - $lr++ if (defined ($self -> {'*LastRecord'})) ; + $lr++ if (defined ($self -> {'*LastRecordFetch'})) ; ##$lr++ if ($_[0] ->{'*CurrRow'} > 0 || $_[0] ->{'*EOD'}) ; my $rec = $self -> FETCH ($lr) ; @@ -2729,7 +2740,7 @@ ($self = $newself) or return undef ; } - $self -> savecroak ("Delete disabled for table $self->{'*Table'}") if (!($self->{'*WriteMode'} & wmDELETE)) ; + $self -> savecroak ("Delete disabled for table $self->{'*MainTable'}") if (!($self->{'*WriteMode'} & wmDELETE)) ; my @bind_values ; my @bind_types ; @@ -2737,7 +2748,7 @@ my $clear_disabled_diag = "(!$expr && !($self->{'*WriteMode'} & wmCLEAR))"; - $self -> savecroak ("Clear (Delete all) disabled for table $self->{'*Table'}: $clear_disabled_diag") if (!$expr && !($self->{'*WriteMode'} & wmCLEAR)) ; + $self -> savecroak ("Clear (Delete all) disabled for table $self->{'*MainTable'}: $clear_disabled_diag") if (!$expr && !($self->{'*WriteMode'} & wmCLEAR)) ; my $links = $self -> {'*Links'} ; @@ -3124,11 +3135,11 @@ $buttons .= "$esc" ; $buttons .= "$esc " ; } - if ($more > 0 && $textnext) + if ($more && $textnext) { $buttons .= "$esc " ; } - if ($more > 0 && $textlast) + if ($more && $textlast) { $buttons .= "$esc" ; } @@ -3319,7 +3330,7 @@ print DBIx::Recordset::LOG "DB: ::CurrRow::DESTROY\n" if ($self -> {'*Recordset'} -> {'*Debug'} > 3) ; } } ; - $self -> savecroak ($@) if (!$orgerr && $@) ; + $self -> {'*Recordset'} -> savecroak ($@) if (!$orgerr && $@) ; warn $@ if ($orgerr && $@) ; } @@ -3682,7 +3693,7 @@ print DBIx::Recordset::LOG "DB: ::Hash::DESTROY\n" if ($self -> {'*Recordset'} -> {'*Debug'} > 3) ; } } ; - $self -> savecroak ($@) if (!$orgerr && $@) ; + $self -> {'*Recordset'} -> savecroak ($@) if (!$orgerr && $@) ; warn $@ if ($orgerr && $@) ; } @@ -4036,7 +4047,7 @@ { $rc = $rs -> Update ($dat, {$pk => $pko} ) ; } - if ($rc != 1 && $rc ne '') + if ($rc ne '' && $rc != 1) { # must excatly be one row! print DBIx::Recordset::LOG "DB: ERROR: Row Update has updated $rc rows instead of one ($rs->{'*LastSQLStatement'})\n" if ($rs->{'*Debug'}) ; #$rs -> savecroak ("DB: ERROR: Row Update has updated $rc rows instead of one ($rs->{'*LastSQLStatement'})") ; debian/patches/series0000644000000000000000000000013411344211077012030 0ustar Compat.pm.patch Database.pm.patch Recordset.pm.patch test.pl.patch spelling.patch pod.patch debian/patches/Compat.pm.patch0000644000000000000000000000100211344210263013461 0ustar Description: Tell Compat.pm that Pg type '4' is numeric (Postgres 7.3). Author: Angus Lees Date: Tue, 19 Aug 2003 22:36:31 +1000 --- a/Compat.pm +++ b/Compat.pm @@ -320,6 +320,7 @@ 'SupportSQLJoin' => 1, # Driver does not supports INNER/LEFT/RIGHt JOIN Syntax in SQL select 'NumericTypes' => { + 4 => 1, 20 => 1, 21 => 1, 22 => 1, debian/compat0000644000000000000000000000000211344203267010366 0ustar 7 debian/changelog0000644000000000000000000001037011344214676011051 0ustar libdbix-recordset-perl (0.26-2) unstable; urgency=low [ Jonathan Yu ] * Bringing this package under the pkg-perl group (Closes: #543608) * Updated d/watch with CPAN search site * Standards-Version 3.8.3 + Remove version dependency on perl + Add Vcs-* and Homepage fields [ Ryan Niebur ] * Update jawnsy's email address [ gregor herrmann ] * debian/control: Added: ${misc:Depends} to Depends: field. * Add /me to Uploaders. * Set Standards-Version to 3.8.4 (no changes). * Debhelper 7. * Split out changes to upstream code into patches. * New patches: pod.patch, spelling.patch. * Convert to source format 3.0 (quilt). * debian/coypright: format according to DEP5, update packaging copyright. -- gregor herrmann Fri, 05 Mar 2010 15:48:25 +0100 libdbix-recordset-perl (0.26-1) unstable; urgency=low * New upstream release. (Closes: #255664) - This version should work with perl 5.8.x - Deals with quoted table names (eg DBD::mysql), closes: #251452 - (0.25 was mostly an upstream sync with the Debian patches) * Bump standards version to 3.6.1. -- Angus Lees Fri, 8 Oct 2004 19:21:49 +1000 libdbix-recordset-perl (0.24-7) unstable; urgency=low * Change section to "perl". * Apply upstream patch to improve PrevNextForm escaping with Embperl (v2). * Tell Compat.pm that Pg type '4' is numeric (Postgres 7.3). -- Angus Lees Tue, 19 Aug 2003 22:36:31 +1000 libdbix-recordset-perl (0.24-6) unstable; urgency=low * Build-Depend on libdbi-perl (closes: #167217) * Make DBIx::Intrors whatis-clean (thanks lintian) -- Angus Lees Fri, 1 Nov 2002 11:19:37 +1100 libdbix-recordset-perl (0.24-5) unstable; urgency=low * Fix incorrect MoreRecords comparison in PrevNextForm. (noticed by Andre Landwehr) -- Angus Lees Thu, 3 Oct 2002 11:49:17 +1000 libdbix-recordset-perl (0.24-4) unstable; urgency=low * Build package in binary-indep rather than binary-arch (closes: #157475) * Allow TableAttr's to set an attribute to a false value. (Thanks René Seindal) * Don't return a tied row from Next when TieRow=0 (closes: #133165) (Thanks René Seindal) * Remove *LastRecord "cache", fixing Next(), MoreRecords(), Next() bug. * Use *LastRecordFetch as the "row before the first" indicator. This prevents Next() looping back to the start in some cases. * Call savecroak on *Recordset object, not $self. * Reorder a test to avoid `"" is not numeric' warning. * Change the way Makefile.PL interaction is avoided. * Fix incorrect use of DBI::SQL_* constants in test.pl. * Bump policy to 3.5.7 (no changes needed). -- Angus Lees Sat, 28 Sep 2002 17:20:44 +1000 libdbix-recordset-perl (0.24-3) unstable; urgency=low * Wrap a slightly longer than usual Description line. (closes: #130960) I do this under protest since: 1. Policy says that the frontend must wrap long lines. There is nothing about the long description needing to conform to common screen widths. Assuming (or expecting) such is not following the documented file format and is a bug in the frontend. 2. It makes extremely little difference to a human reading the "raw" package description. If you consider "apt-cache show" to be a frontend, then see (1). 3. If a frontend is not correctly wrapping long lines, "manually" wrapping long lines will only hide the problem. If something is going to fail, it should fail catastrophically. * patch (approved by upstream) to avoid "fully qualifying" fields that aren't in %tab4f - since that means they aren't column names (another side affect of !LinkName). -- Angus Lees Tue, 29 Jan 2002 16:53:47 +1100 libdbix-recordset-perl (0.24-2) unstable; urgency=low * Fix a few spelling errors in package description (closes: #124933) * Let DBIx::Compat know that PostgreSQL can do SQL joins. * Replace several uses of '*Table' with '*MainTable' to try and avoid some of the side affects of !LinkName. -- Angus Lees Sun, 23 Dec 2001 17:47:22 +1100 libdbix-recordset-perl (0.24-1) unstable; urgency=low * Initial Release. (closes: #107771) -- Angus Lees Tue, 7 Aug 2001 10:21:50 +1000 debian/source/0000755000000000000000000000000011344214706010470 5ustar debian/source/format0000644000000000000000000000001411344214740011674 0ustar 3.0 (quilt) debian/rules0000755000000000000000000000021411344204425010242 0ustar #!/usr/bin/make -f %: dh $@ override_dh_auto_configure: mkdir $(CURDIR)/test echo '%Drivers = ();' > test/Config.pl dh_auto_configure