[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Mon Jan 21 02:12:52 2013 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Extract authoring space domain and username for CSTR breadcrumb trail
    if trailing / absent for a directory.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1112 loncom/interface/loncommon.pm:1.1113
--- loncom/interface/loncommon.pm:1.1112	Fri Jan 18 12:58:42 2013
+++ loncom/interface/loncommon.pm	Mon Jan 21 02:12:51 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1112 2013/01/18 12:58:42 bisitz Exp $
+# $Id: loncommon.pm,v 1.1113 2013/01/21 02:12:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4981,7 +4981,7 @@
 
     my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     my ($udom,$uname,$thisdisfn)=
-        ($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)/(.*)$});
+        ($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)(?:|/(.*))$});
     my $formaction = "/priv/$udom/$uname/$thisdisfn";
     $formaction =~ s{/+}{/}g;