package contact;
use strict;

use Tk;
use Tk::BrowseEntry;
use Data::Dumper;

use InContact::cDBI;

sub new {
  my ($self, %arg) = @_;
 bless {
        _nbpage   => $arg{nbpage},
        _record   => $arg{record},
        _iter     => '',
        _iter_cnt => 0,
        _iter_index => 0,
        _ft => '',
        }, $self
}

sub draw {
  my ($self) = @_;
  
  my $fs = $self->{_nbpage}->Frame(
                                   -borderwidth => 2,
                                   -relief => 'groove',
                                   )->pack;
  $fs->Button(
              -text => 'All',
              -command => sub { $self->_get_records_all },
             )->grid(
                     $fs->Button(
                                 -text => 'Today',
                                 -command => sub { exit },
                                ),
                     -sticky => 'w', -padx => 2, -pady => 2
                    );
  
  $self->{_ft} = $self->{_nbpage}->Frame(
                                   -borderwidth => 2,
                                   -relief => 'groove',
                                   )->pack;
  
  $self->{_ft}->Label(-text  => 'Contact ID'
            )->grid(
                    $self->{_ft}->Entry(
                               -textvariable => \$self->{_record}->{id},
                              ),
                    -sticky => 'w', -padx => 2, -pady => 2
                   );
  $self->{_ft}->Label(
             -text => 'First Name'
             )->grid(
                    $self->{_ft}->Entry(
                               -textvariable => \$self->{_record}->{firstname},
                              ),
                    $self->{_ft}->Label(
                               -text => 'Last Name'
                              ),
                    $self->{_ft}->Entry(
                               -textvariable => \$self->{_record}->{lastname},
                              ),
                    $self->{_ft}->Label(
                               -text => 'Company',
                              ),
                    $self->{_ft}->Entry(
                               -textvariable => \$self->{_record}->{company},
                              ),
                    -sticky => 'w', -padx => 2, -pady => 2
                   );
}

##</code><code>##

# _get_records_all
# get all records and pass the first to the display
sub _get_records_all {
  my $self = shift;
  
  $self->{_iter} = InContact::cDBI::contact->retrieve_all();
  $self->{_iter_cnt} = $self->{_iter}->count();
  $self->{_iter_index} = 0;
  my $obj = $self->{_iter}->first;
  $self->{_record} = $obj->hashy;
  print Dumper $self->{_record};
  return;
}
1;