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