loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.630, 2005/04/29 18:38:13
+version 1.631, 2005/05/02 23:34:43
  Line 2614  sub put {
     return &reply("put:$udomain:$uname:$namespace:$items",$uhome);
  }
- # ---------------------------------------------------------- putstore interface
+ # ------------------------------------------------------------ newput interface
+ sub newput {
+    my ($namespace,$storehash,$udomain,$uname)=@_;
+    if (!$udomain) { $udomain=$env{'user.domain'}; }
+    if (!$uname) { $uname=$env{'user.name'}; }
+    my $uhome=&homeserver($uname,$udomain);
+    my $items='';
+    foreach my $key (keys(%$storehash)) {
+        $items.=&escape($key).'='.&freeze_escape($$storehash{$key}).'&';
+    }
+    $items=~s/\&$//;
+    return &reply("newput:$udomain:$uname:$namespace:$items",$uhome);
+ }
+ # ---------------------------------------------------------  putstore interface
  sub putstore {
     my ($namespace,$storehash,$udomain,$uname)=@_;
     if (!$udomain) { $udomain=$env{'user.domain'}; }
- Line 6178  revokecustomrole($udom,$uname,$url,$role
+ Line 6193  revokecustomrole($udom,$uname,$url,$role
  =item *
- coursedescription($courseid) : course description
+ coursedescription($courseid) : returns a hash of information about the
+ specified course id, including all environment settings for the
+ course, the description of the course will be in the hash under the
+ key 'description'
  =item *