loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.35, 2003/09/03 23:15:27
+version 1.36, 2003/09/08 21:55:46
  Line 98  sub writefile {
  					  'output',$which);
  }
+ # ===================================================================== Rewrite
+ sub rewritefile {
+     my ($contents,%rewritehash)=@_;
+     foreach (keys %rewritehash) {
+ 	my $pattern=$_;
+ 	$pattern=~s/(\W)/\\$1/gs;
+ 	my $new=$rewritehash{$_};
+ 	$contents=~s/$pattern/$new/gs;
+     }
+     return $contents;
+ }
  # ============================================================= Copy a userfile
  sub copyfile {
      my ($origcrsid,$newcrsid,$which)=@_;
-     return &writefile($newcrsid,$which,&readfile($origcrsid,$which));
+     unless ($which=~/\.sequence$/) {
+ 	return &writefile($newcrsid,$which,
+ 		      &readfile($origcrsid,$which));
+     } else {
+ 	my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
+ 	my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
+ 	return &writefile($newcrsid,$which,
+ 		 &rewritefile(
+                      &readfile($origcrsid,$which),
+ 	    (
+        '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
+     => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'
+             )));
+     }
  }
  # =============================================================== Copy a dbfile