Lines 44-49
sub plugin_parameters {
Link Here
|
44 |
} |
44 |
} |
45 |
|
45 |
|
46 |
sub plugin_javascript { |
46 |
sub plugin_javascript { |
|
|
47 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
48 |
$lang = "eng" unless $lang; |
49 |
$lang = pack("A3", $lang); |
47 |
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_; |
50 |
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_; |
48 |
my $function_name = $field_number; |
51 |
my $function_name = $field_number; |
49 |
my $res = " |
52 |
my $res = " |
Lines 55-61
function Focus$function_name(subfield_managed) {
Link Here
|
55 |
if ( document.getElementById(\"$field_number\").value ) { |
58 |
if ( document.getElementById(\"$field_number\").value ) { |
56 |
} |
59 |
} |
57 |
else { |
60 |
else { |
58 |
document.getElementById(\"$field_number\").value='$dateentered' + 't xxu||||| |||| 00| 0 eng d'; |
61 |
document.getElementById(\"$field_number\").value='$dateentered' + 't xxu||||| |||| 00| 0 $lang d'; |
59 |
} |
62 |
} |
60 |
return 1; |
63 |
return 1; |
61 |
} |
64 |
} |
Lines 78-83
function Clic$function_name(i) {
Link Here
|
78 |
} |
81 |
} |
79 |
|
82 |
|
80 |
sub plugin { |
83 |
sub plugin { |
|
|
84 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
85 |
$lang = "eng" unless $lang; |
86 |
$lang = pack("A3", $lang); |
81 |
my ($input) = @_; |
87 |
my ($input) = @_; |
82 |
my $index = $input->param('index'); |
88 |
my $index = $input->param('index'); |
83 |
my $result = $input->param('result'); |
89 |
my $result = $input->param('result'); |
Lines 95-101
sub plugin {
Link Here
|
95 |
); |
101 |
); |
96 |
|
102 |
|
97 |
# $result = " t xxu 00 0 eng d" unless $result; |
103 |
# $result = " t xxu 00 0 eng d" unless $result; |
98 |
$result = "$dateentered" . "t xxu||||| |||| 00| 0 eng d" unless $result; |
104 |
$result = "$dateentered" . "t xxu||||| |||| 00| 0 $lang d" unless $result; |
99 |
my $f1 = substr($result, 0, 6); |
105 |
my $f1 = substr($result, 0, 6); |
100 |
my $f6 = substr($result, 6, 1); |
106 |
my $f6 = substr($result, 6, 1); |
101 |
my $f710 = substr($result, 7, 4); |
107 |
my $f710 = substr($result, 7, 4); |