[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: www <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2003-12-29 21:21:39
Message-ID: cvswww1072732899 () cvsserver
[Download RAW message or body]
www Mon Dec 29 16:21:39 2003 EDT
Modified files:
/loncom/interface lonmsg.pm
Log:
Rollback to 1.70 in order to really fix the bug.
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.71 loncom/interface/lonmsg.pm:1.72
--- loncom/interface/lonmsg.pm:1.71 Fri Dec 5 17:14:15 2003
+++ loncom/interface/lonmsg.pm Mon Dec 29 16:21:39 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.71 2003/12/05 22:14:15 albertel Exp $
+# $Id: lonmsg.pm,v 1.72 2003/12/29 21:21:39 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -270,22 +270,16 @@
my ($filename,$message)=@_;
unless ($message) { return 'empty'; }
$filename=&Apache::lonnet::declutter($filename);
- my ($domain,$author)=split(/\//,$filename);
+ my ($domain,$author,@dummy)=split(/\//,$filename);
my $homeserver=&Apache::lonnet::homeserver($author,$domain);
if ($homeserver ne 'no_host') {
my $id=unpack("%32C*",$message);
my $msgid;
- ($msgid,$message)=&packagemsg("Error: [$filename]",$message);
- #FIXME this should be nohist_res_msg, we need to provide an interface
- # to this hash BUG#2444
- #return &Apache::lonnet::reply('put:'.$domain.':'.$author.
- # ':nohist_res_msg:'.
- # &Apache::lonnet::escape($filename.'_'.$id).'='.
- # &Apache::lonnet::escape($message),$homeserver);
+ ($msgid,$message)=&packagemsg($filename,$message);
return &Apache::lonnet::reply('put:'.$domain.':'.$author.
- ':nohist_email:'.
- &Apache::lonnet::escape($msgid).'='.
- &Apache::lonnet::escape($message),$homeserver);
+ ':nohist_res_msgs:'.
+ &Apache::lonnet::escape($filename.'_'.$id).'='.
+ &Apache::lonnet::escape($message),$homeserver);
}
return 'no_host';
}
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic