[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2014-10-13 15:46:46
Message-ID: cvsraeburn1413215206 () cvsserver
[Download RAW message or body]
raeburn Mon Oct 13 15:46:46 2014 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- Re-enable CC access to discussion and message records for a selected student
in a course where session is hosted on course's homeserver.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1265 loncom/lonnet/perl/lonnet.pm:1.1266
--- loncom/lonnet/perl/lonnet.pm:1.1265 Tue Jul 29 05:49:32 2014
+++ loncom/lonnet/perl/lonnet.pm Mon Oct 13 15:46:45 2014
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.1265 2014/07/29 05:49:32 raeburn Exp $
+# $Id: lonnet.pm,v 1.1266 2014/10/13 15:46:45 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -5628,18 +5628,17 @@
if (!$uname) { $uname=$env{'user.name'}; }
my $uhome=&homeserver($uname,$udomain);
- my $reply;
+ if ($regexp) {
+ $regexp=&escape($regexp);
+ } else {
+ $regexp='.';
+ }
if (grep { $_ eq $uhome } current_machine_ids()) {
# user is hosted on this machine
- $reply = LONCAPA::Lond::dump_with_regexp(join(":", ($udomain,
+ my $reply = LONCAPA::Lond::dump_with_regexp(join(":", ($udomain,
$uname, $namespace, $regexp, $range)), $perlvar{'lonVersion'});
return %{unserialize($reply, $escapedkeys)};
}
- if ($regexp) {
- $regexp=&escape($regexp);
- } else {
- $regexp='.';
- }
my $rep=&reply("dump:$udomain:$uname:$namespace:$regexp:$range",$uhome);
my @pairs=split(/\&/,$rep);
my %returnhash=();
_______________________________________________
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]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic