Lines 23-29
use Modern::Perl;
Link Here
|
23 |
use CGI qw ( -utf8 ); |
23 |
use CGI qw ( -utf8 ); |
24 |
use C4::Auth qw( get_template_and_user ); |
24 |
use C4::Auth qw( get_template_and_user ); |
25 |
use C4::Output qw( output_html_with_http_headers ); |
25 |
use C4::Output qw( output_html_with_http_headers ); |
26 |
use C4::AuthoritiesMarc qw( GetAuthority ); |
26 |
use C4::AuthoritiesMarc qw( GetAuthority GetTagsLabels GetAuthMARCFromKohaField ); |
27 |
use C4::ImportBatch qw( GetImportRecordMarc ); |
27 |
use C4::ImportBatch qw( GetImportRecordMarc ); |
28 |
use C4::Context; |
28 |
use C4::Context; |
29 |
use Date::Calc qw( Today ); |
29 |
use Date::Calc qw( Today ); |
Lines 600-607
my ($oldauthtypetagfield,$oldauthtypetagsubfield);
Link Here
|
600 |
$is_a_modif=0; |
600 |
$is_a_modif=0; |
601 |
if ($authid) { |
601 |
if ($authid) { |
602 |
$is_a_modif=1; |
602 |
$is_a_modif=1; |
603 |
($oldauthnumtagfield,$oldauthnumtagsubfield) = &GetAuthMARCFromKohaField("auth_header.authid",$authtypecode); |
603 |
($oldauthnumtagfield,$oldauthnumtagsubfield) = GetAuthMARCFromKohaField("auth_header.authid",$authtypecode); |
604 |
($oldauthtypetagfield,$oldauthtypetagsubfield) = &GetAuthMARCFromKohaField("auth_header.authtypecode",$authtypecode); |
604 |
($oldauthtypetagfield,$oldauthtypetagsubfield) = GetAuthMARCFromKohaField("auth_header.authtypecode",$authtypecode); |
605 |
} |
605 |
} |
606 |
$op ||= q{}; |
606 |
$op ||= q{}; |
607 |
#------------------------------------------------------------------------------------------------------------------------------ |
607 |
#------------------------------------------------------------------------------------------------------------------------------ |