View | Details | Raw Unified | Return to bug 13437
Collapse All | Expand All

(-)a/cataloguing/value_builder/marc21_field_003.pl (-1 lines)
Lines 26-32 sub plugin_javascript { Link Here
26
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
26
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
27
    my $function_name= $field_number;
27
    my $function_name= $field_number;
28
28
29
    # find today's date
30
    my $org = C4::Context->preference('MARCOrgCode');
29
    my $org = C4::Context->preference('MARCOrgCode');
31
    my $res  = "
30
    my $res  = "
32
<script type=\"text/javascript\">
31
<script type=\"text/javascript\">
(-)a/cataloguing/value_builder/marc21_field_005.pl (-1 lines)
Lines 19-25 Link Here
19
19
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
#use C4::Context;
23
22
24
sub plugin_javascript {
23
sub plugin_javascript {
25
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
24
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/marc21_field_006.pl (-6 lines)
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 plugin_javascript {
31
sub plugin_javascript {
38
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
32
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
39
    my $function_name = $field_number;
33
    my $function_name = $field_number;
(-)a/cataloguing/value_builder/marc21_field_007.pl (-6 lines)
Lines 27-38 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1 DESCRIPTION
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
33
34
=cut
35
36
sub plugin_javascript {
30
sub plugin_javascript {
37
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
31
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
38
    my $function_name = $field_number;
32
    my $function_name = $field_number;
(-)a/cataloguing/value_builder/marc21_field_008.pl (-8 / +3 lines)
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');
(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-6 / +1 lines)
Lines 30-41 use Koha::Util::FrameworkPlugin qw|date_entered|; Link Here
30
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
30
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
31
use constant PREF_008 => 'MARCAuthorityControlField008';
31
use constant PREF_008 => 'MARCAuthorityControlField008';
32
32
33
=head1 DESCRIPTION
34
35
plugin_parameters : other parameters added when the plugin is called by the dopop function
36
37
=cut
38
39
sub plugin_javascript {
33
sub plugin_javascript {
40
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
34
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
41
    my $function_name= $field_number;
35
    my $function_name= $field_number;
Lines 69-74 function Clic$function_name(i) { Link Here
69
63
70
    return ($function_name,$res);
64
    return ($function_name,$res);
71
}
65
}
66
72
sub plugin {
67
sub plugin {
73
    my ($input) = @_;
68
    my ($input) = @_;
74
    my $index= $input->param('index');
69
    my $index= $input->param('index');
(-)a/cataloguing/value_builder/marc21_field_040c.pl (-2 lines)
Lines 20-32 Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
22
use C4::Context;
23
# use MARC::Record;
24
23
25
sub plugin_javascript {
24
sub plugin_javascript {
26
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
25
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
27
    my $function_name= $field_number;
26
    my $function_name= $field_number;
28
27
29
    # find today's date
30
    my $org = C4::Context->preference('MARCOrgCode');
28
    my $org = C4::Context->preference('MARCOrgCode');
31
    my $res  = "
29
    my $res  = "
32
<script type=\"text/javascript\">
30
<script type=\"text/javascript\">
(-)a/cataloguing/value_builder/marc21_field_040d.pl (-10 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
4
# Copyright 2000-2002 Katipo Communications
3
# Copyright 2000-2002 Katipo Communications
5
#
4
#
6
# This file is part of Koha.
5
# This file is part of Koha.
Lines 21-39 Link Here
21
use strict;
20
use strict;
22
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
23
use C4::Context;
22
use C4::Context;
24
# use MARC::Record;
25
26
=head1 DESCRIPTION
27
28
plugin_parameters : other parameters added when the plugin is called by the dopop function
29
30
=cut
31
23
32
sub plugin_javascript {
24
sub plugin_javascript {
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
25
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
34
    my $function_name = $field_number;
26
    my $function_name = $field_number;
35
27
36
    # find today's date
37
    my $org = C4::Context->preference('MARCOrgCode');
28
    my $org = C4::Context->preference('MARCOrgCode');
38
    my $res  = "
29
    my $res  = "
39
<script type=\"text/javascript\">
30
<script type=\"text/javascript\">
Lines 47-51 function Focus$function_name(subfield_managed) { Link Here
47
//]]>
38
//]]>
48
</script>
39
</script>
49
";
40
";
50
return ($function_name,$res);
41
    return ($function_name,$res);
51
}
42
}
(-)a/cataloguing/value_builder/marc21_field_245h.pl (-2 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
4
# Copyright 2009 Kyle Hall <kyle.m.hall@gmail.com>
3
# Copyright 2009 Kyle Hall <kyle.m.hall@gmail.com>
5
#
4
#
6
# This file is part of Koha.
5
# This file is part of Koha.
Lines 44-48 function Blur$function_name(index) { Link Here
44
//]]>
43
//]]>
45
</script>
44
</script>
46
";
45
";
47
return ($function_name,$res);
46
    return ($function_name,$res);
48
}
47
}
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-11 / +5 lines)
Lines 49-67 sub plugin_javascript { Link Here
49
    return ( $function_name, $res );
49
    return ( $function_name, $res );
50
}
50
}
51
51
52
# sub plugin
53
#
54
# input arg :
55
# -- op could be equals to
56
# * fillinput :
57
# * do_search :
58
#
59
60
sub plugin {
52
sub plugin {
61
    my ($input)   = @_;
53
    my ($query)   = @_;
62
    my $dbh       = C4::Context->dbh;
54
    my $dbh       = C4::Context->dbh;
63
    my $query     = new CGI;
64
    my $op        = $query->param('op');
55
    my $op        = $query->param('op');
56
    # -- op could be equal to
57
    # * fillinput
58
    # * do_search
59
65
    my $type      = $query->param('type');
60
    my $type      = $query->param('type');
66
    my $startfrom = $query->param('startfrom');
61
    my $startfrom = $query->param('startfrom');
67
    $startfrom = 0 if ( !defined $startfrom );
62
    $startfrom = 0 if ( !defined $startfrom );
68
- 

Return to bug 13437