view release on metacpan or  search on metacpan

lib/Biblio/bp/lib/bp-inspec4.pl  view on Meta::CPAN

  if (!defined $can{'CiteType'}) {
    if (defined $ent{'Doc Type'}) {
      &bib'gotwarn("Unrecognized Doc Type: $ent{'Doc Type'}");
    } else {
      &bib'gotwarn("No Doc Type field");
    }
    $can{'CiteType'} = 'misc';
  }

  @cname = ();
  foreach $field (split(/\s*;\s*/, $ent{'Authors'})) {
    push( @cname, &bp_util'name_to_canon($field, 'reverse') );
  }
  $can{'Authors'} = join($bib'cs_sep, @cname) if @cname;

  $can{'AuthorAddress'} = $ent{'Affiliation'} if defined $ent{'Affiliation'};

  @cname = ();
  foreach $field (split(/\s*;\s*/, $ent{'Editors'})) {
    push( @cname, &bp_util'name_to_canon($field, 'reverse') );
  }
  $can{'Editors'} = join($bib'cs_sep, @cname) if @cname;
  
  $can{'Title'}      = $ent{'Title'}       if defined $ent{'Title'};
  $can{'SuperTitle'} = $ent{'Conf. Title'} if defined $ent{'Conf. Title'};

  $can{'Journal'}    = $ent{'Journal'}     if defined $ent{'Journal'};
  $can{'Volume'}     = $ent{'Vol'}         if defined $ent{'Vol'};
  $can{'Number'}     = $ent{'Iss'}         if defined $ent{'Iss'};
  $can{'Pages'}      = $ent{'Pages'}       if defined $ent{'Pages'};
  $can{'Pages'}      = $ent{'Pages'}       if defined $ent{'Pages'};
  $can{'PagesWhole'} = $ent{'Total Pages'} if defined $ent{'Total Pages'};
  local($month, $year) = &bp_util'parsedate($ent{'Date'});
  $can{'Month'}      = $month              if (defined $month) && ($month ne '');
  $can{'Year'}       = $year               if (defined $year) && ($year ne '');
  $can{'ReportNumber'} = $ent{'Report No'} if defined $ent{'Report No'};
  $can{'Organization'} = $ent{'Issued by'} if defined $ent{'Issued by'};
  # Country of Publication
  $can{'Publisher'}  = $ent{'Publisher'}   if defined $ent{'Publisher'};
  $can{'PubAddress'} = $ent{'Pub Address'} if defined $ent{'Pub Address'};
  $can{'ISSN'}       = $ent{'ISSN'}        if defined $ent{'ISSN'};
  $can{'ISBN'}       = $ent{'ISBN'}        if defined $ent{'ISBN'};
  # CODEN
  $can{'CCC'}        = $ent{'CCC'}         if defined $ent{'CCC'};
  $can{'Language'}   = $ent{'Language'}    if defined $ent{'Language'};
  $can{'Subject'}    = $ent{'Treatment'}   if defined $ent{'Treatment'};
  $can{'Abstract'}   = $ent{'Abstract'}    if defined $ent{'Abstract'};
  $can{'classification'} = $ent{'Classification'} if defined $ent{'Classification'};
  $can{'Keywords'}   = $ent{'Thesaurus'}   if defined $ent{'Thesaurus'};
  if (defined $ent{'Free Terms'}) {
    if (defined $can{'Keywords'}) {
      $can{'Keywords'} .= '; ' . $ent{'Free Terms'};
    } else {
      $can{'Keywords'} = $ent{'Free Terms'};
    }
  }
  # Conf. Date
  # Conf. Loc
  # Conf. Sponsor

  # CCETT outlining the main fields of activity
  # Numerical Index
  # Translation of


  $can{'OrigFormat'} = $version;

  %can;
}

#######################
# end of package
#######################

1;