|
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'); |