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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.77 and 1.78

version 1.77, 2005/03/03 21:24:24 version 1.78, 2005/04/07 06:56:23
Line 86  sub readfile { Line 86  sub readfile {
 # ============================================================ Write a userfile  # ============================================================ Write a userfile
   
 sub writefile {  sub writefile {
     (my $courseid, my $which,$ENV{'form.output'})=@_;      (my $courseid, my $which,$env{'form.output'})=@_;
     my %crsdata=&Apache::lonnet::coursedescription($courseid);      my %crsdata=&Apache::lonnet::coursedescription($courseid);
     return &Apache::lonnet::finishuserfileupload(      return &Apache::lonnet::finishuserfileupload(
   $crsdata{'num'},$crsdata{'domain'},    $crsdata{'num'},$crsdata{'domain'},
Line 238  sub copycoursefiles { Line 238  sub copycoursefiles {
   
 sub print_course_creation_page {  sub print_course_creation_page {
     my $r=shift;      my $r=shift;
     my $defdom=$ENV{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my %host_servers = &Apache::loncommon::get_library_servers($defdom);      my %host_servers = &Apache::loncommon::get_library_servers($defdom);
     my $course_home = '<select name="course_home" size="1">'."\n";      my $course_home = '<select name="course_home" size="1">'."\n";
     foreach my $server (sort(keys(%host_servers))) {      foreach my $server (sort(keys(%host_servers))) {
Line 253  sub print_course_creation_page { Line 253  sub print_course_creation_page {
     my $bodytag=&Apache::loncommon::bodytag('Create a New Course');      my $bodytag=&Apache::loncommon::bodytag('Create a New Course');
     my $helplink=&Apache::loncommon::help_open_topic('Create_Course',&mt('Help on Creating Courses'));      my $helplink=&Apache::loncommon::help_open_topic('Create_Course',&mt('Help on Creating Courses'));
     my $cloneform=&Apache::loncommon::select_dom_form      my $cloneform=&Apache::loncommon::select_dom_form
  ($ENV{'request.role.domain'},'clonedomain').   ($env{'request.role.domain'},'clonedomain').
      &Apache::loncommon::selectcourse_link       &Apache::loncommon::selectcourse_link
      ('ccrs','clonecourse','clonedomain');       ('ccrs','clonecourse','clonedomain');
     my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript($ENV{'request.role.domain'});      my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'});
     my $starttime = time;      my $starttime = time;
     my $endtime = time+(6*30*24*60*60); # 6 months from now, approx      my $endtime = time+(6*30*24*60*60); # 6 months from now, approx
     my $enroll_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'create_enrolldates');      my $enroll_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'create_enrolldates');
Line 572  ENDDOCUMENT Line 572  ENDDOCUMENT
   
 sub create_course {  sub create_course {
     my $r=shift;      my $r=shift;
     my $ccuname=$ENV{'form.ccuname'};      my $ccuname=$env{'form.ccuname'};
     my $ccdomain=$ENV{'form.ccdomain'};      my $ccdomain=$env{'form.ccdomain'};
     $ccuname=~s/\W//g;      $ccuname=~s/\W//g;
     $ccdomain=~s/\W//g;      $ccdomain=~s/\W//g;
   
Line 585  sub create_course { Line 585  sub create_course {
     my $autharg;      my $autharg;
     my $authtype;      my $authtype;
   
     if ($ENV{'form.login'} eq 'krb') {      if ($env{'form.login'} eq 'krb') {
         $authtype = 'krb';          $authtype = 'krb';
         $authtype .=$ENV{'form.krbver'};          $authtype .=$env{'form.krbver'};
         $autharg = $ENV{'form.krbarg'};          $autharg = $env{'form.krbarg'};
     } elsif ($ENV{'form.login'} eq 'int') {      } elsif ($env{'form.login'} eq 'int') {
         $authtype ='internal';          $authtype ='internal';
         if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) {          if ((defined($env{'form.intarg'})) && ($env{'form.intarg'})) {
             $autharg = $ENV{'form.intarg'};              $autharg = $env{'form.intarg'};
         }          }
     } elsif ($ENV{'form.login'} eq 'loc') {      } elsif ($env{'form.login'} eq 'loc') {
         $authtype = 'localauth';          $authtype = 'localauth';
         if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {          if ((defined($env{'form.locarg'})) && ($env{'form.locarg'})) {
             $autharg = $ENV{'form.locarg'};              $autharg = $env{'form.locarg'};
         }          }
     }      }
   
Line 615  ENDENHEAD Line 615  ENDENHEAD
     my $args = {      my $args = {
                ccuname => $ccuname,                 ccuname => $ccuname,
                ccdomain => $ccdomain,                 ccdomain => $ccdomain,
                cdescr => $ENV{'form.title'},                 cdescr => $env{'form.title'},
                curl => $ENV{'form.topmap'},                 curl => $env{'form.topmap'},
                course_domain => $ENV{'request.role.domain'},                 course_domain => $env{'request.role.domain'},
                course_home =>  $ENV{'form.course_home'},                 course_home =>  $env{'form.course_home'},
                nonstandard => $ENV{'form.nonstandard'},                 nonstandard => $env{'form.nonstandard'},
                crscode => $ENV{'form.crscode'},                 crscode => $env{'form.crscode'},
                clonecourse => $ENV{'form.clonecourse'},                 clonecourse => $env{'form.clonecourse'},
                clonedomain => $ENV{'form.clonedomain'},                 clonedomain => $env{'form.clonedomain'},
                crsid => $ENV{'form.crsid'},                 crsid => $env{'form.crsid'},
                curruser => $ENV{'user.name'},                 curruser => $env{'user.name'},
                crssections => $ENV{'form.crssections'},                 crssections => $env{'form.crssections'},
                crsxlist => $ENV{'form.crsxlist'},                 crsxlist => $env{'form.crsxlist'},
                autoadds => $ENV{'form.autoadds'},                 autoadds => $env{'form.autoadds'},
                autodrops => $ENV{'form.autodrops'},                 autodrops => $env{'form.autodrops'},
                notify_owner => $ENV{'form.notify_owner'},                 notify_owner => $env{'form.notify_owner'},
                notify_dc => $ENV{'form.notify_dc'},                 notify_dc => $env{'form.notify_dc'},
                no_end_date => $ENV{'form.no_end_date'},                 no_end_date => $env{'form.no_end_date'},
                showphotos => $ENV{'form.showphotos'},                 showphotos => $env{'form.showphotos'},
                authtype => $authtype,                 authtype => $authtype,
                autharg => $autharg,                 autharg => $autharg,
                enrollstart => $enrollstart,                 enrollstart => $enrollstart,
                enrollend => $enrollend,                 enrollend => $enrollend,
                startaccess => $startaccess,                 startaccess => $startaccess,
                endaccess => $endaccess,                 endaccess => $endaccess,
                setpolicy => $ENV{'form.setpolicy'},                 setpolicy => $env{'form.setpolicy'},
                setcontent => $ENV{'form.setcontent'},                 setcontent => $env{'form.setcontent'},
                reshome => $ENV{'form.reshome'},                 reshome => $env{'form.reshome'},
                setkeys => $ENV{'form.setkeys'},                 setkeys => $env{'form.setkeys'},
                keyauth => $ENV{'form.keyauth'},                 keyauth => $env{'form.keyauth'},
                disresdis => $ENV{'form.disresdis'},                 disresdis => $env{'form.disresdis'},
                disablechat => $ENV{'form.disablechat'},                 disablechat => $env{'form.disablechat'},
                openall => $ENV{'form.openall'},                 openall => $env{'form.openall'},
                firstres => $ENV{'form.firstres'}                 firstres => $env{'form.firstres'}
                };                 };
   
     #      #
Line 669  ENDENHEAD Line 669  ENDENHEAD
     }      }
     # Check the proposed home server for the course      # Check the proposed home server for the course
     my %host_servers = &Apache::loncommon::get_library_servers      my %host_servers = &Apache::loncommon::get_library_servers
         ($ENV{'request.role.domain'});          ($env{'request.role.domain'});
     if (! exists($host_servers{$ENV{'form.course_home'}})) {      if (! exists($host_servers{$env{'form.course_home'}})) {
         $r->print(&mt('Invalid home server for course').': '.          $r->print(&mt('Invalid home server for course').': '.
                   $ENV{'form.course_home'}.'</body></html>');                    $env{'form.course_home'}.'</body></html>');
         return;          return;
     }      }
     my ($courseid,$crsudom,$crsunum);      my ($courseid,$crsudom,$crsunum);
     $r->print(&construct_course($args,\$logmsg,\$courseid,\$crsudom,\$crsunum,$ENV{'user.domain'},$ENV{'user.name'}));      $r->print(&construct_course($args,\$logmsg,\$courseid,\$crsudom,\$crsunum,$env{'user.domain'},$env{'user.name'}));
   
 #  #
 # Make the requested user a course coordinator  # Make the requested user a course coordinator
Line 686  ENDENHEAD Line 686  ENDENHEAD
                $ccuname.' at '.$ccdomain.': '.                 $ccuname.' at '.$ccdomain.': '.
     &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>');      &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>');
    }     }
     if ($ENV{'form.setkeys'}) {      if ($env{'form.setkeys'}) {
         $r->print(          $r->print(
  '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');   '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');
     }      }
Line 970  sub handler { Line 970  sub handler {
        return OK;         return OK;
     }      }
   
     if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) {      if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
        &Apache::loncommon::content_type($r,'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') {
            &create_course($r);             &create_course($r);
        } else {         } else {
    &print_course_creation_page($r);     &print_course_creation_page($r);
        }         }
    } else {     } else {
       $ENV{'user.error.msg'}=        $env{'user.error.msg'}=
         "/adm/createcourse:ccc:0:0:Cannot create courses";          "/adm/createcourse:ccc:0:0:Cannot create courses";
       return HTTP_NOT_ACCEPTABLE;         return HTTP_NOT_ACCEPTABLE; 
    }     }
Removed from v.1.77  
changed lines
  Added in v.1.78

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