loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.178.2.6, 2004/03/02 11:33:03	version 1.178.2.7, 2004/03/08 21:54:05
Line 1360 sub IncrementUserValueHandler {	Line 1360 sub IncrementUserValueHandler {
my $cmd = shift;	my $cmd = shift;
my $tail = shift;	my $tail = shift;
my $client = shift;	my $client = shift;
my $userinput = shift;	my $userinput = "$cmd:$tail";

my ($udom,$uname,$namespace,$what) =split(/:/,$tail);	my ($udom,$uname,$namespace,$what) =split(/:/,$tail);
$namespace=~s/\//\_/g;	$namespace=~s/\//\_/g;
Line 1391 sub IncrementUserValueHandler {	Line 1391 sub IncrementUserValueHandler {
Reply( $client, "ok\n", $userinput);	Reply( $client, "ok\n", $userinput);
} else {	} else {
Failure($client, "error: ".($!+0)." untie(GDBM) failed ".	Failure($client, "error: ".($!+0)." untie(GDBM) failed ".
"while attempting put\n", $userinput);	"while attempting inc\n", $userinput);
}	}
} else {	} else {
Failure($client, "error: ".($!+0)." tie(GDBM) Failed ".	Failure($client, "error: ".($!+0)." tie(GDBM) Failed ".
"while attempting put\n", $userinput);	"while attempting inc\n", $userinput);
}	}
} else {	} else {
Failure($client, "refused\n", $userinput);	Failure($client, "refused\n", $userinput);