--- trunk/lib/WebPAC/Normalize.pm	2011/12/15 21:40:02	1366
+++ trunk/lib/WebPAC/Normalize.pm	2011/12/15 21:40:37	1367
@@ -145,7 +145,7 @@
 	$WebPAC::Normalize::MARC::rec = $rec;
 }
 
-=head2
+=head2 _get_rec
 
   my $rec = _get_rec();
 
@@ -153,6 +153,14 @@
 
 sub _get_rec { $rec };
 
+=head2 _set_rec
+
+  _set_rec( $rec );
+
+=cut
+
+sub _set_rec { $rec = $_[0] }
+
 =head2 _set_config
 
 Set current config hash