- my $toggle="white";
- my @loop_data = ();
- while ((my $field) = $sth2->fetchrow_array) {
- if ($toggle eq 'white'){
- $toggle="#ffffcc";
- } else {
- $toggle="white";
- }
- 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";
- $row_data{bgcolor} = $toggle;
- push(@loop_data,\%row_data);
- }
- $template->param(loop => \@loop_data,
- tablename => CGI::scrolling_list(-name=>'tablename',
- -values=>['biblio','biblioitems','items','bibliosubject','bibliosubtitle','additionalauthors'],
- -default=>$tablename,
- -size=>1,
- -multiple=>0
- )
- );
-} #---- END $OP eq DEFAULT
+ #XXX: This might not work. Maybe should use a DBI call instead of SHOW COLUMNS
+ my $sth2 = $dbh->prepare("SHOW COLUMNS from $tablename");
+ $sth2->execute;