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 2013/01/28 09:43:52 UTC
svn commit: r1439302 - in /perl/embperl/trunk/Embperl/Form:
ControlMultValue.pm DataSource.pm
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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org