loncom/LondTransaction.pm - diff

Return to LondTransaction.pm CVS log

Up to [LON-CAPA] / loncom

version 1.3, 2003/05/13 01:01:49	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 208 sub SetClient {	Line 213 sub SetClient {

=pod	=pod

=item WroteSome

Called to indicate that some bytes were writtne to lond.
The request is trimmed by the number of bytes written.
If no bytes are left, nonzero is returned, else 0.

Parameters:

=over 3

=item Count

Number of bytes written

=back

=cut
sub WroteSome {
my $self = shift;
my $Count = shift;

substr($self->{request}, length($self->{request}), $Count);

return (length($self->{request]) == 0);

=pod

=head2 Selectors	=head2 Selectors


Line 325 sub getRequest {	Line 303 sub getRequest {
}	}


	1;