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

(-)a/C4/Items.pm (-1 / +1 lines)
Lines 1809-1815 sub PrepareItemrecordDisplay { Link Here
1809
                        name => $subfield->{value_builder},
1809
                        name => $subfield->{value_builder},
1810
                        item_style => 1,
1810
                        item_style => 1,
1811
                    });
1811
                    });
1812
                    my $pars = { dbh => $dbh, record => undef, tagslib =>$tagslib, id => $subfield_data{id}, tabloop => undef };
1812
                    my $pars = { dbh => $dbh, record => undef, tagslib =>$tagslib, id => $subfield_data{id} };
1813
                    $plugin->build( $pars );
1813
                    $plugin->build( $pars );
1814
                    if ( $itemrecord and my $field = $itemrecord->field($tag) ) {
1814
                    if ( $itemrecord and my $field = $itemrecord->field($tag) ) {
1815
                        $defaultvalue = $field->subfield($subfield->{subfield}) || q{};
1815
                        $defaultvalue = $field->subfield($subfield->{subfield}) || q{};
(-)a/Koha/FrameworkPlugin.pm (-2 / +2 lines)
Lines 155-161 sub new { Link Here
155
    Generate html and javascript by calling the builder sub of the plugin.
155
    Generate html and javascript by calling the builder sub of the plugin.
156
156
157
    Params is a hashref supporting keys: id (=html id for the input field),
157
    Params is a hashref supporting keys: id (=html id for the input field),
158
    record (MARC record or undef), dbh (database handle), tagslib, tabloop.
158
    record (MARC record or undef), dbh (database handle), tagslib.
159
    Note that some of these parameters are not used in most (if not all)
159
    Note that some of these parameters are not used in most (if not all)
160
    plugins and may be obsoleted in the future (kept for now to provide
160
    plugins and may be obsoleted in the future (kept for now to provide
161
    backward compatibility).
161
    backward compatibility).
Lines 276-282 sub _generate_js { Link Here
276
276
277
    my @params = $self->{oldschool}//0 ?
277
    my @params = $self->{oldschool}//0 ?
278
        ( $params->{dbh}, $params->{record}, $params->{tagslib},
278
        ( $params->{dbh}, $params->{record}, $params->{tagslib},
279
            $params->{id}, $params->{tabloop} ):
279
            $params->{id} ):
280
        ( $params );
280
        ( $params );
281
    my @rv = &$sub( @params );
281
    my @rv = &$sub( @params );
282
    return $self->_error( 'Builder sub failed: ' . $@ ) if $@;
282
    return $self->_error( 'Builder sub failed: ' . $@ ) if $@;
(-)a/authorities/authorities.pl (-7 / +7 lines)
Lines 133-140 builds the <input ...> entry for a subfield. Link Here
133
=cut
133
=cut
134
134
135
sub create_input {
135
sub create_input {
136
    my ( $tag, $subfield, $value, $index_tag, $tabloop, $rec, $authorised_values_sth,$cgi ) = @_;
136
    my ( $tag, $subfield, $value, $index_tag, $rec, $authorised_values_sth,$cgi ) = @_;
137
    
137
138
    my $index_subfield = CreateKey(); # create a specifique key for each subfield
138
    my $index_subfield = CreateKey(); # create a specifique key for each subfield
139
139
140
    # determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008
140
    # determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008
Lines 213-219 sub create_input { Link Here
213
            name => $tagslib->{$tag}->{$subfield}->{'value_builder'},
213
            name => $tagslib->{$tag}->{$subfield}->{'value_builder'},
214
        });
214
        });
215
        my $pars=  { dbh => $dbh, record => $rec, tagslib =>$tagslib,
215
        my $pars=  { dbh => $dbh, record => $rec, tagslib =>$tagslib,
216
            id => $subfield_data{id}, tabloop => $tabloop };
216
            id => $subfield_data{id} };
217
        $plugin->build( $pars );
217
        $plugin->build( $pars );
218
        if( !$plugin->errstr ) {
218
        if( !$plugin->errstr ) {
219
            $subfield_data{marc_value} = {
219
            $subfield_data{marc_value} = {
Lines 410-416 sub build_tabs { Link Here
410
                        push(
410
                        push(
411
                            @subfields_data,
411
                            @subfields_data,
412
                            &create_input(
412
                            &create_input(
413
                                $tag, $subfield, $value, $index_tag, $tabloop, $record,
413
                                $tag, $subfield, $value, $index_tag, $record,
414
                                $authorised_values_sth,$input
414
                                $authorised_values_sth,$input
415
                            )
415
                            )
416
                        );
416
                        );
Lines 426-432 sub build_tabs { Link Here
426
                            push(
426
                            push(
427
                                @subfields_data,
427
                                @subfields_data,
428
                                &create_input(
428
                                &create_input(
429
                                    $tag, $subfield, $value, $index_tag, $tabloop,
429
                                    $tag, $subfield, $value, $index_tag,
430
                                    $record, $authorised_values_sth,$input
430
                                    $record, $authorised_values_sth,$input
431
                                )
431
                                )
432
                            );
432
                            );
Lines 444-450 sub build_tabs { Link Here
444
                        push(
444
                        push(
445
                            @subfields_data,
445
                            @subfields_data,
446
                            &create_input(
446
                            &create_input(
447
                                $tag, $subfield, '', $index_tag, $tabloop, $record,
447
                                $tag, $subfield, '', $index_tag, $record,
448
                                $authorised_values_sth,$input
448
                                $authorised_values_sth,$input
449
                            )
449
                            )
450
                        );
450
                        );
Lines 486-492 sub build_tabs { Link Here
486
                    push(
486
                    push(
487
                        @subfields_data,
487
                        @subfields_data,
488
                        &create_input(
488
                        &create_input(
489
                            $tag, $subfield->{subfield}, '', $index_tag, $tabloop, $record,
489
                            $tag, $subfield->{subfield}, '', $index_tag, $record,
490
                            $authorised_values_sth,$input
490
                            $authorised_values_sth,$input
491
                        )
491
                        )
492
                    );
492
                    );
(-)a/cataloguing/addbiblio.pl (-6 / +6 lines)
Lines 283-289 sub GetMandatoryFieldZ3950 { Link Here
283
=cut
283
=cut
284
284
285
sub create_input {
285
sub create_input {
286
    my ( $tag, $subfield, $value, $index_tag, $tabloop, $rec, $authorised_values_sth,$cgi ) = @_;
286
    my ( $tag, $subfield, $value, $index_tag, $rec, $authorised_values_sth,$cgi ) = @_;
287
    
287
    
288
    my $index_subfield = CreateKey(); # create a specifique key for each subfield
288
    my $index_subfield = CreateKey(); # create a specifique key for each subfield
289
289
Lines 393-399 sub create_input { Link Here
393
            name => $tagslib->{$tag}->{$subfield}->{'value_builder'},
393
            name => $tagslib->{$tag}->{$subfield}->{'value_builder'},
394
        });
394
        });
395
        my $pars= { dbh => $dbh, record => $rec, tagslib => $tagslib,
395
        my $pars= { dbh => $dbh, record => $rec, tagslib => $tagslib,
396
            id => $subfield_data{id}, tabloop => $tabloop };
396
            id => $subfield_data{id} };
397
        $plugin->build( $pars );
397
        $plugin->build( $pars );
398
        if( !$plugin->errstr ) {
398
        if( !$plugin->errstr ) {
399
            $subfield_data{marc_value} = {
399
            $subfield_data{marc_value} = {
Lines 566-572 sub build_tabs { Link Here
566
                        push(
566
                        push(
567
                            @subfields_data,
567
                            @subfields_data,
568
                            &create_input(
568
                            &create_input(
569
                                $tag, $subfield, $value, $index_tag, $tabloop, $record,
569
                                $tag, $subfield, $value, $index_tag, $record,
570
                                $authorised_values_sth,$input
570
                                $authorised_values_sth,$input
571
                            )
571
                            )
572
                        );
572
                        );
Lines 581-587 sub build_tabs { Link Here
581
                            push(
581
                            push(
582
                                @subfields_data,
582
                                @subfields_data,
583
                                &create_input(
583
                                &create_input(
584
                                    $tag, $subfield, $value, $index_tag, $tabloop,
584
                                    $tag, $subfield, $value, $index_tag,
585
                                    $record, $authorised_values_sth,$input
585
                                    $record, $authorised_values_sth,$input
586
                                )
586
                                )
587
                            );
587
                            );
Lines 609-615 sub build_tabs { Link Here
609
                        push(
609
                        push(
610
                            @subfields_data,
610
                            @subfields_data,
611
                            &create_input(
611
                            &create_input(
612
                                $tag, $subfield, '', $index_tag, $tabloop, $record,
612
                                $tag, $subfield, '', $index_tag, $record,
613
                                $authorised_values_sth,$input
613
                                $authorised_values_sth,$input
614
                            )
614
                            )
615
                        );
615
                        );
Lines 663-669 sub build_tabs { Link Here
663
			push(
663
			push(
664
                        @subfields_data,
664
                        @subfields_data,
665
                        &create_input(
665
                        &create_input(
666
                            $tag, $subfield->{subfield}, '', $index_tag, $tabloop, $record,
666
                            $tag, $subfield->{subfield}, '', $index_tag, $record,
667
                            $authorised_values_sth,$input
667
                            $authorised_values_sth,$input
668
                        )
668
                        )
669
                    );
669
                    );
(-)a/cataloguing/additem.pl (-3 / +3 lines)
Lines 59-65 use List::MoreUtils qw( any uniq ); Link Here
59
our $dbh = C4::Context->dbh;
59
our $dbh = C4::Context->dbh;
60
60
61
sub generate_subfield_form {
61
sub generate_subfield_form {
62
        my ($tag, $subfieldtag, $value, $tagslib,$subfieldlib, $branches, $biblionumber, $temp, $subfields, $i, $restrictededition, $item) = @_;
62
        my ($tag, $subfieldtag, $value, $tagslib,$subfieldlib, $branches, $biblionumber, $temp, $i, $restrictededition, $item) = @_;
63
  
63
  
64
        my $frameworkcode = &GetFrameworkCode($biblionumber);
64
        my $frameworkcode = &GetFrameworkCode($biblionumber);
65
65
Lines 240-246 sub generate_subfield_form { Link Here
240
                item_style => 1,
240
                item_style => 1,
241
            });
241
            });
242
            my $pars=  { dbh => $dbh, record => $temp, tagslib =>$tagslib,
242
            my $pars=  { dbh => $dbh, record => $temp, tagslib =>$tagslib,
243
                id => $subfield_data{id}, tabloop => $subfields };
243
                id => $subfield_data{id} };
244
            $plugin->build( $pars );
244
            $plugin->build( $pars );
245
            if( !$plugin->errstr ) {
245
            if( !$plugin->errstr ) {
246
                my $class= 'buttonDot'. ( $plugin->noclick? ' disabled': '' );
246
                my $class= 'buttonDot'. ( $plugin->noclick? ' disabled': '' );
Lines 884-890 foreach my $tag ( keys %{$tagslib} ) { Link Here
884
                $value,                      $tagslib,
884
                $value,                      $tagslib,
885
                $subfield,                   $libraries,
885
                $subfield,                   $libraries,
886
                $biblionumber,               $temp,
886
                $biblionumber,               $temp,
887
                \@subfields,                 $i,
887
                $i,
888
                $restrictededition,          $current_item,
888
                $restrictededition,          $current_item,
889
            );
889
            );
890
            push @subfields, $subfield_data;
890
            push @subfields, $subfield_data;
(-)a/cataloguing/value_builder/normarc_field_007.pl (-1 / +1 lines)
Lines 26-32 use C4::Search; Link Here
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
sub plugin_javascript {
28
sub plugin_javascript {
29
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
29
my ($dbh,$record,$tagslib,$field_number) = @_;
30
my $function_name= $field_number;
30
my $function_name= $field_number;
31
my $res="
31
my $res="
32
<script>
32
<script>
(-)a/cataloguing/value_builder/normarc_field_008.pl (-1 / +1 lines)
Lines 36-42 sub plugin_javascript { Link Here
36
    my $lang = C4::Context->preference('DefaultLanguageField008' );
36
    my $lang = C4::Context->preference('DefaultLanguageField008' );
37
    $lang = "eng" unless $lang;
37
    $lang = "eng" unless $lang;
38
    $lang = pack("A3", $lang);
38
    $lang = pack("A3", $lang);
39
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
39
    my ($dbh, $record, $tagslib, $field_number) = @_;
40
    my $function_name = $field_number;
40
    my $function_name = $field_number;
41
    my $res           = "
41
    my $res           = "
42
<script>
42
<script>
(-)a/cataloguing/value_builder/normarc_leader.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_010.pl (-1 / +1 lines)
Lines 26-32 use C4::Output qw( output_html_with_http_headers ); Link Here
26
26
27
27
28
sub plugin_javascript {
28
sub plugin_javascript {
29
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
29
    my ($dbh,$record,$tagslib,$field_number) = @_;
30
    my $res="
30
    my $res="
31
    <script>
31
    <script>
32
        function Blur$field_number() {
32
        function Blur$field_number() {
(-)a/cataloguing/value_builder/unimarc_field_100.pl (-1 / +1 lines)
Lines 30-36 use C4::Output qw( output_html_with_http_headers ); Link Here
30
30
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
33
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
34
    my $res           = "
34
    my $res           = "
35
        <script>
35
        <script>
36
            function Clic$field_number(i) {
36
            function Clic$field_number(i) {
(-)a/cataloguing/value_builder/unimarc_field_100_authorities.pl (-1 / +1 lines)
Lines 27-33 use C4::Output qw( output_html_with_http_headers ); Link Here
27
27
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
30
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
31
    my $res           = "
31
    my $res           = "
32
        <script>
32
        <script>
33
            function Clic$field_number(i) {
33
            function Clic$field_number(i) {
(-)a/cataloguing/value_builder/unimarc_field_105.pl (-1 / +1 lines)
Lines 30-36 use C4::Search; Link Here
30
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
    my ($dbh,$record,$tagslib,$field_number) = @_;
34
    my $res="
34
    my $res="
35
    <script>
35
    <script>
36
        function Clic$field_number() {
36
        function Clic$field_number() {
(-)a/cataloguing/value_builder/unimarc_field_106.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= "106".(int(rand(100000))+1);
32
my $function_name= "106".(int(rand(100000))+1);
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_110.pl (-1 / +1 lines)
Lines 30-36 use C4::Search; Link Here
30
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
    my ($dbh,$record,$tagslib,$field_number) = @_;
34
    my $res="
34
    my $res="
35
    <script>
35
    <script>
36
    function Clic$field_number() {
36
    function Clic$field_number() {
(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
33
    my $res = "
33
    my $res = "
34
    <script>
34
    <script>
35
    function Clic$field_number(i) {
35
    function Clic$field_number(i) {
(-)a/cataloguing/value_builder/unimarc_field_115b.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
33
    my $res = "
33
    my $res = "
34
<script>
34
<script>
35
function Clic$field_number() {
35
function Clic$field_number() {
(-)a/cataloguing/value_builder/unimarc_field_116.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
33
    my $res = "
33
    my $res = "
34
<script>
34
<script>
35
function Clic$field_number(i) {
35
function Clic$field_number(i) {
(-)a/cataloguing/value_builder/unimarc_field_117.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number) = @_;
33
my $res="
33
my $res="
34
<script>
34
<script>
35
function Clic$field_number(i) {
35
function Clic$field_number(i) {
(-)a/cataloguing/value_builder/unimarc_field_120.pl (-1 / +1 lines)
Lines 30-36 use C4::Search; Link Here
30
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number) = @_;
34
my $function_name=$field_number;
34
my $function_name=$field_number;
35
my $res="
35
my $res="
36
<script>
36
<script>
(-)a/cataloguing/value_builder/unimarc_field_121a.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number) = @_;
33
my $function_name= $field_number;
33
my $function_name= $field_number;
34
my $res="
34
my $res="
35
<script>
35
<script>
(-)a/cataloguing/value_builder/unimarc_field_121b.pl (-1 / +1 lines)
Lines 27-33 use C4::Search; Link Here
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number) = @_;
31
my $function_name= $field_number;
31
my $function_name= $field_number;
32
my $res="
32
my $res="
33
<script>
33
<script>
(-)a/cataloguing/value_builder/unimarc_field_122.pl (-1 / +1 lines)
Lines 27-33 use C4::Search; Link Here
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number) = @_;
31
my $function_name= $field_number;
31
my $function_name= $field_number;
32
my $res="
32
my $res="
33
<script>
33
<script>
(-)a/cataloguing/value_builder/unimarc_field_123a.pl (-1 / +1 lines)
Lines 27-33 use C4::Search; Link Here
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number) = @_;
31
my $function_name= $field_number;
31
my $function_name= $field_number;
32
my $res="
32
my $res="
33
<script>
33
<script>
(-)a/cataloguing/value_builder/unimarc_field_123d.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_123e.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_123f.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_123g.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
    <script>
34
    <script>
(-)a/cataloguing/value_builder/unimarc_field_124.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_124b.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_124c.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_124d.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_124e.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_124f.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_125.pl (-1 / +1 lines)
Lines 34-40 plugin_parameters : other parameters added when the plugin is called by the dopo Link Here
34
=cut
34
=cut
35
35
36
sub plugin_javascript {
36
sub plugin_javascript {
37
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
37
my ($dbh,$record,$tagslib,$field_number) = @_;
38
my $function_name= $field_number;
38
my $function_name= $field_number;
39
my $res="
39
my $res="
40
<script>
40
<script>
(-)a/cataloguing/value_builder/unimarc_field_125a.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
    <script>
34
    <script>
(-)a/cataloguing/value_builder/unimarc_field_125b.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number) = @_;
33
my $function_name= $field_number;
33
my $function_name= $field_number;
34
my $res="
34
my $res="
35
<script>
35
<script>
(-)a/cataloguing/value_builder/unimarc_field_126.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_126a.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number) = @_;
33
my $function_name= $field_number;
33
my $function_name= $field_number;
34
my $res="
34
my $res="
35
<script>
35
<script>
(-)a/cataloguing/value_builder/unimarc_field_126b.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_127.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_128b.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number) = @_;
33
my $function_name= $field_number;
33
my $function_name= $field_number;
34
my $res="
34
my $res="
35
<script>
35
<script>
(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_130.pl (-1 / +1 lines)
Lines 30-36 use C4::Search; Link Here
30
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number) = @_;
34
my $function_name= $field_number;
34
my $function_name= $field_number;
35
my $res="
35
my $res="
36
<script>
36
<script>
(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number) = @_;
33
my $function_name= $field_number;
33
my $function_name= $field_number;
34
my $res="
34
my $res="
35
<script>
35
<script>
(-)a/cataloguing/value_builder/unimarc_field_140.pl (-1 / +1 lines)
Lines 30-36 use C4::Search; Link Here
30
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number) = @_;
34
my $function_name= $field_number;
34
my $function_name= $field_number;
35
my $res="
35
my $res="
36
<script>
36
<script>
(-)a/cataloguing/value_builder/unimarc_field_141.pl (-1 / +1 lines)
Lines 28-34 use C4::Search; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number) = @_;
32
my $function_name= $field_number;
32
my $function_name= $field_number;
33
my $res="
33
my $res="
34
<script>
34
<script>
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-1 / +1 lines)
Lines 30-36 use C4::Koha qw( getnbpages ); Link Here
30
###TODO To rewrite in order to use SearchAuthorities
30
###TODO To rewrite in order to use SearchAuthorities
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number) = @_;
34
my $function_name= $field_number;
34
my $function_name= $field_number;
35
#---- build editors list.
35
#---- build editors list.
36
#---- the editor list is built from the "EDITORS" thesaurus
36
#---- the editor list is built from the "EDITORS" thesaurus
(-)a/cataloguing/value_builder/unimarc_field_210c_bis.pl (-1 / +1 lines)
Lines 48-54 use C4::Auth qw( get_template_and_user ); Link Here
48
use C4::Output qw( output_html_with_http_headers );
48
use C4::Output qw( output_html_with_http_headers );
49
49
50
sub plugin_javascript {
50
sub plugin_javascript {
51
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
51
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
52
    my $function_name = $field_number;
52
    my $function_name = $field_number;
53
    my $res           = "
53
    my $res           = "
54
    <script>
54
    <script>
(-)a/cataloguing/value_builder/unimarc_field_225a.pl (-1 / +1 lines)
Lines 56-62 plugin_parameters : other parameters added when the plugin is called by the dopo Link Here
56
=cut
56
=cut
57
57
58
sub plugin_javascript {
58
sub plugin_javascript {
59
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
59
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
60
    my $function_name = $field_number;
60
    my $function_name = $field_number;
61
    my $res = "
61
    my $res = "
62
    <script>
62
    <script>
(-)a/cataloguing/value_builder/unimarc_field_225a_bis.pl (-1 / +1 lines)
Lines 31-37 use C4::Context; Link Here
31
use C4::Output qw( output_html_with_http_headers );
31
use C4::Output qw( output_html_with_http_headers );
32
32
33
sub plugin_javascript {
33
sub plugin_javascript {
34
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
34
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
35
    my $function_name = $field_number;
35
    my $function_name = $field_number;
36
    my $res           = "
36
    my $res           = "
37
    <script>
37
    <script>
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-2 / +2 lines)
Lines 36-47 use Koha::SearchEngine; Link Here
36
use Koha::SearchEngine::Search;
36
use Koha::SearchEngine::Search;
37
37
38
sub plugin_parameters {
38
sub plugin_parameters {
39
    my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_;
39
    my ( $dbh, $record, $tagslib, $i ) = @_;
40
    return "";
40
    return "";
41
}
41
}
42
42
43
sub plugin_javascript {
43
sub plugin_javascript {
44
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
44
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
45
    my $function_name = $field_number;
45
    my $function_name = $field_number;
46
    my $res           = "
46
    my $res           = "
47
    <script>
47
    <script>
(-)a/cataloguing/value_builder/unimarc_field_686a.pl (-1 / +1 lines)
Lines 27-33 use C4::Search; Link Here
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number) = @_;
31
my $function_name= $field_number;
31
my $function_name= $field_number;
32
my $res  = "
32
my $res  = "
33
<script>
33
<script>
(-)a/cataloguing/value_builder/unimarc_field_700-4.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number) = @_;
33
my $function_name= $field_number;
33
my $function_name= $field_number;
34
my $res  = "
34
my $res  = "
35
<script>
35
<script>
(-)a/cataloguing/value_builder/unimarc_leader.pl (-1 / +1 lines)
Lines 29-35 use C4::Search; Link Here
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number ) = @_;
33
    my $function_name = $field_number;
33
    my $function_name = $field_number;
34
    my $res           = "
34
    my $res           = "
35
<script>
35
<script>
(-)a/t/db_dependent/FrameworkPlugin.t (-1 / +1 lines)
Lines 203-209 sub old01 { Link Here
203
# includes a typical empty Clic function and plugin subroutine
203
# includes a typical empty Clic function and plugin subroutine
204
    return mytempfile( <<'HERE'
204
    return mytempfile( <<'HERE'
205
sub plugin_javascript {
205
sub plugin_javascript {
206
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
206
    my ($dbh,$record,$tagslib,$field_number) = @_;
207
    my $function_name = $field_number;
207
    my $function_name = $field_number;
208
    my $res = "
208
    my $res = "
209
<script type=\"text/javascript\">
209
<script type=\"text/javascript\">
(-)a/tools/batchMod.pl (-2 / +1 lines)
Lines 532-538 foreach my $tag (sort keys %{$tagslib}) { Link Here
532
        });
532
        });
533
        my $temp;
533
        my $temp;
534
        my $pars= { dbh => $dbh, record => $temp, tagslib => $tagslib,
534
        my $pars= { dbh => $dbh, record => $temp, tagslib => $tagslib,
535
            id => $subfield_data{id}, tabloop => \@loop_data };
535
            id => $subfield_data{id} };
536
        $plugin->build( $pars );
536
        $plugin->build( $pars );
537
        if( !$plugin->errstr ) {
537
        if( !$plugin->errstr ) {
538
            $subfield_data{marc_value} = {
538
            $subfield_data{marc_value} = {
539
- 

Return to bug 28769