loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.390, 2007/11/12 22:54:42	version 1.392, 2008/01/03 20:42:28
Line 3312 sub put_course_id_handler {	Line 3312 sub put_course_id_handler {
my @new_items = split(/:/,$courseinfo,-1);	my @new_items = split(/:/,$courseinfo,-1);
my %storehash;	my %storehash;
for (my $i=0; $i<@new_items; $i++) {	for (my $i=0; $i<@new_items; $i++) {
$storehash{$items[$i]} = $new_items[$i];	$storehash{$items[$i]} = &unescape($new_items[$i]);
}	}
$hashref->{$key} =	$hashref->{$key} =
&Apache::lonnet::freeze_escape(\%storehash);	&Apache::lonnet::freeze_escape(\%storehash);
Line 4455 sub validate_class_access_handler {	Line 4455 sub validate_class_access_handler {
my ($cmd, $tail, $client) = @_;	my ($cmd, $tail, $client) = @_;
my $userinput = "$cmd:$tail";	my $userinput = "$cmd:$tail";
my ($inst_class,$ownerlist,$cdom) = split(/:/, $tail);	my ($inst_class,$ownerlist,$cdom) = split(/:/, $tail);
my @owners = split(/,/,&unescape($ownerlist));	my $owners = &unescape($ownerlist);
my $outcome;	my $outcome;
eval {	eval {
local($SIG{__DIE__})='DEFAULT';	local($SIG{__DIE__})='DEFAULT';
$outcome=&localenroll::check_section($inst_class,\@owners,$cdom);	$outcome=&localenroll::check_section($inst_class,$owners,$cdom);
};	};
&Reply($client,\$outcome, $userinput);	&Reply($client,\$outcome, $userinput);