version 1.11, 2006/12/05 02:55:51
|
version 1.13, 2006/12/11 17:21:04
|
Line 47 sub handler {
|
Line 47 sub handler {
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $handle; |
my $handle; |
if ($lonid) { |
if ($lonid) { |
my $handle=&LONCAPA::clean_handle($lonid->value); |
$handle=&LONCAPA::clean_handle($lonid->value); |
} |
} |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
Line 631 sub get_valid_classes {
|
Line 631 sub get_valid_classes {
|
@{$validations{'xlists'}} = (); |
@{$validations{'xlists'}} = (); |
my $totalitems = 0; |
my $totalitems = 0; |
if ($seclist) { |
if ($seclist) { |
foreach my $sec (split(',',$seclist)) { |
foreach my $sec (split(/, /,$seclist)) { |
my $class = $crscode.$sec; |
my $class = $crscode.$sec; |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
$class) eq 'ok') { |
$class) eq 'ok') { |
Line 643 sub get_valid_classes {
|
Line 643 sub get_valid_classes {
|
} |
} |
} |
} |
if ($xlist_items) { |
if ($xlist_items) { |
foreach my $item (split(',',$xlist_items)) { |
foreach my $item (split(/, /,$xlist_items)) { |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
$item) eq 'ok') { |
$item) eq 'ok') { |
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) { |
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) { |