use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");{my $G = (ref $this)->get("/headfoot/inner_header.html", $this->{param}) or die "no skel /headfoot/inner_header.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");if ( $C->{INPUT}{syevent_id} ) {$this->out("");$C->{ObjectID} = "$C->{INPUT}{syevent_id}";$this->out("");$C->{SRC} = "list.html?syevent_id";$this->out("");} else {$this->out("");$C->{ObjectID} = "$C->{INPUT}{referer_id}";$this->out("");$C->{SRC} = "ref_list.html?referer_id";$this->out("");}$this->out("\n\n<div style=\"margin: 10px\">\n\n<div>\nBelow is the list HTML code. You can copy it and paste into any HTML document.\nIf you find out that the list height does fit into the frame, you can change this attribute:\n<br><br>\n<b>height=\"400\"</b>\n<br><br>\n</div>\n\n<center>\n\n<textarea rows=\"5\" cols=\"100\">\n&lt;iframe\n	width=\"100\%\" height=\"400\" frameborder=\"0\"\n	name=\"IFrameJin$C->{ObjectID}\" id=\"IFrameJin$C->{ObjectID}\"\n	src=\"$C->{SYS}{URI}/master/plugins/syevents/$C->{SRC}=$C->{ObjectID}\"&gt;\n&lt;/iframe&gt;\n</textarea>\n\n<br><br>\n<input type=\"button\" value=\"Close this window\" onClick=\"window.close();\">\n\n</center>\n\n</div>\n\n");{my $G = (ref $this)->get("/headfoot/inner_footer.html", $this->{param}) or die "no skel /headfoot/inner_footer.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}