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 ) %]
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.
- +