Annotation of loncom/interface/loncreatecourse.pm, revision 1.48

1.1       www         1: # The LearningOnline Network
                      2: # Create a course
1.5       albertel    3: #
1.48    ! www         4: # $Id: loncreatecourse.pm,v 1.47 2004/01/01 02:16:29 www Exp $
1.5       albertel    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
1.48    ! www        28: ###
        !            29: 
1.1       www        30: package Apache::loncreatecourse;
                     31: 
                     32: use strict;
                     33: use Apache::Constants qw(:common :http);
                     34: use Apache::lonnet;
1.12      www        35: use Apache::loncommon;
1.13      www        36: use Apache::lonratedt;
                     37: use Apache::londocs;
1.38      www        38: use Apache::lonlocal;
1.41      raeburn    39: use Apache::londropadd;
1.44      raeburn    40: use lib '/home/httpd/lib/perl';
                     41: use localenroll;
1.28      www        42: 
                     43: # ================================================ Get course directory listing
                     44: 
                     45: sub crsdirlist {
                     46:     my ($courseid,$which)=@_;
                     47:     unless ($which) { $which=''; }
                     48:     my %crsdata=&Apache::lonnet::coursedescription($courseid);
                     49:     my @listing=&Apache::lonnet::dirlist
                     50: 	($which,$crsdata{'domain'},$crsdata{'num'},
1.39      albertel   51: 	 &Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'}));
1.28      www        52:     my @output=();
                     53:     foreach (@listing) {
                     54: 	unless ($_=~/^\./) {
                     55: 	    push (@output,(split(/\&/,$_))[0]);
                     56: 	}
                     57:     }
                     58:     return @output;
1.29      www        59: }
                     60: 
                     61: # ============================================================= Read a userfile
                     62: 
                     63: sub readfile {
                     64:     my ($courseid,$which)=@_;
                     65:     my %crsdata=&Apache::lonnet::coursedescription($courseid);
                     66:     return &Apache::lonnet::getfile('/uploaded/'.$crsdata{'domain'}.'/'.
                     67: 				    $crsdata{'num'}.'/'.$which);
                     68: }
                     69: 
                     70: # ============================================================ Write a userfile
                     71: 
                     72: sub writefile {
1.30      www        73:     (my $courseid, my $which,$ENV{'form.output'})=@_;
1.29      www        74:     my %crsdata=&Apache::lonnet::coursedescription($courseid);
                     75:     return &Apache::lonnet::finishuserfileupload(
                     76: 					  $crsdata{'num'},$crsdata{'domain'},
                     77: 					  $crsdata{'home'},
                     78: 					  'output',$which);
                     79: }
                     80: 
1.36      www        81: # ===================================================================== Rewrite
                     82: 
                     83: sub rewritefile {
                     84:     my ($contents,%rewritehash)=@_;
                     85:     foreach (keys %rewritehash) {
                     86: 	my $pattern=$_;
                     87: 	$pattern=~s/(\W)/\\$1/gs;
                     88: 	my $new=$rewritehash{$_};
                     89: 	$contents=~s/$pattern/$new/gs;
                     90:     }
                     91:     return $contents;
                     92: }
                     93: 
1.29      www        94: # ============================================================= Copy a userfile
                     95: 
                     96: sub copyfile {
                     97:     my ($origcrsid,$newcrsid,$which)=@_;
1.36      www        98:     unless ($which=~/\.sequence$/) {
                     99: 	return &writefile($newcrsid,$which,
                    100: 		      &readfile($origcrsid,$which));
                    101:     } else {
                    102: 	my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
                    103: 	my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
                    104: 	return &writefile($newcrsid,$which,
                    105: 		 &rewritefile(
                    106:                      &readfile($origcrsid,$which),
                    107: 	    (
                    108:        '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
                    109:     => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'
                    110:             )));
                    111:     }
1.30      www       112: }
                    113: 
                    114: # =============================================================== Copy a dbfile
                    115: 
                    116: sub copydb {
                    117:     my ($origcrsid,$newcrsid,$which)=@_;
                    118:     $which=~s/\.db$//;
                    119:     my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
                    120:     my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
                    121:     my %data=&Apache::lonnet::dump
                    122: 	($which,$origcrsdata{'domain'},$origcrsdata{'num'});
                    123:     return &Apache::lonnet::put
                    124: 	($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});
                    125: }
                    126: 
