View | Details | Raw Unified | Return to bug 38211
Collapse All | Expand All

(-)a/cataloguing/addbiblio.pl (-2 / +1 lines)
Lines 515-520 my $fa_branch = $input->param('branch'); Link Here
515
my $fa_stickyduedate      = $input->param('stickyduedate');
515
my $fa_stickyduedate      = $input->param('stickyduedate');
516
my $fa_duedatespec        = $input->param('duedatespec');
516
my $fa_duedatespec        = $input->param('duedatespec');
517
517
518
$op = $input->param('op') // q{};
518
$frameworkcode = &GetFrameworkCode($biblionumber)
519
$frameworkcode = &GetFrameworkCode($biblionumber)
519
  if ( $biblionumber and not( defined $frameworkcode) and $op ne 'cud-addbiblio' );
520
  if ( $biblionumber and not( defined $frameworkcode) and $op ne 'cud-addbiblio' );
520
521
Lines 539-545 $tagslib = &GetMarcStructure( 1, $frameworkcode ); Link Here
539
$usedTagsLib       = &GetUsedMarcStructure($frameworkcode);
540
$usedTagsLib       = &GetUsedMarcStructure($frameworkcode);
540
$mandatory_z3950   = GetMandatoryFieldZ3950($frameworkcode);
541
$mandatory_z3950   = GetMandatoryFieldZ3950($frameworkcode);
541
$is_a_modif        = 0;
542
$is_a_modif        = 0;
542
$op                = $input->param('op') // q{};
543
$changed_framework = 0;
543
$changed_framework = 0;
544
544
545
if ( $op eq 'cud-change-framework' ) {
545
if ( $op eq 'cud-change-framework' ) {
546
- 

Return to bug 38211