| 
      
            Lines 194-199
          sub run_tests {
      
      
        Link Here
      
     | 
  
        
          | 194 | 
           | 
          194 | 
           | 
        
        
          | 195 | 
              is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,  | 
          195 | 
              is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,  | 
        
        
          | 196 | 
                  "GetMarcPrice returns the correct value");  | 
          196 | 
                  "GetMarcPrice returns the correct value");  | 
        
            
               | 
               | 
              197 | 
                  my $newincbiblioitemnumber=$biblioitemnumber+1;  | 
            
            
              | 198 | 
                  $dbh->do("UPDATE biblioitems SET biblioitemnumber = ? WHERE biblionumber = ?;", undef, $newincbiblioitemnumber, $biblionumber ); | 
            
            
              | 199 | 
                  my $updatedrecord = GetMarcBiblio($biblionumber, 0);  | 
            
            
              | 200 | 
                  my $frameworkcode = GetFrameworkCode($biblionumber);  | 
            
            
              | 201 | 
                  my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber", $frameworkcode );  | 
            
            
              | 202 | 
                  die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag; | 
            
            
              | 203 | 
                  my $biblioitemnumbertotest;  | 
            
            
              | 204 | 
                  if ( $biblioitem_tag < 10 ) { | 
            
            
              | 205 | 
                      $biblioitemnumbertotest = $updatedrecord->field($biblioitem_tag)->data();  | 
            
            
              | 206 | 
                  } else { | 
            
            
              | 207 | 
                      $biblioitemnumbertotest = $updatedrecord->field($biblioitem_tag)->subfield($biblioitem_subfield);  | 
            
            
              | 208 | 
                  }  | 
            
            
              | 209 | 
                  is ($newincbiblioitemnumber, $biblioitemnumbertotest);  | 
            
        
          | 197 | 
          }  | 
          210 | 
          }  | 
        
        
          | 198 | 
           | 
          211 | 
           | 
        
        
          | 199 | 
          sub mock_marcfromkohafield { | 
          212 | 
          sub mock_marcfromkohafield { | 
        
  
    | 
      
            Lines 260-278
          sub create_issn_field {
      
      
        Link Here
      
     | 
  
        
          | 260 | 
          }  | 
          273 | 
          }  | 
        
        
          | 261 | 
           | 
          274 | 
           | 
        
        
          | 262 | 
          subtest 'MARC21' => sub { | 
          275 | 
          subtest 'MARC21' => sub { | 
        
          
            
              | 263 | 
                  plan tests => 27;  | 
              276 | 
                  plan tests => 28;  | 
            
        
          | 264 | 
              run_tests('MARC21'); | 
          277 | 
              run_tests('MARC21'); | 
        
        
          | 265 | 
              $dbh->rollback;  | 
          278 | 
              $dbh->rollback;  | 
        
        
          | 266 | 
          };  | 
          279 | 
          };  | 
        
        
          | 267 | 
           | 
          280 | 
           | 
        
        
          | 268 | 
          subtest 'UNIMARC' => sub { | 
          281 | 
          subtest 'UNIMARC' => sub { | 
        
          
            
              | 269 | 
                  plan tests => 27;  | 
              282 | 
                  plan tests => 28;  | 
            
        
          | 270 | 
              run_tests('UNIMARC'); | 
          283 | 
              run_tests('UNIMARC'); | 
        
        
          | 271 | 
              $dbh->rollback;  | 
          284 | 
              $dbh->rollback;  | 
        
        
          | 272 | 
          };  | 
          285 | 
          };  | 
        
        
          | 273 | 
           | 
          286 | 
           | 
        
        
          | 274 | 
          subtest 'NORMARC' => sub { | 
          287 | 
          subtest 'NORMARC' => sub { | 
        
          
            
              | 275 | 
                  plan tests => 27;  | 
              288 | 
                  plan tests => 28;  | 
            
        
          | 276 | 
              run_tests('NORMARC'); | 
          289 | 
              run_tests('NORMARC'); | 
        
        
          | 277 | 
              $dbh->rollback;  | 
          290 | 
              $dbh->rollback;  | 
        
        
          | 278 | 
          };  | 
          291 | 
          };  | 
        
            
              | 279 | 
              -   | 
               | 
               |