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