Skip to content

Commit

Permalink
Just empty lines.
Browse files Browse the repository at this point in the history
  • Loading branch information
basimar committed Mar 10, 2020
1 parent b52b5be commit ffe900a
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion transform.seq2hanmarc.pl
Original file line number Diff line number Diff line change
Expand Up @@ -99,7 +99,7 @@
$data = marc_remove($data, '001');
my $sysnum = $data->{'_id'};
$data = marc_add($data, '001', a => $sysnum);

# Replace all random characters in the 008 date fields with "u"
unless (substr($f008{$sysnum},7,4) =~ /[0-2][0-9]{3}/) { substr($f008{$sysnum},7,4) = 'uuuu' }
unless (substr($f008{$sysnum},11,4) =~ /[0-2][0-9]{3}/) { substr($f008{$sysnum},11,4) = 'uuuu' }
Expand Down Expand Up @@ -151,6 +151,7 @@

print "All: " . $all . " Non-Orange: " . $gruen . " Orange: " . $orange . "\n";
exit;

# Subroutine for finding the system number of the topmost record of an archival hierarchy (iterates recursively through the whole hierarchy)
sub addparents{
my $sysnum = $_[0];
Expand Down

0 comments on commit ffe900a

Please sign in to comment.