[LON-CAPA-cvs] cvs: loncom /interface mydesk.tab /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sat Oct 31 23:37:00 2009 EDT

  Modified files:              
    /loncom/interface	mydesk.tab 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  -'bro' priv allows a user to browse author directories in /res space 
         for which the user is author or co-author.
    - match of trailing / in requested url optional
    - add item to Main Menu (displayed for "co" role in Community).  
  
  
Index: loncom/interface/mydesk.tab
diff -u loncom/interface/mydesk.tab:1.121 loncom/interface/mydesk.tab:1.122
--- loncom/interface/mydesk.tab:1.121	Thu Oct 29 16:15:57 2009
+++ loncom/interface/mydesk.tab	Sat Oct 31 23:36:50 2009
@@ -177,6 +177,7 @@
 6:1:course:any:pdfupload.gif:upload[_1]:pdf form[_1]:go('/pdfupload'):Upload a PDF Form with filled Form Fields:grd
 6:1:community:any:pdfupload.gif:upload[_1]:pdf form[_1]:go('/pdfupload'):Upload a PDF Form with filled Form Fields:grd
 6:2:clear
+6:2:pbro:/res/:res.gif:resource[_1]:space[_1]:go('/res/?launch=1');:Browse own authored or co-authored resources:cnt
 6:2:pbre:$requested_domain:res.gif:resource[_1]:space[_1]:go('/res/$udom/?launch=1');:Browse published resources:cnt
 6:2:author:rau:res.gif:resource[_1]:space[_1]:go('/res/$udom/$uname/?launch=1');:Browse published resources:cnt
 6:2:author:rca:res.gif:co res[_1]:space[_2]:go('/res/$udom/$uname/?launch=1');:Browse published resources:cnt
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1039 loncom/lonnet/perl/lonnet.pm:1.1040
--- loncom/lonnet/perl/lonnet.pm:1.1039	Sat Oct 31 21:38:00 2009
+++ loncom/lonnet/perl/lonnet.pm	Sat Oct 31 23:37:00 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1039 2009/10/31 21:38:00 raeburn Exp $
+# $Id: lonnet.pm,v 1.1040 2009/10/31 23:37:00 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5055,7 +5055,7 @@
                 my $uname = $env{'user.name'};
                 if ($uri =~ m{^\Q$udom\E/?$}) {
                     $ownaccess = 1;
-                } elsif ($uri =~ m{^\Q$udom/\E/$uname/}) {
+                } elsif ($uri =~ m{^\Q$udom\E/\Q$uname\E/?}) {
                     unless ($uri =~ m{\.\./}) {
                         $ownaccess = 1;
                     }