Mailing List Archive

Author: richter
Date: Tue Apr 2 14:43:07 2013
New Revision: 1463567

URL: http://svn.apache.org/r1463567
Log:
Embperl::Form grid und selectdyn

Modified:
perl/embperl/trunk/Embperl/Form/Control/grid.pm
perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/grid.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/grid.pm?rev=1463567&r1=1463566&r2=1463567&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Tue Apr 2 14:43:07 2013
@@ -135,19 +135,19 @@ sub init_data
{
$rowclass[$i] = &{$self -> {rowclass}}($data, $self) ;
}
- my $co = $coloffset ;
- shift @$data while ($co-- > 0) ;
+ #my $co = $coloffset ;
+ #shift @$data while ($co-- > 0) ;
$j = 0 ;
foreach my $field ((@$fields, ($line2?($line2):())))
{
$col = exists $field -> {col}?$field -> {col}:$j ;
if ($colval = $field -> {colval})
{
- $fdat->{"__${name}_${j}_$i"} = $data->[$col] =~ /\Q$colval\E/?1:0 ;
+ $fdat->{"__${name}_${j}_$i"} = $data->[$col+$coloffset] =~ /\Q$colval\E/?1:0 ;
}
else
{
- $fdat->{"__${name}_${j}_$i"} = $data->[$col] ;
+ $fdat->{"__${name}_${j}_$i"} = $data->[$col+$coloffset] ;
}

if ($field -> can ('init_data'))

Modified: perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm?rev=1463567&r1=1463566&r2=1463567&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Tue Apr 2 14:43:07 2013
@@ -109,7 +109,7 @@ $url =~ s/<id>/$self -> get_id_from_valu

$]
[- $self -> SUPER::show_control_readonly ($req, $option) ; -]
-<script>add_qtip($('#[+ $id +]'), '[+ $url +]');</script>
+[#<script>add_qtip($('#[+ $id +]'), '[+ $url +]');</script>#]
[$endsub$]





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