Koha-community
/
Koha
13
5
Fork 0
Code Issues Releases Wiki Activity
Browse Source

Minor Bug Fixing

3.0.x
hdl 19 years ago
parent
0f503b867c
commit
5a35a5b386
2 changed files with 9 additions and 31 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 10
      koha-tmpl/intranet-tmpl/default/en/value_builder/unimarc_field_4XX.tmpl
  2. 30
      value_builder/unimarc_field_4XX.pl

10
koha-tmpl/intranet-tmpl/default/en/value_builder/unimarc_field_4XX.tmpl
View File

@ -9,7 +9,7 @@
var whichfield = opener.opener.document.f.tag[index_start].value;
i=index_start
// go forward, until reaching the end of the field.
while (i<=opener.opener.document.f.field_value.length) {
while (i<opener.opener.document.f.field_value.length) {
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == '9') {
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="subfield_value_9" -->";
}
@ -26,7 +26,7 @@
}
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == 'd')
{
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="subfield_value_c" -->";
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="subfield_value_d" -->";
}
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == 'e')
{
@ -73,10 +73,10 @@
i=index_start
while (i>=0) {
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == '0') {
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="bibid">";
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="subfield_value_0">";
}
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == '9') {
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="bibid">";
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="subfield_value_9">";
}
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == 'a')
{
@ -88,7 +88,7 @@
}
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == 'd')
{
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="subfield_value_c" -->";
opener.opener.document.f.field_value[i].value = "<!-- TMPL_VAR NAME="subfield_value_d" -->";
}
if (opener.opener.document.f.tag[i].value == whichfield && opener.opener.document.f.subfield[i].value == 'e')
{

30
value_builder/unimarc_field_4XX.pl
View File

@ -96,14 +96,10 @@ sub plugin {
my $req= $dbh->prepare("SELECT distinctrow bibid,biblionumber FROM `marc_biblio` WHERE biblionumber= ?");
$req->execute($bibnum);
($bibid,$bibnum) = $req->fetchrow;
# warn "bibid :".$bibid;
#warn "bibid :".$bibid;
#get marc record
$marcrecord = MARCgetbiblio($dbh,$bibid);
# warn "record : ".$marcrecord->as_formatted;
# my @loop_data =();
# my $tag;
# my @loop_data =();
# my @subfields_data;
warn "record : ".$marcrecord->as_formatted;
my $subfield_value_9=$bibid;
my $subfield_value_0=$marcrecord->field('001')->data;
@ -119,7 +115,7 @@ sub plugin {
my $subfield_value_d;
if ($marcrecord->field('100')){
my $publicationdate;
warn "date de publication 1".substr($marcrecord->field('100')->subfield("a"),9,4)." date de publication 2 ".substr($marcrecord->field('100')->subfield("a"),12,4);
#warn "date de publication 1".substr($marcrecord->field('100')->subfield("a"),9,4)." date de publication 2 ".substr($marcrecord->field('100')->subfield("a"),12,4);
$publicationdate = substr($marcrecord->field('100')->subfield("a"),9,4);
if (substr($marcrecord->field('100')->subfield("a"),12,4)>$publicationdate){
$publicationdate=substr($marcrecord->field('100')->subfield("a"),12,4);
@ -168,26 +164,8 @@ sub plugin {
my $subfield_value_x = $marcrecord->field('011')->subfield("a") if ($marcrecord->field('011') and not (($marcrecord->field('011')->subfield("y")) or ($marcrecord->field('011')->subfield("z"))));
my $subfield_value_y = $marcrecord->field('013')->subfield("a") if ($marcrecord->field('013'));
if ($marcrecord->field('010')){
my $subfield_value_y = $marcrecord->field('010')->subfield("a");
$subfield_value_y = $marcrecord->field('010')->subfield("a");
}
# my @subf;
# #=(a,c,d,e,h,i,p,t,u,v,x,y,0,9);
# # loop through each subfield
# for my $i (0..$#subf) {
# $subf[$i][0] = "@" unless $subf[$i][0];
# my %subfield_data;
# $subfield_data{marc_value}=$subf[$i][1];
# $subfield_data{marc_subfield}=$subf[$i][0];
# $subfield_data{marc_tag}="";#$field->tag();
# push(@subfields_data, \%subfield_data);
# }
# if ($#subfields_data>=0) {
# my %tag_data;
# $tag_data{tag}="";#$field->tag().' -'. "";
# $tag_data{subfield} = \@subfields_data;
# push (@loop_data, \%tag_data);
# }
# $template->param("0XX" =>\@loop_data);
$template->param(fillinput => 1,
index => $query->param('index')."",
bibid=>$bibid?$bibid:"",

Write Preview
Loading…
Cancel
Save