# --*-Perl-*--
# $Id: CiteKey.pm 10 2004-11-02 22:14:09Z tandler $
#
package PBib::LabelStyle::CiteKey;
use strict;
use warnings;
#use English;
# for debug:
use Data::Dumper;
BEGIN {
use vars qw($Revision $VERSION);
my $major = 1; q$Revision: 10 $ =~ /: (\d+)/; my ($minor) = ($1); $VERSION = "$major." . ($minor<10 ? '0' : '') . $minor;
}
# superclass
use PBib::LabelStyle;
our @ISA = qw(PBib::LabelStyle);
# used modules
#use ZZZZ;
# module variables
#use vars qw(mmmm);
#
# label & field options
#
#
#
# methods
#
#
sub text {
#
# return the replacement text
#
my ($self, $refID, $options) = @_;
return $refID;
}
sub formatLabel {
#
# return the label (cite key) for this reference
#
my ($self, $refID, $options) = @_;
return $refID;
}
sub formatField {
my ($self, $refField, $options) = @_;
return "[$refField]";
}
1;
#
# $Log: CiteKey.pm,v $
# Revision 1.1 2002/10/11 10:16:17 peter
# use the CiteKey as label
#
#
# based somehow on Name.pm, v1.2
#