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
                   );
}