|
Lines 45-57
pod2usage(1) if $help || !$number || !$source;
Link Here
|
| 45 |
|
45 |
|
| 46 |
for ( 1 .. $number ) { |
46 |
for ( 1 .. $number ) { |
| 47 |
|
47 |
|
| 48 |
if($source eq 'Biblio'){ |
48 |
if ( $source eq 'Biblio' ) { |
| 49 |
$builder->build_sample_biblio( $values ) |
49 |
$builder->build_sample_biblio($values); |
| 50 |
}elsif($source eq 'Item'){ |
50 |
} elsif ( $source eq 'Item' ) { |
| 51 |
$builder->build_sample_item( $values ) |
51 |
$builder->build_sample_item($values); |
| 52 |
}elsif($source eq 'Illrequest'){ |
52 |
} elsif ( $source eq 'Illrequest' ) { |
| 53 |
$builder->build_sample_ill_request( $values ) |
53 |
$builder->build_sample_ill_request($values); |
| 54 |
}else{ |
54 |
} else { |
| 55 |
$builder->build( |
55 |
$builder->build( |
| 56 |
{ |
56 |
{ |
| 57 |
source => $source, |
57 |
source => $source, |
| 58 |
- |
|
|