Attachment #163353 for bug #35919

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




    return $self->record( { %$params, record => $record } );
}

=head3 can_be_edited

    if ( $metadata->can_be_edited ) { ... }

Returns a boolean denoting whether the metadata record can be edited.

=cut

sub can_be_edited {
    my ($self) = @_;

    my $rs = $self->_result->record_source;
    return 1 unless $rs;
    return $rs->can_be_edited;
}

=head2 Internal methods

=head3 _embed_items





use Modern::Perl;

use Test::More tests => 5;
use Test::Exception;
use Test::Warn;



    $schema->storage->txn_rollback;
};

subtest 'can_be_edited() tests' => sub {

    plan tests => 4;

    $schema->storage->txn_begin;

    my $biblio = $builder->build_sample_biblio;

    my $metadata = $biblio->metadata;
    is( $metadata->record_source_id, undef, 'No record source defined for metatada object' );
    ok( $metadata->can_be_edited, 'No record source, can be edited' );

    my $source = $builder->build_object( { class => 'Koha::RecordSources', value => { can_be_edited => 1 } } );
    $metadata->record_source_id( $source->id )->store();

    ok( $metadata->can_be_edited, 'Record source allows, can be edited' );

    $source->can_be_edited(0)->store();
    $metadata->discard_changes;

    ok( !$metadata->can_be_edited, 'Record source does not allow, cannot be edited' );

    $schema->storage->txn_rollback;
};

Return to bug 35919

Lines 170-175 sub record_strip_nonxml { Link Here

(-)a/Koha/Biblio/Metadata.pm (+16 lines)
170	return $self->record( { %$params, record => $record } );	170	return $self->record( { %$params, record => $record } );
171	}	171	}
172		172
		173	=head3 can_be_edited
		174
		175	if ( $metadata->can_be_edited ) { ... }
		176
		177	Returns a boolean denoting whether the metadata record can be edited.
		178
		179	=cut
		180
		181	sub can_be_edited {
		182	my ($self) = @_;
		183
		184	my $rs = $self->_result->record_source;
		185	return 1 unless $rs;
		186	return $rs->can_be_edited;
		187	}
		188
173	=head2 Internal methods	189	=head2 Internal methods
174		190
175	=head3 _embed_items	191	=head3 _embed_items

Lines 17-23 Link Here

(-)a/t/db_dependent/Koha/Biblio/Metadata.t (-2 / +26 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Test::More tests => 4;	20	use Test::More tests => 5;
21	use Test::Exception;	21	use Test::Exception;
22	use Test::Warn;	22	use Test::Warn;
23		23
Lines 266-268 subtest '_embed_items' => sub { Link Here
266		266
267	$schema->storage->txn_rollback;	267	$schema->storage->txn_rollback;
268	};	268	};
269	-	269
		270	subtest 'can_be_edited() tests' => sub {
		271
		272	plan tests => 4;
		273
		274	$schema->storage->txn_begin;
		275
		276	my $biblio = $builder->build_sample_biblio;
		277
		278	my $metadata = $biblio->metadata;
		279	is( $metadata->record_source_id, undef, 'No record source defined for metatada object' );
		280	ok( $metadata->can_be_edited, 'No record source, can be edited' );
		281
		282	my $source = $builder->build_object( { class => 'Koha::RecordSources', value => { can_be_edited => 1 } } );
		283	$metadata->record_source_id( $source->id )->store();
		284
		285	ok( $metadata->can_be_edited, 'Record source allows, can be edited' );
		286
		287	$source->can_be_edited(0)->store();
		288	$metadata->discard_changes;
		289
		290	ok( !$metadata->can_be_edited, 'Record source does not allow, cannot be edited' );
		291
		292	$schema->storage->txn_rollback;
		293	};