[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom(version_2_11_X) / lond
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2014-04-30 23:16:03
Message-ID: cvsraeburn1398899763 () cvsserver
[Download RAW message or body]
raeburn Wed Apr 30 23:16:03 2014 EDT
Modified files: (Branch: version_2_11_X)
/loncom lond
Log:
- For 2.11
- Backport 1.509
Index: loncom/lond
diff -u loncom/lond:1.489.2.13 loncom/lond:1.489.2.14
--- loncom/lond:1.489.2.13 Wed Apr 16 16:18:24 2014
+++ loncom/lond Wed Apr 30 23:16:03 2014
@@ -2,7 +2,7 @@
# The LearningOnline Network
# lond "LON Daemon" Server (port "LOND" 5663)
#
-# $Id: lond,v 1.489.2.13 2014/04/16 16:18:24 raeburn Exp $
+# $Id: lond,v 1.489.2.14 2014/04/30 23:16:03 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -61,7 +61,7 @@
my $status='';
my $lastlog='';
-my $VERSION='$Revision: 1.489.2.13 $'; #' stupid emacs
+my $VERSION='$Revision: 1.489.2.14 $'; #' stupid emacs
my $remoteVERSION;
my $currenthostid="default";
my $currentdomainid;
@@ -5299,7 +5299,8 @@
sub crsreq_update_handler {
my ($cmd, $tail, $client) = @_;
my $userinput = "$cmd:$tail";
- my ($cdom,$cnum,$crstype,$action,$ownername,$ownerdomain,$fullname,$title,$code,$infohashref) =
+ my ($cdom,$cnum,$crstype,$action,$ownername,$ownerdomain,$fullname,$title,$code,
+ $accessstart,$accessend,$infohashref) =
split(/:/, $tail);
$crstype = &unescape($crstype);
$action = &unescape($action);
@@ -5308,6 +5309,8 @@
$fullname = &unescape($fullname);
$title = &unescape($title);
$code = &unescape($code);
+ $accessstart = &unescape($accessstart);
+ $accessend = &unescape($accessend);
my $incoming = &Apache::lonnet::thaw_unescape($infohashref);
my ($result,$outcome);
eval {
@@ -5315,7 +5318,8 @@
my %rtnhash;
$outcome = &localenroll::crsreq_updates($cdom,$cnum,$crstype,$action,
$ownername,$ownerdomain,$fullname,
- $title,$code,$incoming,\%rtnhash);
+ $title,$code,$accessstart,$accessend,
+ $incoming,\%rtnhash);
if ($outcome eq 'ok') {
my @posskeys = qw(createdweb createdmsg queuedweb queuedmsg formitems reviewweb);
foreach my $key (keys(%rtnhash)) {
_______________________________________________
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