loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2006/08/29 21:20:05	version 1.3, 2006/08/31 12:30:30
Line 415 sub get_valid_classes {	Line 415 sub get_valid_classes {
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::autovalidate_class_sec($cdom,$cnum,$owner,	if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
$class) eq 'ok') {	$class) eq 'ok') {
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {	if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {
push (@{$validations{'sections'}},$sec);	push (@{$validations{'sections'}},$sec);
$totalitems ++;	$totalitems ++;
Line 426 sub get_valid_classes {	Line 426 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::autovalidate_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'}})) {
push (@{$validations{'xlists'}},$item);	push (@{$validations{'xlists'}},$item);
$totalitems ++;	$totalitems ++;