Attachment #120071 for bug #20256

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






sub generate_subfield_form {
        my ($tag, $subfieldtag, $value, $tagslib,$subfieldlib, $branches, $biblionumber, $temp, $loop_data, $i, $restrictededition, $item, $patron) = @_;

        my $frameworkcode = &GetFrameworkCode($biblionumber);

        my %subfield_data;

                }
            }
            elsif ( $subfieldlib->{authorised_value} eq "branches" ) {
                my @allowed = $patron->libraries_where_can_edit_items;
                foreach my $thisbranch (@$branches) {
                    next unless any { /^$thisbranch->{branchcode}$/ } @allowed;
                    push @authorised_values, $thisbranch->{branchcode};
                    $authorised_lib{$thisbranch->{branchcode}} = $thisbranch->{branchname};
                    $value = $thisbranch->{branchcode} if $thisbranch->{selected} && !$value;


            next if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10");

            my $subfield_data = generate_subfield_form($tag, $subfieldtag, $value, $tagslib, $subfieldlib, $libraries, $biblionumber, $temp, \@loop_data, $i, $restrictededition, $item, $patron);
            push @fields, "$tag$subfieldtag";
            push (@loop_data, $subfield_data);
            $i++;

        my @values = (undef);
        @values = $itemrecord->field($tag)->subfield($subtag) if ($itemrecord && defined($itemrecord->field($tag)) && defined($itemrecord->field($tag)->subfield($subtag)));
        for my $value (@values){
            my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $libraries, $biblionumber, $temp, \@loop_data, $i, $restrictededition, $item, $patron);
            push (@loop_data, $subfield_data);
            $i++;
        }

Lines 34-40 use C4::ClassSource; Link Here

(-)a/tools/batchMod.pl (-2 / +4 lines)
34	use C4::Debug;	34	use C4::Debug;
35	use C4::Members;	35	use C4::Members;
36	use MARC::File::XML;	36	use MARC::File::XML;
37	use List::MoreUtils qw/uniq/;	37	use List::MoreUtils qw( uniq any );
38		38
39	use Koha::Database;	39	use Koha::Database;
40	use Koha::Exceptions::Exception;	40	use Koha::Exceptions::Exception;
Lines 450-455 my $allowAllSubfields = ( Link Here
450	) ? 1 : 0;	450	) ? 1 : 0;
451	my @subfieldsToAllow = split(/ /, $subfieldsToAllowForBatchmod);	451	my @subfieldsToAllow = split(/ /, $subfieldsToAllowForBatchmod);
452		452
		453	my @allowed_to_edit_branches = $patron->libraries_where_can_edit_items;
		454
453	foreach my $tag (sort keys %{$tagslib}) {	455	foreach my $tag (sort keys %{$tagslib}) {
454	# loop through each subfield	456	# loop through each subfield
455	foreach my $subfield (sort keys %{$tagslib->{$tag}}) {	457	foreach my $subfield (sort keys %{$tagslib->{$tag}}) {
Lines 493-498 foreach my $tag (sort keys %{$tagslib}) { Link Here
493		495
494	if ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "branches" ) {	496	if ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "branches" ) {
495	foreach my $library (@$libraries) {	497	foreach my $library (@$libraries) {
		498	next unless any { /^$library->{branchcode}$/ } @allowed_to_edit_branches;
496	push @authorised_values, $library->{branchcode};	499	push @authorised_values, $library->{branchcode};
497	$authorised_lib{$library->{branchcode}} = $library->{branchname};	500	$authorised_lib{$library->{branchcode}} = $library->{branchname};
498	}	501	}
499	-

Return to bug 20256

Lines 95-102 sub _increment_barcode { Link Here

(-)a/cataloguing/additem.pl (-4 / +6 lines)
95		95
96		96
97	sub generate_subfield_form {	97	sub generate_subfield_form {
98	my ($tag, $subfieldtag, $value, $tagslib,$subfieldlib, $branches, $biblionumber, $temp, $loop_data, $i, $restrictededition, $item) = @_;	98	my ($tag, $subfieldtag, $value, $tagslib,$subfieldlib, $branches, $biblionumber, $temp, $loop_data, $i, $restrictededition, $item, $patron) = @_;
99		99
100	my $frameworkcode = &GetFrameworkCode($biblionumber);	100	my $frameworkcode = &GetFrameworkCode($biblionumber);
101		101
102	my %subfield_data;	102	my %subfield_data;
Lines 181-187 sub generate_subfield_form { Link Here
181	}	181	}
182	}	182	}
183	elsif ( $subfieldlib->{authorised_value} eq "branches" ) {	183	elsif ( $subfieldlib->{authorised_value} eq "branches" ) {
		184	my @allowed = $patron->libraries_where_can_edit_items;
184	foreach my $thisbranch (@$branches) {	185	foreach my $thisbranch (@$branches) {
		186	next unless any { /^$thisbranch->{branchcode}$/ } @allowed;
185	push @authorised_values, $thisbranch->{branchcode};	187	push @authorised_values, $thisbranch->{branchcode};
186	$authorised_lib{$thisbranch->{branchcode}} = $thisbranch->{branchname};	188	$authorised_lib{$thisbranch->{branchcode}} = $thisbranch->{branchname};
187	$value = $thisbranch->{branchcode} if $thisbranch->{selected} && !$value;	189	$value = $thisbranch->{branchcode} if $thisbranch->{selected} && !$value;
Lines 964-970 if($itemrecord){ Link Here
964		966
965	next if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10");	967	next if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10");
966		968
967	my $subfield_data = generate_subfield_form($tag, $subfieldtag, $value, $tagslib, $subfieldlib, $libraries, $biblionumber, $temp, \@loop_data, $i, $restrictededition, $item);	969	my $subfield_data = generate_subfield_form($tag, $subfieldtag, $value, $tagslib, $subfieldlib, $libraries, $biblionumber, $temp, \@loop_data, $i, $restrictededition, $item, $patron);
968	push @fields, "$tag$subfieldtag";	970	push @fields, "$tag$subfieldtag";
969	push (@loop_data, $subfield_data);	971	push (@loop_data, $subfield_data);
970	$i++;	972	$i++;
Lines 988-994 foreach my $tag ( keys %{$tagslib}){ Link Here
988	my @values = (undef);	990	my @values = (undef);
989	@values = $itemrecord->field($tag)->subfield($subtag) if ($itemrecord && defined($itemrecord->field($tag)) && defined($itemrecord->field($tag)->subfield($subtag)));	991	@values = $itemrecord->field($tag)->subfield($subtag) if ($itemrecord && defined($itemrecord->field($tag)) && defined($itemrecord->field($tag)->subfield($subtag)));
990	for my $value (@values){	992	for my $value (@values){
991	my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $libraries, $biblionumber, $temp, \@loop_data, $i, $restrictededition, $item);	993	my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $libraries, $biblionumber, $temp, \@loop_data, $i, $restrictededition, $item, $patron);
992	push (@loop_data, $subfield_data);	994	push (@loop_data, $subfield_data);
993	$i++;	995	$i++;
994	}	996	}