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-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
