- my @loop_data = ();
- while ( ( my $field ) = $sth2->fetchrow_array ) {
- my %row_data; # get a fresh hash for the row data
- $row_data{tagfield} = $fields{ $tablename . "." . $field }->{tagfield};
- $row_data{tagsubfield} =
- $fields{ $tablename . "." . $field }->{tagsubfield};
- $row_data{liblibrarian} =
- $fields{ $tablename . "." . $field }->{liblibrarian};
- $row_data{kohafield} = $field;
- $row_data{edit} =
-"$script_name?op=add_form&tablename=$tablename&kohafield=$field";
- push( @loop_data, \%row_data );
- }
- $template->param(
- loop => \@loop_data,
- tablename => CGI::scrolling_list(
- -name => 'tablename',
- -values => [
- 'biblio',
- 'biblioitems',
- 'items',
- ],
- -default => $tablename,
- -size => 1,
- -multiple => 0
- )
- );
-} #---- END $OP eq DEFAULT