- improve POD
- remove extraneous comments
- correct license statement in new files
- remove backticks in database update SQL
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
# Normalize the record so it doesn't have separated diacritics
# Normalize the record so it doesn't have separated diacritics
SetUTF8Flag($marcrecord);
SetUTF8Flag($marcrecord);
# warn "$i : $marcarray[$i]";
# FIXME - currently this does nothing
my@warnings=$marcrecord->warnings();
if(scalar($marcrecord->fields())==0){
if(scalar($marcrecord->fields())==0){
$notmarcrecord++;
$notmarcrecord++;
}else{
}else{
@ -509,10 +506,6 @@ sub ImportBreedingAuth {
if($duplicateauthid&&$overwrite_authne2){
if($duplicateauthid&&$overwrite_authne2){
#If the authority record exists and $overwrite_auth doesn't equal 2, then mark it as already in the DB
#If the authority record exists and $overwrite_auth doesn't equal 2, then mark it as already in the DB
#FIXME: What does $overwrite_auth = 2 even mean?
#FIXME: Should we bother with $overwrite_auth values? Currently, the hard-coded $overwrite_auth value is 2, which means the database gets filled with import_records...
#^^ of course, we might not want to reject records if their control number/heading exist in the db or breeding/import pool...as we might be wanting to update existing authority records...