richter 2004/03/11 14:31:12
Modified: . Changes.pod
Embperl Object.pm
Log:
added fdat&ffld to EO::Execute
Revision Changes Path
1.236 +3 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.235
retrieving revision 1.236
diff -u -r1.235 -r1.236
--- Changes.pod 7 Mar 2004 20:10:06 -0000 1.235
+++ Changes.pod 11 Mar 2004 22:31:12 -0000 1.236
@@ -24,6 +24,9 @@
Patch from Torsten Luettgert.
- Fixed problem with <a> tag without href attribute when session ids
are embedded into the url. Reported by Torsten Luettgert.
+ - Added sanity checks to epcrypto.c
+ - Added posibility to pass fdat&ffld parameter to
+ Embperl::Object::Execute.
=head1 2.0b10 23. Jan 2004
1.5 +18 -1 embperl/Embperl/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Object.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Object.pm 23 Jan 2004 06:50:56 -0000 1.4
+++ Object.pm 11 Mar 2004 22:31:12 -0000 1.5
@@ -137,6 +137,23 @@
return $rc ;
}
+
+ if (exists $req -> {fdat} && ref ($req -> {fdat}) eq 'HASH')
+ {
+ %Embperl::fdat = %{$req -> {fdat}} ;
+ if (ref $req -> {ffld} eq 'ARRAY')
+ {
+ @Embperl::ffld = @%{$req -> {ffld}};
+ }
+ else
+ {
+ @Embperl::ffld = keys %Embperl::fdat ;
+ }
+ delete $req -> {fdat};
+ delete $req -> {ffld} ;
+ }
+
+
my $app = $r -> app ;
my $appcfg = $app -> config;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
