File Coverage

blib/lib/SPOPS/Import/DBI/Update.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package SPOPS::Import::DBI::Update;

# $Id: Update.pm,v 1.1 2004/06/01 14:46:09 lachoy Exp $

use strict;
use base qw( SPOPS::Import::DBI::GenericOperation );
use SPOPS::SQLInterface;

$SPOPS::Import::DBI::Update::VERSION  = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

my @FIELDS = qw( field field_value );
SPOPS::Import::DBI::Update->mk_accessors( @FIELDS );

sub data { return [] }

sub _run_operation {
    my ( $self, $update_args ) = @_;
    $update_args->{field} = $self->field;
    $update_args->{value} ||= [];
    my $field_values = $self->field_value || [];
    $update_args->{value} = [ @{ $field_values },
                              @{ $update_args->{value} } ];
    my $rv = SPOPS::SQLInterface->db_update( $update_args );
    return ( $rv eq '0E0' ) ? 0 : $rv;
}

sub set_update_data {
    my ( $self, $update_info ) = @_;
    my @fields = ();
    my @values = ();
    while ( my ( $field, $value ) = each %{ $update_info } ) {
        push @fields, $field;
        push @values, $value;
    }
    $self->field( \@fields );
    $self->field_value( \@values );
}

1;

__END__