view release on metacpan or  search on metacpan

lib/MARC/BBMARC.pm  view on Meta::CPAN

=head2 updated_record_array()

Note: Creates an array of control numbers (001) from input file.
Use with merge marc script. Call to initialize updated record array variable prior to entering loop.
Prompts for updated record file.
Prints running count of records based on counting_print function. Works only with USMARC input files.

=cut

sub updated_record_array {

	use MARC::File::USMARC;
	my @updatedrecarray;
####################################
# To do: test abstracted input file call ##
####################################
	my $inputfile = shift;
	unless ($inputfile) {
		print ("What is the updated record file?:");
		$inputfile = <>;