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