use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{HTMLTitle} = "Changing e-mail";$this->out("\n");$this->out(Zen::PerlHandler->get("IIc7a1102a58c38cc35c941ca362362583->mnt_changeemail")->do($this->{C}));$this->out("\n<center>\n\n<h3>CHANGING E-MAIL</h3>\n\n");if ( $C->{Complete} ) {$this->out("\n  <p>Your e-mail address has been changed to $C->{INPUT}{new_email}. You should use it\n  as your new username to login.\n  <br><br>\n  <a href=\"$C->{SYS}{URI}\">Click here to continue working</a>\n\n");} else {$this->out("\n  <p>Confirmation link expired or invalid. Your e-mail was not changed.\n\n");}$this->out("\n</center>\n\n");{my $G = (ref $this)->get("/headfoot/hf_auth.html", $this->{param}) or die "no skel /headfoot/hf_auth.html";my $out1 = $this->getOutput;$C->{central_content} = join('', @$out1);@$out1 = ();my $out2 = $G->execute($C);$this->out(@$out2) if $out2;}$this->out("");}