gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reintroducing indicators for UNIMARC libraries.

This commit is contained in:
tipaul 2006-09-13 14:28:56 +00:00
parent 17eec83130
commit d0b4f6d2c8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
acqui.simple/addbiblio.pl
View File

@ -136,6 +136,7 @@ sub MARCfindbreeding {
}
$record->insert_fields_ordered($field);
}
# warn $record->as_formatted."";
return $record,$encoding;
}
}
@ -500,7 +501,12 @@ if ($op eq "addbiblio") {
my @ind_tag = $input->param('ind_tag');
my @indicator = $input->param('indicator');
if (C4::Context->preference('TemplateEncoding') eq "iso-8859-1") {
$record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,\@indicator,\@ind_tag);
my %indicators;
for (my $i=0;$i<=$#ind_tag;$i++) {
$indicators{$ind_tag[$i]} = $indicator[$i];
}
$record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,%indicators);
# warn "RECORD : ".$record->as_formatted;
} else {
my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag);
$record=MARC::Record->new_from_xml($xml,C4::Context->preference('TemplateEncoding'),C4::Context->preference('marcflavour'));