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

[foxr]

foxr		Tue Jun  1 06:06:53 2004 EDT

  Modified files:              
    /loncom	LondTransaction.pm 
  Log:
  Receive parameters via @_ when number > 1 as per standard.
  
  
Index: loncom/LondTransaction.pm
diff -u loncom/LondTransaction.pm:1.6 loncom/LondTransaction.pm:1.7
--- loncom/LondTransaction.pm:1.6	Mon Sep 15 05:26:17 2003
+++ loncom/LondTransaction.pm	Tue Jun  1 06:06:52 2004
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondTransaction.pm,v 1.6 2003/09/15 09:26:17 foxr Exp $
+# $Id: LondTransaction.pm,v 1.7 2004/06/01 10:06:52 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -96,8 +96,8 @@
 
 
 sub new {
-    my $class       = shift;
-    my $Transaction = shift;
+
+    my ($class, $Transaction) = @_;
 
     
     my $self   = {request     => $Transaction,
@@ -126,8 +126,10 @@
 
 =cut
 sub Activate {
-    my $self       = shift;
-    my $Connection = shift;	# Reference to a lond connection.
+
+
+    my ($self, $Connection) = @_;
+
 
     $self->{londSocket} = $Connection; # Store the connection object and
     $self->{active}     = 1;	       # Indicate it's active.
@@ -178,8 +180,9 @@
 
 =cut
 sub SetDeferred {
-    my $self   = shift;
-    my $File   = shift;
+
+
+    my ($self, $File) = @_;
 
     $self->{deferred}      = 1;
     $self->{DeferredFile} = $File;
@@ -204,8 +207,8 @@
 
 =cut
 sub SetClient {
-    my $self   = shift;
-    my $Client = shift;
+
+    my ($self, $Client) = @_;
     
     $self->{deferred}     = 0;
     $self->{clientSocket} = $Client;