Lines 28-39
use C4::Output;
Link Here
|
28 |
|
28 |
|
29 |
use XML::LibXML; |
29 |
use XML::LibXML; |
30 |
|
30 |
|
31 |
=head1 DESCRIPTION |
|
|
32 |
|
33 |
plugin_parameters : other parameters added when the plugin is called by the dopop function |
34 |
|
35 |
=cut |
36 |
|
37 |
sub date_entered { |
31 |
sub date_entered { |
38 |
# find today's date |
32 |
# find today's date |
39 |
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); |
33 |
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); |
Lines 43-53
sub date_entered {
Link Here
|
43 |
} |
37 |
} |
44 |
|
38 |
|
45 |
sub plugin_javascript { |
39 |
sub plugin_javascript { |
|
|
40 |
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_; |
41 |
|
46 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
42 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
47 |
$lang = "eng" unless $lang; |
43 |
$lang = "eng" unless $lang; |
48 |
$lang = pack("A3", $lang); |
44 |
$lang = pack("A3", $lang); |
49 |
|
45 |
|
50 |
my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_; |
|
|
51 |
my $function_name = $field_number; |
46 |
my $function_name = $field_number; |
52 |
my $dateentered = date_entered(); |
47 |
my $dateentered = date_entered(); |
53 |
my $res = " |
48 |
my $res = " |
Lines 83-93
function Clic$function_name(i) {
Link Here
|
83 |
} |
78 |
} |
84 |
|
79 |
|
85 |
sub plugin { |
80 |
sub plugin { |
|
|
81 |
my ($input) = @_; |
86 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
82 |
my $lang = C4::Context->preference('DefaultLanguageField008' ); |
87 |
$lang = "eng" unless $lang; |
83 |
$lang = "eng" unless $lang; |
88 |
$lang = pack("A3", $lang); |
84 |
$lang = pack("A3", $lang); |
89 |
|
85 |
|
90 |
my ($input) = @_; |
|
|
91 |
my $index = $input->param('index'); |
86 |
my $index = $input->param('index'); |
92 |
my $result = $input->param('result'); |
87 |
my $result = $input->param('result'); |
93 |
my $leader = $input->param('leader'); |
88 |
my $leader = $input->param('leader'); |