## All rights reserved.
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions are met:
## All rights reserved.
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions are met:
if (defined($href) && ref($href) eq 'HASH') {
if (!defined($map)) {
croak 'Usage: new Net::Z3950::GRS1($href, $map);';
if (defined($href) && ref($href) eq 'HASH') {
if (!defined($map)) {
croak 'Usage: new Net::Z3950::GRS1($href, $map);';
sub AddElement {
my ($self, $type, $value, $which, $content) = @_;
sub AddElement {
my ($self, $type, $value, $which, $content) = @_;
}
if ($level == 1) {
$self->_RecordLine($level, $ref, "(0,0)\n");
}
if ($level == 1) {
$self->_RecordLine($level, $ref, "(0,0)\n");