[LON-CAPA-cvs] cvs: loncom /imspackages imsprocessor.pm

[www]

www		Mon Oct 24 23:41:53 2011 EDT

  Modified files:              
    /loncom/imspackages	imsprocessor.pm 
  Log:
  Bug #1320
  
  
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.48 loncom/imspackages/imsprocessor.pm:1.49
--- loncom/imspackages/imsprocessor.pm:1.48	Mon Aug 17 03:52:09 2009
+++ loncom/imspackages/imsprocessor.pm	Mon Oct 24 23:41:52 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Processor for IMS Packages
 #
-# $Id: imsprocessor.pm,v 1.48 2009/08/17 03:52:09 raeburn Exp $
+# $Id: imsprocessor.pm,v 1.49 2011/10/24 23:41:52 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -680,7 +680,7 @@
             }
             my $destresdir = $destdir;
             if ($context eq 'CSTR') {
-                $destresdir =~ s|/home/$uname/public_html/|/res/$udom/$uname/|;
+                $destresdir =~ s|/home/httpd/html/priv/|/res/|;
             } elsif ($context eq 'DOCS') {
                 $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;
             }
@@ -3218,7 +3218,7 @@
     }
     my $destresdir = $destdir;
     if ($context eq 'CSTR') {
-        $destresdir =~ s|/home/$uname/public_html/|/res/$udom/$uname/|;
+        $destresdir =~ s|/home/httpd/html/priv/|/res/|;
     } elsif ($context eq 'DOCS') {
         $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;
     }
@@ -4980,7 +4980,7 @@
     my $xmlfile = $docroot.'/'.$res.".dat";
     my $destresdir = $destdir;
     if ($context eq 'CSTR') {
-        $destresdir =~ s|/home/$user/public_html/|/res/$dom/$user/|;
+        $destresdir =~ s|/home/httpd/html/priv/|/res/|;
     } elsif ($context eq 'DOCS') {
         $destresdir =~ s|^/home/httpd/html/userfiles|/uploaded|;
     }