view release on metacpan or  search on metacpan

lib/PBibTk/HistoryList.pm  view on Meta::CPAN

#  my $self = shift;
#}



#
#
# UI access methods
#
#

sub widget { return shift->list(); }

#
#
# access methods
#
#

sub varRef ( return shift->{'varRef'}; )
sub value ( my ($self) = @_;
	return ${$self->varRef()};
)

sub ui ( return shift->{'ui'}; )
sub label ( return shift->{'label'} || "Query"; )
sub list { return shift->{'list'}; }
sub count { return shift->{'count'}; }
sub history { return shift->{'history'}; }


#
#
# methods
#
#

sub query {
	print "query $queryAuthorItem\n";
	unshift @queryAuthorHistory, $queryAuthorItem;
	$self->queryAuthorList()->insert(0, $queryAuthorItem);
	my $q = new PbibTk::SearchDialog ($self->ui(),
		"Search Author: $queryAuthorItem",
		"%$queryAuthorItem%",
		['Author']);
	$q->show();
}

sub insert { my ($self, $item) = @_;
	$self->{'count'} ++;
	my $hist = $self->history();
	if( exists $hist->{$item} ) {
		my $entry = $hist->{$item};
		$entry->[0] ++;
		$entry->[1] = time();
	} else {
		$hist->{$item} = [1, time()];
	}
}

sub updateList {
	my ($self) = @_;

# add last 10 items and 10 most often used items to list (& sort by name)
	
	$self->list()->insert(0, $item);
}


#
#
# class methods
#
#


1;

#
# $Log: HistoryList.pm,v $
# Revision 1.3  2004/03/30 19:14:17  krugar
# refactored: 
# 	LitUIRefDialog -> LitUI::RefDialog 
#	LitUISearchDialog -> LitUI::SearchDialog 
#

#
# Revision 1.2  2003/04/14 09:44:17  ptandler
# uncomplete ...
#
# Revision 1.1  2002/06/24 10:47:31  Diss
# started work to refactor LitUI a wee bit
#