+## This file is part of simpleserver
+## Copyright (C) 2000-2014 Index Data.
+## All rights reserved.
+## Redistribution and use in source and binary forms, with or without
+## modification, are permitted provided that the following conditions are met:
+##
+## * Redistributions of source code must retain the above copyright
+## notice, this list of conditions and the following disclaimer.
+## * Redistributions in binary form must reproduce the above copyright
+## notice, this list of conditions and the following disclaimer in the
+## documentation and/or other materials provided with the distribution.
+## * Neither the name of Index Data nor the names of its contributors
+## may be used to endorse or promote products derived from this
+## software without specific prior written permission.
+##
+## THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND ANY
+## EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+## WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+## DISCLAIMED. IN NO EVENT SHALL THE REGENTS AND CONTRIBUTORS BE LIABLE FOR ANY
+## DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+## (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+## ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+## (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+## THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
package Net::Z3950::GRS1;
use strict;
use IO::Handle;
use Carp;
-
-
sub new {
my ($class, $href, $map) = @_;
my $self = {};
if (defined($href) && ref($href) eq 'HASH') {
if (!defined($map)) {
croak 'Usage: new Net::Z3950::GRS1($href, $map);';
- }
+ }
$self->Hash2grs($href, $map);
}
return $ElementData;
}
-
+
sub AddElement {
my ($self, $type, $value, $which, $content) = @_;
my $self = shift;
my %args = (
FORMAT => &Net::Z3950::GRS1::Render::Plain,
- FILE => '/dev/null',
+ FILE => '/dev/null',
LEVEL => 0,
HANDLE => undef,
POOL => undef,
}
if ($level == 1) {
$self->_RecordLine($level, $ref, "(0,0)\n");
- }
-}
+ }
+}
+
-
package Net::Z3950::GRS1::ElementData;
## Define some constants according to the GRS-1 specification
Specification of the GRS-1 standard, for instance in the Z39.50 protocol specification.
=cut
-
-#$Log: GRS1.pm,v $
-#Revision 1.5 2001-05-21 11:07:02 sondberg
-#Extended maximum numbers of GRS-1 elements. Should be done dynamically.
-#
-#Revision 1.4 2001/05/17 14:07:06 sondberg
-#Added some documentation.
-#
-#Revision 1.3 2001/05/17 13:43:04 sondberg
-#Added method Hash2grs into GRS1 module.
-#
-#Revision 1.2 2001/03/13 14:53:15 sondberg
-#Added a few lines of documentation into GRS1.pm.
-#
-#Revision 1.1 2001/03/13 14:17:15 sondberg
-#Added support for GRS-1.
-#
-