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

[raeburn]

raeburn		Tue Aug 20 01:51:51 2013 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Syllabus as uploaded HTML file.
    - uploaded HTML file with embedded objects has unwanted characters
    (e.g., spaces etc. from directory and/or file names) removed from
    path/name to referenced items; need to delete modified refs before
    changing relative paths to absolute paths (so public access works).
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1147 loncom/interface/loncommon.pm:1.1148
--- loncom/interface/loncommon.pm:1.1147	Mon Aug 19 00:31:54 2013
+++ loncom/interface/loncommon.pm	Tue Aug 20 01:51:50 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1147 2013/08/19 00:31:54 raeburn Exp $
+# $Id: loncommon.pm,v 1.1148 2013/08/20 01:51:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10691,6 +10691,7 @@
                         my $numchg = ($content =~ s{($attrib_regexp\s*=\s*['"]?)\Q$ref\E(['"]?)}{$1$newname$2}gi);
                         $count += $numchg;
                         $allfiles{$newname} = $allfiles{$ref};
+                        delete($allfiles{$ref});
                     }
                     if ($env{'form.embedded_codebase_'.$i} ne '') {
                         $codebase = &unescape($env{'form.embedded_codebase_'.$i});