|
Lines 610-615
sub _gen_blob {
Link Here
|
| 610 |
sub _gen_default_values { |
610 |
sub _gen_default_values { |
| 611 |
my ($self) = @_; |
611 |
my ($self) = @_; |
| 612 |
return { |
612 |
return { |
|
|
613 |
ArticleRequest => { |
| 614 |
format => sub { |
| 615 |
my $formats = C4::Context->multivalue_preference('ArticleRequestsSupportedFormats'); |
| 616 |
return $formats->[ int( rand( scalar @$formats ) ) ]; |
| 617 |
} |
| 618 |
}, |
| 613 |
AuthorisedValueCategory => { |
619 |
AuthorisedValueCategory => { |
| 614 |
is_integer_only => 0, |
620 |
is_integer_only => 0, |
| 615 |
}, |
621 |
}, |
| 616 |
- |
|
|