view release on metacpan or  search on metacpan

lib/PBib/BibliographyStyle.pm  view on Meta::CPAN

# --*-Perl-*--
# $Id: BibliographyStyle.pm 11 2004-11-22 23:56:20Z tandler $
#

package PBib::BibliographyStyle;
use strict;
use English;
use charnames ':full';	# enable \N{unicode char name} in strings

# for debug:
use Data::Dumper;

BEGIN {
    use vars qw($Revision $VERSION);
	my $major = 1; q$Revision: 11 $ =~ /: (\d+)/; my ($minor) = ($1); $VERSION = "$major." . ($minor<10 ? '0' : '') . $minor;
}

# superclass
#  use PBib::Style;
use base qw(PBib::Style);

# used modules
#use FileHandle;
#use File::Basename;


# module variables
#use vars qw(mmmm);

#
#
# access methods
#
#


sub options { my $self = shift; return $self->converter()->bibOptions(); }

sub includeAllRefs { return shift->fieldOption("all"); }


sub text {
#
# generate bibliography
#
  my ($self, $refField) = @_;
  $self->{'refID'} = $refField;
  $self->logMessage("bibliography item [", $self->refID(), "] found");
  my $rc = $self->converter();
  my $rf = $rc->refStyle();
  my $ri = $rc->itemStyle();
  my ($ref, $key);

  # check for options ...
  if( $refField =~ s/^\s*:\s*([^\|\[\]]*)\s*\|\s*// ) {
  	my $options = $self->parseFieldOptions($1);
  	$self->{'fieldOptions'} = $options;
#print Dumper $options;
  }
#print "$refField\n";

  my $items = $self->items();
  my $query = $self->convertQuery($refField);
  if( $query ) {
    $items = $self->selectItems($query, $items);
  }

  # sort items