- while ($data =$sth->fetchrow_hashref) {
-
- my %row_data; # get a fresh hash for the row data
- $row_data{defaultvalue} = $data->{defaultvalue};
- $row_data{tab} = {
- id => "tab$i",
- default => $data->{'tab'},
- };
- $row_data{ohidden} = {
- id => "ohidden$i",
- default => $data->{'hidden'}
- };
- $row_data{tagsubfieldinput} = "<input type=\"hidden\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" id=\"tagsubfield\" />";
- $row_data{tagsubfield} = $data->{'tagsubfield'};
- $row_data{liblibrarian} = CGI::escapeHTML($data->{'liblibrarian'});
- $row_data{libopac} = CGI::escapeHTML($data->{'libopac'});
- $row_data{seealso} = CGI::escapeHTML($data->{'seealso'});
- $row_data{kohafield} = {
- id => "kohafield$i",
- values => \@kohafields,
- default => "$data->{'kohafield'}",
- };
- $row_data{authorised_value} = {
- id => "authorised_value$i",
- values => $authorised_values,
- default => $data->{'authorised_value'},
- };
- $row_data{frameworkcode} = {
- id => "frameworkcode$i",
- values => \@authtypes,
- default => $data->{'frameworkcode'},
- };
- $row_data{value_builder} = {
- id => "value_builder$i",
- values => \@value_builder,
- default => $data->{'value_builder'},
- };
-
- $row_data{repeatable} = CGI::checkbox(-name=>"repeatable$i",
- -checked => $data->{'repeatable'}?'checked':'',
- -value => 1,
- -label => '',
- -id => "repeatable$i");
- $row_data{mandatory} = CGI::checkbox(-name => "mandatory$i",
- -checked => $data->{'mandatory'}?'checked':'',
- -value => 1,
- -label => '',
- -id => "mandatory$i");
- $row_data{hidden} = CGI::escapeHTML($data->{hidden}) ;
- $row_data{isurl} = CGI::checkbox( -name => "isurl$i",
- -id => "isurl$i",
- -checked => $data->{'isurl'}?'checked':'',
- -value => 1,
- -label => '');
- $row_data{row} = $i;
- push(@loop_data, \%row_data);
- $i++;
- }
- # add more_subfields empty lines for add if needed
- for (my $i=1;$i<=$more_subfields;$i++) {
- my %row_data; # get a fresh hash for the row data
- $row_data{'new_subfield'} = 1;
- $row_data{tab} = {
- id => "tab$i",
- default => $data->{'tab'},
- };
- $row_data{ohidden} = {
- id => "ohidden$i",
- default => $data->{'hidden'}
- };
+ while ( my $data = $sth->fetchrow_hashref ) {
+ my %row_data; # get a fresh hash for the row data
+ $row_data{defaultvalue} = $data->{defaultvalue};
+ $row_data{tab} = $data->{tab};
+ $row_data{ohidden} = $data->{'hidden'};
+ $row_data{tagsubfield} = $data->{'tagsubfield'};
+ $row_data{liblibrarian} = $data->{'liblibrarian'};
+ $row_data{libopac} = $data->{'libopac'};
+ $row_data{seealso} = $data->{'seealso'};
+ $row_data{kohafields} = \@kohafields;
+ $row_data{kohafield} = $data->{'kohafield'};
+ $row_data{authorised_values} = \@authorised_value_categories;
+ $row_data{authorised_value} = $data->{'authorised_value'};
+ $row_data{frameworkcodes} = \@authtypes;
+ $row_data{frameworkcode} = $data->{'frameworkcode'};
+ $row_data{value_builders} = \@value_builder;
+ $row_data{value_builder} = $data->{'value_builder'};
+ $row_data{repeatable} = $data->{repeatable};
+ $row_data{mandatory} = $data->{mandatory};
+ $row_data{hidden} = $data->{hidden};
+ $row_data{isurl} = $data->{isurl};
+ $row_data{row} = $i;
+ push( @loop_data, \%row_data );
+ $i++;
+ }