diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl index 94e78a9dbe..5450716602 100755 --- a/admin/marctagstructure.pl +++ b/admin/marctagstructure.pl @@ -18,11 +18,12 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI qw ( -utf8 ); -use C4::Auth qw( get_template_and_user ); +use CGI qw ( -utf8 ); + +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcFromKohaField ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Context; use Koha::Caches; use Koha::AuthorisedValues; @@ -230,6 +231,9 @@ if ( $op eq 'add_form' ) { } } + my ( $items_tag, $items_subtag ) = GetMarcFromKohaField('items.itemnumber'); + $template->param( items_tag => $items_tag ); + # here, $op can be unset or set to "cud-framework_create_confirm". if ( $searchfield ne '' ) { $template->param( searchfield => $searchfield ); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/marctagstructure.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/marctagstructure.tt index 5bdc3777c9..12c7bb6fe8 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/marctagstructure.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/marctagstructure.tt @@ -97,6 +97,11 @@ [% IF framework %] Edit framework [% END %] + [% IF items_tag %] + View items tag ([% items_tag | html %]) + [% END %] [% END %]