|
Lines 159-165
sub MARCfindbreeding {
Link Here
|
| 159 |
|
159 |
|
| 160 |
=cut |
160 |
=cut |
| 161 |
|
161 |
|
| 162 |
sub build_authorized_values_list ($$$$$$$) { |
162 |
sub build_authorized_values_list { |
| 163 |
my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_; |
163 |
my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_; |
| 164 |
|
164 |
|
| 165 |
my @authorised_values; |
165 |
my @authorised_values; |
|
Lines 252-258
sub build_authorized_values_list ($$$$$$$) {
Link Here
|
| 252 |
|
252 |
|
| 253 |
=cut |
253 |
=cut |
| 254 |
|
254 |
|
| 255 |
sub CreateKey(){ |
255 |
sub CreateKey { |
| 256 |
return int(rand(1000000)); |
256 |
return int(rand(1000000)); |
| 257 |
} |
257 |
} |
| 258 |
|
258 |
|
|
Lines 263-269
sub CreateKey(){
Link Here
|
| 263 |
|
263 |
|
| 264 |
=cut |
264 |
=cut |
| 265 |
|
265 |
|
| 266 |
sub GetMandatoryFieldZ3950($){ |
266 |
sub GetMandatoryFieldZ3950 { |
| 267 |
my $frameworkcode = shift; |
267 |
my $frameworkcode = shift; |
| 268 |
my @isbn = GetMarcFromKohaField('biblioitems.isbn',$frameworkcode); |
268 |
my @isbn = GetMarcFromKohaField('biblioitems.isbn',$frameworkcode); |
| 269 |
my @title = GetMarcFromKohaField('biblio.title',$frameworkcode); |
269 |
my @title = GetMarcFromKohaField('biblio.title',$frameworkcode); |
|
Lines 536-542
sub format_indicator {
Link Here
|
| 536 |
return $ind_value; |
536 |
return $ind_value; |
| 537 |
} |
537 |
} |
| 538 |
|
538 |
|
| 539 |
sub build_tabs ($$$$$) { |
539 |
sub build_tabs { |
| 540 |
my ( $template, $record, $dbh, $encoding,$input ) = @_; |
540 |
my ( $template, $record, $dbh, $encoding,$input ) = @_; |
| 541 |
|
541 |
|
| 542 |
# fill arrays |
542 |
# fill arrays |