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

raeburn raeburn@source.lon-capa.org
Fri, 27 May 2011 19:31:51 -0000


raeburn		Fri May 27 19:31:51 2011 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Backport 1.1006.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.948.2.27 loncom/interface/loncommon.pm:1.948.2.28
--- loncom/interface/loncommon.pm:1.948.2.27	Fri Mar  4 01:32:00 2011
+++ loncom/interface/loncommon.pm	Fri May 27 19:31:50 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.948.2.27 2011/03/04 01:32:00 raeburn Exp $
+# $Id: loncommon.pm,v 1.948.2.28 2011/05/27 19:31:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9028,7 +9028,7 @@
                 if ($allfiles{$ref}) {
                     my $newname =  $orig;
                     my ($attrib_regexp,$codebase);
-                    my $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i});
+                    $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i});
                     if ($attrib_regexp =~ /:/) {
                         $attrib_regexp =~ s/\:/|/g;
                     }
@@ -9037,7 +9037,7 @@
                         $count += $numchg;
                     }
                     if ($env{'form.embedded_codebase_'.$i} ne '') {
-                        my $codebase = &unescape($env{'form.embedded_codebase_'.$i});
+                        $codebase = &unescape($env{'form.embedded_codebase_'.$i});
                         my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs
                         $codebasecount ++;
                     }