loncom/LondTransaction.pm - diff

Return to LondTransaction.pm CVS log

Up to [LON-CAPA] / loncom

version 1.4, 2003/05/15 02:21:45	version 1.6, 2003/09/15 09:26:17
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 $class = shift;
my $Transaction = shift;	my $Transaction = shift;
Line 100 sub new {	Line 104 sub new {
active => 0,	active => 0,
deferred => 0};	deferred => 0};
bless($self, $class);	bless($self, $class);
	return $self;
}	}
=pod	=pod

Line 177 sub SetDeferred {	Line 182 sub SetDeferred {
my $File = shift;	my $File = shift;

$self->{deferred} = 1;	$self->{deferred} = 1;
$self->{DeferrredFile} = $File;	$self->{DeferredFile} = $File;
}	}

=pod	=pod
Line 298 sub getRequest {	Line 303 sub getRequest {
}	}


	1;