|
Lines 517-522
my $fa_duedatespec = $input->param('duedatespec');
Link Here
|
| 517 |
|
517 |
|
| 518 |
my $userflags = 'edit_catalogue'; |
518 |
my $userflags = 'edit_catalogue'; |
| 519 |
|
519 |
|
|
|
520 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 521 |
{ |
| 522 |
template_name => "cataloguing/addbiblio.tt", |
| 523 |
query => $input, |
| 524 |
type => "intranet", |
| 525 |
flagsrequired => { editcatalogue => $userflags }, |
| 526 |
} |
| 527 |
); |
| 528 |
|
| 529 |
$frameworkcode = &GetFrameworkCode($biblionumber) |
| 530 |
if ( $biblionumber and not( defined $frameworkcode) and $op ne 'cud-addbiblio' ); |
| 531 |
|
| 532 |
if ($frameworkcode eq 'FA'){ |
| 533 |
$userflags = 'fast_cataloging'; |
| 534 |
} |
| 535 |
|
| 536 |
$frameworkcode = '' if ( $frameworkcode eq 'Default' ); |
| 537 |
|
| 520 |
# Set default values for global variable |
538 |
# Set default values for global variable |
| 521 |
$tagslib = &GetMarcStructure( 1, $frameworkcode ); |
539 |
$tagslib = &GetMarcStructure( 1, $frameworkcode ); |
| 522 |
$usedTagsLib = &GetUsedMarcStructure($frameworkcode); |
540 |
$usedTagsLib = &GetUsedMarcStructure($frameworkcode); |
|
Lines 530-552
if ( $op eq 'cud-change-framework' ) {
Link Here
|
| 530 |
$changed_framework = 1; |
548 |
$changed_framework = 1; |
| 531 |
} |
549 |
} |
| 532 |
|
550 |
|
| 533 |
$frameworkcode = &GetFrameworkCode($biblionumber) |
|
|
| 534 |
if ( $biblionumber and not( defined $frameworkcode) and $op ne 'cud-addbiblio' ); |
| 535 |
|
| 536 |
if ($frameworkcode eq 'FA'){ |
| 537 |
$userflags = 'fast_cataloging'; |
| 538 |
} |
| 539 |
|
| 540 |
$frameworkcode = '' if ( $frameworkcode eq 'Default' ); |
| 541 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 542 |
{ |
| 543 |
template_name => "cataloguing/addbiblio.tt", |
| 544 |
query => $input, |
| 545 |
type => "intranet", |
| 546 |
flagsrequired => { editcatalogue => $userflags }, |
| 547 |
} |
| 548 |
); |
| 549 |
|
| 550 |
my $logged_in_patron = Koha::Patrons->find($loggedinuser); |
551 |
my $logged_in_patron = Koha::Patrons->find($loggedinuser); |
| 551 |
my $biblio; |
552 |
my $biblio; |
| 552 |
|
553 |
|
| 553 |
- |
|
|