|
version 1.10, 2006/10/18 14:07:47
|
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) { |
| $handle=$lonid->value; |
$handle=&LONCAPA::clean_handle($lonid->value); |
| $handle=~s/\W//g; |
|
| } |
} |
| 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 632 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 644 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'}})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to coursecatalog.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface