Lines 590-595
sub _gen_blob {
Link Here
|
590 |
sub _gen_default_values { |
590 |
sub _gen_default_values { |
591 |
my ($self) = @_; |
591 |
my ($self) = @_; |
592 |
return { |
592 |
return { |
|
|
593 |
ArticleRequest => { |
594 |
format => sub { |
595 |
my $formats = C4::Context->multivalue_preference('ArticleRequestsSupportedFormats'); |
596 |
return $formats->[ int( rand( scalar @$formats ) ) ]; |
597 |
} |
598 |
}, |
593 |
AuthorisedValueCategory => { |
599 |
AuthorisedValueCategory => { |
594 |
is_integer_only => 0, |
600 |
is_integer_only => 0, |
595 |
}, |
601 |
}, |
596 |
- |
|
|