loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.317, 2006/02/07 05:08:27	version 1.319, 2006/02/08 17:11:46
Line 4349 sub photo_permission_handler {	Line 4349 sub photo_permission_handler {
my $cdom = $tail;	my $cdom = $tail;
my ($perm_reqd,$conditions);	my ($perm_reqd,$conditions);
my $outcome = &localenroll::photo_permission($cdom,\$perm_reqd,	my $outcome = &localenroll::photo_permission($cdom,\$perm_reqd,
\$conditions);	\$conditions);
&Reply($client, &escape($outcome.':'.$perm_reqd.':'. $conditions)."\n",	&Reply($client, &escape($outcome.':'.$perm_reqd.':'. $conditions)."\n",
$userinput);	$userinput);
}	}
&register_handler("autophotopermission",\&photo_permission_handler,0,1,0);	&register_handler("autophotopermission",\&photo_permission_handler,0,1,0);

Line 5146 sub sub_sql_reply {	Line 5146 sub sub_sql_reply {
Type => SOCK_STREAM,	Type => SOCK_STREAM,
Timeout => 10)	Timeout => 10)
or return "con_lost";	or return "con_lost";
print $sclient "$cmd\n";	print $sclient "$cmd:$currentdomainid\n";
my $answer=<$sclient>;	my $answer=<$sclient>;
chomp($answer);	chomp($answer);
if (!$answer) { $answer="con_lost"; }	if (!$answer) { $answer="con_lost"; }