Jonathan Druart
afe3fa1d07
The 3 subroutines GetFieldMapping, SetFieldMapping and DeleteFieldMapping from the C4::Biblio module were only used from the field mappings admin page. They can easily replaced with new packages Koha::FieldMappings based on Koha::Object[s] Test plan: Add and delete field mappings (admin/fieldmapping.pl, Home › Administration › Keyword to MARC mapping). Add an existing mapping > Nothing should be added Note that this page has not been rewritten and you will not get any feedbacks, but it's not the goal of this page to improve it. Followed test plan, works as expected. Signed-off-by: Marc Véron <veron@veron.ch> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
51 lines
2 KiB
Perl
51 lines
2 KiB
Perl
use Modern::Perl;
|
|
use Test::More tests => 4;
|
|
use MARC::Record;
|
|
|
|
use C4::Biblio qw( AddBiblio GetMarcFromKohaField );
|
|
use C4::Context;
|
|
use C4::Charset qw( SanitizeRecord );
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
$dbh->{RaiseError} = 1;
|
|
$dbh->{AutoCommit} = 0;
|
|
|
|
my $frameworkcode = q||;
|
|
|
|
$dbh->do(q|
|
|
DELETE FROM marc_subfield_structure WHERE kohafield='biblioitems.url'
|
|
|);
|
|
$dbh->do(qq|
|
|
INSERT INTO marc_subfield_structure(frameworkcode,kohafield,tagfield,tagsubfield)
|
|
VALUES ('$frameworkcode', 'biblioitems.url', '856', 'u')
|
|
|);
|
|
my ( $url_field, $url_subfield ) = C4::Biblio::GetMarcFromKohaField('biblioitems.url', $frameworkcode);
|
|
|
|
my $title = q|My title & a word & another word|;
|
|
my $url = q|http://www.example.org/index.pl?arg1=val1&arg2=val2|;
|
|
my $record = MARC::Record->new();
|
|
$record->append_fields(
|
|
MARC::Field->new('100', ' ', ' ', a => 'my author'),
|
|
MARC::Field->new('245', ' ', ' ', a => $title),
|
|
MARC::Field->new($url_field, ' ', ' ', $url_subfield => $url ),
|
|
);
|
|
|
|
my ($biblionumber, $biblioitemnumber) = AddBiblio($record, $frameworkcode);
|
|
my ( $sanitized_record, $has_been_modified ) = C4::Charset::SanitizeRecord( $record, $biblionumber );
|
|
is( $has_been_modified, 0, 'SanitizeRecord: the record has not been modified' );
|
|
is( $url, $sanitized_record->subfield($url_field, $url_subfield), 'SanitizeRecord: the url has not been modified');
|
|
|
|
$title = q|My title &amp;amp; a word &amp; another word|;
|
|
$record = MARC::Record->new();
|
|
$record->append_fields(
|
|
MARC::Field->new('100', ' ', ' ', a => 'my author'),
|
|
MARC::Field->new('245', ' ', ' ', a => $title),
|
|
MARC::Field->new($url_field, ' ', ' ', $url_subfield => $url ),
|
|
);
|
|
|
|
($biblionumber, $biblioitemnumber) = AddBiblio($record, $frameworkcode);
|
|
( $sanitized_record, $has_been_modified ) = C4::Charset::SanitizeRecord( $record, $biblionumber );
|
|
is( $has_been_modified, 1, 'SanitizeRecord: the record has been modified' );
|
|
is( $url, $sanitized_record->subfield($url_field, $url_subfield), 'SanitizeRecord: the url has not been modified');
|
|
|
|
$dbh->rollback;
|