SamplefaFC.pm

From DLXS Documentation

Current revision

 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;
 #######################################################################