[BACK]Return to loncreatecourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreatecourse.pm between versions 1.28 and 1.30

version 1.28, 2003/08/30 14:36:24 version 1.30, 2003/09/02 15:21:42
Line 78  sub crsdirlist { Line 78  sub crsdirlist {
     return @output;      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, my $which,$ENV{'form.output'})=@_;
       my %crsdata=&Apache::lonnet::coursedescription($courseid);
       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));
   }
   
   # =============================================================== Copy a dbfile
   
   sub copydb {
       my ($origcrsid,$newcrsid,$which)=@_;
       $which=~s/\.db$//;
       my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
       my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
       my %data=&Apache::lonnet::dump
    ($which,$origcrsdata{'domain'},$origcrsdata{'num'});
       return &Apache::lonnet::put
    ($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});
   }
   
   # ========================================================== Copy all userfiles
   
   sub copyuserfiles {
       my ($origcrsid,$newcrsid)=@_;
       foreach (&crsdirlist($origcrsid,'userfiles')) {
    &copyfile($origcrsid,$newcrsid,$_);
       }
   }
   # ========================================================== Copy all userfiles
   
   sub copydbfiles {
       my ($origcrsid,$newcrsid)=@_;
       foreach (&crsdirlist($origcrsid)) {
    if ($_=~/\.db$/) {
       unless 
                ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate)/) {
    &copydb($origcrsid,$newcrsid,$_);
        }
    }
       }
   }
   
 # ===================================================== Phase one: fill-in form  # ===================================================== Phase one: fill-in form
   
 sub print_course_creation_page {  sub print_course_creation_page {
Removed from v.1.28  
changed lines
  Added in v.1.30

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>