[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2014-10-26 15:34:44
Message-ID: cvsraeburn1414337684 () cvsserver
[Download RAW message or body]

raeburn		Sun Oct 26 15:34:44 2014 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  - Coding style.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.235 loncom/interface/lonmsg.pm:1.236
--- loncom/interface/lonmsg.pm:1.235	Wed Jul 24 18:21:39 2013
+++ loncom/interface/lonmsg.pm	Sun Oct 26 15:34:44 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.235 2013/07/24 18:21:39 bisitz Exp $
+# $Id: lonmsg.pm,v 1.236 2014/10/26 15:34:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -901,7 +901,9 @@
 }
 
 sub process_sent_mail {
-    my ($msgsubj,$subj_prefix,$numsent,$stamp,$msgname,$msgdom,$msgcount,$context,$pi \
d,$savemsg,$recusers,$recudoms,$baseurl,$attachmenturl,$symb,$error,$senderuname,$senderdom,$recipid) \
= @_; +    my ($msgsubj,$subj_prefix,$numsent,$stamp,$msgname,$msgdom,$msgcount,
+        $context,$pid,$savemsg,$recusers,$recudoms,$baseurl,$attachmenturl,
+        $symb,$error,$senderuname,$senderdom,$recipid) = @_;
     my $sentsubj;
     if ($numsent > 1) {
         $sentsubj = $subj_prefix.' ('.$numsent.' sent) '.$msgsubj;


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]