• $itemrecord = C4::Items::GetMarcItem($biblionumber,$itemnumber);
• my $itemrecord = GetItem($itemnumber);
• $item = Koha::Items->find( $itemnumber );
  
• Item2Marc($itemrecord,$biblionumber);
• my $itemmarc = TransformKohaToMarc($mungeditem);
  

For what I get the GetItem retrieve the stored data in items table.

Then the Item2Marc populate the marc fields.

I put a Dumper on the method Item2Marc and I have:

$VAR1 = '================Item2Marc=======================';
$VAR1 = bless( {
                 '_warnings' => [],
                 '_leader' => '         a              ',
                 '_fields' => [
                                bless( {
                                         '_warnings' => [],
                                         '_ind1' => ' ',
                                         '_tag' => '952',
                                         '_ind2' => ' ',
                                         '_is_control_field' => 0,
                                         '_subfields' => [
                                                           '4',
                                                           '0',
                                                           '8',
                                                           'IMPR',
                                                           'b',
                                                           'CEN',
                                                           'd',
                                                           'CEN',
                                                           'o',
                                                           '302.23 GAN',
                                                           'p',
                                                           'C07908',
                                                           'r',
                                                           '180.00',
                                                           's',
                                                           '0',
                                                           'u',
                                                           '2132',
                                                           'v',
                                                           '2005-05-14',
                                                           'y',
                                                           '0',
                                                           'z',
                                                           '2017-07-28 14:13:48'
                                                         ]
                                       }, 'MARC::Field' )
                              ]
               }, 'MARC::Record' );
$VAR1 = '================Item2Marc=======================';

I'm missing some fields, like 952^2, 952^1, 952^c, 952^e, 952^f ....

Where is my data is lost? Where should I look for it?

Regards.