richter 01/11/13 11:12:49
Modified: Embperl Session.pm
Log:
Add copy over missing method setidfrom from Embperl 2
Revision Changes Path
1.12 +15 -0 embperl/Embperl/Session.pm
Index: Session.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Session.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- Session.pm 2000/11/13 04:56:36 1.11
+++ Session.pm 2001/11/13 19:12:49 1.12
@@ -239,6 +239,11 @@
my $session_id = $self->{data}->{_session_id} ;
+ if (!$session_id && $self -> {idfrom})
+ {
+ $session_id = $self->{data}->{_session_id} = &{$self->{generate}}($self,
$self -> {idfrom}) ;
+ }
+
$self->{initial_session_id} ||= $session_id ;
$self->populate;
@@ -409,6 +414,16 @@
$self->{data}->{_session_id} = $self->{initial_session_id} = shift ;
}
+
+sub setidfrom {
+ my $self = shift;
+
+ $self->{'status'} = 0 ;
+ $self->{data}->{_session_id} = $self->{initial_session_id} = undef ;
+ $self->{idfrom} = shift ;
+
+}
+
sub getid {
my $self = shift;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
