[LON-CAPA-cvs] cvs: loncom / LondTransaction.pm

foxr lon-capa-cvs@mail.lon-capa.org
Thu, 15 May 2003 02:21:45 -0000


foxr		Wed May 14 22:21:45 2003 EDT

  Modified files:              
    /loncom	LondTransaction.pm 
  Log:
  Don't need any stuff to keep track of sending the transaction... that's done
  by LondConnection.
  
  
Index: loncom/LondTransaction.pm
diff -u loncom/LondTransaction.pm:1.3 loncom/LondTransaction.pm:1.4
--- loncom/LondTransaction.pm:1.3	Mon May 12 21:01:49 2003
+++ loncom/LondTransaction.pm	Wed May 14 22:21:45 2003
@@ -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.4 2003/05/15 02:21:45 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -205,33 +205,6 @@
     $self->{deferred}     = 0;
     $self->{clientSocket} = $Client; 
 }
-
-=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