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