Diff for /loncom/LondConnection.pm between versions 1.39 and 1.40

version 1.39, 2006/01/27 20:37:12 version 1.40, 2006/03/03 20:06:22
Line 738  sub InitiateTransaction { Line 738  sub InitiateTransaction {
   
     # Setup the trasaction      # Setup the trasaction
     # currently no version of lond supports inlining the sethost      # currently no version of lond supports inlining the sethost
     if ($self->PeerVersion() <= 10000000) {      if ($self->PeerVersion() <= 321) {
  if ($server ne $self->{LoncapaHim}) {   if ($server ne $self->{LoncapaHim}) {
     $self->{NextRequest}        = $data;      $self->{NextRequest}        = $data;
     $self->{TransactionRequest} = "$sethost:$server\n";      $self->{TransactionRequest} = "$sethost:$server\n";
Line 747  sub InitiateTransaction { Line 747  sub InitiateTransaction {
     $self->{TransactionRequest}        = $data;      $self->{TransactionRequest}        = $data;
  }   }
     } else {      } else {
    $self->{LoncapaHim}         = $server;
  $self->{TransactionRequest} = "$sethost:$server:$data";   $self->{TransactionRequest} = "$sethost:$server:$data";
     }      }
     $self->{TransactionReply}   = "";      $self->{TransactionReply}   = "";
Line 1257  sub read_hosts { Line 1258  sub read_hosts {
 #  #
 sub PeerVersion {  sub PeerVersion {
    my $self = shift;     my $self = shift;
    my ($version) = ($self->{LondVersion} =~ /Revision 1\.(\d+)/);     my ($version) = ($self->{LondVersion} =~ /Revision: 1\.(\d+)/);
    return $self->{LondVersion};     return $version;
 }  }
   
 1;  1;

Removed from v.1.39  
changed lines
  Added in v.1.40


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