view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	Fields added with columns or +columns are readonly.
	$self->set_row_pos($self->{row}->{pos}) in query
      RbDataManager
	$self->set_row_pos($self->{row}->{pos}) in query
0.095 RdbDataManager
	Fields added with columns or +columns to read data from joined tables
	These fields are readonly.
0.096 Bug corrected in Form
0.097 Form 
	auto_apply can be defined (defaults to true)
	add_childform to cascade auto_apply down to child form or datasheet
	has_changed return true if children forms or datasheets have been changed in the form but not applied to the database
0.098 Form save return 1 (success) or 0 (failure)
	DbcDataManager save return 1 (success) or 0 (failure)
 	Removed mailing list support (and the list alltogether)
0.100  Split the distribution: 
	- Form + Datasheet remains in Gtk2::Ex::DbLinker
	- xxxDataManager are in this Gtk2::Ex::DbLinker::DbTools distribution (but the package is unchanged)
	- Wx Form and Datasheet objects are in Wx::Perl::DbLinker
0.101  Added SqlADataManager which uses SQL::Abstract::More to build the sql statement. 
       Added a separate Recordset object used by this class to hold pk values and a subset of rows

lib/Gtk2/Ex/DbLinker/RdbDataManager.pm  view on Meta::CPAN

            $row->$m($value);
        }
    }
}

sub get_field {
    my ( $self, $id ) = @_;
    my $pos = $self->{row}->{pos};
    return
        unless defined $pos
        ; #prevents cascade of errors when get_field is called on inexisting row
    my $last = $self->row_count;

    #$self->{log}->debug( "get_field: pos ", $pos, " last : ", $last );
    my $row;
    if ( $pos < $last ) {
        $row = $self->{data}[$pos];
    }
    elsif ( $pos == $last ) {
        $row = $self->{new_row};
    }