Attachment #169487 for bug #37448

View | Details | Raw Unified | Return to bug 37448
Collapse All | Expand All




pod2usage(1) if $help || !$number || !$source;

for ( 1 .. $number ) {

    if($source eq 'Biblio'){
        $builder->build_sample_biblio( $values )
    }elsif($source eq 'Item'){
        $builder->build_sample_item( $values )
    }else{
        $builder->build(
            {
                source => $source,
                value  => $values,
            }
        );
    }
}

=head1 NAME
- 

Return to bug 37448

Lines 44-55 GetOptions( Link Here

(-)a/misc/devel/create_test_data.pl (-7 / +13 lines)
44	pod2usage(1) if $help \|\| !$number \|\| !$source;	44	pod2usage(1) if $help \|\| !$number \|\| !$source;
45		45
46	for ( 1 .. $number ) {	46	for ( 1 .. $number ) {
47	$builder->build(	47
48	{	48	if($source eq 'Biblio'){
49	source => $source,	49	$builder->build_sample_biblio( $values )
50	value => $values,	50	}elsif($source eq 'Item'){
51	}	51	$builder->build_sample_item( $values )
52	);	52	}else{
		53	$builder->build(
		54	{
		55	source => $source,
		56	value => $values,
		57	}
		58	);
		59	}
53	}	60	}
54		61
55	=head1 NAME	62	=head1 NAME
56	-