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