From DLXS Documentation
package SamplefaFC;
BEGIN
{
# enable strict under development
if ( $ENV{'DLPS_DEV'} )
{
require "strict.pm";
strict::import();
}
}
use FindaidClass;;
use vars qw( @ISA );
@ISA = qw( FindaidClass );
use CGI;
use DlpsUtils qw( :DEFAULT );
sub _initialize
{
my $self = shift;
my ( $collid, $cio, $optionalArgsHashRef ) = @_;
$self->SUPER::_initialize( @_ );
# Not necessary to subclass this item unless there are other outline
# heads that are desired
$self->SetSelfKeyInfo( 'tocheads' =>
{
'bioghist-t' => {
'collection' => qq{Biography},
'recordgrp' => qq{History},
},
'controlaccess-t' => qq{Subject Terms},
'frontmatter-t' => qq{Title Page},
'arrangement-t' => qq{Arrangement},
'scopecontent-t' => qq{Collection Scope and Content Note},
'summaryinfo-t' => qq{Summary Information},
'contentslist-t' => qq{Contents List},
'admininfo-t' => qq{Access and Use},
# no <descgrp type="add"> in the few files used as samplefa, so
# remove from hash
# 'add-t' => qq{Additional Descriptive Data},
}
);
}
#######################################################################
# return truth
1;
#######################################################################