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

Diff for /loncom/LondTransaction.pm between versions 1.8 and 1.9

version 1.8, 2005/06/16 22:33:45 version 1.9, 2005/06/16 22:59:05
Line 40  use strict; Line 40  use strict;
 package LondTransaction;  package LondTransaction;
   
 =pod  =pod
   
 =head1 Description  =head1 Description
   
 LondTransaction objects hold the state required to manage a   LondTransaction objects hold the state required to manage a 
Line 93  Creates a new transaction object. Line 94  Creates a new transaction object.
   
 =cut  =cut
   
   
   
 sub new {  sub new {
   
     my ($class, $Transaction) = @_;      my ($class, $Transaction) = @_;
Line 106  sub new { Line 105  sub new {
     bless($self, $class);      bless($self, $class);
     return $self;      return $self;
 }  }
   
 =pod  =pod
   
 =item Activate  =item Activate
Line 125  will be carried. Line 125  will be carried.
 =back   =back 
   
 =cut  =cut
   
 sub Activate {  sub Activate {
   
   
Line 146  transaction is deferred, the deferred fi Line 147  transaction is deferred, the deferred fi
 Otherwise this is a noop.  Otherwise this is a noop.
   
 =cut  =cut
   
 sub Retire {  sub Retire {
     my $self     = shift;      my $self     = shift;
   
Line 179  Name of the file that holds the deferred Line 181  Name of the file that holds the deferred
 =back   =back 
   
 =cut  =cut
   
 sub SetDeferred {  sub SetDeferred {
   
   
Line 206  Parameters: Line 209  Parameters:
 =back  =back
   
 =cut  =cut
   
 sub SetClient {  sub SetClient {
   
     my ($self, $Client) = @_;      my ($self, $Client) = @_;
Line 224  sub SetClient { Line 228  sub SetClient {
 Returns the state of the deferred member.  Returns the state of the deferred member.
   
 =cut  =cut
   
 sub isDeferred {  sub isDeferred {
     my $self   = shift;      my $self   = shift;
     return $self->{deferred};      return $self->{deferred};
Line 236  sub isDeferred { Line 241  sub isDeferred {
 Returns the value of the active member.  Returns the value of the active member.
   
 =cut  =cut
   
 sub isActive {  sub isActive {
     my $self = shift;      my $self = shift;
     return $self->{active};      return $self->{active};
Line 248  sub isActive { Line 254  sub isActive {
 If not deferred returns the client socket, else returns undef.  If not deferred returns the client socket, else returns undef.
   
 =cut  =cut
   
 sub getClient {  sub getClient {
     my $self = shift;      my $self = shift;
     if($self->{deferred}) {      if($self->{deferred}) {
Line 266  If deferred, returns the name of the def Line 273  If deferred, returns the name of the def
 returns undef.  returns undef.
   
 =cut  =cut
   
 sub getFile {  sub getFile {
     my $self = shift;      my $self = shift;
     if($self->{deferred}) {      if($self->{deferred}) {
Line 283  sub getFile { Line 291  sub getFile {
   If active returns the lond server socket else undef.    If active returns the lond server socket else undef.
   
 =cut  =cut
   
 sub getServer {  sub getServer {
     my $self  = shift;      my $self  = shift;
   
Removed from v.1.8  
changed lines
  Added in v.1.9

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