1.35      www       127: # ========================================================== Copy resourcesdata
                    128: 
                    129: sub copyresourcedb {
                    130:     my ($origcrsid,$newcrsid)=@_;
                    131:     my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
                    132:     my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
                    133:     my %data=&Apache::lonnet::dump
                    134: 	('resourcedata',$origcrsdata{'domain'},$origcrsdata{'num'});
                    135:     $origcrsid=~s/^\///;
                    136:     $origcrsid=~s/\//\_/;
                    137:     $newcrsid=~s/^\///;
                    138:     $newcrsid=~s/\//\_/;
                    139:     my %newdata=();
                    140:     undef %newdata;
                    141:     my $startdate=$data{$origcrsid.'.0.opendate'};
                    142:     my $today=time;
                    143:     my $delta=0;
                    144:     if ($startdate) {
                    145: 	my $oneday=60*60*24;
                    146: 	$delta=$today-$startdate;
                    147: 	$delta=int($delta/$oneday)*$oneday;
                    148:     }
                    149: # ugly retro fix for broken version of types
                    150:     foreach (keys %data) {
                    151: 	if ($_=~/\wtype$/) {
                    152: 	    my $newkey=$_;
                    153: 	    $newkey=~s/type$/\.type/;
                    154: 	    $data{$newkey}=$data{$_};
                    155: 	    delete $data{$_};
                    156: 	}
                    157:     }
1.37      www       158: # adjust symbs
                    159:     my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
                    160:     $pattern=~s/(\W)/\\$1/gs;
                    161:     my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
                    162:     foreach (keys %data) {
                    163: 	if ($_=~/$pattern/) {
                    164: 	    my $newkey=$_;
                    165: 	    $newkey=~s/$pattern/$new/;
                    166: 	    $data{$newkey}=$data{$_};
                    167: 	    delete $data{$_};
                    168: 	}
                    169:     }
1.35      www       170: # adjust dates
                    171:     foreach (keys %data) {
                    172: 	my $thiskey=$_;
                    173: 	$thiskey=~s/^$origcrsid/$newcrsid/;
                    174: 	$newdata{$thiskey}=$data{$_};
                    175: 	if ($data{$_.'.type'}=~/^date/) {
                    176: 	    $newdata{$thiskey}=$newdata{$thiskey}+$delta;
                    177: 	}
                    178:     }
                    179:     return &Apache::lonnet::put
                    180: 	('resourcedata',\%newdata,$newcrsdata{'domain'},$newcrsdata{'num'});
                    181: }
                    182: 
1.30      www       183: # ========================================================== Copy all userfiles
                    184: 
                    185: sub copyuserfiles {
                    186:     my ($origcrsid,$newcrsid)=@_;
                    187:     foreach (&crsdirlist($origcrsid,'userfiles')) {
                    188: 	&copyfile($origcrsid,$newcrsid,$_);
                    189:     }
                    190: }
                    191: # ========================================================== Copy all userfiles
                    192: 
                    193: sub copydbfiles {
                    194:     my ($origcrsid,$newcrsid)=@_;
                    195:     foreach (&crsdirlist($origcrsid)) {
                    196: 	if ($_=~/\.db$/) {
                    197: 	    unless 
1.34      www       198:              ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata)/) {
1.30      www       199: 		 &copydb($origcrsid,$newcrsid,$_);
                    200: 	     }
                    201: 	}
                    202:     }
1.31      www       203: }
                    204: 
                    205: # ======================================================= Copy all course files
                    206: 
                    207: sub copycoursefiles {
                    208:     my ($origcrsid,$newcrsid)=@_;
                    209:     &copyuserfiles($origcrsid,$newcrsid);
                    210:     &copydbfiles($origcrsid,$newcrsid);
1.35      www       211:     &copyresourcedb($origcrsid,$newcrsid);
1.28      www       212: }
1.13      www       213: 
1.2       www       214: # ===================================================== Phase one: fill-in form
                    215: 
1.10      matthew   216: sub print_course_creation_page {
1.2       www       217:     my $r=shift;
1.10      matthew   218:     my $defdom=$ENV{'request.role.domain'};
                    219:     my %host_servers = &Apache::loncommon::get_library_servers($defdom);
                    220:     my $course_home = '<select name="course_home" size="1">'."\n";
                    221:     foreach my $server (sort(keys(%host_servers))) {
1.14      matthew   222:         $course_home .= qq{<option value="$server"};
                    223:         if ($server eq $Apache::lonnet::perlvar{'lonHostID'}) {
                    224:             $course_home .= " selected ";
                    225:         }
                    226:         $course_home .= qq{>$server $host_servers{$server}</option>};
1.10      matthew   227:     }
                    228:     $course_home .= "\n</select>\n";
1.9       matthew   229:     my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
1.12      www       230:     my $bodytag=&Apache::loncommon::bodytag('Create a New Course');
1.46      sakharuk  231:     my $helplink=&Apache::loncommon::help_open_topic('Create_Course',&mt('Help on Creating Courses'));
1.32      www       232:     my $cloneform=&Apache::loncommon::select_dom_form
                    233: 	($ENV{'request.role.domain'},'clonedomain').
                    234: 		     &Apache::loncommon::selectcourse_link
                    235: 		     ('ccrs','clonecourse','clonedomain');
                    236:     my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript();
1.43      raeburn   237:     my $starttime = time;
                    238:     my $endtime = time+(6*30*24*60*60); # 6 months from now, approx
                    239:     my $date_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'createcourse');
