sub usemap {{
4 => 'WTI',
- 1003 => 'WTI',
- 16 => 'CU',
- 21 => 'SU',
-# 12 => '',
+ 1003 => 'AUT',
+ 16 => 'DDC',
+ 21 => 'SUB',
+ 12 => 'LCN',
# 1007 => '',
-# 1016 => '',
+ 1016 => 'WRD',
}};
our $session_id;
$session_id ||= int rand(1000000000);
# FIXME allocate session just once
- my $url = 'http://161.53.240.197:8991/F?RN=' . $session_id;
+ my $url = 'http://161.53.240.197:8992/F?RN=' . $session_id;
# fake JavaScript code on page which creates random session
diag "get $url";
sub field {
my ( $f, $v ) = @_;
$v =~ s/\Q \E/ /gs;
+ $v =~ s/\s+$//gs;
warn "## $f\t$v\n";
$hash->{$f} = $v;
my $id = $hash->{SYS} || die "no SYS";
- $self->save_marc( $id, $marc->as_usmarc );
+ $self->save_marc( "$id.marc", $marc->as_usmarc );
if ( $nr < $self->{hits} ) {
$nr++;
$mech->follow_link( url_regex => qr/set_entry=0*$nr/ );
}
- return $marc->as_usmarc;
+ return $id;
} else {
die "can't fetch COMARC format from ", $mech->content;
}