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	stephdl	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;