Mailing List Archive

Author: richter
Date: Tue Jun 11 06:52:00 2013
New Revision: 1491697

URL: http://svn.apache.org/r1491697
Log:
Dynctrl rendering

Modified:
perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm?rev=1491697&r1=1491696&r2=1491697&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/dynctrl.pm Tue Jun 11 06:52:00 2013
@@ -144,7 +144,7 @@ __EMBPERL__
my $ctrl = $self -> create_ctrl ($req) ;
my $name = $self -> {name} ;
local $req -> {dynctrl_in_show} = 1 ;
-$]<div style="display: inline" _ef_divname="_ctl_[+$name+]">[- $ctrl -> show ($req) if ($ctrl) -]</div>[$ endsub $]
+$]<div style="display: inline" _ef_divname="_ctl_[+$name+]">[.- $ctrl -> show ($req) if ($ctrl && !$req -> {update_docclass_info}) -]</div>[$ endsub $]

[# ---------------------------------------------------------------------------
#
@@ -161,7 +161,7 @@ if ($req -> {dynctrl_in_show})
return $ctrl -> show_control ($req) ;
}
local $req -> {dynctrl_in_show} = 1 ;
-$]<div style="display: inline" _ef_divname="_ctl_[+$name+]">[- $ctrl -> show_control ($req) if ($ctrl) -]</div>[$ endsub $]
+$]<div style="display: inline" _ef_divname="_ctl_[+$name+]">[.- $ctrl -> show_control ($req) if ($ctrl && !$req -> {update_docclass_info}) -]</div>[$ endsub $]

[# ---------------------------------------------------------------------------
#
@@ -177,7 +177,7 @@ if ($req -> {dynctrl_in_show})
return $ctrl -> show_control_readonly ($req, $value) ;
}
local $req -> {dynctrl_in_show} = 1 ;
-$]<div style="display: inline" _ef_divname="_ctl_[+$name+]">[- $ctrl -> show_control_readonly ($req, $value) if ($ctrl) -]</div>[$ endsub $]
+$]<div style="display: inline" _ef_divname="_ctl_[+$name+]">[.- $ctrl -> show_control_readonly ($req, $value) if ($ctrl && !$req -> {update_docclass_info}) -]</div>[$ endsub $]


__END__



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org