[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.355 and 1.356

version 1.355, 2003/03/26 19:34:42 version 1.356, 2003/03/28 21:20:16
Line 3356  sub metadata { Line 3356  sub metadata {
  $value.=' [Part: '.$part.']';   $value.=' [Part: '.$part.']';
     }      }
     my $unikey='parameter'.$keyroot.'_'.$name;      my $unikey='parameter'.$keyroot.'_'.$name;
     if ($subp eq 'default') { $unikey='parameter_0_'.$name; }      if ($subp eq 'default') {
     $metathesekeys{$unikey}=1;   $unikey='parameter_0_'.$name;
     $metacache{$uri.':'.$unikey.'.part'}=$part;   $metacache{$uri.':'.$unikey.'.part'}='0';
       } else {
    $metacache{$uri.':'.$unikey.'.part'}=$part;
    $metathesekeys{$unikey}=1;
       }
     unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {      unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
  $metacache{$uri.':'.$unikey.'.'.$subp}=$value;   $metacache{$uri.':'.$unikey.'.'.$subp}=$value;
     }      }
     if (defined($metacache{$uri.':'.$unikey.'.default'})) {      if (defined($metacache{$uri.':'.$unikey.'.default'})) {
  $metacache{$uri.':'.$unikey}=   $metacache{$uri.':'.$unikey}=
     $metacache{$uri.':'.$unikey.'.default'}      $metacache{$uri.':'.$unikey.'.default'};
  }      }
  }   }
     }      }
  } else {   } else {
Line 3461  sub metadata_generate_part0 { Line 3465  sub metadata_generate_part0 {
  if ($metakey=~/^parameter\_(.*)/) {   if ($metakey=~/^parameter\_(.*)/) {
   my $part=$$metacache{$uri.':'.$metakey.'.part'};    my $part=$$metacache{$uri.':'.$metakey.'.part'};
   my $name=$$metacache{$uri.':'.$metakey.'.name'};    my $name=$$metacache{$uri.':'.$metakey.'.name'};
   if (! exists($$metadata{'parameter_0_'.$name})) {    if (! exists($$metadata{'parameter_0_'.$name.'.name'})) {
     $allnames{$name}=$part;      $allnames{$name}=$part;
   }    }
  }   }
Removed from v.1.355  
changed lines
  Added in v.1.356

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>