$hash->{$f} = $v;
my ($i1,$i2) = (' ',' ');
($i1,$i2) = ($2,$3) if $f =~ s/^(...)(.)?(.)?/$1/;
my @sf = split(/\|/, $v);
shift @sf;
@sf = map { s/^(\w)\s+//; { $1 => $_ } } @sf;
$hash->{$f} = $v;
my ($i1,$i2) = (' ',' ');
($i1,$i2) = ($2,$3) if $f =~ s/^(...)(.)?(.)?/$1/;
my @sf = split(/\|/, $v);
shift @sf;
@sf = map { s/^(\w)\s+//; { $1 => $_ } } @sf;
$marc->add_fields( $f, $i1, $i2, @sf ) if $f =~ m/^\d+$/;
}
$html =~ s|<tr>\s*<td class=td1 id=bold[^>]*>(.+?)</td>\s*<td class=td1>(.+?)</td>|field($1,$2)|ges;
$marc->add_fields( $f, $i1, $i2, @sf ) if $f =~ m/^\d+$/;
}
$html =~ s|<tr>\s*<td class=td1 id=bold[^>]*>(.+?)</td>\s*<td class=td1>(.+?)</td>|field($1,$2)|ges;