1.40      raeburn   240:     my ($krbdef,$krbdefdom) =
                    241:     &Apache::loncommon::get_kerberos_defaults($defdom);
1.41      raeburn   242:     my $javascript_validations=&Apache::londropadd::javascript_validations('createcourse',$krbdefdom);
1.40      raeburn   243:     my %param = ( formname => 'document.ccrs',
                    244:                    kerb_def_dom => $krbdefdom,
                    245:                    kerb_def_auth => $krbdef
                    246:                 );
                    247:     my $krbform = &Apache::loncommon::authform_kerberos(%param);
                    248:     my $intform = &Apache::loncommon::authform_internal(%param);
                    249:     my $locform = &Apache::loncommon::authform_local(%param);
1.46      sakharuk  250:     my %lt=&Apache::lonlocal::texthash(
                    251: 		    'cinf' => "Course Information",
                    252:                     'ctit' => "Course Title",
                    253:                     'chsr' => "Course Home Server",
                    254:                     'cidn' => "Course ID/Number",
                    255:                     'opt'  => "optional",
                    256:                     'iinf' => "Institutional Information",
                    257:                     'stat' => "The following entries will be used to identify the course according to the naming scheme adopted by your institution. Your choices will be used to map an internal LON-CAPA course ID to the corresponding course section ID(s) used by the office responsible for providing official class lists for courses at your institution. This mapping is required if you choose to employ automatic population of class lists.",
                    258:                     'ccod' => "Course Code",
                    259:                     'toin' => "to interface with institutional data, e.g., fs03glg231 for Fall 2003 Geology 231",
                    260:                     'snid' => "Section Numbers and corresponding LON-CAPA section/group IDs",
                    261:                     'csli' => "a comma separated list of institutional section numbers, each separated by a colon from the (optional) corresponding section/group ID to be used in LON-CAPA e.g., 001:1,002:2",
                    262:                     'crcs' => "Crosslisted courses",
                    263:                     'cscs' => "a comma separated list of course sections crosslisted with the current course, with each entry including the institutional course section name followed by a colon and then the (optional) groupID to be used in LON-CAPA, e.g., fs03ent231001:ent1,fs03bot231001:bot1,fs03zol231002:bot2", 
                    264:                     'crco' => "Course Content",
                    265:                     'cncr' => "Completely new course",
                    266:                     'cecr' => "Clone an existing course", 
                    267:                     'map'  => "Map",
                    268:                     'smap' => "Select Map",
                    269:                     'sacr' => "Do NOT generate as standard course",
                    270:                     'ocik' => "only check if you know what you are doing",
                    271:                     'fres' => "First Resource",
                    272:                     'stco' => "standard courses only",
                    273:                     'blnk' => "Blank",
                    274:                     'sllb' => "Syllabus",
                    275:                     'navi' => "Navigate",
                    276:                     'cid'  => "Course ID",
                    277:                     'dmn'  => "Domain",
                    278:                     'asov' => "Additional settings, if specified below, will override cloned settings",
                    279:                     'assp' => "Assessment Parameters",
                    280:                     'oaas' => "Open all assessments",
                    281:                     'mssg' => "Messaging",
                    282:                     'scpf' => "Set course policy feedback to Course Coordinator",
                    283:                     'scfc' => "Set content feedback to Course Coordinator",
                    284:                     'cmmn' => "Communication",
                    285:                     'dsrd' => "Disable student resource discussion",
                    286:                     'dsuc' => "Disable student use of chatrooms",
                    287:                     'acco' => "Access Control",
                    288:                     'snak' => "Students need access key to enter course",
                    289:                     'cc'   => "Course Coordinator",
                    290:                     'user' => "Username",
                    291:                     'ierc' => "Immediately expire own role as Course Coordinator",
                    292:                     'aens' => "Automated enrollment settings",
                    293:                     'aesc' => "The following settings control automatic enrollment of students in this class based on information available for this specific course from your institution's official classlists.",
                    294:                     'aadd' => "Automated adds",
                    295:                     'yes'  => "Yes",
                    296:                     'no'   => "No",
                    297:                     'audr' => "Automated drops",
                    298:                     'dacu' => "Duration of automated classlist updates",
                    299:                     'psam' => "Please select the authentication mechanism",
                    300:                     'pcda' => "Please choose the default authentication method to be used by new users added to this LON-CAPA domain by the automated enrollment process",
                    301:                     'nech' => "Notification of enrollment changes",
                    302:                     'nccl' => "Notification to course coordinator via LON-CAPA message when enrollment changes occur during the automated update?",
                    303:                     'irsp' => "Include retrieval of student photographs?",
                    304:                     'opco' => "Open Course"
                    305: 				       );
1.2       www       306:     $r->print(<<ENDDOCUMENT);
                    307: <html>
