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