$self->in_storage(1);
$self->{_dirty_columns} = {};
$self->{related_resultsets} = {};
+ undef $self->{_orig_ident};
return $self;
}
}
$self->{_dirty_columns} = {};
$self->{related_resultsets} = {};
+ undef $self->{_orig_ident};
return $self;
}
sub set_column {
my $self = shift;
my ($column) = @_;
+ $self->{_orig_ident} ||= $self->ident_condition;
my $old = $self->get_column($column);
-
- # save our original ident condition if
- # they modify any part of the PK
- if(!$self->{_orig_ident}) {
- foreach ($self->primary_columns) {
- if($_ eq $column) {
- $self->{_orig_ident} = $self->ident_condition;
- last;
- }
- }
- }
-
my $ret = $self->store_column(@_);
$self->{_dirty_columns}{$column} = 1
if (defined $old ^ defined $ret) || (defined $old && $old ne $ret);