1.6       matthew   308: <script language="JavaScript" type="text/javascript">
                    309: var editbrowser = null;
                    310: function openbrowser(formname,elementname) {
                    311:     var url = '/res/?';
                    312:     if (editbrowser == null) {
                    313:         url += 'launch=1&';
                    314:     }
                    315:     url += 'catalogmode=interactive&';
                    316:     url += 'mode=edit&';
                    317:     url += 'form=' + formname + '&';
1.7       matthew   318:     url += 'element=' + elementname + '&';
                    319:     url += 'only=sequence' + '';
1.6       matthew   320:     var title = 'Browser';
                    321:     var options = 'scrollbars=1,resizable=1,menubar=0';
                    322:     options += ',width=700,height=600';
                    323:     editbrowser = open(url,title,options,'1');
                    324:     editbrowser.focus();
                    325: }
1.41      raeburn   326: $javascript_validations
1.6       matthew   327: </script>
1.32      www       328: $coursebrowserjs
1.2       www       329: <head>
                    330: <title>The LearningOnline Network with CAPA</title>
                    331: </head>
1.12      www       332: $bodytag
1.17      www       333: $helplink
1.6       matthew   334: <form action="/adm/createcourse" method="post" name="ccrs">
1.46      sakharuk  335: <h2>$lt{'cinf'}</h2>
1.10      matthew   336: <p>
1.46      sakharuk  337: <b>$lt{'ctit'}:</b>
1.6       matthew   338: <input type="text" size="50" name="title">
1.10      matthew   339: </p><p>
1.46      sakharuk  340: <b>$lt{'chsr'}:</b>$course_home
1.13      www       341: </p><p>
1.46      sakharuk  342: <b>$lt{'cidn'} ($lt{'opt'})</b>
1.13      www       343: <input type="text" size="30" name="crsid">
1.40      raeburn   344: </p><p>
1.46      sakharuk  345: <h2>$lt{'iinf'}</h2>
1.40      raeburn   346: <p>
1.46      sakharuk  347: $lt{'stat'}
1.40      raeburn   348: </p><p>
1.46      sakharuk  349: <b>$lt{'ccod'}</b>
1.40      raeburn   350: <input type="text" size="30" name="crscode" /><br/>
1.46      sakharuk  351: ($lt{'toin'})
1.40      raeburn   352: </p><p>
1.46      sakharuk  353: <b>$lt{'snid'}</b>
1.40      raeburn   354:  <input type="text" size="30" name="crssections" /><br/>
1.46      sakharuk  355: ($lt{'csli'})
1.40      raeburn   356: </p><p>
1.46      sakharuk  357: <b>$lt{'crcs'}</b>
1.40      raeburn   358: <input type="text" size="30" name="crsxlist" /><br/>
1.46      sakharuk  359: ($lt{'cscs'})
1.13      www       360: </p>
1.46      sakharuk  361: <h2>$lt{'crco'}</h2>
1.32      www       362: <table border="2">
1.46      sakharuk  363: <tr><th>$lt{'cncr'}</th><th>$lt{'cecr'}</th></tr>
1.32      www       364: <tr><td>
1.13      www       365: <p>
1.46      sakharuk  366: <b>$lt{'map'}:</b>
1.6       matthew   367: <input type="text" size="50" name="topmap">
1.46      sakharuk  368: <a href="javascript:openbrowser('ccrs','topmap')">$lt{'smap'}</a>
1.10      matthew   369: </p><p>
1.46      sakharuk  370: <b>$lt{'sacr'}</b><br /> 
                    371: ($lt{'ocik'}):
1.11      www       372: <input type="checkbox" name="nonstandard">
1.13      www       373: </p>
                    374: <p>
1.46      sakharuk  375: <b>$lt{'fres'}</b><br />($lt{'stco'}):
                    376: <input type="radio" name="firstres" value="blank">$lt{'blnk'}
1.13      www       377: &nbsp;
1.46      sakharuk  378: <input type="radio" name="firstres" value="syl" checked>$lt{'sllb'}
1.13      www       379: &nbsp;
1.46      sakharuk  380: <input type="radio" name="firstres" value="nav">$lt{'navi'}
1.13      www       381: </p>
1.32      www       382: </td><td>
1.46      sakharuk  383: $lt{'cid'}: <input input type="text" size="25" name="clonecourse" value="" />
1.32      www       384: <br />
1.46      sakharuk  385: $lt{'dmn'}: 
1.32      www       386: $cloneform<br />&nbsp;<br />
1.46      sakharuk  387: $lt{'asov'}.
1.32      www       388: </td></tr>
                    389: </table>
