X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=GRS1.pm;h=180061b9412a5fd3700f1bb8370c3d50911304a9;hp=adc8bba2bf78a751b79212472bc7f58c55822a6e;hb=463994e4fdc44e11f5897236cc809d3a56658f55;hpb=cdc764afd8ddc92658f972fdccfa3349be97d403

diff --git a/GRS1.pm b/GRS1.pm
index adc8bba..180061b 100644
--- a/GRS1.pm
+++ b/GRS1.pm
@@ -1,5 +1,5 @@
 ## This file is part of simpleserver
-## Copyright (C) 2000-2011 Index Data.
+## Copyright (C) 2000-2015 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:
@@ -41,7 +41,7 @@ sub new {
 	if (defined($href) && ref($href) eq 'HASH') {
 		if (!defined($map)) {
 			croak 'Usage: new Net::Z3950::GRS1($href, $map);';
-		}	
+		}
 		$self->Hash2grs($href, $map);
 	}
 
@@ -152,7 +152,7 @@ sub CreateElementData {
 
 	return $ElementData;
 }
-	
+
 
 sub AddElement {
 	my ($self, $type, $value, $which, $content) = @_;
@@ -192,7 +192,7 @@ sub Render {
 	my $self = shift;
 	my %args = (
 			FORMAT	=>	&Net::Z3950::GRS1::Render::Plain,
-			FILE	=>	'/dev/null',	
+			FILE	=>	'/dev/null',
 			LEVEL	=>	0,
 			HANDLE	=>	undef,
 			POOL	=>	undef,
@@ -222,10 +222,10 @@ sub Render {
 	}
 	if ($level == 1) {
 		$self->_RecordLine($level, $ref, "(0,0)\n");
-	}	
-}		
+	}
+}
+
 
-	
 package Net::Z3950::GRS1::ElementData;
 
 ## Define some constants according to the GRS-1 specification