loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.459, 2003/12/12 00:20:08	version 1.459.2.1, 2004/01/15 19:43:07
Line 3792 sub packages_tab_default {	Line 3792 sub packages_tab_default {
foreach my $package (split(/,/,$packages)) {	foreach my $package (split(/,/,$packages)) {
my ($pack_type,$pack_part)=split(/_/,$package,2);	my ($pack_type,$pack_part)=split(/_/,$package,2);
if ($pack_part eq $part) {	if ($pack_part eq $part) {
return $packagetab{"$pack_type&$name&default"};	if (defined($packagetab{"$pack_type&$name&default"})) {
	return $packagetab{"$pack_type&$name&default"};
	}
}	}
}	}
return undef;	return undef;