--- loncom/interface/loncommon.pm	2009/05/28 15:19:54	1.831
+++ loncom/interface/loncommon.pm	2009/05/28 19:38:34	1.833
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.831 2009/05/28 15:19:54 bisitz Exp $
+# $Id: loncommon.pm,v 1.833 2009/05/28 19:38:34 kalberla Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4183,6 +4183,34 @@ 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.)
@@ -5418,6 +5446,13 @@ 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{