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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.36 and 1.38

version 1.36, 2003/09/08 21:55:46 version 1.38, 2003/09/21 21:40:06
Line 47  use Apache::lonnet; Line 47  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonratedt;  use Apache::lonratedt;
 use Apache::londocs;  use Apache::londocs;
   use Apache::lonlocal;
   
 # -------------------------------------------- Return path to profile directory  # -------------------------------------------- Return path to profile directory
   
Line 175  sub copyresourcedb { Line 176  sub copyresourcedb {
     delete $data{$_};      delete $data{$_};
  }   }
     }      }
   # adjust symbs
       my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
       $pattern=~s/(\W)/\\$1/gs;
       my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
       foreach (keys %data) {
    if ($_=~/$pattern/) {
       my $newkey=$_;
       $newkey=~s/$pattern/$new/;
       $data{$newkey}=$data{$_};
       delete $data{$_};
    }
       }
 # adjust dates  # adjust dates
     foreach (keys %data) {      foreach (keys %data) {
  my $thiskey=$_;   my $thiskey=$_;
Line 421  ENDENHEAD Line 434  ENDENHEAD
  } else {   } else {
     $r->print(      $r->print(
     '<br /><font color="green">Cloning course from '.$clonehome.'</font>');      '<br /><font color="green">Cloning course from '.$clonehome.'</font>');
       my %oldcenv=&Apache::lonnet::dump('environment',$crsudom,$crsunum);
 # Copy all files  # Copy all files
     &copycoursefiles($cloneid,$courseid);      &copycoursefiles($cloneid,$courseid);
   # Restore URL
       $cenv{'url'}=$oldcenv{'url'};
 # Restore title  # Restore title
     $cenv{'description'}=$cdescr;      $cenv{'description'}=$oldcenv{'description'};
   # Mark as cloned
     $cenv{'clonedfrom'}=$cloneid;      $cenv{'clonedfrom'}=$cloneid;
  }   }
     }      }
Line 526  sub handler { Line 543  sub handler {
     my $r = shift;      my $r = shift;
   
     if ($r->header_only) {      if ($r->header_only) {
        $r->content_type('text/html');         &Apache::loncommon::content_type($r,'text/html');
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
     }      }
   
     if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) {      if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) {
        $r->content_type('text/html');         &Apache::loncommon::content_type($r,'text/html');
        $r->send_http_header;         $r->send_http_header;
   
        if ($ENV{'form.phase'} eq 'two') {         if ($ENV{'form.phase'} eq 'two') {
Removed from v.1.36  
changed lines
  Added in v.1.38

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