You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2011/12/27 16:20:22 UTC
svn commit: r1224925 - in /perl/embperl/trunk/Embperl: Form.pm
Form/Control.pm Form/Control/checkbox.pm Form/Control/input.pm
Form/Control/password.pm Form/Control/select.pm Form/Control/textarea.pm
Form/ControlMultValue.pm
Author: richter
Date: Tue Dec 27 15:20:21 2011
New Revision: 1224925
URL: http://svn.apache.org/viewvc?rev=1224925&view=rev
Log:
Fix Embperl::Form
Modified:
perl/embperl/trunk/Embperl/Form.pm
perl/embperl/trunk/Embperl/Form/Control.pm
perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
perl/embperl/trunk/Embperl/Form/Control/input.pm
perl/embperl/trunk/Embperl/Form/Control/password.pm
perl/embperl/trunk/Embperl/Form/Control/select.pm
perl/embperl/trunk/Embperl/Form/Control/textarea.pm
perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
Modified: perl/embperl/trunk/Embperl/Form.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form.pm (original)
+++ perl/embperl/trunk/Embperl/Form.pm Tue Dec 27 15:20:21 2011
@@ -395,7 +395,7 @@ sub layout
push @$hidden, $control ;
next ;
}
- my $width = $control -> {width_percent} || int($max_x / ($control -> {width} || 2)) ;
+ my $width = ($control -> {width} eq 'expand')?100:$control -> {width_percent} || int($max_x / ($control -> {width} || 2)) ;
$width = 21 if ($x == 0 && $width < 21) ;
if ($x + $width > $max_x || $control -> {newline} > 0 || (($control -> {sublines} || $control -> {subobjects}) && @$line))
{ # new line
@@ -410,7 +410,7 @@ sub layout
$num = 0 ;
}
push @$line, $control ;
- $control -> {width_percent} = int($width) ;
+ $control -> {width_percent} = $control -> {width} eq 'expand'?'expand':int($width) ;
$control -> {x_percent} = int($x) ;
$control -> {level} = $level ;
$x += $width ;
@@ -905,7 +905,7 @@ $]
#]
[$sub show_controls_end ($self, $req) $]
-<!-- </table> -->
+
[$ if (!$self -> {noframe}) $]</td></tr></table> [$endif$]
</div>
@@ -969,12 +969,12 @@ $]
}
my $class = $lineno == 0?'cTableRow1':'cTableRow' ;
-$]<!-- line begin
- <tr class="[+ $class +]" valign="[+ $self->{valign} +]"
+$]<!-- line begin -->
+ [# <tr class="[+ $class +]" valign="[+ $self->{valign} +]"
[$if $id $] id="[+ $id +]" [$endif$]
[$if ($activeid eq '-' || ($baseid eq $baseaid && $baseidn != $baseaidn)) $] style="display: none" [$endif$]
>
- -->[* return !($activeid eq '-' || ($baseid eq $baseaid && $baseidn != $baseaidn))
+ #][* return !($activeid eq '-' || ($baseid eq $baseaid && $baseidn != $baseaidn))
*][$endsub$]
[# ---------------------------------------------------------------------------
@@ -982,7 +982,7 @@ $]<!-- line begin
# show_line_end - output end of line
#]
-[$ sub show_line_end ($req) $]<!-- </tr> -->[$endsub$]
+[$ sub show_line_end ($req) $]<!-- line end -->[$endsub$]
__END__
Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Tue Dec 27 15:20:21 2011
@@ -269,7 +269,7 @@ sub get_std_control_attr
my $events = $self -> {eventattrs} ;
$type ||= $self -> {type} ;
- return qq{class="ef-control ef-control-width-$width ef-control-$type ef-control-$type-width-$width $addclass $class" name="$name" id="$ctrlid" $events} ;
+ return qq{class="ef-control ef-control-width-$width ef-control-$type ef-control-$type-width-$width $addclass $class" id="$ctrlid" $events} ;
}
@@ -312,7 +312,7 @@ $]<table class="ef-element ef-element-wi
my $span = $self->{width_percent} ;
$]
-</tr><tr><td class="cBase cTabTD" colspan="[+ $span +]">
+<!-- sub begin --></tr><tr><td class="cBase cTabTD" colspan="[+ $span +]">
[$endsub$]
[# ---------------------------------------------------------------------------
@@ -321,7 +321,7 @@ $]
#]
[$sub show_sub_end ($self, $req) $]
-</td>
+</td><!-- sub end -->
[$endsub$]
[# ---------------------------------------------------------------------------
Modified: perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkbox.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/checkbox.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/checkbox.pm Tue Dec 27 15:20:21 2011
@@ -90,7 +90,7 @@ __EMBPERL__
push @{$self -> form -> {fields2empty}}, $name ;
$]
-<input type="checkbox" [+ do { local $escmode = 0 ; $self -> {eventattrs} } +] value="[+ $val +]"
+<input type="checkbox" name="[+ $self -> {force_name} || $self -> {name} +]" [+ do { local $escmode = 0 ; $self -> {eventattrs} } +] value="[+ $val +]"
[$if ($self -> {sublines} || $self -> {subobjects}) $] OnClick="[+ $nsprefix +]show_checked(document, this)" [$endif$]
>
[$endsub$]
Modified: perl/embperl/trunk/Embperl/Form/Control/input.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/input.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/input.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/input.pm Tue Dec 27 15:20:21 2011
@@ -35,8 +35,7 @@ __EMBPERL__
#$self -> {size} ||= 80 / ($self -> {width} || 2) ;
my $class = $self -> {class} ;
$]
-
-<input type="text" [+ do { local $escmode = 0 ; $self -> get_std_control_attr() } +]
+<input type="text" name="[+ $self -> {force_name} || $self -> {name} +]" [+ do { local $escmode = 0 ; $self -> get_std_control_attr() } +]
[$if $self -> {size} $]size="[+ $self->{size} +]"[$endif$]
[$if $self -> {maxlength} $]maxlength="[+ $self->{maxlength} +]"[$endif$]
>
Modified: perl/embperl/trunk/Embperl/Form/Control/password.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/password.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/password.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/password.pm Tue Dec 27 15:20:21 2011
@@ -32,7 +32,7 @@ __EMBPERL__
[$ sub show_control ($self) $]
-<input type="password" class="cBase cControl cControlWidthInput" name="[+ $self->{name} +]"
+<input type="password" name="[+ $self -> {force_name} || $self -> {name} +]" [+ do { local $escmode = 0 ; $self -> get_std_control_attr() } +]
[$if $self -> {size} $]size="[+ $self->{size} +]"[$endif$]
[$if $self -> {maxlength} $]size="[+ $self->{maxlength} +]"[$endif$]
>
Modified: perl/embperl/trunk/Embperl/Form/Control/select.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/select.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/select.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/select.pm Tue Dec 27 15:20:21 2011
@@ -52,7 +52,7 @@ __EMBPERL__
my ($values, $options) = $self -> get_all_values ($req) ;
$]
-<select [+ $self->{multiple}?'multiple':''+] [+ do { local $escmode = 0 ; $self -> get_std_control_attr() } +]
+<select name="[+ $self -> {force_name} || $self -> {name} +]" [+ $self->{multiple}?'multiple':''+] [+ do { local $escmode = 0 ; $self -> get_std_control_attr() } +]
[$if ($self -> {sublines} || $self -> {subobjects}) $] OnChange="[+ $nsprefix +]show_selected(document, this)" [$endif$]
[$if ($self -> {rows}) $] size="[+ $self->{rows} +]" [$endif$]
>
Modified: perl/embperl/trunk/Embperl/Form/Control/textarea.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/textarea.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/textarea.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/textarea.pm Tue Dec 27 15:20:21 2011
@@ -34,7 +34,7 @@ __EMBPERL__
my $class = $self -> {class} ||= '' ;
$]
-<textarea type="text" [+ do { local $escmode = 0 ; $self -> get_std_control_attr() } +]
+<textarea type="text" name="[+ $self -> {force_name} || $self -> {name} +]" [+ do { local $escmode = 0 ; $self -> get_std_control_attr() } +]
[# [$if $self -> {cols} $]cols="[+ $self->{cols} +]"[$endif$] #]
[$if $self -> {rows} $]rows="[+ $self->{rows} +]"[$endif$]
></textarea>
Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1224925&r1=1224924&r2=1224925&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Tue Dec 27 15:20:21 2011
@@ -281,6 +281,8 @@ sub show_control_readonly
my $value = $self -> get_value ($req) ;
my $option = $self -> get_option_from_value ($value, $req) ;
+ $option = '<Kein Zugriff>' if (!$option && $value && ($req->{userCtx}{role} ne '*')) ;
+
$self -> SUPER::show_control_readonly ($req, $option) ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org