[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.317.2.2 and 1.318

version 1.317.2.2, 2003/03/14 21:45:20 version 1.318, 2003/01/13 21:52:11
Line 1744  sub dump { Line 1744  sub dump {
    return %returnhash;     return %returnhash;
 }  }
   
   # --------------------------------------------------------------- dumpcurrent
   sub dumpcurrent {
      my ($namespace,$udomain,$uname)=@_;
      if (!$udomain) { $udomain = $ENV{'user.domain'}; }
      if (!$uname)   { $uname   = $ENV{'user.name'};   }
      my $uhome = &homeserver($uname,$udomain);
      my $rep=reply("dumpcurrent:$udomain:$uname:$namespace",$uhome);
      &logthis("error = ".$rep) if ($rep =~ /^(error|no_such_host)/);
      return if ($rep =~ /^(error:|no_such_host)/);
      my @pairs=split(/\&/,$rep);
      my %returnhash=();
      foreach (@pairs) {
         my ($key,$value)=split(/=/,$_);
         my ($symb,$param) = split(/:/,$key);
         $returnhash{&unescape($symb)}->{&unescape($param)} = &unescape($value);
      }
      return %returnhash;
   }
   
 # --------------------------------------------------------------- put interface  # --------------------------------------------------------------- put interface
   
 sub put {  sub put {
Line 2766  sub EXT { Line 2785  sub EXT {
     } else {      } else {
  $courseid=$ENV{'request.course.id'};   $courseid=$ENV{'request.course.id'};
     }      }
   
     my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);      my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);
     my $rest;      my $rest;
     if (defined($therest[0])) {      if ($therest[0]) {
        $rest=join('.',@therest);         $rest=join('.',@therest);
     } else {      } else {
        $rest='';         $rest='';
     }      }
   
     my $qualifierrest=$qualifier;      my $qualifierrest=$qualifier;
     if ($rest) { $qualifierrest.='.'.$rest; }      if ($rest) { $qualifierrest.='.'.$rest; }
     my $spacequalifierrest=$space;      my $spacequalifierrest=$space;
Line 3032  sub metadata { Line 3051  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; }  
                       $metathesekeys{$unikey}=1;                        $metathesekeys{$unikey}=1;
                       $metacache{$uri.':'.$unikey.'.part'}=$part;                        $metacache{$uri.':'.$unikey.'.part'}=$part;
                       unless                         unless 
Removed from v.1.317.2.2  
changed lines
  Added in v.1.318

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