Attachment #39951 for bug #13437

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

Lines 26-32 sub plugin_javascript { Link Here

(-)a/cataloguing/value_builder/marc21_field_003.pl (-1 lines)
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\">

Lines 19-25 Link Here

(-)a/cataloguing/value_builder/marc21_field_005.pl (-1 lines)
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) = @_;





use XML::LibXML;

=head1 DESCRIPTION

plugin_parameters : other parameters added when the plugin is called by the dopop function

=cut

sub plugin_javascript {
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
    my $function_name = $field_number;




use C4::Search;
use C4::Output;

=head1 DESCRIPTION

plugin_parameters : other parameters added when the plugin is called by the dopop function

=cut

sub plugin_javascript {
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
    my $function_name = $field_number;




use XML::LibXML;
use Koha::Util::FrameworkPlugin qw|date_entered|;

=head1 DESCRIPTION

plugin_parameters : other parameters added when the plugin is called by the dopop function

=cut

sub plugin_javascript {
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;

    my $lang = C4::Context->preference('DefaultLanguageField008' );
    $lang = "eng" unless $lang;
    $lang = pack("A3", $lang);

    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
    my $function_name = $field_number;
    my $dateentered = date_entered();
    my $res           = "

}

sub plugin {
    my ($input) = @_;
    my $lang = C4::Context->preference('DefaultLanguageField008' );
    $lang = "eng" unless $lang;
    $lang = pack("A3", $lang);

    my ($input) = @_;
    my $index   = $input->param('index');
    my $result  = $input->param('result');
    my $leader  = $input->param('leader');




use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
use constant PREF_008 => 'MARCAuthorityControlField008';

=head1 DESCRIPTION

plugin_parameters : other parameters added when the plugin is called by the dopop function

=cut

sub plugin_javascript {
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
    my $function_name= $field_number;


    return ($function_name,$res);
}

sub plugin {
    my ($input) = @_;
    my $index= $input->param('index');




use strict;
#use warnings; FIXME - Bug 2505
use C4::Context;
# use MARC::Record;

sub plugin_javascript {
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
    my $function_name= $field_number;

    # find today's date
    my $org = C4::Context->preference('MARCOrgCode');
    my $res  = "
<script type=\"text/javascript\">




#!/usr/bin/perl


# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.

use strict;
#use warnings; FIXME - Bug 2505
use C4::Context;
# use MARC::Record;

=head1 DESCRIPTION

plugin_parameters : other parameters added when the plugin is called by the dopop function

=cut

sub plugin_javascript {
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
    my $function_name = $field_number;

    # find today's date
    my $org = C4::Context->preference('MARCOrgCode');
    my $res  = "
<script type=\"text/javascript\">

//]]>
</script>
";
    return ($function_name,$res);
}

Lines 1-6 Link Here

(-)a/cataloguing/value_builder/marc21_field_245h.pl (-2 / +1 lines)
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	}




    return ( $function_name, $res );
}

# sub plugin
#
# input arg :
# -- op could be equals to
# * fillinput :
# * do_search :
#

sub plugin {
    my ($query)   = @_;
    my $dbh       = C4::Context->dbh;
    my $query     = new CGI;
    my $op        = $query->param('op');
    # -- op could be equal to
    # * fillinput
    # * do_search

    my $type      = $query->param('type');
    my $startfrom = $query->param('startfrom');
    $startfrom = 0 if ( !defined $startfrom );
- 

Return to bug 13437

Lines 49-67 sub plugin_javascript { Link Here

(-)a/cataloguing/value_builder/marc21_linking_section.pl (-11 / +5 lines)
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	-

Lines 28-39 use C4::Output; Link Here

(-)a/cataloguing/value_builder/marc21_field_006.pl (-6 lines)
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;

Lines 27-38 use C4::Context; Link Here

(-)a/cataloguing/value_builder/marc21_field_007.pl (-6 lines)
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;

Lines 30-41 use Koha::Util::FrameworkPlugin qw\|date_entered\|; Link Here

(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-6 / +1 lines)
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');