1.46      sakharuk  390: <h2>$lt{'assp'}</h2>
1.13      www       391: <p>
1.46      sakharuk  392: <b>$lt{'oaas'}: </b>
1.11      www       393: <input type="checkbox" name="openall" checked>
1.13      www       394: </p>
1.46      sakharuk  395: <h2>$lt{'mssg'}</h2>
1.13      www       396: <p>
1.46      sakharuk  397: <b>$lt{'scpf'}: </b>
1.11      www       398: <input type="checkbox" name="setpolicy" checked>
                    399: </p><p>
1.46      sakharuk  400: <b>$lt{'scfc'}: </b>
1.11      www       401: <input type="checkbox" name="setcontent" checked>
                    402: </p>
1.46      sakharuk  403: <h2>$lt{'cmmn'}</h2>
1.16      www       404: <p>
1.46      sakharuk  405: <b>$lt{'dsrd'}: </b>
1.26      matthew   406: <input type="checkbox" name="disresdis" /> <br />
1.46      sakharuk  407: <b>$lt{'dsuc'}: </b>
1.26      matthew   408: <input type="checkbox" name="disablechat" />
1.16      www       409: </p>
1.46      sakharuk  410: <h2>$lt{'acco'}</h2>
1.18      www       411: <p>
1.46      sakharuk  412: <b>$lt{'snak'}: </b>
1.18      www       413: <input type="checkbox" name="setkeys" />
                    414: </p>
1.46      sakharuk  415: <h2>$lt{'cc'}</h2>
1.10      matthew   416: <p>
1.46      sakharuk  417: <b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" />
1.11      www       418: </p><p>
1.46      sakharuk  419: <b>$lt{'dmn'}:</b> $domform
1.10      matthew   420: </p><p>
1.46      sakharuk  421: <b>$lt{'ierc'}:</b>
1.11      www       422: <input type="checkbox" name="expireown" checked>
1.10      matthew   423: </p><p>
1.46      sakharuk  424: <h2>$lt{'aens'}</h2>
                    425: $lt{'aesc'}
1.40      raeburn   426: </p>
                    427: <p>
1.46      sakharuk  428: <b>$lt{'aadd'}</b>
                    429: <input type="radio" name="autoadds" value="1" />$lt{'yes'} <input type="radio" name="autoadds" value="0" checked="true" />$lt{'no'}
1.40      raeburn   430: </p><p>
1.46      sakharuk  431: <b>$lt{'audr'}</b>
                    432: <input type="radio" name="autodrops" value="1" />$lt{'yes'} <input type="radio" name="autodrops" value="0" checked="true" />$lt{'no'}
1.40      raeburn   433: </p><p>
1.46      sakharuk  434: <b>$lt{'dacu'}</b>
1.40      raeburn   435: $date_table
                    436: </p><p>
1.46      sakharuk  437: <b>$lt{'psam'}.</b><br />
                    438: $lt{'pcda'}.
1.40      raeburn   439: </p><p>
                    440: $krbform
                    441: <br />
                    442: $intform
                    443: <br />
                    444: $locform
                    445: </p><p>
1.46      sakharuk  446: <b>$lt{'nech'}</b><br />
                    447: $lt{'nccl'}<br/>
                    448: <input type="radio" name="notify" value="1" />$lt{'yes'} <input type="radio" name="notify"
                    449: value="0" checked="true" />$lt{'no'}
1.40      raeburn   450: </p><p>
1.46      sakharuk  451: <b>$lt{'irsp'}</b> <input type="radio" name="showphotos" value="1" />$lt{'yes'} <input type="radio" name="showphotos" value="0" checked="true" />$lt{'no'}
1.40      raeburn   452: </p><p>
1.10      matthew   453: <input type="hidden" name="phase" value="two" />
1.46      sakharuk  454: <input type="button" onClick="verify_message(this.form)" value="$lt{'opco'}">
1.10      matthew   455: </p>
1.2       www       456: </form>
                    457: </body>
                    458: </html>
                    459: ENDDOCUMENT
1.40      raeburn   460: }
                    461: 
1.2       www       462: # ====================================================== Phase two: make course
                    463: 
1.10      matthew   464: sub create_course {
1.2       www       465:     my $r=shift;
                    466:     my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'});
                    467:     my $ccuname=$ENV{'form.ccuname'};
                    468:     my $ccdomain=$ENV{'form.ccdomain'};
                    469:     $ccuname=~s/\W//g;
                    470:     $ccdomain=~s/\W//g;
                    471:     my $cdescr=$ENV{'form.title'};
                    472:     my $curl=$ENV{'form.topmap'};
1.12      www       473:     my $bodytag=&Apache::loncommon::bodytag('Create a New Course');
1.2       www       474:     $r->print(<<ENDENHEAD);
                    475: <html>
                    476: <head>
                    477: <title>The LearningOnline Network with CAPA</title>
                    478: </head>
1.12      www       479: $bodytag
1.2       www       480: ENDENHEAD
1.10      matthew   481:     #
                    482:     # Verify data
                    483:     #
                    484:     # Check the veracity of the course coordinator
1.2       www       485:     if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {
1.46      sakharuk  486:         $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'</body></html>');
1.2       www       487: 	return;
                    488:     }
