use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<script type=\"text/javascript\" src=\"$C->{ENV}{SCRIPT_NAME}/suppl/atk/labelling.js\"></script>\n<nobr>\n");$C->{LabelSeaField} = "sea_$C->{TableLabelsField}";$this->out("<select name=\"$C->{LabelSeaField}\" class=\"form-control\">\n");if ( @{$C->{TableLabelsList}} ) {$this->out("	<option value=\"\"></option>\n");my $in = $C->{TableLabelsList};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{l} = -1;for my $f (@$loop) {$C->{ITERATION}{l}++;$C->{l} = $f;$this->out("");$C->{selected} = $C->{INPUT}{$C->{LabelSeaField}} eq $C->{l}{raw_name} ? 'selected' : '';$this->out("		<option value=\"$C->{l}{name}\" $C->{selected}> $C->{l}{name}</option>\n");}$this->out("");$C->{selected} = $C->{INPUT}{$C->{LabelSeaField}} eq '-' ? 'selected' : '';$this->out("	<option value=\"-\" $C->{selected}>[ NO LABEL ]</option>\n");}$this->out("</select>\n&nbsp;&nbsp;\n<a class=\"atkControl\" href=\"#\" onClick=\"popWin(\'$C->{ENV}{SCRIPT_NAME}/zen/table/labelling_table.html?TableClass=$C->{TableClass}&first_load=1\',600,300); return false;\">create / edit</a>\n</nobr>\n");}