version 1.340, 2006/08/29 21:08:08
|
version 1.341, 2006/08/31 13:00:50
|
Line 4200 sub validate_class_access_handler {
|
Line 4200 sub validate_class_access_handler {
|
my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
my ($inst_class,$courseowner,$cdom) = split(/:/, $tail); |
my ($inst_class,$courseowner,$cdom) = split(/:/, $tail); |
$courseowner = &unescape($courseowner); |
$courseowner = &unescape($courseowner); |
my $outcome=&localenroll::check_section($inst_class,$courseowner,$cdom); |
my $outcome; |
|
eval { |
|
local($SIG{__DIE__})='DEFAULT'; |
|
$outcome=&localenroll::check_section($inst_class,$courseowner,$cdom); |
|
}; |
&Reply($client,"$outcome\n", $userinput); |
&Reply($client,"$outcome\n", $userinput); |
|
|
return 1; |
return 1; |