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("\n");$this->out(Zen::PerlHandler->get("II35e475847d1fdf452db46718f2b9007e->mnt_display")->do($this->{C}));$this->out("	\n<center>\n<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable style=\"margin: 10px\">\n<tr><td class=atkHeader colspan=6>$C->{display_title}</td></tr>\n<tr>\n	<td class=atkListerFieldnames>Date / Time</td>\n	<td class=atkListerFieldnames>Changed by</td>\n	<td class=atkListerFieldnames>Old value</td>\n	<td class=atkListerFieldnames>New value</td>\n	<td class=atkListerFieldnames>Comment</td>\n</tr>\n");my $in = $C->{Data};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{d} = -1;for my $f (@$loop) {$C->{ITERATION}{d}++;$C->{d} = $f;$this->out("<tr>\n	<td class=atkCell valign=\"top\">$C->{d}{tstamp}</td>\n	<td class=atkCell valign=\"top\">");if ( $C->{d}{user_id} ) {$this->out("$C->{d}{user_name} ($C->{d}{user_id})");}$this->out("</td>\n	<td class=atkCell valign=\"top\">$C->{d}{value1}</td>\n	<td class=atkCell valign=\"top\">$C->{d}{value2}</td>\n	<td class=atkCell valign=\"top\">$C->{d}{comment}</td>\n</tr>\n");}$this->out("</table>\n</center>\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("");}