[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm
raeburn
raeburn@source.lon-capa.org
Mon, 05 Jan 2009 20:04:40 -0000
raeburn Mon Jan 5 20:04:40 2009 EDT
Modified files:
/loncom/interface lonmsg.pm
Log:
- Args to loncommon::getlangs() were reversed.
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.220 loncom/interface/lonmsg.pm:1.221
--- loncom/interface/lonmsg.pm:1.220 Sun Jan 4 16:20:27 2009
+++ loncom/interface/lonmsg.pm Mon Jan 5 20:04:40 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.220 2009/01/04 16:20:27 raeburn Exp $
+# $Id: lonmsg.pm,v 1.221 2009/01/05 20:04:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1032,9 +1032,9 @@
@userlangs=(@userlangs,split(/\s*(\,|\;|\:)\s*/,
$env{'course.'.$fromcid.'.languages'}));
} else {
- my %langhash = &Apache::loncommon::getlangs($toudom,$touname);
+ my %langhash = &Apache::loncommon::getlangs($touname,$toudom);
if ($langhash{'languages'} ne '') {
- @userlangs = split(/\s*(\,|\;|\:)\s*/,$langhash{'languages'});
+ @userlangs = split(/\s*(\,|\;|\:)\s*/,$langhash{'languages'});
} else {
my %domdefs = &Apache::lonnet::get_domain_defaults($toudom);
if ($domdefs{'lang_def'} ne '') {