|
Lines 575-580
sub _gen_blob {
Link Here
|
| 575 |
sub _gen_default_values { |
575 |
sub _gen_default_values { |
| 576 |
my ($self) = @_; |
576 |
my ($self) = @_; |
| 577 |
return { |
577 |
return { |
|
|
578 |
ArticleRequest => { |
| 579 |
format => sub { |
| 580 |
my $formats = C4::Context->multivalue_preference('ArticleRequestsSupportedFormats'); |
| 581 |
return $formats->[ int( rand( scalar @$formats ) ) ]; |
| 582 |
} |
| 583 |
}, |
| 578 |
AuthorisedValueCategory => { |
584 |
AuthorisedValueCategory => { |
| 579 |
is_integer_only => 0, |
585 |
is_integer_only => 0, |
| 580 |
}, |
586 |
}, |
| 581 |
- |
|
|