[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[raeburn]

raeburn		Mon Mar 11 21:37:10 2013 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - Strip trailing ::::: from supplemental folder name when constructing
    folder hierarchy (edit mode for HTML files uploaded to supplemental content).
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.537 loncom/xml/lonxml.pm:1.538
--- loncom/xml/lonxml.pm:1.537	Fri Dec  7 17:16:01 2012
+++ loncom/xml/lonxml.pm	Mon Mar 11 21:37:10 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.537 2012/12/07 17:16:01 raeburn Exp $
+# $Id: lonxml.pm,v 1.538 2013/03/11 21:37:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1880,6 +1880,7 @@
             while (@folders) {
                 my $folder=shift(@folders);
                 my $foldername=shift(@folders);
+                $foldername =~ s/\:(\d*)\:(\w*)\:(\w*):(\d*)\:?(\d*)$//;
                 push(@pathitems,&unescape($foldername));
             }
             if ($title) {