Author: richter Date: Mon Jan 28 08:43:52 2013 New Revision: 1439302 URL: http://svn.apache.org/viewvc?rev=1439302&view=rev Log: Make Datasourcename available in contructor
Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm perl/embperl/trunk/Embperl/Form/DataSource.pm Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1439302&r1=1439301&r2=1439302&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original) +++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Mon Jan 28 08:43:52 2013 @@ -38,11 +38,10 @@ sub init if ($self -> {datasrc}) { my $name = $self -> {datasrc} ; - $name =~ s/#.+$// ; + $name =~ s/[#\/].+$// ; my $form = $self -> form ; my $packages = $form -> get_datasrc_packages ; - $self -> {datasrcobj} = $form -> new_object ($packages, $name, $self) ; - $self -> {datasrcobj}{datasrc} = $self -> {datasrc} ; + $self -> {datasrcobj} = $form -> new_object ($packages, $name, $self, { datarsc => $self -> {datasrc}}) ; } $self -> SUPER::init ; Modified: perl/embperl/trunk/Embperl/Form/DataSource.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/DataSource.pm?rev=1439302&r1=1439301&r2=1439302&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/DataSource.pm (original) +++ perl/embperl/trunk/Embperl/Form/DataSource.pm Mon Jan 28 08:43:52 2013 @@ -30,7 +30,7 @@ sub new { my ($class, $args) = @_ ; - my $self = {} ; + my $self = {datsrc => $args -> {datasrc}} ; bless $self, $class ; $self -> init ($args) ; --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org