sub doListPull {
	my %ds;
	my $rec;
	my ($id, $datasource, $ds_desc);

	debug("+doListPullDialog");
	if ( ! Exists($tlp)) {
		$tlp = $mainwindow->Toplevel();
		$tlp->title("List Pulling Configuration");
		my $tlp_pt = $tlp->BrowseEntry(-label => 'Pull list type',
				-variable => $state->{pullType})->grid(-padx => 5, -pady => 5);
		$tlp_pt->focus;
		$tlp_pt->insert('end', @pullTypes);

		my $tlp_ds = $tlp->BrowseEntry(-label => "DataSource",
				-variable => $state->{pullDs})->grid(-padx => 5, -pady => 5);
		my $SQL = "SELECT id, sourcename, sourcedesc from datasource;";
		my $sth = $dbh->prepare( $SQL );
		$sth->execute;
		while (($id, $datasource, $ds_desc) = $sth->fetchrow_array) {
			$tlp_ds->insert('end', ($datasource." ".$ds_desc));
			$rec->{$datasource} = ${ds_desc};
			$dsources[$id] = $rec;
		}
	}
	debug("-doListPullDialog");
}