loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.28, 2003/08/30 14:36:24
+version 1.29, 2003/08/30 18:49:10
  Line 78  sub crsdirlist {
      return @output;
  }
+ # ============================================================= Read a userfile
+ sub readfile {
+     my ($courseid,$which)=@_;
+     my %crsdata=&Apache::lonnet::coursedescription($courseid);
+     return &Apache::lonnet::getfile('/uploaded/'.$crsdata{'domain'}.'/'.
+ 				    $crsdata{'num'}.'/'.$which);
+ }
+ # ============================================================ Write a userfile
+ sub writefile {
+     my ($courseid,$which,$data)=@_;
+     my %crsdata=&Apache::lonnet::coursedescription($courseid);
+     $ENV{'form.output'}=$data;
+     return &Apache::lonnet::finishuserfileupload(
+ 					  $crsdata{'num'},$crsdata{'domain'},
+ 					  $crsdata{'home'},
+ 					  'output',$which);
+ }
+ # ============================================================= Copy a userfile
+ sub copyfile {
+     my ($origcrsid,$newcrsid,$which)=@_;
+     return &writefile($newcrsid,$which,&readfile($origcrsid,$which));
+ }
  # ===================================================== Phase one: fill-in form
  sub print_course_creation_page {