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.833, 2009/05/28 19:38:34
  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.)
- Line 5418  div.LC_feedback_link {
+ Line 5446  div.LC_feedback_link {
    width: 100%;
    padding-bottom: 10px;
    border: 1px $tabbg solid;
+   height: 22px;
+   line-height: 22px;
+   padding-top: 5px;
+ }
+ div.LC_feedback_link img {
+   height: 22px;
  }
  div.LC_feedback_link a{