Bug 11926: Package updates

[srvgit] / 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..d5acce0 100755 (executable)
--- a/cataloguing/value_builder/normarc_field_008.pl
+++ b/cataloguing/value_builder/normarc_field_008.pl
@@ -25,9 +25,11 @@ use C4::Context;
 use C4::Search;
 use C4::Output;
 
-=head1
+=head1 FUNCTIONS
 
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
 
 =cut
 
@@ -44,6 +46,9 @@ sub plugin_parameters {
 }
 
 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           = "
@@ -55,7 +60,7 @@ function Focus$function_name(subfield_managed) {
        if ( document.getElementById(\"$field_number\").value ) {
        }
        else {
-               document.getElementById(\"$field_number\").value='$dateentered' + 't        xxu||||| |||| 00| 0 eng d';
+        document.getElementById(\"$field_number\").value='$dateentered' + 't        no ||||| |||| 00| 0 $lang d';
        }
     return 1;
 }
@@ -78,6 +83,9 @@ function Clic$function_name(i) {
 }
 
 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');
@@ -85,7 +93,7 @@ sub plugin {
     my $dbh = C4::Context->dbh;
 
     my ($template, $loggedinuser, $cookie) = get_template_and_user(
-        {   template_name   => "cataloguing/value_builder/normarc_field_008.tmpl",
+        {   template_name   => "cataloguing/value_builder/normarc_field_008.tt",
             query           => $input,
             type            => "intranet",
             authnotrequired => 0,
@@ -95,7 +103,7 @@ sub plugin {
     );
 
     #  $result = "      t        xxu           00  0 eng d" unless $result;
-    $result = "$dateentered" . "t        xxu||||| |||| 00| 0 eng d" unless $result;
+    $result = "$dateentered" . "t        no ||||| |||| 00| 0 $lang d" unless $result;
     my $f1    = substr($result, 0,  6);
     my $f6    = substr($result, 6,  1);
     my $f710  = substr($result, 7,  4);