Lines 57-63
sub new {
Link Here
|
57 |
|
57 |
|
58 |
=head3 generate_subfield_form |
58 |
=head3 generate_subfield_form |
59 |
|
59 |
|
60 |
Generate subfield's info for given tag, subfieldtag, etc. |
60 |
Generate subfield's info for given tag, subfieldtag, etc. |
61 |
|
61 |
|
62 |
=cut |
62 |
=cut |
63 |
|
63 |
|
Lines 280-285
sub generate_subfield_form {
Link Here
|
280 |
return \%subfield_data; |
280 |
return \%subfield_data; |
281 |
} |
281 |
} |
282 |
|
282 |
|
|
|
283 |
=head3 build_authorized_values_list |
284 |
|
285 |
Return list of authorized values for given tag, subfield |
286 |
|
287 |
=cut |
288 |
|
283 |
sub build_authorized_values_list { |
289 |
sub build_authorized_values_list { |
284 |
my ($self, $params) = @_; |
290 |
my ($self, $params) = @_; |
285 |
|
291 |
|
Lines 365-370
sub build_authorized_values_list {
Link Here
|
365 |
|
371 |
|
366 |
} |
372 |
} |
367 |
|
373 |
|
|
|
374 |
=head3 create_key |
375 |
|
376 |
Create unique key for subfields |
377 |
|
378 |
=cut |
379 |
|
368 |
sub create_key { |
380 |
sub create_key { |
369 |
return int(rand(1000000)); |
381 |
return int(rand(1000000)); |
370 |
} |
382 |
} |
371 |
- |
|
|