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

(-)a/cataloguing/addbiblio.pl (-18 / +18 lines)
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
- 

Return to bug 37947