--- trunk/lib/WebPAC/Normalize.pm	2007/11/03 13:35:03	982
+++ trunk/lib/WebPAC/Normalize.pm	2007/11/04 11:12:38	983
@@ -1,7 +1,8 @@
 package WebPAC::Normalize;
 use Exporter 'import';
 our @EXPORT = qw/
-	_set_rec _set_lookup
+	_set_ds _set_lookup
+	get_ds
 	_set_load_row
 	_get_ds _clean_ds
 	_debug
@@ -47,7 +48,7 @@
 
 =cut
 
-our $VERSION = '0.31';
+our $VERSION = '0.32';
 
 =head1 SYNOPSIS
 
@@ -107,7 +108,7 @@
 
 	no strict 'subs';
 	_set_lookup( $arg->{lookup} ) if defined($arg->{lookup});
-	_set_rec( $arg->{row} );
+	_set_ds( $arg->{row} );
 	_set_config( $arg->{config} ) if defined($arg->{config});
 	_clean_ds( %{ $arg } );
 	$load_row_coderef = $arg->{load_row_coderef};
@@ -118,20 +119,32 @@
 	return _get_ds();
 }
 
-=head2 _set_rec
+=head2 _set_ds
 
 Set current record hash
 
-  _set_rec( $rec );
+  _set_ds( $rec );
 
 =cut
 
 my $rec;
 
-sub _set_rec {
+sub _set_ds {
 	$rec = shift or die "no record hash";
 }
 
+=head2 get_ds
+
+Access to original record from input module
+
+  my $ds = get_rec;
+
+=cut
+
+sub get_ds {
+	return $rec;
+}
+
 =head2 _set_config
 
 Set current config hash