Lines 45-64
$cache->clear_from_cache("MarcSubfieldStructure-");
Link Here
|
45 |
# 952$t is linked with items.copynumber and is not repeatable |
45 |
# 952$t is linked with items.copynumber and is not repeatable |
46 |
setup_mss(); |
46 |
setup_mss(); |
47 |
|
47 |
|
48 |
# FIXME Later in this script we are comparing itemtypes, ordered by their description. |
|
|
49 |
# MySQL and Perl don't sort _ identically. |
50 |
# If you have one itemtype BK and another one B_K, MySQL will sort B_K first when Perl will sort it last |
51 |
my @itemtypes = Koha::ItemTypes->search->as_list; |
52 |
for my $itemtype ( @itemtypes ) { |
53 |
my $d = $itemtype->description; |
54 |
$d =~ s|_||g; |
55 |
$itemtype->description($d)->store; |
56 |
} |
57 |
|
58 |
subtest 'authorised values' => sub { |
48 |
subtest 'authorised values' => sub { |
59 |
#plan tests => 1; |
49 |
#plan tests => 1; |
60 |
|
50 |
|
61 |
my $biblio = $builder->build_sample_biblio({ value => {frameworkcode => ''}}); |
51 |
my $biblio = $builder->build_sample_biblio({ value => {frameworkcode => ''}}); |
|
|
52 |
|
53 |
# FIXME Later in this script we are comparing itemtypes, ordered by their description. |
54 |
# MySQL and Perl don't sort _ identically. |
55 |
# If you have one itemtype BK and another one B_K, MySQL will sort B_K first when Perl will sort it last |
56 |
my @itemtypes = Koha::ItemTypes->search->as_list; |
57 |
for my $itemtype ( @itemtypes ) { |
58 |
my $d = $itemtype->description; |
59 |
$d =~ s|_||g; |
60 |
$itemtype->description($d)->store; |
61 |
} |
62 |
|
62 |
my $subfields = |
63 |
my $subfields = |
63 |
Koha::UI::Form::Builder::Item->new( |
64 |
Koha::UI::Form::Builder::Item->new( |
64 |
{ biblionumber => $biblio->biblionumber } )->edit_form; |
65 |
{ biblionumber => $biblio->biblionumber } )->edit_form; |
65 |
- |
|
|