projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge remote-tracking branch 'origin/new/bug_7889'
[koha.git]
/
cataloguing
/
value_builder
/
normarc_field_008.pl
diff --git
a/cataloguing/value_builder/normarc_field_008.pl
b/cataloguing/value_builder/normarc_field_008.pl
index
4fc8919
..
5efe9a8
100755
(executable)
--- a/
cataloguing/value_builder/normarc_field_008.pl
+++ b/
cataloguing/value_builder/normarc_field_008.pl
@@
-44,6
+44,9
@@
sub plugin_parameters {
}
sub plugin_javascript {
}
sub plugin_javascript {
+ my $lang = C4::Context->preference('DefaultLanguageField008' );
+ $lang = "eng" unless $lang;
+ $lang = pack("A3", $lang);
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
my $function_name = $field_number;
my $res = "
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
my $function_name = $field_number;
my $res = "
@@
-55,7
+58,7
@@
function Focus$function_name(subfield_managed) {
if ( document.getElementById(\"$field_number\").value ) {
}
else {
if ( document.getElementById(\"$field_number\").value ) {
}
else {
-
document.getElementById(\"$field_number\").value='$dateentered' + 't xxu||||| |||| 00| 0 e
ng d';
+
document.getElementById(\"$field_number\").value='$dateentered' + 't xxu||||| |||| 00| 0 $la
ng d';
}
return 1;
}
}
return 1;
}
@@
-78,6
+81,9
@@
function Clic$function_name(i) {
}
sub plugin {
}
sub plugin {
+ my $lang = C4::Context->preference('DefaultLanguageField008' );
+ $lang = "eng" unless $lang;
+ $lang = pack("A3", $lang);
my ($input) = @_;
my $index = $input->param('index');
my $result = $input->param('result');
my ($input) = @_;
my $index = $input->param('index');
my $result = $input->param('result');
@@
-95,7
+101,7
@@
sub plugin {
);
# $result = " t xxu 00 0 eng d" unless $result;
);
# $result = " t xxu 00 0 eng d" unless $result;
- $result = "$dateentered" . "t xxu||||| |||| 00| 0
e
ng d" unless $result;
+ $result = "$dateentered" . "t xxu||||| |||| 00| 0
$la
ng d" unless $result;
my $f1 = substr($result, 0, 6);
my $f6 = substr($result, 6, 1);
my $f710 = substr($result, 7, 4);
my $f1 = substr($result, 0, 6);
my $f6 = substr($result, 6, 1);
my $f710 = substr($result, 7, 4);