[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 28 Mar 2003 21:20:16 -0000
albertel Fri Mar 28 16:20:16 2003 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- more correcter about handling generation of part 0 data for lonparmset
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.355 loncom/lonnet/perl/lonnet.pm:1.356
--- loncom/lonnet/perl/lonnet.pm:1.355 Wed Mar 26 14:34:42 2003
+++ loncom/lonnet/perl/lonnet.pm Fri Mar 28 16:20:16 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.355 2003/03/26 19:34:42 www Exp $
+# $Id: lonnet.pm,v 1.356 2003/03/28 21:20:16 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3356,16 +3356,20 @@
$value.=' [Part: '.$part.']';
}
my $unikey='parameter'.$keyroot.'_'.$name;
- if ($subp eq 'default') { $unikey='parameter_0_'.$name; }
- $metathesekeys{$unikey}=1;
- $metacache{$uri.':'.$unikey.'.part'}=$part;
+ if ($subp eq 'default') {
+ $unikey='parameter_0_'.$name;
+ $metacache{$uri.':'.$unikey.'.part'}='0';
+ } else {
+ $metacache{$uri.':'.$unikey.'.part'}=$part;
+ $metathesekeys{$unikey}=1;
+ }
unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
$metacache{$uri.':'.$unikey.'.'.$subp}=$value;
}
if (defined($metacache{$uri.':'.$unikey.'.default'})) {
$metacache{$uri.':'.$unikey}=
- $metacache{$uri.':'.$unikey.'.default'}
- }
+ $metacache{$uri.':'.$unikey.'.default'};
+ }
}
}
} else {
@@ -3461,7 +3465,7 @@
if ($metakey=~/^parameter\_(.*)/) {
my $part=$$metacache{$uri.':'.$metakey.'.part'};
my $name=$$metacache{$uri.':'.$metakey.'.name'};
- if (! exists($$metadata{'parameter_0_'.$name})) {
+ if (! exists($$metadata{'parameter_0_'.$name.'.name'})) {
$allnames{$name}=$part;
}
}