1.10      matthew   489:     # Check the proposed home server for the course
                    490:     my %host_servers = &Apache::loncommon::get_library_servers
                    491:         ($ENV{'request.role.domain'});
                    492:     if (! exists($host_servers{$ENV{'form.course_home'}})) {
1.46      sakharuk  493:         $r->print(&mt('Invalid home server for course').': '.
1.10      matthew   494:                   $ENV{'form.course_home'}.'</body></html>');
                    495:         return;
                    496:     }
1.2       www       497: #
                    498: # Open course
                    499: #
1.32      www       500:     my %cenv=();
1.10      matthew   501:     my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'},
                    502:                                                $cdescr,$curl,
1.11      www       503:                                                $ENV{'form.course_home'},
                    504:                                                $ENV{'form.nonstandard'});
1.2       www       505: 
1.27      bowersj2  506:     # Note: The testing routines depend on this being output; see 
                    507:     # Utils::Course. This needs to at least be output as a comment
                    508:     # if anyone ever decides to not show this, and Utils::Course::new
                    509:     # will need to be suitably modified.
1.4       www       510:     $r->print('New LON-CAPA Course ID: '.$courseid.'<br>');
                    511: #
1.12      www       512: # Check if created correctly
1.4       www       513: #
                    514:     my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/);
                    515:     my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom);
1.46      sakharuk  516:     $r->print(&mt('Created on').': '.$crsuhome.'<br>');
1.12      www       517: #
1.32      www       518: # Are we cloning?
                    519: #
                    520:     my $cloneid='';
                    521:     if (($ENV{'form.clonecourse'}) && ($ENV{'form.clonedomain'})) {
                    522: 	$cloneid='/'.$ENV{'form.clonedomain'}.'/'.$ENV{'form.clonecourse'};
                    523:         my ($clonecrsudom,$clonecrsunum)=($cloneid=~/^\/(\w+)\/(\w+)$/);
                    524: 	my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);
                    525: 	if ($clonehome eq 'no_host') {
                    526: 	    $r->print(
1.46      sakharuk  527:     '<br /><font color="red">'.&mt('Attempting to clone non-existing course').' '.$cloneid.'</font>');
1.32      www       528: 	} else {
                    529: 	    $r->print(
1.46      sakharuk  530:     '<br /><font color="green">'.&mt('Cloning course from').' '.$clonehome.'</font>');
1.37      www       531: 	    my %oldcenv=&Apache::lonnet::dump('environment',$crsudom,$crsunum);
1.32      www       532: # Copy all files
                    533: 	    &copycoursefiles($cloneid,$courseid);
1.37      www       534: # Restore URL
                    535: 	    $cenv{'url'}=$oldcenv{'url'};
1.32      www       536: # Restore title
1.37      www       537: 	    $cenv{'description'}=$oldcenv{'description'};
                    538: # Mark as cloned
1.35      www       539: 	    $cenv{'clonedfrom'}=$cloneid;
1.32      www       540: 	}
                    541:     }
                    542: #
                    543: # Set environment (will override cloned, if existing)
