--- loncom/lond 2006/02/07 05:08:27 1.317 +++ loncom/lond 2006/02/08 17:11:46 1.319 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.317 2006/02/07 05:08:27 raeburn Exp $ +# $Id: lond,v 1.319 2006/02/08 17:11:46 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -61,7 +61,7 @@ my $status=''; my $lastlog=''; my $lond_max_wait_time = 13; -my $VERSION='$Revision: 1.317 $'; #' stupid emacs +my $VERSION='$Revision: 1.319 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -4349,9 +4349,9 @@ sub photo_permission_handler { my $cdom = $tail; my ($perm_reqd,$conditions); my $outcome = &localenroll::photo_permission($cdom,\$perm_reqd, - \$conditions); + \$conditions); &Reply($client, &escape($outcome.':'.$perm_reqd.':'. $conditions)."\n", - $userinput); + $userinput); } ®ister_handler("autophotopermission",\&photo_permission_handler,0,1,0); @@ -5146,7 +5146,7 @@ sub sub_sql_reply { Type => SOCK_STREAM, Timeout => 10) or return "con_lost"; - print $sclient "$cmd\n"; + print $sclient "$cmd:$currentdomainid\n"; my $answer=<$sclient>; chomp($answer); if (!$answer) { $answer="con_lost"; }