diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl index 7ea4f20aae..cb30a24e8e 100755 --- a/admin/koha2marclinks.pl +++ b/admin/koha2marclinks.pl @@ -85,14 +85,10 @@ if ( $op eq 'add_form' ) { { push @marcarray, "$field $tagsubfield - $liblibrarian"; } - my $marclist = CGI::scrolling_list( - -name => 'marc', - -values => \@marcarray, - -default => - "$defaulttagfield $defaulttagsubfield - $defaultliblibrarian", - -size => 1, - -multiple => 0, - ); + my $marclist = { + values => \@marcarray, + default => "$defaulttagfield $defaulttagsubfield - $defaultliblibrarian", + }; $template->param( "marclist$i" => $marclist ); } $template->param( @@ -154,19 +150,13 @@ q|select tagfield,tagsubfield,liblibrarian,kohafield from marc_subfield_structur "$script_name?op=add_form&tablename=$tablename&kohafield=$field"; push( @loop_data, \%row_data ); } + my $tablenames = { + values => [ 'biblio', 'biblioitems', 'items' ], + default => $tablename, + }; $template->param( loop => \@loop_data, - tablename => CGI::scrolling_list( - -name => 'tablename', - -values => [ - 'biblio', - 'biblioitems', - 'items', - ], - -default => $tablename, - -size => 1, - -multiple => 0 - ) + tablename => $tablenames, ); } #---- END $OP eq DEFAULT output_html_with_http_headers $input, $cookie, $template->output; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt index aa40731025..aad10bd37c 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/koha2marclinks.tt @@ -28,105 +28,31 @@ [% IF ( add_form ) %]

Connect [% tablename %].[% kohafield %] to a MARC subfield

Choose and validate 1 MARC subfield for [% tablename %].[% kohafield %]. That will modify all frameworks which is usually what you need, but you have been warned.

-
    -
  1. - - - - [% marclist0 %]
    - -
  2. -
  3. - -
    - - - - [% marclist1 %] -
    - -
  4. -
  5. - - -
    - - - - [% marclist2 %]
    - -
  6. -
  7. - -
    - - - - - [% marclist3 %]
    - -
  8. -
  9. - -
    - - - - - [% marclist4 %]
    - -
  10. -
  11. - -
    - - - - - [% marclist5 %]
    - -
  12. -
  13. - -
    - - - - - [% marclist6 %]
    - -
  14. -
  15. - -
    - - - - - [% marclist7 %]
    - -
  16. -
  17. - -
    - - - - - [% marclist8 %]
    - -
  18. -
  19. - -
    - - - - - [% marclist9 %]
    - -
  20. -
+
+
    + [% FOR i IN [ 0 .. 9 ] %] + [% marclist = "marclist$i" %] +
  1. +
    + + + + + + +
    +
  2. + [% END %] +
+
@@ -144,7 +70,18 @@

Koha to MARC mapping [% tagfield %]

-

[% tablename %]

+

+ + +