loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.831, 2009/05/28 15:19:54
+version 1.832, 2009/05/28 16:54:29
  Line 4183  sub designparm {
  ##############################################
  =pod
+ =item * &authorspace()
+ Inputs: ./.
+ Returns: Path to the Construction Space of the current user's
+          accessed author space
+          The author space will be that of the current user
+          when accessing the own author space
+          and that of the co-author/assistent co-author
+          when accessing the co-author's/assistent co-author's
+          space
+ =cut
+ sub authorspace {
+     my $caname = '';
+     if ($env{'request.role'} =~ /^ca|^aa/) {
+         (undef,$caname) =
+             ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
+     } else {
+         $caname = $env{'user.name'};
+     }
+     return '/priv/'.$caname.'/';
+ }
+ ##############################################
+ =pod
  =item * &head_subbox()
  Inputs: $content (contains HTML code with page functions, etc.)