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

version 1.6, 2003/09/15 09:26:17 version 1.7, 2004/06/01 10:06:52
Line 96  Creates a new transaction object. Line 96  Creates a new transaction object.
   
   
 sub new {  sub new {
     my $class       = shift;  
     my $Transaction = shift;      my ($class, $Transaction) = @_;
   
           
     my $self   = {request     => $Transaction,      my $self   = {request     => $Transaction,
Line 126  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 178  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->{DeferredFile} = $File;      $self->{DeferredFile} = $File;
Line 204  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; 

Removed from v.1.6  
changed lines
  Added in v.1.7


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