[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.1013 and 1.1015

version 1.1013, 2009/08/11 01:39:44 version 1.1015, 2009/08/14 17:35:08
Line 6529  sub is_course { Line 6529  sub is_course {
     return 0;      return 0;
 }  }
   
 sub store_coursereq {  sub store_userdata {
     my ($requestkey,$storehash) = @_;      my ($storehash,$datakey,$namespace,$udom,$uname) = @_;
     my $result;      my $result;
     if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {      if $datakey ne '') {
         if (ref($storehash) eq 'HASH') {          if (ref($storehash) eq 'HASH') {
             my $namespace = 'courserequests';  
             my $uhome=&homeserver();              my $uhome=&homeserver();
             if (($uhome eq '') || ($uhome eq 'no_host')) {              if (($uhome eq '') || ($uhome eq 'no_host')) {
                 $result = 'error: no_host';                  $result = 'error: no_host';
Line 6548  sub store_coursereq { Line 6547  sub store_coursereq {
                 }                  }
                 $namevalue=~s/\&$//;                  $namevalue=~s/\&$//;
                 $result =  &reply("store:$env{'user.domain'}:$env{'user.name'}:".                  $result =  &reply("store:$env{'user.domain'}:$env{'user.name'}:".
                                   "$namespace:$requestkey:$namevalue",$uhome);                                    "$namespace:$datakey:$namevalue",$uhome);
             }              }
         } else {          } else {
             $result = 'error: data to store was not a hash reference';               $result = 'error: data to store was not a hash reference'; 
Line 8048  sub devalidate_title_cache { Line 8047  sub devalidate_title_cache {
     &devalidate_cache_new('title',$key);      &devalidate_cache_new('title',$key);
 }  }
   
   # ------------------------------------------------- Get the title of a course
   
   sub current_course_title {
       return $env{ 'course.' . $env{'request.course.id'} . '.description' };
   }
 # ------------------------------------------------- Get the title of a resource  # ------------------------------------------------- Get the title of a resource
   
 sub gettitle {  sub gettitle {
Removed from v.1.1013  
changed lines
  Added in v.1.1015

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