loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1369, 2018/03/27 04:36:11	version 1.1370, 2018/03/30 18:07:47
Line 11928 sub metadata {	Line 11928 sub metadata {
# Check metadata for imported file to	# Check metadata for imported file to
# see if it contained response items	# see if it contained response items
#	#
	my %currmetaentry = %metaentry;
my $libresponseorder = &metadata($location,'responseorder');	my $libresponseorder = &metadata($location,'responseorder');
my $origfile;	my $origfile;
if ($libresponseorder ne '') {	if ($libresponseorder ne '') {
Line 11947 sub metadata {	Line 11948 sub metadata {
}	}
}	}
}	}
	# Do not overwrite contents of %metaentry hash for resource itself with
	# hash populated for imported library file
	%metaentry = %currmetaentry;
	undef(%currmetaentry);
if ($importmode eq 'problem') {	if ($importmode eq 'problem') {
# Import as problem/response	# Import as problem/response
$unikey=&add_prefix_and_part($prefix,$token->[2]->{'part'});	$unikey=&add_prefix_and_part($prefix,$token->[2]->{'part'});