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 |
- |
|
|