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 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');
(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-6 / +1 lines)
Lines 29-40 use C4::Output; Link Here
29
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
29
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
30
use constant PREF_008 => 'MARCAuthorityControlField008';
30
use constant PREF_008 => 'MARCAuthorityControlField008';
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 date_entered {
32
sub date_entered {
39
    # find today's date
33
    # find today's date
40
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
34
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
Lines 76-81 function Clic$function_name(i) { Link Here
76
70
77
    return ($function_name,$res);
71
    return ($function_name,$res);
78
}
72
}
73
79
sub plugin {
74
sub plugin {
80
    my ($input) = @_;
75
    my ($input) = @_;
81
    my $index= $input->param('index');
76
    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