- 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,
- -tabindex=>'',
- -multiple=>0
- )
- );
-} #---- END $OP eq DEFAULT
-$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- );
+ 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