loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.514, 2015/01/03 02:43:05	version 1.516, 2015/06/14 00:43:51
Line 5410 sub crsreq_update_handler {	Line 5410 sub crsreq_update_handler {
$title,$code,$accessstart,$accessend,	$title,$code,$accessstart,$accessend,
$incoming,\%rtnhash);	$incoming,\%rtnhash);
if ($outcome eq 'ok') {	if ($outcome eq 'ok') {
my @posskeys = qw(createdweb createdmsg queuedweb queuedmsg formitems reviewweb);	my @posskeys = qw(createdweb createdmsg createdcustomized createdactions queuedweb queuedmsg formitems reviewweb validationjs onload javascript);
foreach my $key (keys(%rtnhash)) {	foreach my $key (keys(%rtnhash)) {
if (grep(/^\Q$key\E/,@posskeys)) {	if (grep(/^\Q$key\E/,@posskeys)) {
$result .= &escape($key).'='.&Apache::lonnet::freeze_escape($rtnhash{$key}).'&';	$result .= &escape($key).'='.&Apache::lonnet::freeze_escape($rtnhash{$key}).'&';
Line 6691 sub make_new_child {	Line 6691 sub make_new_child {
#	#
# If the remote is attempting a local init... give that a try:	# If the remote is attempting a local init... give that a try:
#	#
logthis("remotereq: $remotereq");
(my $i, my $inittype, $clientversion) = split(/:/, $remotereq);	(my $i, my $inittype, $clientversion) = split(/:/, $remotereq);
# For LON-CAPA 2.9, the client session will have sent its LON-CAPA	# For LON-CAPA 2.9, the client session will have sent its LON-CAPA
# version when initiating the connection. For LON-CAPA 2.8 and older,	# version when initiating the connection. For LON-CAPA 2.8 and older,