--- loncom/interface/loncreatecourse.pm 2004/01/01 02:16:29 1.47 +++ loncom/interface/loncreatecourse.pm 2004/05/11 06:02:58 1.57 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.47 2004/01/01 02:16:29 www Exp $ +# $Id: loncreatecourse.pm,v 1.57 2004/05/11 06:02:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,20 +25,8 @@ # # http://www.lon-capa.org/ # -# (My Desk -# -# (Internal Server Error Handler -# -# (Login Screen -# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, -# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) -# -# 3/1/1 Gerd Kortemeyer) -# -# 3/1 Gerd Kortemeyer) -# -# 2/14,2/16,2/17,7/6 Gerd Kortemeyer -# +### + package Apache::loncreatecourse; use strict; @@ -54,6 +42,7 @@ use localenroll; # ================================================ Get course directory listing +#FIXME - doesn't support directories under /userfiles/ BUG#2999 sub crsdirlist { my ($courseid,$which)=@_; unless ($which) { $which=''; } @@ -63,6 +52,7 @@ sub crsdirlist { &Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'})); my @output=(); foreach (@listing) { + #FIXME if list is a DIR need to recurse unless ($_=~/^\./) { push (@output,(split(/\&/,$_))[0]); } @@ -298,6 +288,8 @@ sub print_course_creation_page { 'dsuc' => "Disable student use of chatrooms", 'acco' => "Access Control", 'snak' => "Students need access key to enter course", + 'kaut' => + 'Key authority (<tt>id@domain</tt>) if other than course', 'cc' => "Course Coordinator", 'user' => "Username", 'ierc' => "Immediately expire own role as Course Coordinator", @@ -313,6 +305,7 @@ sub print_course_creation_page { 'nech' => "Notification of enrollment changes", 'nccl' => "Notification to course coordinator via LON-CAPA message when enrollment changes occur during the automated update?", 'irsp' => "Include retrieval of student photographs?", + 'rshm' => 'Resource Space Home', 'opco' => "Open Course" ); $r->print(<<ENDDOCUMENT); @@ -402,13 +395,13 @@ $lt{'asov'}. <h2>$lt{'assp'}</h2> <p> <b>$lt{'oaas'}: </b> -<input type="checkbox" name="openall" checked> +<input type="checkbox" name="openall" /> </p> <h2>$lt{'mssg'}</h2> <p> <b>$lt{'scpf'}: </b> <input type="checkbox" name="setpolicy" checked> -</p><p> +<br /> <b>$lt{'scfc'}: </b> <input type="checkbox" name="setcontent" checked> </p> @@ -422,17 +415,16 @@ $lt{'asov'}. <h2>$lt{'acco'}</h2> <p> <b>$lt{'snak'}: </b> -<input type="checkbox" name="setkeys" /> +<input type="checkbox" name="setkeys" /><br /> +<b>$lt{'kaut'}: </b> +<input type="text" size="30" name="keyauth" /> +</p> +<h2>$lt{'rshm'}</h2> +<p> +<b>$lt{'rshm'}: </b> +<input type="text" name="reshome" size="30" value="/res/$defdom/" /> </p> -<h2>$lt{'cc'}</h2> <p> -<b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" /> -</p><p> -<b>$lt{'dmn'}:</b> $domform -</p><p> -<b>$lt{'ierc'}:</b> -<input type="checkbox" name="expireown" checked> -</p><p> <h2>$lt{'aens'}</h2> $lt{'aesc'} </p> @@ -461,7 +453,18 @@ $lt{'nccl'}<br/> value="0" checked="true" />$lt{'no'} </p><p> <b>$lt{'irsp'}</b> <input type="radio" name="showphotos" value="1" />$lt{'yes'} <input type="radio" name="showphotos" value="0" checked="true" />$lt{'no'} +</p> +<hr /> +<h2>$lt{'cc'}</h2> +<p> +<b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" /> </p><p> +<b>$lt{'dmn'}:</b> $domform +</p><p> +<b>$lt{'ierc'}:</b> +<input type="checkbox" name="expireown" checked> +</p> +<p> <input type="hidden" name="phase" value="two" /> <input type="button" onClick="verify_message(this.form)" value="$lt{'opco'}"> </p> @@ -495,7 +498,16 @@ ENDENHEAD # # Check the veracity of the course coordinator if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { - $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'</body></html>'); + $r->print('<form action="/adm/createuser" method="post" name="crtuser">'); + $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'.<br />'); + $r->print(&mt("Please click Back on your browser and select another user, or ")); + $r->print(' + <input type="hidden" name="phase" value="get_user_info" /> + <input type="hidden" name="ccuname" value="'.$ccuname.'" /> + <input type="hidden" name="ccdomain" value="'.$ccdomain.'" /> + <input name="userrole" type="submit" value="'. + &mt('Create User').'" /> + </form></body></html>'); return; } # Check the proposed home server for the course @@ -549,6 +561,8 @@ ENDENHEAD $cenv{'description'}=$oldcenv{'description'}; # Mark as cloned $cenv{'clonedfrom'}=$cloneid; + delete($cenv{'default_enrollment_start_date'}); + delete($cenv{'default_enrollment_end_date'}); } } # @@ -576,6 +590,9 @@ ENDENHEAD } } } +# do not hide course coordinator from staff listing, +# even if privileged + $cenv{'nothideprivileged'}=$ccuname.':'.$ccdomain; if ($ENV{'form.crsxlist'}) { $cenv{'internal.crosslistings'}=$ENV{'form.crsxlist'}; my @xlists = (); @@ -663,9 +680,25 @@ ENDENHEAD $cenv{'question.email'}=$ccuname.':'.$ccdomain; } } + if ($ENV{'form.reshome'}) { + $cenv{'reshome'}=$ENV{'form.reshome'}.'/'; + $cenv{'reshome'}=~s/\/+$/\//; + } +# +# course has keyed access +# if ($ENV{'form.setkeys'}) { $cenv{'keyaccess'}='yes'; } +# if specified, key authority is not course, but user +# only active if keyaccess is yes + if ($ENV{'form.keyauth'}) { + $ENV{'form.keyauth'}=~s/[^\w\@]//g; + if ($ENV{'form.keyauth'}) { + $cenv{'keyauth'}=$ENV{'form.keyauth'}; + } + } + if ($ENV{'form.disresdis'}) { $cenv{'pch.roles.denied'}='st'; } @@ -680,6 +713,12 @@ ENDENHEAD # Use new Randomseed # $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();; + $cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();; + # + # The encryption code and receipt prefix for this course + # + $cenv{'internal.encseed'}=$Apache::lonnet::perlvar{'lonReceipt'}.$$.time.int(rand(9999)); + $cenv{'internal.encpref'}=100+int(9*rand(99)); # # By default, use standard grading $cenv{'grading'} = 'standard'; @@ -700,7 +739,8 @@ ENDENHEAD # # Set first page # - unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank')) { + unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank') + || ($cloneid)) { $r->print(&mt('Setting first resource').': '); my ($errtext,$fatal)= &Apache::londocs::mapread($crsunum,$crsudom,'default.sequence');