package DADA::ProfileFieldsManager::SQLite;
use lib qw(./ ../ ../../ ../../../ ./../../DADA ../../perllib);

use Carp qw(carp croak confess);
use DADA::App::Guts;
use parent "DADA::ProfileFieldsManager::baseSQL";
use strict;

sub remove_field {

    my $self = shift;

	$self->clear_cache;
    
    my ($args) = @_;
    if ( !exists( $args->{ -field } ) ) {
        croak "You must pass a field name in, -field!";
    }
    $args->{ -field } = lc( $args->{ -field } );

    $self->validate_remove_field_name(
        {
            -field      => $args->{ -field },
            -die_for_me => 1,
        }
    );

    ###

    my %omit_fields = ( email => 1, );

    my @no_homers = ();
    for ( @{ $self->fields } ) {
        if ( $_ ne $args->{ -field } ) {
            push ( @no_homers, $_ );
        }
    }
    my @keep_these_columns = @no_homers;
    my $keep_these_str    = 'email, ';
    my $make_these_str    = ',';
    for (@keep_these_columns) {
        $keep_these_str .= $_ . ', ';
    }
    $keep_these_str =~ s/\, $//;

    for (@no_homers) {
        $make_these_str .= $_ . ' text, ';
    }
    $make_these_str =~ s/\, $|,$//;

    #    CREATE TEMPORARY TABLE t1_backup(a,b);
    #    INSERT INTO t1_backup SELECT a,b FROM t1;
    #    DROP TABLE t1;
    #    CREATE TABLE t1(a,b);
    #    INSERT INTO t1 SELECT a,b FROM t1_backup;
    #    DROP TABLE t1_backup;

    $self->{dbh}->do('BEGIN TRANSACTION')
      or croak "cannot do statement $DBI::errstr\n";

    my $q2 =
      'CREATE TEMPORARY TABLE '
      . $self->{sql_params}->{profile_fields_table}
      . '_backup(fields_id INTEGER, email varchar(320) '
      . $make_these_str . ')';
    
    $self->{dbh}->do($q2)
      or croak "cannot do statement $DBI::errstr\n";

    my $q3 =
      'INSERT INTO '
      . $self->{sql_params}->{profile_fields_table}
      . '_backup SELECT fields_id, '
      . $keep_these_str
      . ' FROM '
      . $self->{sql_params}->{profile_fields_table};
    
    $self->{dbh}->do($q3)
      or croak "cannot do statement $DBI::errstr\n";

    $self->{dbh}
      ->do( 'DROP TABLE ' . $self->{sql_params}->{profile_fields_table} )
      or croak "cannot do statement $DBI::errstr\n";

    $self->make_table();

    for (@no_homers) {
        $self->add_field( { -field => $_, } );
    }

    $self->{dbh}->do( 'INSERT INTO '
          . $self->{sql_params}->{profile_fields_table}
          . ' SELECT fields_id, '
          . $keep_these_str
          . ' FROM '
          . $self->{sql_params}->{profile_fields_table}
          . '_backup' )
      or croak "cannot do statement $DBI::errstr\n";

    $self->{dbh}->do( 'DROP TABLE '
          . $self->{sql_params}->{profile_fields_table}
          . '_backup' )
      or croak "cannot do statement $DBI::errstr\n";

    $self->{dbh}->do('COMMIT')
      or croak "cannot do statement $DBI::errstr\n";

	delete( $self->{cache}->{fields} );
    ###

    $self->remove_field_attributes( { -field => $args->{ -field } } );
	
	$self->clear_cache;
    
    return 1;

}

sub make_table {

    my $self = shift;

    $self->{dbh}->do(
        'CREATE TABLE '
          . $self->{sql_params}->{profile_fields_table} . '( 
	fields_id			         INTEGER PRIMARY KEY AUTOINCREMENT,
	email                        varchar(320) not null UNIQUE)'
      )
      or croak "cannot do statement (at: make_table)! $DBI::errstr\n";

}

1;