Bundle-PBib

 view release on metacpan or  search on metacpan

lib/Biblio/Bibtex.pm  view on Meta::CPAN

sub expandShortcut {
  my ($shortcuts, $text) = @_;
  my @pars = split(/:/, $text);
  my $k = shift @pars; if( @pars ) { $k = "$k:"; }
  my $v = $shortcuts->{$k};
  $v =~ s/%(\d)/ @pars[$1-1] /ge;
  return $v;
#  return $shortcuts->{$text};
}

#sub updateShortcuts {
#  my ($self) = @_;
#  delete $self->{'shortcuts'};
#}


#
#
# save methods
#
#

lib/Biblio/Database.pm  view on Meta::CPAN

	unless( $result ) {
		print STDERR "$DBI::errstr\nSelect failed for $sql\n";
		return {};
	}
	#use Data::Dumper;
	#  print Dumper $self;
	my %scs = map(($_->[0] => $_->[1]), @{$result});
	return $self->{'shortcuts'} = \%scs;
}

sub updateShortcuts {
  my ($self) = @_;
  delete $self->{'shortcuts'};
}

1;

#
# $Log: Database.pm,v $
# Revision 1.17  2003/06/16 09:07:41  tandler
# - support for 'mysql' dbms

lib/Biblio/File.pm  view on Meta::CPAN

	#print "\n\n$k ---- $v\n\n";
	return $v;
}

sub shortcuts {
	my ($self) = @_;
	return $self->{'shortcuts'} if defined($self->{'shortcuts'});
	return {};
}

sub updateShortcuts {
	my ($self) = @_;
	#  delete $self->{'shortcuts'};
}


#
#
# private file access
#
#

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

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


#
#

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

	if( $list == $self->refList() ) {
		$self->updateExpandedSelectedBiblioReference();
	} else {
		$self->updateExpandedSelectedPaperReference();
	}
}


# updateing

sub updateBiblioRefs {
# re-load all refs and re-analyze paper!
  my $self = shift;
  my $litrefs = $self->litRefs();
  $litrefs->readRefs();
  $litrefs->analyzeFile($filename) if $filename;
  $self->updateLists();
}

sub updateLists {
  my $self = shift;
  $self->updateBiblioList();
  $self->updatePaperList();
  $self->{'conv'} = $self->make_converter();
  #  $self->conv()->setArgs(
	  #  'refs' => $self->refs(),
	  #  );
}
sub updateBiblioList {
# re-load all refs and everything!
  my $self = shift;
  $self->refList()->delete(0, "end");
  $self->addBiblioRefs();
}
sub updatePaperList {
# re-load all refs and everything!
  my $self = shift;
  $self->foundList()->delete(0, "end");
  $self->addPaperRefs();
}

# read/browse paper

sub readPaperFile {
  my $self = shift;

 view all matches for this distribution
 view release on metacpan -  search on metacpan