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