| Lines 66-72
          if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
      
      
        Link Here | 
        
          | 66 |     MARC::File::XML->default_record_format('UNIMARC'); | 66 |     MARC::File::XML->default_record_format('UNIMARC'); | 
        
          | 67 | } | 67 | } | 
        
          | 68 |  | 68 |  | 
          
            
              | 69 | our($tagslib,$authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950,$op,$changed_framework); | 69 | our ( $tagslib, $usedTagsLib, $mandatory_z3950, $is_a_modif, $op, $changed_framework ); | 
        
          | 70 |  | 70 |  | 
        
          | 71 | =head1 FUNCTIONS | 71 | =head1 FUNCTIONS | 
        
          | 72 |  | 72 |  | 
  
    | Lines 501-507
          my $biblionumber  = $input->param('biblionumber'); # if biblionumber exists, it'
      
      
        Link Here | 
        
          | 501 | my $parentbiblio  = $input->param('parentbiblionumber'); | 501 | my $parentbiblio  = $input->param('parentbiblionumber'); | 
        
          | 502 | my $breedingid    = $input->param('breedingid'); | 502 | my $breedingid    = $input->param('breedingid'); | 
        
          | 503 | my $z3950         = $input->param('z3950'); | 503 | my $z3950         = $input->param('z3950'); | 
            
              | 504 | $op               = $input->param('op') // q{}; |  |  | 
        
          | 505 | my $mode          = $input->param('mode') // q{}; | 504 | my $mode          = $input->param('mode') // q{}; | 
        
          | 506 | my $frameworkcode = $input->param('frameworkcode'); | 505 | my $frameworkcode = $input->param('frameworkcode'); | 
        
          | 507 | my $redirect      = $input->param('redirect'); | 506 | my $redirect      = $input->param('redirect'); | 
  
    | Lines 518-523
          my $fa_duedatespec        = $input->param('duedatespec');
      
      
        Link Here | 
        
          | 518 |  | 517 |  | 
        
          | 519 | my $userflags = 'edit_catalogue'; | 518 | my $userflags = 'edit_catalogue'; | 
        
          | 520 |  | 519 |  | 
            
              |  |  | 520 | # Set default values for global variable | 
            
              | 521 | $tagslib           = &GetMarcStructure( 1, $frameworkcode ); | 
            
              | 522 | $usedTagsLib       = &GetUsedMarcStructure($frameworkcode); | 
            
              | 523 | $mandatory_z3950   = GetMandatoryFieldZ3950($frameworkcode); | 
            
              | 524 | $is_a_modif        = 0; | 
            
              | 525 | $op                = $input->param('op') // q{}; | 
            
              | 526 | $changed_framework = 0; | 
            
              | 527 |  | 
        
          | 521 | if ( $op eq 'cud-change-framework' ) { | 528 | if ( $op eq 'cud-change-framework' ) { | 
        
          | 522 |     $op = $input->param('original_op'); | 529 |     $op = $input->param('original_op'); | 
        
          | 523 |     $changed_framework = 1; | 530 |     $changed_framework = 1; | 
  
    | Lines 587-598
          $template->param(
      
      
        Link Here | 
        
          | 587 |     breedingid => $breedingid, | 594 |     breedingid => $breedingid, | 
        
          | 588 | ); | 595 | ); | 
        
          | 589 |  | 596 |  | 
            
              | 590 | # ++ Global |  |  | 
            
              | 591 | $tagslib         = &GetMarcStructure( 1, $frameworkcode ); | 
            
              | 592 | $usedTagsLib     = &GetUsedMarcStructure( $frameworkcode ); | 
            
              | 593 | $mandatory_z3950 = GetMandatoryFieldZ3950($frameworkcode); | 
            
              | 594 | # -- Global | 
            
              | 595 |  | 
        
          | 596 | my $record   = -1; | 597 | my $record   = -1; | 
        
          | 597 | my $encoding = ""; | 598 | my $encoding = ""; | 
        
          | 598 | my ( | 599 | my ( | 
  
    | Lines 654-661
          if ($parentbiblio) {
      
      
        Link Here | 
        
          | 654 |     } | 655 |     } | 
        
          | 655 | } | 656 | } | 
        
          | 656 |  | 657 |  | 
            
              | 657 | $is_a_modif = 0; |  |  | 
            
              | 658 |  | 
        
          | 659 | if ($biblionumber) { | 658 | if ($biblionumber) { | 
        
          | 660 |     $is_a_modif = 1; | 659 |     $is_a_modif = 1; | 
        
          | 661 |     my $title = C4::Context->preference('marcflavour') eq "UNIMARC" ? $record->subfield('200', 'a') : $record->title; | 660 |     my $title = C4::Context->preference('marcflavour') eq "UNIMARC" ? $record->subfield('200', 'a') : $record->title; | 
            
              | 662 | -  |  |  |