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 |