|
Lines 29-46
use C4::Output;
Link Here
|
| 29 |
use XML::LibXML; |
29 |
use XML::LibXML; |
| 30 |
use Koha::Util::FrameworkPlugin qw|date_entered|; |
30 |
use Koha::Util::FrameworkPlugin qw|date_entered|; |
| 31 |
|
31 |
|
| 32 |
=head1 DESCRIPTION |
|
|
| 33 |
|
| 34 |
plugin_parameters : other parameters added when the plugin is called by the dopop function |
| 35 |
|
| 36 |
=cut |
| 37 |
|
| 38 |
sub plugin_javascript { |
32 |
sub plugin_javascript { |
|
|
33 |
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_; |
| 34 |
|
| 39 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
35 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
| 40 |
$lang = "eng" unless $lang; |
36 |
$lang = "eng" unless $lang; |
| 41 |
$lang = pack("A3", $lang); |
37 |
$lang = pack("A3", $lang); |
| 42 |
|
38 |
|
| 43 |
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_; |
|
|
| 44 |
my $function_name = $field_number; |
39 |
my $function_name = $field_number; |
| 45 |
my $dateentered = date_entered(); |
40 |
my $dateentered = date_entered(); |
| 46 |
my $res = " |
41 |
my $res = " |
|
Lines 76-86
function Clic$function_name(i) {
Link Here
|
| 76 |
} |
71 |
} |
| 77 |
|
72 |
|
| 78 |
sub plugin { |
73 |
sub plugin { |
|
|
74 |
my ($input) = @_; |
| 79 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
75 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
| 80 |
$lang = "eng" unless $lang; |
76 |
$lang = "eng" unless $lang; |
| 81 |
$lang = pack("A3", $lang); |
77 |
$lang = pack("A3", $lang); |
| 82 |
|
78 |
|
| 83 |
my ($input) = @_; |
|
|
| 84 |
my $index = $input->param('index'); |
79 |
my $index = $input->param('index'); |
| 85 |
my $result = $input->param('result'); |
80 |
my $result = $input->param('result'); |
| 86 |
my $leader = $input->param('leader'); |
81 |
my $leader = $input->param('leader'); |