[BACK]Return to LondTransaction.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/LondTransaction.pm between versions 1.4 and 1.7

version 1.4, 2003/05/15 02:21:45 version 1.7, 2004/06/01 10:06:52
Line 35 Line 35
   
 =cut  =cut
   
   use strict;
   
 package LondTransaction;  package LondTransaction;
   
 =pod  =pod
Line 91  Creates a new transaction object. Line 93  Creates a new transaction object.
   
 =cut  =cut
   
   
   
 sub new {  sub new {
     my $class       = shift;  
     my $Transaction = shift;      my ($class, $Transaction) = @_;
   
           
     my $self   = {request     => $Transaction,      my $self   = {request     => $Transaction,
   active      => 0,    active      => 0,
   deferred    => 0};    deferred    => 0};
     bless($self, $class);      bless($self, $class);
       return $self;
 }  }
 =pod  =pod
   
Line 121  will be carried. Line 126  will be carried.
   
 =cut  =cut
 sub Activate {  sub Activate {
     my $self       = shift;  
     my $Connection = shift; # Reference to a lond connection.  
       my ($self, $Connection) = @_;
   
   
     $self->{londSocket} = $Connection; # Store the connection object and      $self->{londSocket} = $Connection; # Store the connection object and
     $self->{active}     = 1;       # Indicate it's active.      $self->{active}     = 1;       # Indicate it's active.
Line 173  Name of the file that holds the deferred Line 180  Name of the file that holds the deferred
   
 =cut  =cut
 sub SetDeferred {  sub SetDeferred {
     my $self   = shift;  
     my $File   = shift;  
       my ($self, $File) = @_;
   
     $self->{deferred}      = 1;      $self->{deferred}      = 1;
     $self->{DeferrredFile} = $File;      $self->{DeferredFile} = $File;
 }  }
   
 =pod  =pod
Line 199  Parameters: Line 207  Parameters:
   
 =cut  =cut
 sub SetClient {  sub SetClient {
     my $self   = shift;  
     my $Client = shift;      my ($self, $Client) = @_;
           
     $self->{deferred}     = 0;      $self->{deferred}     = 0;
     $self->{clientSocket} = $Client;       $self->{clientSocket} = $Client; 
Line 298  sub getRequest { Line 306  sub getRequest {
 }  }
   
   
   1;
Removed from v.1.4  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>