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

(-)a/misc/devel/create_test_data.pl (-7 / +13 lines)
Lines 44-55 GetOptions( Link Here
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
- 

Return to bug 37448