diff -Nur e-smith-domains-2.4.0.bz8842.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/domains e-smith-domains-2.4.0.bz8842/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/domains
--- e-smith-domains-2.4.0.bz8842.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/domains	2015-07-06 19:16:05.074473399 +0200
+++ e-smith-domains-2.4.0.bz8842/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/domains	2015-07-06 19:16:43.003493242 +0200
@@ -1,6 +1,6 @@
 <!-- vim: ft=xml ts=4 sw=4 et:
 -->
-<lexicon lang="en-us">
+<lexicon lang="en-us" params="getExtraParams()">
     <entry>
         <base>FORM_TITLE</base>
         <trans>
diff -Nur e-smith-domains-2.4.0.bz8842.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/domains.pm e-smith-domains-2.4.0.bz8842/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/domains.pm
--- e-smith-domains-2.4.0.bz8842.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/domains.pm	2015-07-06 19:16:05.087474439 +0200
+++ e-smith-domains-2.4.0.bz8842/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/domains.pm	2015-07-06 19:18:52.347636356 +0200
@@ -35,7 +35,7 @@
 
 our @ISA = qw(esmith::FormMagick Exporter);
 
-our @EXPORT = qw();
+our @EXPORT = qw( getExtraParams );
 
 our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/;
 
@@ -454,4 +454,24 @@
 
     return;
 }
+
+=head2 getExtraParams()
+Sets variables used in the lexicon to their required values.
+=for testing
+$panel->{cgi}->param(-name=>'name', -value=>'foo');
+my %ret = $panel->getExtraParams();
+is($ret{name}, 'foo', ' .. name field is foo');
+isnt($ret{description}, undef, ' .. description field isnt undef');
+=cut
+
+sub getExtraParams
+{
+    my $self = shift;
+    my $q = $self->{cgi};
+    my $domain= $q->param('Domain');
+    my $domaindesc = $ddb->get_prop($domain, 'Description');
+
+    return (domain => $domain, domainDesc => $domaindesc, domainName => $domain);
+}
+
 1;