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 2002/02/28 08:54:58 UTC
cvs commit: embperl/Embperl Object.pm Util.pm
richter 02/02/27 23:54:58
Modified: Embperl Tag: Embperl2c Object.pm Util.pm
Log:
session handling
Revision Changes Path
No revision
No revision
1.1.2.11 +2 -2 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.10
retrieving revision 1.1.2.11
diff -u -r1.1.2.10 -r1.1.2.11
--- Object.pm 27 Feb 2002 11:58:25 -0000 1.1.2.10
+++ Object.pm 28 Feb 2002 07:54:58 -0000 1.1.2.11
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Object.pm,v 1.1.2.10 2002/02/27 11:58:25 richter Exp $
+# $Id: Object.pm,v 1.1.2.11 2002/02/28 07:54:58 richter Exp $
#
###################################################################################
@@ -128,7 +128,7 @@
my $apr ;
$apr = $req -> {req_rec} if ($req -> {req_rec}) ;
- my $basename = $appcfg -> object_base or die "Need object_base, please set EMBPERL_OBJECT_BASE" ;
+ my $basename = $appcfg -> object_base || '_base.epl' ;
##$basename =~ s/%modifier%/$req->{object_base_modifier}/ ;
my $addpath = $appcfg -> object_addpath ;
my $directory ;
1.1.2.7 +8 -4 embperl/Embperl/Attic/Util.pm
Index: Util.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Util.pm,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- Util.pm 27 Feb 2002 08:19:42 -0000 1.1.2.6
+++ Util.pm 28 Feb 2002 07:54:58 -0000 1.1.2.7
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Util.pm,v 1.1.2.6 2002/02/27 08:19:42 richter Exp $
+# $Id: Util.pm,v 1.1.2.7 2002/02/28 07:54:58 richter Exp $
#
###################################################################################
@@ -102,9 +102,13 @@
}
- *{"$package\:\:udat"} = $Embperl::req -> app -> udat ;
- *{"$package\:\:mdat"} = $Embperl::req -> app -> mdat ;
- *{"$package\:\:sdat"} = $Embperl::req -> app -> sdat ;
+ my $sess ;
+ $sess = $Embperl::req -> app -> udat ;
+ *{"$package\:\:udat"} = $sess if ($sess) ;
+ $sess = $Embperl::req -> app -> mdat ;
+ *{"$package\:\:mdat"} = $sess if ($sess) ;
+ $sess = $Embperl::req -> app -> sdat ;
+ *{"$package\:\:sdat"} = $sess if ($sess) ;
*{"$package\:\:MailFormTo"} = \&Embperl::MailFormTo ;
*{"$package\:\:Execute"} = \&Embperl::Req::ExecuteComponent ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org