[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[albertel]

albertel		Tue Jan 10 10:29:14 2006 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  - err actaully correcting the style
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.171 loncom/interface/lonmsg.pm:1.172
--- loncom/interface/lonmsg.pm:1.171	Mon Jan  9 21:11:17 2006
+++ loncom/interface/lonmsg.pm	Tue Jan 10 10:29:13 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.171 2006/01/10 02:11:17 banghart Exp $
+# $Id: lonmsg.pm,v 1.172 2006/01/10 15:29:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -296,8 +296,8 @@
     $msg->to($to);
     $msg->subject('[LON-CAPA] '.$subject);
     if (my $fh = $msg->open()) {
-	    print $fh $body;
-	    $fh->close;
+	print $fh $body;
+	$fh->close;
     }
 }
 
@@ -307,7 +307,7 @@
     my ($to,$touname,$toudom,$subj,$crit,$text)=@_;
     my $sender=$env{'environment.firstname'}.' '.$env{'environment.lastname'};
     unless ($sender=~/\w/) { 
-	    $sender=$env{'user.name'}.'@'.$env{'user.domain'};
+	$sender=$env{'user.name'}.'@'.$env{'user.domain'};
     }
     my $critical=($crit?' critical':'');
     $text=~s/\&lt\;/\</gs;
@@ -610,14 +610,16 @@
     my $msgforward=$userenv{'msgforward'};
     if ($msgforward) {
         foreach (split(/\,/,$msgforward)) {
-	        my ($forwuser,$forwdomain)=split(/\:/,$_);
-                $status.=
+	    my ($forwuser,$forwdomain)=split(/\:/,$_);
+	    $status.=
 	        &user_normal_msg_raw($forwuser,$forwdomain,$subject,$message,
-	        $citation,$baseurl,$attachmenturl,$toperm,undef,undef,$sentmessage).' ';
+				     $citation,$baseurl,$attachmenturl,$toperm,
+				     undef,undef,$sentmessage).' ';
         }
     } else { 
-	    $status=&user_normal_msg_raw($user,$domain,$subject,$message,
-	            $citation,$baseurl,$attachmenturl,$toperm,undef,undef,$sentmessage);
+	$status=&user_normal_msg_raw($user,$domain,$subject,$message,
+				     $citation,$baseurl,$attachmenturl,$toperm,
+				     undef,undef,$sentmessage);
     }
     return $status;
 }