#
# generated by genmod v1.0
#
# style aacf
#
$record_number = 0;
sub conv_aacf {
local(%can) = @_;
$record_number++;
if (!defined $can{'CiteType'}) {
&bib'gotwarn("required field CiteType is not defined");
$can{'CiteType'} = 'misc';
}
local($date) = undef;
if (defined $can{'Month'}) {
local($mo) = &bp_util'output_month($can{'Month'}, 'short');
if (defined $can{'Year'}) {
$date = "$mo $can{'Year'}";
} else {
$date = $mo;
}
} else {
$date = $can{'Year'} if defined $can{'Year'};
}
if (defined $can{'Year'}) {
$can{'CiteKey'} = $can{'Year'};
} else {
$can{'CiteKey'} = "????";
}
if ($can{'CiteKey'} =~ /\d\d\d\d/) {
$can{'CiteKey'} = &bp_util'regkey($can{'CiteKey'});
}
# set default type using the CiteType field
$type = &aacf_default_type($can{'CiteType'});
# Initialize output string
$str = '';
$str .= "m1100";
if ($type eq 'book') {
if (defined $can{'Authors'}) {
local($tAuthors);
$tAuthors = &bp_util'canon_to_name($can{'Authors'}, 'lname1');
$str .= "$tAuthors ";
}
if (defined $can{'Editors'}) {
local($tEditors);
$tEditors = &bp_util'canon_to_name($can{'Editors'}, 'lname1');
$str .= "$tEditors, Ed. ";
}
$str .= "($can{'CiteKey'}). " if defined $can{'CiteKey'};
$str .= "$can{'Title'}. " if defined $can{'Title'};
$str .= "$can{'SuperTitle'}, " if defined $can{'SuperTitle'};
$str .= "$can{'PubAddress'}: " if defined $can{'PubAddress'};
$str .= "$can{'Publisher'}. " if defined $can{'Publisher'};
} elsif ( ($type eq 'inbook') || ($type eq 'misc') ) {
if (defined $can{'Authors'}) {
local($tAuthors);
$tAuthors = &bp_util'canon_to_name($can{'Authors'}, 'lname1');
$str .= "$tAuthors ";
}
$str .= "($can{'CiteKey'}). " if defined $can{'CiteKey'};
$str .= "\"$can{'Title'}\". " if defined $can{'Title'};
if (defined $can{'Editors'}) {
local($tEditors);
$tEditors = &bp_util'canon_to_name($can{'Editors'}, 'lname1');
$str .= "$tEditors, Ed. ";
}
$str .= "$can{'SuperTitle'}. " if defined $can{'SuperTitle'};
$str .= "$can{'Pages'}. " if defined $can{'Pages'};
$str .= "$can{'PubAddress'}: " if defined $can{'PubAddress'};
$str .= "$can{'Publisher'}. " if defined $can{'Publisher'};
} elsif ($type eq 'article') {
if (defined $can{'Authors'}) {
local($tAuthors);
$tAuthors = &bp_util'canon_to_name($can{'Authors'}, 'lname1');
$str .= "$tAuthors ";
}
$str .= "($can{'CiteKey'}). " if defined $can{'CiteKey'};
$str .= "\"$can{'Title'}.\" " if defined $can{'Title'};
if (defined $can{'Journal'}) {
$str .= "$can{'Journal'} ";
$str .= "$can{'Volume'}:" if defined $can{'Volume'};
$str .= "$can{'Pages'}" if defined $can{'Pages'};
$str .= ". ";
}
} elsif ($type eq 'thesis') {
if (defined $can{'Authors'}) {
local($tAuthors);
$tAuthors = &bp_util'canon_to_name($can{'Authors'}, 'lname1');
$str .= "$tAuthors ";
}
$str .= "($can{'CiteKey'}). " if defined $can{'CiteKey'};
$str .= "$can{'Title'}. " if defined $can{'Title'};
$str .= "$can{'ReportType'}. " if defined $can{'ReportType'};
$str .= "$can{'School'}. " if defined $can{'School'};
}
$str =~ s/.\s+$/./;
$str .= "\n";
$str;
}
sub aacf_default_type {
local($citetype) = @_;
local($type) = 'misc';
if (defined $citetype) {
if ($citetype =~ /^(book|inbook|misc|article|thesis)$/) {
$type = $citetype;
} else {
&bib'gotwarn("Type '$can{'CiteType'}' not recognized -- using default type 'misc'");
}
}
$type;
}
1;