|
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 |
- |
|
|