--- loncom/LondTransaction.pm	2003/05/13 01:01:49	1.3
+++ loncom/LondTransaction.pm	2003/06/11 02:04:35	1.5
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondTransaction.pm,v 1.3 2003/05/13 01:01:49 foxr Exp $
+# $Id: LondTransaction.pm,v 1.5 2003/06/11 02:04:35 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -100,6 +100,7 @@ sub new {
 		  active      => 0,
 		  deferred    => 0};
     bless($self, $class);
+    return $self;
 }
 =pod
 
@@ -177,7 +178,7 @@ sub SetDeferred {
     my $File   = shift;
 
     $self->{deferred}      = 1;
-    $self->{DeferrredFile} = $File;
+    $self->{DeferredFile} = $File;
 }
 
 =pod
@@ -208,33 +209,6 @@ sub SetClient {
 
 =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
 
 
@@ -325,3 +299,4 @@ sub getRequest {
 }
 
 
+1;