loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.534, 2013/06/27 18:12:22	version 1.535, 2013/06/27 18:22:07
Line 4709 sub oldversion_warning {	Line 4709 sub oldversion_warning {
);	);
if (exists($stringtypes{$name})) {	if (exists($stringtypes{$name})) {
if ($name eq 'examcode') {	if ($name eq 'examcode') {
	$desc = $value;
} elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {	} elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {	foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {
next unless (ref($possibilities) eq 'ARRAY');	next unless (ref($possibilities) eq 'ARRAY');