loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.166, 2001/10/16 21:16:01
+version 1.167, 2001/10/30 19:19:09
  Line 854  sub devalidate {
      }
  }
+ # -------------------------------------------------------------------Temp Store
+ sub tmpstore {
+     my ($storehash,$symb,$namespace,$domain,$stuname) = @_;
+     my $home='';
+     if ($stuname) {
+ 	$home=&homeserver($stuname,$domain);
+     }
+     if (!$symb) {
+       $symb=&symbread();
+       if (!$symb) {
+ 	$symb= $ENV{'request.url'};
+       }
+     }
+     $symb=escape($symb);
+     if (!$namespace) { unless ($namespace=$ENV{'request.course.id'}) { return ''; } }
+     if (!$domain) { $domain=$ENV{'user.domain'}; }
+     if (!$stuname) { $stuname=$ENV{'user.name'}; }
+     if (!$home) { $home=$ENV{'user.home'}; }
+     my $namevalue='';
+     map {
+         $namevalue.=escape($_).'='.escape($$storehash{$_}).'&';
+     } keys %$storehash;
+     $namevalue=~s/\&$//;
+ }
  # ----------------------------------------------------------------------- Store
  sub store {