use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n<html xmlns=\"http://www.w3.org/1999/xhtml\">\n<head>\n<title>Labels</title>\n<meta http-equiv=\"X-UA-Compatible\" content=\"IE=7\"/>\n<style type=\"text/css\">\n	select, input, textarea, td, div\n	{\n			font: normal 10pt Tahoma, sans-serif;\n			margin: 2px;\n	}\n	\n	.header\n	{\n		font-size: 140\%;\n		font-weight: bold;\n		margin-bottom: 10px;\n	}\n	\n	.label\n	{\n		font-weight: bold;\n		color: brown;\n	}\n</style>\n</head>\n<body style=\"margin: 20px\">\n\n");$this->out(Zen::PerlHandler->get("IId95dc0bf217db9fba36ea754931fc840->mnt_select_labels")->do($this->{C}));$this->out("\n");if ( $C->{ActionComplete} ) {$this->out("<script>\n	self.opener.document.forms[\'Lister\'].submit();\n	window.close();\n</script>\n");}$this->out("\n");$C->{action_title} = $C->{INPUT}{action} eq 'apply' ? 'Apply' : 'Remove';$this->out("\n<div class=\"header\">$C->{action_title} Label(s)</div>\n\n<form method=\"post\" action=\"$C->{ENV}{SCRIPT_NAME}/zen/table/labelling_selector.html\">\n<input type=\"hidden\" name=\"TableClass\" value=\"$C->{INPUT}{TableClass}\">\n<input type=\"hidden\" name=\"action\" value=\"$C->{INPUT}{action}\">\n<input type=\"hidden\" name=\"object_ids\" value=\"\">\n");my $in = $C->{Labels};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("	<div class=\"label\" id=\"Label$C->{l}{id}\"><input type=\"checkbox\" name=\"label_ids\" value=\"$C->{l}{id}\"> $C->{l}{name}</div>\n");}$this->out("<br>\n<input type=\"submit\" name=\"do_$C->{INPUT}{action}\" value=\"$C->{action_title}\">\n</form>\n\n<script>document.forms[0].elements[\'object_ids\'].value = self.opener.buildJoinedListForChecked();</script>\n\n</body>\n</html>\n");}