e-smith-domains/sme9/e-smith-domains-2.4.0.bz8842.retrieve_name_and_description_in_locale.patch

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;
1	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
2	--- 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
3	+++ 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
4	@@ -1,6 +1,6 @@
5	<!-- vim: ft=xml ts=4 sw=4 et:
6	-->
7	-<lexicon lang="en-us">
8	+<lexicon lang="en-us" params="getExtraParams()">
9	<entry>
10	<base>FORM_TITLE</base>
11	<trans>
12	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
13	--- 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
14	+++ 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
15	@@ -35,7 +35,7 @@
16
17	our @ISA = qw(esmith::FormMagick Exporter);
18
19	-our @EXPORT = qw();
20	+our @EXPORT = qw( getExtraParams );
21
22	our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/;
23
24	@@ -454,4 +454,24 @@
25
26	return;
27	}
28	+
29	+=head2 getExtraParams()
30	+Sets variables used in the lexicon to their required values.
31	+=for testing
32	+$panel->{cgi}->param(-name=>'name', -value=>'foo');
33	+my %ret = $panel->getExtraParams();
34	+is($ret{name}, 'foo', ' .. name field is foo');
35	+isnt($ret{description}, undef, ' .. description field isnt undef');
36	+=cut
37	+
38	+sub getExtraParams
39	+{
40	+ my $self = shift;
41	+ my $q = $self->{cgi};
42	+ my $domain= $q->param('Domain');
43	+ my $domaindesc = $ddb->get_prop($domain, 'Description');
44	+
45	+ return (domain => $domain, domainDesc => $domaindesc, domainName => $domain);
46	+}
47	+
48	1;