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