1.12      www       544: #
1.44      raeburn   545:     my @affiliates = ();  # Used to accumulate sections and crosslistings
1.4       www       546:     if ($ENV{'form.crsid'}) {
1.12      www       547:         $cenv{'courseid'}=$ENV{'form.crsid'};
1.40      raeburn   548:     }
                    549:     if ($ENV{'form.crscode'}) {
                    550:         $cenv{'internal.coursecode'}=$ENV{'form.crscode'};
                    551:     }
                    552:     if ($ENV{'form.crssections'}) {
                    553:         $cenv{'internal.sectionnums'}=$ENV{'form.crssections'};
1.44      raeburn   554:         my @sections = ();
                    555:         if ($cenv{'internal.sectionnums'} =~ m/,/) {
                    556:             @sections = split/,/,$cenv{'internal.sectionnums'};
                    557:         } else {
                    558:             $sections[0] = $cenv{'internal.sectionnums'};
                    559:         }
                    560:         if (@sections > 0) {
                    561:             foreach (@sections) {
                    562:                 my ($sec,$gp) = split/:/,$_; 
                    563:                 push @affiliates,$ENV{'form.crscode'}.$sec;
                    564:             }
                    565:         }
1.40      raeburn   566:     }
                    567:     if ($ENV{'form.crsxlist'}) {
1.44      raeburn   568:        $cenv{'internal.crosslistings'}=$ENV{'form.crsxlist'};
                    569:        my @xlists = ();
                    570:         if ($cenv{'internal.crosslistings'} =~ m/,/) {
                    571:             @xlists = split/,/,$cenv{'internal.crosslistings'};
                    572:         } else {
                    573:             $xlists[0] = $cenv{'internal.crosslistings'};
                    574:         }
                    575:         if (@xlists > 0) {
                    576:             foreach (@xlists) {
                    577:                 my ($xl,$gp) = split/:/,$_;
                    578:                 push @affiliates,$xl;
                    579:             }
                    580:         }
1.40      raeburn   581:     }
                    582:     if ($ENV{'form.autoadds'}) {
                    583:         $cenv{'internal.autoadds'}=$ENV{'form.autoadds'};
                    584:     }
                    585:     if ($ENV{'form.autodrops'}) {
                    586:         $cenv{'internal.autodrops'}=$ENV{'form.autodrops'};
                    587:     }
                    588:     if ($ENV{'form.notify'}) {
                    589:       if ($ccuname) {
                    590:         $cenv{'internal.notifylist'} = $ccuname;
                    591:       }
                    592:     }
                    593:     if ($ccuname) {
                    594:         $cenv{'internal.courseowner'} = $ccuname;
1.44      raeburn   595:     } else {
                    596:         $cenv{'internal.courseowner'} = $ENV{'user.name'};
                    597:     }
                    598:     if (@affiliates > 0) {
                    599:         my @badclasses = ();
                    600:         foreach my $class (@affiliates) {
                    601:             my $addcheck =  &localenroll::new_course($class,$cenv{'internal.courseowner'});
                    602:             unless ($addcheck eq 'ok') {
                    603:                 push @badclasses, $class; 
                    604:             }
                    605:         }
                    606:         if (@badclasses > 0) {
                    607:             $r->print('<font color="red">'.
                    608:                       "The courses listed below were included as sections or crosslistings affiliated with your new LON-CAPA course. If automated course roster updates are enabled for this class, these particular sections/crosslistings will not contribute towards enrollment, because the user identified as the course owner for this LON-CAPA course ($cenv{'internal.courseowner'}) - does not have rights to access enrollment in these classes (as determined by your instititution's policies on access to official classlists).<br/><ul>\n");
                    609:             foreach (@badclasses) {
                    610:                 $r->print("<li>$_</li>\n");
                    611:             }
                    612:             $r->print ("</ul><br/><br/></font>\n");
                    613:         }
1.40      raeburn   614:     }
                    615:     my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate');
                    616:     my $enddate   = &Apache::lonhtmlcommon::get_date_from_form('enddate');
                    617:     if ($ENV{'form.no_end_date'}) {
                    618:       $enddate = 0;
                    619:     }
                    620:     $cenv{'internal.autostart'}=$startdate;
                    621:     $cenv{'internal.autoend'}=$enddate;
                    622:     if ($ENV{'form.showphotos'}) {
                    623:       $cenv{'internal.showphotos'}=$ENV{'form.showphotos'};
                    624:     }
                    625:     if ($ENV{'form.login'} eq 'krb') {
                    626:         $cenv{'internal.authtype'} = 'krb';
                    627:         $cenv{'internal.authtype'} .=$ENV{'form.krbver'};
                    628:         $cenv{'internal.autharg'} = $ENV{'form.krbarg'};
                    629:     } elsif ($ENV{'form.login'} eq 'int') {
                    630:         $cenv{'internal.authtype'} ='internal';
                    631:         if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) {
                    632:             $cenv{'internal.autharg'} = $ENV{'form.intarg'};
                    633:         }
                    634:     } elsif ($ENV{'form.login'} eq 'loc') {
                    635:         $cenv{'internal.authtype'} = 'localauth';
                    636:         if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
                    637:             $cenv{'internal.autharg'} = $ENV{'form.locarg'};
                    638:         }
                    639:     }
                    640:     if ( ($cenv{'internal.authtype'} =~ /^krb/) && ($cenv{'internal.autoadds'} == 1)) {
                    641:         if (! defined($cenv{'internal.autharg'}) || $cenv{'internal.autharg'}  eq '') {
                    642:             $r->print('<font color="red" size="+1">'.
1.46      sakharuk  643:                       &mt('As you did not include the default Kerberos domain to be used for authentication in this class, the institutional data used by the automated enrollment process must include the Kerberos domain for each new student').'</font></p>');
1.40      raeburn   644:         }
1.12      www       645:     }
                    646:     if (($ccdomain) && ($ccuname)) {
                    647:        if ($ENV{'form.setpolicy'}) {
                    648:            $cenv{'policy.email'}=$ccuname.':'.$ccdomain;
                    649:        }
                    650:        if ($ENV{'form.setcontent'}) {
1.18      www       651:            $cenv{'question.email'}=$ccuname.':'.$ccdomain;
                    652:        }
                    653:     }
                    654:     if ($ENV{'form.setkeys'}) {
                    655:        $cenv{'keyaccess'}='yes';
1.16      www       656:     }
                    657:     if ($ENV{'form.disresdis'}) {
                    658:         $cenv{'pch.roles.denied'}='st';
1.26      matthew   659:     }
                    660:     if ($ENV{'form.disablechat'}) {
                    661:         $cenv{'plc.roles.denied'}='st';
1.21      albertel  662:     }
1.23      bowersj2  663: 
1.32      www       664:     # Record we've not yet viewed the Course Initialization Helper for this 
                    665:     # course
