File Coverage

blib/lib/Gtk2/Ex/DBITableFilter.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Gtk2::Ex::DBITableFilter;

our $VERSION = '0.03';

use strict;
use warnings;
use Carp;
use Gtk2::Ex::Simple::List;
use Glib qw(TRUE FALSE);
use Data::Dumper;
use Gtk2::Ex::ComboBox;
use Gtk2::Ex::Simple::Menu;
use Gtk2::Ex::DBITableFilter::BrowserBar;
use Gtk2::Ex::DBITableFilter::FilterWidget;

sub new {
	my ($class, $slist) = @_;
	my $self  = {};
	bless ($self, $class);
	$self->set_increment(500);
	$self->{slist} = $slist;
	$self->{dumpedcachedparams} = undef;
	$self->{params} = undef;
	$self->{browserbar} = undef;
	$self->{filterwidget} = Gtk2::Ex::DBITableFilter::FilterWidget->new($self);
	return $self;
}

sub process_dates {
	my ($self, $fieldname, $list) = @_;
	return $self->{filterwidget}->process_dates($fieldname, $list);
}

sub set_simple_sql {
	my ($self, $callback) = @_;
	$self->{methods}->{count} = sub {
		my ($dbh, $params) = @_;
		my $sql = &$callback($params);
		my $countsql = $sql;
		$countsql = 'select count(*) from ('.$sql.') DBITableFilterTemp';
		print Dumper $countsql;
		my $sth = $dbh->prepare($countsql);
		$sth->execute();
		my @result_array;
		while (my @ary = $sth->fetchrow_array()) {
			push @result_array, $ary[0];
		}
		return \@result_array;
	};
	$self->{methods}->{fetch} = sub {
		my ($dbh, $params) = @_;
		my $sql = &$callback($params);
		my $fetchsql = $sql;
		$fetchsql = 'select * from ('.$sql.') DBITableFilterTemp limit '
			.$params->{limit}->{start}
			.' , '
			.$params->{limit}->{step};
		print Dumper $fetchsql;
		my $sth = $dbh->prepare($fetchsql);
		$sth->execute();
		my @result_array;
		while (my @ary = $sth->fetchrow_array()) {
			push @result_array, \@ary;
		}
		return \@result_array;
	};
}

sub set_increment {
	my ($self, $increment) = @_;
	my $limit = $self->{limit};
	$limit->{increment} = $increment;
	$limit->{start} = 0;
	$limit->{end}   = $limit->{increment};
	$limit->{total} = $limit->{increment};
	$self->{limit} = $limit;
}

sub count_using {
	my ($self, $method) = @_;
	$self->{methods}->{count} = $method;
}

sub fetch_using {
	my ($self, $method) = @_;
	$self->{methods}->{fetch} = $method;
}

sub set_thread {
	my ($self, $thread) = @_;
	$self->{thread} = $thread;
	my $fetch_records_query = $thread->register_query (
		$self, $self->{methods}->{fetch}, \&_post_fetch_records
	);
	$self->{fetch_records_query} = $fetch_records_query;
	my $count_records_query = $thread->register_query (
		$self, $self->{methods}->{count}, \&_post_count_records
	);
	$self->{count_records_query} = $count_records_query;
}

sub get_widget {
	my ($self) = @_;
	my $scrolledwindow= Gtk2::ScrolledWindow->new (undef, undef);
	$scrolledwindow->set_policy ('automatic', 'automatic');
	$scrolledwindow->add($self->{slist});
	my $bbar = Gtk2::Ex::DBITableFilter::BrowserBar->new($self);
	$self->{browserbar} = $bbar;
	my $hboxbottom = $bbar->get_widget;
	my $vbox = Gtk2::VBox->new (FALSE, 0);
	$vbox->pack_start ($scrolledwindow, TRUE, TRUE, 0);
	$vbox->pack_start ($hboxbottom, FALSE, TRUE, 0);
	return $vbox;
}

sub _update_count {
	my ($self, $params) = @_;
	$self->{browserbar}->update_progress_label('Counting');
	$self->{browserbar}->start_progress(0, 0.4);
	$self->{count_records_query}->execute($params);
}

sub refresh {
	my ($self) = @_;
	my $str1 = $self->{dumpedcachedparams} || '';
	my $str2 = Dumper $self->{params};
	if ($str1 eq $str2) {
		# No need to update the count
		print "No need to count\n";
		$self->{browserbar}->end_progress(0.4);
		$self->{browserbar}->start_progress(0.5, 1.0);
		$self->{browserbar}->update_progress_label('Fetching');
		$self->{fetch_records_query}->execute(
			{params => $self->{params}, limit => $self->{limit}}
		);
	} else {
		# Must update the count
		print "Must re-count\n";
		$self->{dumpedcachedparams} = Dumper $self->{params};
		$self->_update_count({params => $self->{params}});
	}
}

sub _post_count_records {
	my ($self, $result_array) = @_;
	my $count = $result_array->[0];
	$self->{limit}->{total} = $count;
	$self->{browserbar}->_go_to_first;
}

sub _post_fetch_records {
	my ($self, $result_array) = @_;
	$self->{browserbar}->update_progress_label('Rendering');
	@{$self->{slist}->{data}} = ();
	foreach my $x (@$result_array) {
		push @{$self->{slist}->{data}}, $x;
	}
	$self->{browserbar}->update_progress_label('Showing');
		$self->{browserbar}->end_progress(1);
	$self->{browserbar}->end_progress(0);
}

sub make_checkable {
	my ($self) = @_;
	my ($slist) = $self->{slist};
	# Add a checkbutton to select all
	$slist->set_headers_clickable(TRUE);
	my $col = $slist->get_column(0);
	my $check = Gtk2::CheckButton->new;
	$col->set_widget($check);
	$check->set_active(TRUE);
	$check->show;  # very important, show_all doesn't get this widget!
	my $button = $col->get_widget; # not a button
	do {
		$button = $button->get_parent;
	} until ($button->isa ('Gtk2::Button'));

	$button->signal_connect (button_release_event =>
		sub {
			if ($check->get_active()) {
				$check->set_active(FALSE);
			} else {
				$check->set_active(TRUE);
			}
		}
	);
	$check->signal_connect (toggled =>
		sub {
			my $flag = 0;
			$flag = 1 if $check->get_active();
			foreach my $line (@{$slist->{data}}) {
				$line->[0] = $flag;
			}
		}
	);
}

sub add_choice {
	my ($self, $columnnumber, $list) = @_;
	$self->{filterwidget}->add_choice($columnnumber, $list);
}

sub add_search_box {
	my ($self, $columnnumber) = @_;
	$self->{filterwidget}->add_search_box($columnnumber);
}

sub add_date_filter {
	my ($self, $columnnumber, $preselected) = @_;
	$self->{filterwidget}->add_date_filter($columnnumber, $preselected);
}

1;

__END__