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

(-)a/C4/Items.pm (-1 / +1 lines)
Lines 1757-1763 sub PrepareItemrecordDisplay { Link Here
1757
                        name => $subfield->{value_builder},
1757
                        name => $subfield->{value_builder},
1758
                        item_style => 1,
1758
                        item_style => 1,
1759
                    });
1759
                    });
1760
                    my $pars = { dbh => $dbh, record => undef, tagslib =>$tagslib, id => $subfield_data{id}, tabloop => undef };
1760
                    my $pars = { dbh => $dbh, record => undef, tagslib =>$tagslib, id => $subfield_data{id} };
1761
                    $plugin->build( $pars );
1761
                    $plugin->build( $pars );
1762
                    if ( $itemrecord and my $field = $itemrecord->field($tag) ) {
1762
                    if ( $itemrecord and my $field = $itemrecord->field($tag) ) {
1763
                        $defaultvalue = $field->subfield($subfield->{subfield}) || q{};
1763
                        $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 394-400 sub create_input { Link Here
394
            name => $tagslib->{$tag}->{$subfield}->{'value_builder'},
394
            name => $tagslib->{$tag}->{$subfield}->{'value_builder'},
395
        });
395
        });
396
        my $pars= { dbh => $dbh, record => $rec, tagslib => $tagslib,
396
        my $pars= { dbh => $dbh, record => $rec, tagslib => $tagslib,
397
            id => $subfield_data{id}, tabloop => $tabloop };
397
            id => $subfield_data{id} };
398
        $plugin->build( $pars );
398
        $plugin->build( $pars );
399
        if( !$plugin->errstr ) {
399
        if( !$plugin->errstr ) {
400
            $subfield_data{marc_value} = {
400
            $subfield_data{marc_value} = {
Lines 567-573 sub build_tabs { Link Here
567
                        push(
567
                        push(
568
                            @subfields_data,
568
                            @subfields_data,
569
                            &create_input(
569
                            &create_input(
570
                                $tag, $subfield, $value, $index_tag, $tabloop, $record,
570
                                $tag, $subfield, $value, $index_tag, $record,
571
                                $authorised_values_sth,$input
571
                                $authorised_values_sth,$input
572
                            )
572
                            )
573
                        );
573
                        );
Lines 582-588 sub build_tabs { Link Here
582
                            push(
582
                            push(
583
                                @subfields_data,
583
                                @subfields_data,
584
                                &create_input(
584
                                &create_input(
585
                                    $tag, $subfield, $value, $index_tag, $tabloop,
585
                                    $tag, $subfield, $value, $index_tag,
586
                                    $record, $authorised_values_sth,$input
586
                                    $record, $authorised_values_sth,$input
587
                                )
587
                                )
588
                            );
588
                            );
Lines 612-618 sub build_tabs { Link Here
612
                        push(
612
                        push(
613
                            @subfields_data,
613
                            @subfields_data,
614
                            &create_input(
614
                            &create_input(
615
                                $tag, $subfield, '', $index_tag, $tabloop, $record,
615
                                $tag, $subfield, '', $index_tag, $record,
616
                                $authorised_values_sth,$input
616
                                $authorised_values_sth,$input
617
                            )
617
                            )
618
                        );
618
                        );
Lines 668-674 sub build_tabs { Link Here
668
			push(
668
			push(
669
                        @subfields_data,
669
                        @subfields_data,
670
                        &create_input(
670
                        &create_input(
671
                            $tag, $subfield->{subfield}, '', $index_tag, $tabloop, $record,
671
                            $tag, $subfield->{subfield}, '', $index_tag, $record,
672
                            $authorised_values_sth,$input
672
                            $authorised_values_sth,$input
673
                        )
673
                        )
674
                    );
674
                    );
(-)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 241-247 sub generate_subfield_form { Link Here
241
                item_style => 1,
241
                item_style => 1,
242
            });
242
            });
243
            my $pars=  { dbh => $dbh, record => $temp, tagslib =>$tagslib,
243
            my $pars=  { dbh => $dbh, record => $temp, tagslib =>$tagslib,
244
                id => $subfield_data{id}, tabloop => $subfields };
244
                id => $subfield_data{id} };
245
            $plugin->build( $pars );
245
            $plugin->build( $pars );
246
            if( !$plugin->errstr ) {
246
            if( !$plugin->errstr ) {
247
                my $class= 'buttonDot'. ( $plugin->noclick? ' disabled': '' );
247
                my $class= 'buttonDot'. ( $plugin->noclick? ' disabled': '' );
Lines 887-893 foreach my $tag ( keys %{$tagslib} ) { Link Here
887
                $value,                      $tagslib,
887
                $value,                      $tagslib,
888
                $subfield,                   $libraries,
888
                $subfield,                   $libraries,
889
                $biblionumber,               $temp,
889
                $biblionumber,               $temp,
890
                \@subfields,                 $i,
890
                $i,
891
                $restrictededition,          $current_item,
891
                $restrictededition,          $current_item,
892
            );
892
            );
893
            push @subfields, $subfield_data;
893
            push @subfields, $subfield_data;
(-)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 31-37 use C4::AuthoritiesMarc qw( GetAuthority SearchAuthorities ); Link Here
31
###TODO To rewrite in order to use SearchAuthorities
31
###TODO To rewrite in order to use SearchAuthorities
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
#---- build editors list.
36
#---- build editors list.
37
#---- the editor list is built from the "EDITORS" thesaurus
37
#---- 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 222-228 sub old01 { Link Here
222
# includes a typical empty Clic function and plugin subroutine
222
# includes a typical empty Clic function and plugin subroutine
223
    return mytempfile( <<'HERE'
223
    return mytempfile( <<'HERE'
224
sub plugin_javascript {
224
sub plugin_javascript {
225
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
225
    my ($dbh,$record,$tagslib,$field_number) = @_;
226
    my $function_name = $field_number;
226
    my $function_name = $field_number;
227
    my $res = "
227
    my $res = "
228
<script type=\"text/javascript\">
228
<script type=\"text/javascript\">
(-)a/tools/batchMod.pl (-2 / +1 lines)
Lines 535-541 foreach my $tag (sort keys %{$tagslib}) { Link Here
535
        });
535
        });
536
        my $temp;
536
        my $temp;
537
        my $pars= { dbh => $dbh, record => $temp, tagslib => $tagslib,
537
        my $pars= { dbh => $dbh, record => $temp, tagslib => $tagslib,
538
            id => $subfield_data{id}, tabloop => \@loop_data };
538
            id => $subfield_data{id} };
539
        $plugin->build( $pars );
539
        $plugin->build( $pars );
540
        if( !$plugin->errstr ) {
540
        if( !$plugin->errstr ) {
541
            $subfield_data{marc_value} = {
541
            $subfield_data{marc_value} = {
542
- 

Return to bug 28769