1.23      bowersj2  666:     $cenv{'course.helper.not.run'} = 1;
1.21      albertel  667:     #
                    668:     # Use new Randomseed
                    669:     #
1.22      albertel  670:     $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
1.25      matthew   671:     #
                    672:     # By default, use standard grading
                    673:     $cenv{'grading'} = 'standard';
1.22      albertel  674: 
1.46      sakharuk  675:     $r->print('<br />'.&mt('Setting environment').': '.                 
1.12      www       676:           &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');
                    677: #
                    678: # Open all assignments
                    679: #
                    680:     if ($ENV{'form.openall'}) {
                    681:        my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate';
1.33      www       682:        my %storecontent = ($storeunder         => time,
                    683:                            $storeunder.'.type' => 'date_start');
1.12      www       684:        
1.46      sakharuk  685:        $r->print(&mt('Opening all assignments').': '.&Apache::lonnet::cput
1.12      www       686:                  ('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>');
                    687:    }
1.13      www       688: #
                    689: # Set first page
                    690: #
1.48    ! www       691:     unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank')
        !           692: 	    || ($cloneid)) {
1.46      sakharuk  693: 	$r->print(&mt('Setting first resource').': ');
1.13      www       694:         my ($errtext,$fatal)=
                    695:            &Apache::londocs::mapread($crsunum,$crsudom,'default.sequence');
                    696:         $r->print(($fatal?$errtext:'read ok').' - ');
                    697:         my $title; my $url;
                    698:         if ($ENV{'form.firstres'} eq 'syl') {
                    699: 	    $title='Syllabus';
                    700:             $url='/public/'.$crsudom.'/'.$crsunum.'/syllabus';
                    701:         } else {
                    702:             $title='Navigate Contents';
                    703:             $url='/adm/navmaps';
                    704:         }
                    705:         $Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';
1.15      albertel  706:         ($errtext,$fatal)=
1.13      www       707:            &Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');
                    708:         $r->print(($fatal?$errtext:'write ok').'<br>');
                    709:   }
1.2       www       710: #
                    711: # Make current user course adminstrator
                    712: #
1.12      www       713:     my $end=undef;
                    714:     my $addition='';
                    715:     if ($ENV{'form.expireown'}) { $end=time+5; $addition='expired'; }
1.46      sakharuk  716:     $r->print(&mt('Assigning').' '.$addition.' '.&mt('role of course coordinator to self').': '.
1.2       www       717:     &Apache::lonnet::assignrole(
1.12      www       718:      $ENV{'user.domain'},$ENV{'user.name'},$courseid,'cc',$end).'<br>');
1.2       www       719: #
                    720: # Make additional user course administrator
                    721: #
1.12      www       722:    if (($ccdomain) && ($ccuname)) {
1.46      sakharuk  723:     $r->print(&mt('Assigning role of course coordinator to').' '.
1.2       www       724:                $ccuname.' at '.$ccdomain.': '.
1.3       www       725:     &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>');
1.12      www       726:    }
1.20      www       727:     if ($ENV{'form.setkeys'}) {
                    728: 	$r->print(
1.46      sakharuk  729:  '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');
1.20      www       730:     }
1.47      www       731: # Flush the course logs so reverse user roles immediately updated
                    732:     &Apache::lonnet::flushcourselogs();
1.46      sakharuk  733:     $r->print('<p>'.&mt('Roles will be active at next login').'.</p></body></html>');
1.2       www       734: }
                    735: 
                    736: # ===================================================================== Handler
1.1       www       737: sub handler {
                    738:     my $r = shift;
                    739: 
                    740:     if ($r->header_only) {
1.38      www       741:        &Apache::loncommon::content_type($r,'text/html');
1.1       www       742:        $r->send_http_header;
                    743:        return OK;
                    744:     }
                    745: 
1.10      matthew   746:     if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) {
1.38      www       747:        &Apache::loncommon::content_type($r,'text/html');
1.1       www       748:        $r->send_http_header;
                    749: 
1.2       www       750:        if ($ENV{'form.phase'} eq 'two') {
1.10      matthew   751:            &create_course($r);
1.2       www       752:        } else {
1.10      matthew   753: 	   &print_course_creation_page($r);
1.2       www       754:        }
1.1       www       755:    } else {
                    756:       $ENV{'user.error.msg'}=
                    757:         "/adm/createcourse:ccc:0:0:Cannot create courses";
                    758:       return HTTP_NOT_ACCEPTABLE; 
                    759:    }
                    760:    return OK;
                    761: } 
                    762: 
                    763: 1;
                    764: __END__

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