File:
[LON-CAPA] /
loncom /
interface /
Attic /
londropadd.pm
Revision
1.58:
download - view:
text,
annotated -
select for diffs
Wed Oct 16 15:02:28 2002 UTC (21 years, 9 months ago) by
matthew
Branches:
MAIN
CVS tags:
HEAD
Fixed a bug which did not allow attempts to modify students if the list had
been sorted.
CSV printout of classlist now includes an extra column specifying the users
status if the status mode is set to 'any'. If it is set to 'expired' a
brief message stating such will be printed out at the top of the sheet.
1: # The LearningOnline Network with CAPA
2: # Handler to drop and add students in courses
3: #
4: # $Id: londropadd.pm,v 1.58 2002/10/16 15:02:28 matthew Exp $
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: #
28: # (Handler to set parameters for assessments
29: #
30: # (Handler to resolve ambiguous file locations
31: #
32: # (TeX Content Handler
33: #
34: ###############################################################
35: ###############################################################
36:
37: package Apache::londropadd;
38:
39: use strict;
40: use Apache::lonnet();
41: use Apache::loncommon();
42: use Apache::lonhtmlcommon();
43: use Apache::Constants qw(:common :http REDIRECT);
44:
45: ###############################################################
46: ###############################################################
47: sub header {
48: my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
49: return(<<ENDHEAD);
50: <html>
51: <head>
52: <title>LON-CAPA Enrollment Manager</title>
53: </head>
54: $bodytag
55: <form method="post" enctype="multipart/form-data"
56: action="/adm/dropadd" name="studentform">
57: ENDHEAD
58: }
59:
60: ###############################################################
61: ###############################################################
62: # Drop student from all sections of a course, except optional $csec
63: sub modifystudent {
64: my ($udom,$unam,$courseid,$csec,$desiredhost)=@_;
65: # if $csec is undefined, drop the student from all the courses matching
66: # this one. If $csec is defined, drop them from all other sections of
67: # this course and add them to section $csec
68: $courseid=~s/\_/\//g;
69: $courseid=~s/^(\w)/\/$1/;
70: my %roles = &Apache::lonnet::dump('roles',$udom,$unam);
71: my ($tmp) = keys(%roles);
72: # Bail out if we were unable to get the students roles
73: return "$1" if ($tmp =~ /^(con_lost|error|no_such_host)/i);
74: # Go through the roles looking for enrollment in this course
75: my $result = '';
76: foreach my $course (keys(%roles)) {
77: if ($course=~/^$courseid(?:\/)*(?:\s+)*(\w+)*\_st$/) {
78: # We are in this course
79: my $section=$1;
80: $section='' if ($course eq $courseid.'_st');
81: if ( ((!$section) && (!$csec)) || ($section ne $csec) ) {
82: my (undef,$end,$start)=split(/\_/,$roles{$course});
83: my $now=time;
84: # if this is an active role
85: if (!($start && ($now<$start)) || !($end && ($now>$end))) {
86: my $reply=&Apache::lonnet::modifystudent
87: ($udom,$unam,'','','','','','','',
88: $section,time,undef,undef,$desiredhost);
89: $result .= $reply.':';
90: }
91: }
92: }
93: }
94: if ($result eq '') {
95: $result eq 'Unable to find section for this student';
96: } else {
97: $result =~ s/(ok:)+/ok/g;
98: }
99: return $result;
100: }
101:
102: ###############################################################
103: ###############################################################
104: # build a domain and server selection form
105: sub domain_form {
106: my ($defdom) = @_;
107: # Set up domain and server selection forms
108: #
109: # Get the domains
110: my @domains = &Apache::loncommon::get_domains();
111: # build up the menu information to be passed to
112: # &Apache::loncommon::linked_select_forms
113: my %select_menus;
114: foreach my $dom (@domains) {
115: # set up the text for this domain
116: $select_menus{$dom}->{'text'}= $dom;
117: # we want a choice of 'default' as the default in the second menu
118: $select_menus{$dom}->{'default'}= 'default';
119: $select_menus{$dom}->{'select2'}->{'default'} = 'default';
120: # Now build up the other items in the second menu
121: my %servers = &Apache::loncommon::get_library_servers($dom);
122: foreach my $server (keys(%servers)) {
123: $select_menus{$dom}->{'select2'}->{$server}
124: = "$server $servers{$server}";
125: }
126: }
127: my $result = &Apache::loncommon::linked_select_forms
128: ('studentform',' with home server ',$defdom,
129: 'lcdomain','lcserver',\%select_menus);
130: return $result;
131: }
132:
133: ###############################################################
134: ###############################################################
135: # Menu Phase One
136: sub print_main_menu {
137: my $r=shift;
138: $r->print(<<END);
139: <p>
140: <font size="+1">
141: <a href="/adm/dropadd?action=upload">Upload a course list</a>
142: </font>
143: </p><p>
144: <font size="+1">
145: <a href="/adm/dropadd?action=enrollstudent">Enroll a single student</a>
146: </font>
147: </p><p>
148: <font size="+1">
149: <a href="/adm/dropadd?action=modifystudent">Modify student data</a>
150: </font>
151: </p><p>
152: <font size="+1">
153: <a href="/adm/dropadd?action=classlist">View Classlist</a>
154: </font>
155: </p><p>
156: <font size="+1">
157: <a href="/adm/dropadd?action=drop">Drop Students</a>
158: </font>
159: </p>
160: END
161: }
162:
163: ###############################################################
164: ###############################################################
165: sub print_upload_manager_header {
166: my ($r,$datatoken,$distotal,$krbdefdom)=@_;
167: my $javascript;
168: if (! exists($ENV{'form.upfile_associate'})) {
169: $ENV{'form.upfile_associate'} = 'forward';
170: }
171: if ($ENV{'form.associate'} eq 'Reverse Association') {
172: if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {
173: $ENV{'form.upfile_associate'} = 'reverse';
174: } else {
175: $ENV{'form.upfile_associate'} = 'forward';
176: }
177: }
178: if ($ENV{'form.upfile_associate'} eq 'reverse') {
179: $javascript=&upload_manager_javascript_reverse_associate();
180: } else {
181: $javascript=&upload_manager_javascript_forward_associate();
182: }
183: my $javascript_validations=&javascript_validations($krbdefdom);
184: $r->print(<<ENDPICK);
185: <h3>Uploading Class List</h3>
186: <hr>
187: <h3>Identify fields</h3>
188: Total number of records found in file: $distotal <hr />
189: Enter as many fields as you can. The system will inform you and bring you back
190: to this page if the data selected is insufficient to run your class.<hr />
191: <input type="button" value="Reverse Association" onClick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" />
192: <input type="hidden" name="action" value="upload" />
193: <input type="hidden" name="state" value="got_file" />
194: <input type="hidden" name="associate" value="" />
195: <input type="hidden" name="datatoken" value="$datatoken" />
196: <input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" />
197: <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />
198: <input type="hidden" name="upfile_associate"
199: value="$ENV{'form.upfile_associate'}" />
200: <hr />
201: <script type="text/javascript" language="Javascript">
202: $javascript
203: $javascript_validations
204: </script>
205: ENDPICK
206: }
207:
208: ###############################################################
209: ###############################################################
210: sub javascript_validations {
211: my ($krbdefdom)=@_;
212: my %param = ( formname => 'studentform',
213: kerb_def_dom => $krbdefdom );
214: my $authheader = &Apache::loncommon::authform_header(%param);
215: return (<<ENDPICK);
216: function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) {
217: var foundatype=0;
218: var message='';
219: if (founduname==0) {
220: alert('You need to specify the username field');
221: return;
222: }
223: if (current.radiovalue == null || current.radiovalue == 'nochange') {
224: // They did not check any of the login radiobuttons.
225: alert('You must choose an authentication type');
226: return;
227: }
228: foundatype=1;
229: if (current.argfield == null || current.argfield == '') {
230: var alertmsg = '';
231: switch (current.value) {
232: case 'krb':
233: alertmsg = 'You need to specify the Kerberos domain';
234: break;
235: case 'loc':
236: case 'fsys':
237: alertmsg = 'You need to specify the initial password';
238: break;
239: case 'fsys':
240: alertmsg = '';
241: break;
242: default:
243: alertmsg = '';
244: }
245: if (alertmsg != '') {
246: alert(alertmsg);
247: return;
248: }
249: }
250:
251: if (foundname==0) { message='No name fields specified. '; }
252: if (foundid==0) { message+='No ID or student number field specified. '; }
253: if (foundsec==0) { message+='No section or group field specified. '; }
254: if (vf.startdate.value=='') {
255: message+='No starting date set. ';
256: }
257: if (vf.enddate.value=='') {
258: message+='No ending date set. ';
259: }
260: if ((vf.enddate.value!='') && (vf.startdate.value!='')) {
261: if (Math.round(vf.enddate.value)<Math.round(vf.startdate.value)) {
262: alert('Ending date is before starting date');
263: return;
264: }
265: }
266: if (message!='') {
267: message+='Continue enrollment?';
268: if (confirm(message)) {
269: pclose();
270: vf.state.value='enrolling';
271: vf.submit();
272: }
273: } else {
274: pclose();
275: vf.state.value='enrolling';
276: vf.submit();
277: }
278: }
279:
280:
281: function pclose() {
282: parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
283: "height=350,width=350,scrollbars=no,menubar=no");
284: parmwin.close();
285: }
286:
287: function pjump(type,dis,value,marker,ret,call) {
288: parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)
289: +"&value="+escape(value)+"&marker="+escape(marker)
290: +"&return="+escape(ret)
291: +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",
292: "height=350,width=350,scrollbars=no,menubar=no");
293:
294: }
295:
296: function dateset() {
297: if (document.studentform.pres_marker.value=='end') {
298: document.studentform.enddate.value=
299: document.studentform.pres_value.value;
300: }
301: if (document.studentform.pres_marker.value=='start') {
302: document.studentform.startdate.value=
303: document.studentform.pres_value.value;
304: }
305: pclose();
306: }
307:
308: $authheader
309: ENDPICK
310:
311: }
312:
313: ###############################################################
314: ###############################################################
315: sub upload_manager_javascript_forward_associate {
316: return(<<ENDPICK);
317: function verify(vf) {
318: var founduname=0;
319: var foundpwd=0;
320: var foundname=0;
321: var foundid=0;
322: var foundsec=0;
323: var tw;
324: for (i=0;i<=vf.nfields.value;i++) {
325: tw=eval('vf.f'+i+'.selectedIndex');
326: if (tw==1) { founduname=1; }
327: if ((tw>=2) && (tw<=6)) { foundname=1; }
328: if (tw==7) { foundid=1; }
329: if (tw==8) { foundsec=1; }
330: if (tw==9) { foundpwd=1; }
331: }
332: verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
333: }
334:
335: //
336: // vf = this.form
337: // tf = column number
338: //
339: // values of nw
340: //
341: // 0 = none
342: // 1 = username
343: // 2 = names (lastname, firstnames)
344: // 3 = fname (firstname)
345: // 4 = mname (middlename)
346: // 5 = lname (lastname)
347: // 6 = gen (generation)
348: // 7 = id
349: // 8 = section
350: // 9 = ipwd (password)
351: //
352: function flip(vf,tf) {
353: var nw=eval('vf.f'+tf+'.selectedIndex');
354: var i;
355: // make sure no other columns are labeled the same as this one
356: for (i=0;i<=vf.nfields.value;i++) {
357: if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {
358: eval('vf.f'+i+'.selectedIndex=0;')
359: }
360: }
361: // If we set this to 'lastname, firstnames', clear out all the ones
362: // set to 'fname','mname','lname','gen' (3,4,5,6) currently.
363: if (nw==2) {
364: for (i=0;i<=vf.nfields.value;i++) {
365: if ((eval('vf.f'+i+'.selectedIndex')>=3) &&
366: (eval('vf.f'+i+'.selectedIndex')<=6)) {
367: eval('vf.f'+i+'.selectedIndex=0;')
368: }
369: }
370: }
371: // If we set this to one of 'fname','mname','lname','gen' (3,4,5,6),
372: // clear out any that are set to 'lastname, firstnames' (2)
373: if ((nw>=3) && (nw<=6)) {
374: for (i=0;i<=vf.nfields.value;i++) {
375: if (eval('vf.f'+i+'.selectedIndex')==2) {
376: eval('vf.f'+i+'.selectedIndex=0;')
377: }
378: }
379: }
380: // If we set the password, make the password form below correspond to
381: // the new value.
382: if (nw==9) {
383: changed_radio('int',document.studentform);
384: set_auth_radio_buttons('int',document.studentform);
385: vf.intarg.value='';
386: vf.krbarg.value='';
387: vf.locarg.value='';
388: }
389: }
390:
391: function clearpwd(vf) {
392: var i;
393: for (i=0;i<=vf.nfields.value;i++) {
394: if (eval('vf.f'+i+'.selectedIndex')==9) {
395: eval('vf.f'+i+'.selectedIndex=0;')
396: }
397: }
398: }
399:
400: ENDPICK
401: }
402:
403: ###############################################################
404: ###############################################################
405: sub upload_manager_javascript_reverse_associate {
406: return(<<ENDPICK);
407: function verify(vf) {
408: var founduname=0;
409: var foundpwd=0;
410: var foundname=0;
411: var foundid=0;
412: var foundsec=0;
413: var tw;
414: for (i=0;i<=vf.nfields.value;i++) {
415: tw=eval('vf.f'+i+'.selectedIndex');
416: if (i==0 && tw!=0) { founduname=1; }
417: if (((i>=1) && (i<=5)) && tw!=0 ) { foundname=1; }
418: if (i==6 && tw!=0) { foundid=1; }
419: if (i==7 && tw!=0) { foundsec=1; }
420: if (i==8 && tw!=0) { foundpwd=1; }
421: }
422: verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
423: }
424:
425: function flip(vf,tf) {
426: var nw=eval('vf.f'+tf+'.selectedIndex');
427: var i;
428: // picked the all one one name field, reset the other name ones to blank
429: if (tf==1 && nw!=0) {
430: for (i=2;i<=5;i++) {
431: eval('vf.f'+i+'.selectedIndex=0;')
432: }
433: }
434: //picked one of the piecewise name fields, reset the all in
435: //one field to blank
436: if ((tf>=2) && (tf<=5) && (nw!=0)) {
437: eval('vf.f1.selectedIndex=0;')
438: }
439: // intial password specified, pick internal authentication
440: if (tf==8 && nw!=0) {
441: changed_radio('int',document.studentform);
442: set_auth_radio_buttons('int',document.studentform);
443: vf.krbarg.value='';
444: vf.intarg.value='';
445: vf.locarg.value='';
446: }
447: }
448:
449: function clearpwd(vf) {
450: var i;
451: if (eval('vf.f8.selectedIndex')!=0) {
452: eval('vf.f8.selectedIndex=0;')
453: }
454: }
455: ENDPICK
456: }
457:
458: ###############################################################
459: ###############################################################
460: sub print_upload_manager_footer {
461: my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_;
462: my %param = ( formname => 'document.studentform');
463: my $krbform = &Apache::loncommon::authform_kerberos(%param);
464: my $intform = &Apache::loncommon::authform_internal(%param);
465: my $locform = &Apache::loncommon::authform_local(%param);
466: my $domform = &domain_form($defdom);
467: $r->print(<<ENDPICK);
468: </table>
469: <input type=hidden name=nfields value=$i>
470: <input type=hidden name=keyfields value="$keyfields">
471: <h3>Login Type</h3>
472: <p>Note: this will not take effect if the user already exists</p>
473: <p>
474: $krbform
475: </p>
476: <p>
477: $intform
478: </p>
479: <p>
480: $locform
481: </p>
482: <h3>LON-CAPA Domain for Students</h3>
483: LON-CAPA domain: $domform <p>
484: <h3>Starting and Ending Dates</h3>
485: <input type="hidden" value='' name="pres_value" >
486: <input type="hidden" value='' name="pres_type" >
487: <input type="hidden" value='' name="pres_marker" >
488: <input type="hidden" value='$today' name="startdate" >
489: <input type="hidden" value='$halfyear' name="enddate" >
490: <a
491: href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
492: >Set Starting Date</a><p>
493:
494: <a
495: href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"
496: >Set Ending Date</a><p>
497: <h3>Full Update</h3>
498: <input type=checkbox name=fullup value=yes> Full update
499: (also print list of users not enrolled anymore)<p>
500: <h3>ID/Student Number</h3>
501: <input type=checkbox name=forceid value=yes>
502: Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
503: (only do if you know what you are doing)<p>
504: <input type="button" onClick="javascript:verify(this.form)" value="Update Courselist" /><br />
505: Note: for large courses, this operation may be time consuming.
506: ENDPICK
507: }
508:
509: # ======================================================= Menu Phase Two Upload
510: sub print_upload_manager_form {
511: my $r=shift;
512:
513: my $datatoken;
514: if (!$ENV{'form.datatoken'}) {
515: $datatoken=&Apache::loncommon::upfile_store($r);
516: } else {
517: $datatoken=$ENV{'form.datatoken'};
518: &Apache::loncommon::load_tmp_file($r);
519: }
520: my @records=&Apache::loncommon::upfile_record_sep();
521: my $total=$#records;
522: my $distotal=$total+1;
523: $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
524: my $krbdefdom=$1;
525: $krbdefdom=~tr/a-z/A-Z/;
526: my $today=time;
527: my $halfyear=$today+15552000;
528: my $defdom=$r->dir_config('lonDefDomain');
529: &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom);
530: my $i;
531: my $keyfields;
532: if ($total>=0) {
533: my @d=(['username','Username'],
534: ['names','Last Name, First Names'],
535: ['fname','First Name'],
536: ['mname','Middle Names/Initials'],
537: ['lname','Last Name'],
538: ['gen','Generation'],
539: ['id','ID/Student Number'],
540: ['sec','Group/Section'],
541: ['ipwd','Initial Password']);
542: if ($ENV{'form.upfile_associate'} eq 'reverse') {
543: &Apache::loncommon::csv_print_samples($r,\@records);
544: $i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d);
545: foreach (@d) { $keyfields.=$_->[0].','; }
546: chop($keyfields);
547: } else {
548: unshift(@d,['none','']);
549: $i=&Apache::loncommon::csv_samples_select_table($r,\@records,\@d);
550: my %sone=&Apache::loncommon::record_sep($records[0]);
551: $keyfields=join(',',sort(keys(%sone)));
552: }
553: }
554: &print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear);
555: }
556:
557: # ======================================================= Enroll single student
558: sub enroll_single_student {
559: my $r=shift;
560: $r->print('<h3>Enrolling Student</h3>');
561: $r->print('<p>Enrolling '.$ENV{'form.cuname'}." \@ ".
562: $ENV{'form.lcdomain'}.'</p>');
563: if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&
564: ($ENV{'form.lcdomain'})&&($ENV{'form.lcdomain'}!~/\W/)) {
565: # Deal with home server selection
566: my $domain=$ENV{'form.lcdomain'};
567: my $desiredhost = $ENV{'form.lcserver'};
568: if (lc($desiredhost) eq 'default') {
569: $desiredhost = undef;
570: } else {
571: my %home_servers =&Apache::loncommon::get_library_servers($domain);
572: if (! exists($home_servers{$desiredhost})) {
573: $r->print('<font color="#ff0000">Error:</font>'.
574: 'Invalid home server specified');
575: return;
576: }
577: }
578: $r->print(" with server $desiredhost :") if (defined($desiredhost));
579: # End of home server selection logic
580: my $amode='';
581: my $genpwd='';
582: if ($ENV{'form.login'} eq 'krb') {
583: $amode='krb';
584: $amode.=$ENV{'form.krbver'};
585: $genpwd=$ENV{'form.krbarg'};
586: } elsif ($ENV{'form.login'} eq 'int') {
587: $amode='internal';
588: $genpwd=$ENV{'form.intarg'};
589: } elsif ($ENV{'form.login'} eq 'loc') {
590: $amode='localauth';
591: $genpwd=$ENV{'form.locarg'};
592: if (!$genpwd) { $genpwd=" "; }
593: }
594: my $home = &Apache::lonnet::homeserver($ENV{'form.cuname'},
595: $ENV{'form.lcdomain'});
596: if ((($amode) && ($genpwd)) || ($home ne 'no_host')) {
597: # Clean out any old roles the student has in this class.
598: &modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'},
599: $ENV{'request.course.id'},$ENV{'form.csec'},
600: $desiredhost);
601: my $login_result = &Apache::lonnet::modifystudent
602: ($ENV{'form.lcdomain'},$ENV{'form.cuname'},
603: $ENV{'form.cstid'},$amode,$genpwd,
604: $ENV{'form.cfirst'},$ENV{'form.cmiddle'},
605: $ENV{'form.clast'},$ENV{'form.cgen'},
606: $ENV{'form.csec'},$ENV{'form.enddate'},
607: $ENV{'form.startdate'},$ENV{'form.forceid'},
608: $desiredhost);
609: if ($login_result =~ /^ok/) {
610: $r->print($login_result);
611: $r->print("<p> If active, the new role will be available ".
612: "when the student next logs in to LON-CAPA.</p>");
613: } else {
614: $r->print("unable to enroll: ".$login_result);
615: }
616: } else {
617: $r->print('<p><font color="#ff0000">ERROR</font> '.
618: 'Invalid login mode or password. '.
619: 'Unable to enroll '.$ENV{'form.cuname'}.'.</p>');
620: }
621: } else {
622: $r->print('Invalid username or domain');
623: }
624: }
625:
626: # ======================================================= Menu Phase Two Enroll
627: sub print_enroll_single_student_form {
628: my $r=shift;
629: $r->print("<h3>Enroll One Student</h3>");
630: my ($krbdefdom) = $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
631: $krbdefdom=~tr/a-z/A-Z/;
632: my $today = time;
633: my $halfyear = $today+15552000;
634: my $defdom=$r->dir_config('lonDefDomain');
635: my $javascript_validations=&javascript_validations($krbdefdom);
636: # Set up authentication forms
637: my %param = ( formname => 'document.studentform');
638: my $krbform = &Apache::loncommon::authform_kerberos(%param);
639: my $intform = &Apache::loncommon::authform_internal(%param);
640: my $locform = &Apache::loncommon::authform_local(%param);
641: # Set up domain selection form
642: my $domform = &domain_form($defdom);
643: # Print it all out
644: $r->print(<<END);
645: <input type="hidden" name="action" value="enrollstudent">
646: <input type="hidden" name="state" value="done">
647:
648: <script type="text/javascript" language="Javascript">
649: function verify(vf) {
650: var founduname=0;
651: var foundpwd=0;
652: var foundname=0;
653: var foundid=0;
654: var foundsec=0;
655: var tw;
656: if ((typeof(vf.cuname.value) !="undefined") && (vf.cuname.value!='') &&
657: (typeof(vf.lcdomain.value)!="undefined") && (vf.lcdomain.value!='')) {
658: founduname=1;
659: }
660: if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&
661: (typeof(vf.clast.value) !="undefined") && (vf.clast.value!='')) {
662: foundname=1;
663: }
664: if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {
665: foundsec=1;
666: }
667: if ((typeof(vf.cstid.value)!="undefined") && (vf.cstid.value!='')) {
668: foundid=1;
669: }
670: if (founduname==0) {
671: alert('You need to specify at least the username and domain fields');
672: return;
673: }
674: verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
675: }
676:
677: $javascript_validations
678:
679: function clearpwd(vf) {
680: //nothing else needs clearing
681: }
682:
683: </script>
684: <h3>Personal Data</h3>
685: <table>
686: <tr><td>First Name:</td><td> <input type="text" name="cfirst" size="15"></td></tr>
687: <tr><td>Middle Name:</td><td> <input type="text" name="cmiddle" size="15"></td></tr>
688: <tr><td>Last Name: </td><td><input type="text" name="clast" size="15"></td></tr>
689: <tr><td>Generation: </td><td><input type="text" name="cgen" size="5"> </td></tr>
690: </table>
691:
692: <h3>Login Data</h3>
693: <p>Username: <input type="text" name="cuname" size="15"></p>
694: <p>Domain: $domform</p>
695: <p>Note: login settings below will not take effect if the user already exists
696: </p><p>
697: $krbform
698: </p><p>
699: $intform
700: </p><p>
701: $locform
702: </p><p>
703:
704: <h3>Course Data</h3>
705:
706: <p>Group/Section: <input type="text" name="csec" size="5" />
707: <p>
708: <!-- Date setting form elements -->
709: <input type="hidden" name="pres_value" value='' />
710: <input type="hidden" name="pres_type" value='' />
711: <input type="hidden" name="pres_marker" value='' />
712: <input type="hidden" name="startdate" value='$today' />
713: <input type="hidden" name="enddate" value='$halfyear' />
714: </p><p>
715: <a
716: href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
717: >Set Starting Date</a>
718: </p><p>
719: <a
720: href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"
721: >Set Ending Date</a>
722: </p>
723: <h3>ID/Student Number</h3>
724: <p>
725: ID/Student Number: <input type="text" name="cstid" size="10">
726: </p><p>
727: <input type="checkbox" name="forceid" value="yes">
728: Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
729: (only do if you know what you are doing)
730: </p><p>
731: <input type="button" onClick="verify(this.form)" value="Enroll as student">
732: </p>
733: END
734: return;
735: }
736:
737: # ========================================================= Menu Phase Two Drop
738: sub print_drop_menu {
739: my $r=shift;
740: $r->print("<h3>Drop Students</h3>");
741: my $cid=$ENV{'request.course.id'};
742: my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
743: if (! defined($classlist)) {
744: $r->print("There are no students currently enrolled.\n");
745: return;
746: }
747: # Print out the available choices
748: &show_drop_list($r,$classlist,$keylist);
749: return;
750: }
751:
752: # ============================================== view classlist
753: sub print_html_classlist {
754: my $r=shift;
755: if (! exists($ENV{'form.sortby'})) {
756: $ENV{'form.sortby'} = 'username';
757: }
758: if (! exists($ENV{'form.Status'}) ||
759: $ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) {
760: $ENV{'form.Status'} = 'Active';
761: }
762: my $status_select = &Apache::lonhtmlcommon::StatusOptions
763: ($ENV{'form.Status'},'studentform');
764: $r->print(<<END);
765: <input type="hidden" name="action" value="$ENV{'form.action'}" />
766: <input type="hidden" name="state" value="" />
767: <p>
768: <font size="+1">Current Classlist</font>
769:
770: <font size="+1">
771: <a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a>
772: </font>
773:
774: $status_select
775: </p>
776: END
777: my $cid=$ENV{'request.course.id'};
778: my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
779: if (! defined($classlist)) {
780: $r->print("There are no students currently enrolled.\n");
781: } else {
782: # Print out the available choices
783: if ($ENV{'form.action'} eq 'modifystudent') {
784: &show_class_list($r,'view','modify','modifystudent',
785: $ENV{'form.Status'},$classlist,$keylist);
786: } else {
787: &show_class_list($r,'view','aboutme','classlist',
788: $ENV{'form.Status'},$classlist,$keylist);
789: }
790: }
791: }
792:
793: # ============================================== view classlist
794: sub print_csv_classlist {
795: my $r=shift;
796: my $cid=$ENV{'request.course.id'};
797: my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
798: if (! defined($classlist)) {
799: $r->print("There are no students currently enrolled.\n");
800: } else {
801: &show_class_list($r,'csv','nolink','csv',
802: $ENV{'form.Status'},$classlist,$keylist);
803: }
804: }
805:
806: # =================================================== Show student list to drop
807: sub show_class_list {
808: my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;
809: my $cid=$ENV{'request.course.id'};
810: # &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
811: # ['sortby']);
812: my $sortby = $ENV{'form.sortby'};
813: if ($sortby !~ /^(username|domain|section|fullname|id)$/) {
814: $sortby = 'username';
815: }
816: # Print out header
817: if ($mode eq 'view') {
818: if ($linkto eq 'aboutme') {
819: $r->print('Select a user name to view the users personal page.');
820: } elsif ($linkto eq 'modify') {
821: $r->print('Select a user name to modify the students information');
822: }
823: $r->print(<<END);
824: <input type="hidden" name="sortby" value="$sortby" />
825: <p>
826: <table border=2>
827: <tr><th>
828: <a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">username</a>
829: </th><th>
830: <a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">domain</a>
831: </th><th>
832: <a href="javascript:document.studentform.sortby.value='id';document.studentform.submit();">ID</a>
833: </th><th>
834: <a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">student name</a>
835: </th><th>
836: <a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">section</a>
837: </th>
838: </tr>
839: END
840: } elsif ($mode eq 'csv') {
841: if($statusmode eq 'Expired') {
842: $r->print('"Students with expired roles"');
843: }
844: if ($statusmode eq 'Any') {
845: $r->print('"'.join('","',("username","domain","ID","student name",
846: "section","status")).'"'."\n");
847: } else {
848: $r->print('"'.join('","',("username","domain","ID","student name",
849: "section")).'"'."\n");
850: }
851: }
852: #
853: # Sort the students
854: my %index;
855: my $i;
856: foreach (@$keylist) {
857: $index{$_} = $i++;
858: }
859: my $index = $index{$sortby};
860: my $second = $index{'username'};
861: my $third = $index{'domain'};
862: my @Sorted_Students = sort {
863: lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
864: ||
865: lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
866: ||
867: lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
868: } (keys(%$classlist));
869: foreach my $student (@Sorted_Students) {
870: my $username = $classlist->{$student}->[$index{'username'}];
871: my $domain = $classlist->{$student}->[$index{'domain'}];
872: my $section = $classlist->{$student}->[$index{'section'}];
873: my $name = $classlist->{$student}->[$index{'fullname'}];
874: my $id = $classlist->{$student}->[$index{'id'}];
875: my $status = $classlist->{$student}->[$index{'status'}];
876: next if (($statusmode ne 'Any') && ($status ne $statusmode));
877: if ($mode eq 'view') {
878: $r->print("<tr>\n <td>\n ");
879: if ($linkto eq 'nothing') {
880: $r->print($username);
881: } elsif ($linkto eq 'aboutme') {
882: $r->print(&Apache::loncommon::aboutmewrapper($username,
883: $username,
884: $domain));
885: } elsif ($linkto eq 'modify') {
886: $r->print('<a href="/adm/dropadd?action=modifystudent'.
887: '&state=selected'.'&sname='.$username.
888: '&sdom='.$domain.'&sortby='.$sortby.'">'.
889: $username."</a>\n");
890: }
891: $r->print(<<"END");
892: </td>
893: <td>$domain</td>
894: <td>$id</td>
895: <td>$name</td>
896: <td>$section</td>
897: </tr>
898: END
899: } elsif ($mode eq 'csv') {
900: # no need to bother with $linkto
901: my @line = ();
902: foreach ($username,$domain,$id,$name,$section) {
903: push @line,&Apache::loncommon::csv_translate($_);
904: }
905: if ($statusmode eq 'Any') {
906: push @line,&Apache::loncommon::csv_translate($status);
907: }
908: my $tmp = $";
909: $" = '","';
910: $r->print("\"@line\"\n");
911: $" = $tmp;
912: }
913: }
914: $r->print('</table><br>') if ($mode eq 'view');
915: }
916:
917:
918: #
919: # print out form for modification of a single students data
920: #
921: sub print_modify_student_form {
922: my $r = shift();
923: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
924: ['sdom','sname','sortby']);
925: my $sname = $ENV{'form.sname'};
926: my $sdom = $ENV{'form.sdom'};
927: my $sortby = $ENV{'form.sortby'};
928: # determine the students name information
929: my %info=&Apache::lonnet::get('environment',
930: ['firstname','middlename',
931: 'lastname','generation','id'],
932: $sdom, $sname);
933: my ($tmp) = keys(%info);
934: if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
935: $r->print('<font color="#ff0000" size="+2">Error</font>'.
936: '<p>'.
937: 'Unable to retrieve environment data for '.$sname.
938: 'in domain '.$sdom.'</p><p>'.
939: 'Please contact your LON-CAPA administrator '.
940: 'regarding this situation.</p></body></html>');
941: return;
942: }
943: # determine the students starting and ending times and section
944: my ($starttime,$endtime,$section) = &get_enrollment_data($sname,$sdom);
945: # Deal with date forms
946: my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',
947: 'startdate',
948: $starttime);
949: my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
950: 'enddate',
951: $endtime);
952: # Make sure student is enrolled in course
953: $r->print(<<END);
954: <p>
955: <font size="+1">
956: Only domain coordinators can change a users password.
957: </font>
958: </p>
959: <input type="hidden" name="slogin" value="$sname" />
960: <input type="hidden" name="sdomain" value="$sdom" />
961: <input type="hidden" name="action" value="modifystudent" />
962: <input type="hidden" name="state" value="done" />
963: <input type="hidden" name="sortby" value="$sortby" />
964: <h2>Modify Enrollment for $info{'firstname'} $info{'middlename'}
965: $info{'lastname'} $info{'generation'}, $sname\@$sdom</h2>
966: <p>
967: <b>Student Name</b>
968: <table>
969: <tr><th>First</th><th>Middle</th><th>Last</th><th>Generation</th></tr>
970: <tr><td>
971: <input type="text" name="firstname" value="$info{'firstname'}" /></td><td>
972: <input type="text" name="middlename" value="$info{'middlename'}" /></td><td>
973: <input type="text" name="lastname" value="$info{'lastname'}" /></td><td>
974: <input type="text" name="generation" value="$info{'generation'}" /></td></tr>
975: </table>
976: </p><p>
977: <b>Student ID</b>: <input type="text" name="id" value="$info{'id'}" size="12"/>
978: </p><p>
979: <input type="checkbox" name="forceid" >
980: Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
981: (only do if you know what you are doing)
982: </p><p>
983: <b>Section</b>: <input type="text" name="section" value="$section" size="4"/>
984: </p><p>
985: <table>
986: <tr><td align="right"><b>Starting Date:</b></td><td>$startdateform</td></tr>
987: <tr><td align="right"><b>Ending Date:</b></td><td>$enddateform</td></tr>
988: </table>
989: </p>
990: <input type="submit" value="Submit Modifications" />
991: </body></html>
992: END
993: return;
994: }
995:
996: #
997: # modify a single students section
998: #
999: sub modify_single_student {
1000: my $r = shift;
1001: # Get the 'sortby' variable so the user does not need to re-sort
1002: my $sortby = $ENV{'form.sortby'};
1003: #
1004: # We always need this information
1005: my $slogin = $ENV{'form.slogin'};
1006: my $sdom = $ENV{'form.sdomain'};
1007: #
1008: # Get the old data
1009: my %old=&Apache::lonnet::get('environment',
1010: ['firstname','middlename',
1011: 'lastname','generation','id'],
1012: $sdom, $slogin);
1013: my ($tmp) = keys(%old);
1014: if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
1015: $r->print("There was an error determining the environment values ".
1016: " for $slogin \@ $sdom.");
1017: return;
1018: }
1019: undef $tmp;
1020: #
1021: # Get the new data
1022: my $firstname = $ENV{'form.firstname'};
1023: my $middlename = $ENV{'form.middlename'};
1024: my $lastname = $ENV{'form.lastname'};
1025: my $generation = $ENV{'form.generation'};
1026: my $section = $ENV{'form.section'};
1027: my $courseid = $ENV{'request.course.id'};
1028: my $sid = $ENV{'form.id'};
1029: my $starttime = &Apache::lonhtmlcommon::get_date_from_form('startdate',
1030: time);
1031: my $endtime = &Apache::lonhtmlcommon::get_date_from_form('enddate',
1032: time);
1033: my $displayable_starttime = localtime($starttime);
1034: my $displayable_endtime = localtime($endtime);
1035: #
1036: # check for forceid override
1037: if (($sid ne $old{'id'}) && (! exists($ENV{'form.forceid'}))) {
1038: $r->print("<font color=\"ff0000\">You changed the students id ".
1039: " but did not disable the ID change safeguard.".
1040: " The students id will not be changed.</font>");
1041: $sid = $old{'id'};
1042: }
1043: #
1044: # talk to the user about what we are going to do
1045: $r->print(<<END);
1046: <h2>Modifying data for user $slogin \@ $sdom </h2>
1047: <h3>Student Information</h3>
1048: <table rules="rows" border="1" cellpadding="3" >
1049: <tr>
1050: <th> Field </th>
1051: <th> Old Value </th>
1052: <th> New Value </th>
1053: </tr>
1054: <tr>
1055: <td> <b>First name</b> </td>
1056: <td> $old{'firstname'} </td>
1057: <td> $firstname </td>
1058: </tr><tr>
1059: <td> <b>Middle name</b> </td>
1060: <td> $old{'middlename'} </td>
1061: <td> $middlename </td>
1062: </tr><tr>
1063: <td> <b>Last name</b> </td>
1064: <td> $old{'lastname'} </td>
1065: <td> $lastname </td>
1066: </tr><tr>
1067: <td> <b>Generation</b> </td>
1068: <td> $old{'generation'} </td>
1069: <td> $generation </td>
1070: </tr><tr>
1071: <td> <b>ID</b> </td>
1072: <td> $old{'id'} </td>
1073: <td> $sid </td>
1074: </tr>
1075: </table>
1076: <h3>Role Information</h3>
1077: <table>
1078: <tr><td>Section </td><td> $section </td></tr>
1079: <tr><td>Start Time </td><td> $displayable_starttime </td></tr>
1080: <tr><td>End Time </td><td> $displayable_endtime </td></tr>
1081: </table>
1082: <p>
1083: END
1084: #
1085: # Send request(s) to modify data
1086: my $roleresults = &Apache::lonnet::modifystudent
1087: ($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname,
1088: $generation,$section,$endtime,$starttime,$ENV{'form.forceid'});
1089: if ($roleresults eq 'refused' ) {
1090: $r->print("Your request to change the role information for this ".
1091: "student was refused. You do not appear to have ".
1092: "sufficient authority to change student information.");
1093: } elsif ($roleresults !~ /ok/) {
1094: $r->print("An error occurred during the attempt to change the role".
1095: " information for this student. <br />".
1096: "The error reported was ".
1097: $roleresults);
1098: &Apache::lonnet::logthis("londropadd:failed attempt to modify student".
1099: " data for ".$slogin." \@ ".$sdom." by ".
1100: $ENV{'user.name'}." \@ ".$ENV{'user.domain'}.
1101: ":".$roleresults);
1102: } else { # everything is okay!
1103: $r->print("Student information updated successfully. <br />".
1104: "The student must log out and log in again to see ".
1105: "these changes.");
1106: }
1107: $r->print(<<END);
1108: </p><p>
1109: <a href="/adm/dropadd?action=modifystudent&sortby=$sortby">Modify another students data</a>
1110: </body></html>
1111: END
1112: return;
1113: }
1114:
1115: sub get_enrollment_data {
1116: my ($sname,$sdomain) = @_;
1117: my $courseid = $ENV{'request.course.id'};
1118: $courseid =~ s:_:/:g;
1119: my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname);
1120: my ($tmp) = keys(%roles);
1121: # Bail out if we were unable to get the students roles
1122: return "666" if ($tmp =~ /^(con_lost|error|no_such_host)/i);
1123: # Go through the roles looking for enrollment in this course
1124: my ($end,$start) = (undef,undef);
1125: my $section = '';
1126: my $count = scalar(keys(%roles));
1127: while (my ($course,$role) = each(%roles)) {
1128: &Apache::lonnet::logthis('course = '.$course.' role = '.$role);
1129: if ($course=~ /^\/$courseid\/*\s*(\w+)*_st$/ ) {
1130: #
1131: # Get active role
1132: $section=$1;
1133: (undef,$end,$start)=split(/\_/,$role);
1134: my $now=time;
1135: my $notactive=0;
1136: if ($start) {
1137: if ($now<$start) { $notactive=1; }
1138: }
1139: if ($end) {
1140: if ($now>$end) { $notactive=1; }
1141: }
1142: unless ($notactive) { return ($start,$end,$section); }
1143: }
1144: }
1145: return ($start,$end,$section);
1146: }
1147:
1148: #################################################
1149: #################################################
1150:
1151: =pod
1152:
1153: =item show_drop_list
1154:
1155: Display a list of students to drop
1156: Inputs:
1157:
1158: =over 4
1159:
1160: =item $r, Apache request
1161:
1162: =item $classlist, hash pointer returned from loncoursedata::get_classlist();
1163:
1164: =item $keylist, array pointer returned from loncoursedata::get_classlist()
1165: which describes the order elements are stored in the %$classlist values.
1166:
1167: =item $nosort, if true, sorting links are omitted.
1168:
1169: =back
1170:
1171: =cut
1172:
1173: #################################################
1174: #################################################
1175: sub show_drop_list {
1176: my ($r,$classlist,$keylist,$nosort)=@_;
1177: my $cid=$ENV{'request.course.id'};
1178: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1179: ['sortby']);
1180: my $sortby = $ENV{'form.sortby'};
1181: if ($sortby !~ /^(username|domain|section|fullname|id)$/) {
1182: $sortby = 'username';
1183: }
1184: #
1185: my $action = "drop";
1186: $r->print(<<END);
1187: <input type="hidden" name="sortby" value="$sortby" />
1188: <input type="hidden" name="action" value="$action" />
1189: <input type="hidden" name="state" value="done" />
1190: <script>
1191: function checkAll(field) {
1192: for (i = 0; i < field.length; i++)
1193: field[i].checked = true ;
1194: }
1195:
1196: function uncheckAll(field) {
1197: for (i = 0; i < field.length; i++)
1198: field[i].checked = false ;
1199: }
1200: </script>
1201: <p>
1202: <input type="hidden" name="phase" value="four">
1203: END
1204:
1205: if ($nosort) {
1206: $r->print(<<END);
1207: <table border=2>
1208: <tr>
1209: <th> </th>
1210: <th>username</th>
1211: <th>domain</th>
1212: <th>ID</th>
1213: <th>student name</th>
1214: <th>section</th>
1215: </tr>
1216: END
1217:
1218: } else {
1219: $r->print(<<END);
1220: <table border=2>
1221: <tr><th> </th>
1222: <th>
1223: <a href="/adm/dropadd?action=$action&sortby=username">username</a>
1224: </th><th>
1225: <a href="/adm/dropadd?action=$action&sortby=domain">domain</a>
1226: </th><th>
1227: <a href="/adm/dropadd?action=$action&sortby=id">ID</a>
1228: </th><th>
1229: <a href="/adm/dropadd?action=$action&sortby=fullname">student name</a>
1230: </th><th>
1231: <a href="/adm/dropadd?action=$action&sortby=section">section</a>
1232: </th>
1233: </tr>
1234: END
1235: }
1236: #
1237: # Sort the students
1238: my %index;
1239: my $i;
1240: foreach (@$keylist) {
1241: $index{$_} = $i++;
1242: }
1243: my $index = $index{$sortby};
1244: my $second = $index{'username'};
1245: my $third = $index{'domain'};
1246: my @Sorted_Students = sort {
1247: lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
1248: ||
1249: lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
1250: ||
1251: lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
1252: } (keys(%$classlist));
1253: foreach my $student (@Sorted_Students) {
1254: my $error;
1255: my $username = $classlist->{$student}->[$index{'username'}];
1256: my $domain = $classlist->{$student}->[$index{'domain'}];
1257: my $section = $classlist->{$student}->[$index{'section'}];
1258: my $name = $classlist->{$student}->[$index{'fullname'}];
1259: my $id = $classlist->{$student}->[$index{'id'}];
1260: my $status = $classlist->{$student}->[$index{'status'}];
1261: next if ($status ne 'Active');
1262: #
1263: $r->print(<<"END");
1264: <tr>
1265: <td><input type="checkbox" name="droplist" value="$student"></td>
1266: <td>$username</td>
1267: <td>$domain</td>
1268: <td>$id</td>
1269: <td>$name</td>
1270: <td>$section</td>
1271: </tr>
1272: END
1273: }
1274: $r->print('</table><br>');
1275: $r->print(<<"END");
1276: </p><p>
1277: <input type="button" value="check all" onclick="javascript:checkAll(document.studentform.droplist)">
1278: <input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.studentform.droplist)">
1279: <p><input type=submit value="Drop Students"></p>
1280: END
1281: return;
1282: }
1283:
1284: #
1285: # Print out the initial form to get the courselist file
1286: #
1287: sub print_first_courselist_upload_form {
1288: my $r=shift;
1289: my $upfile_select=&Apache::loncommon::upfile_select_html();
1290: my $create_classlist_help =
1291: &Apache::loncommon::help_open_topic("Course_Create_Class_List",
1292: "How do I create a class list from a spreadsheet");
1293: my $create_csv_help =
1294: &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
1295: "How do I create a CSV file from a spreadsheet");
1296: $r->print(<<ENDUPFORM);
1297: <input type=hidden name=phase value=two>
1298: <h3>Upload a courselist</h3>
1299: $upfile_select
1300: <p>
1301: <input type=submit name="fileupload" value="Upload Courselist">
1302: <input type="hidden" name="action" value="upload" />
1303: <input type="hidden" name="state" value="got_file" />
1304: </p>
1305: $create_classlist_help <br />
1306: $create_csv_help
1307: </body></html>
1308: ENDUPFORM
1309: return;
1310: }
1311:
1312: # ================================================= Drop/Add from uploaded file
1313: sub upfile_drop_add {
1314: my $r=shift;
1315: &Apache::loncommon::load_tmp_file($r);
1316: my @studentdata=&Apache::loncommon::upfile_record_sep();
1317: my @keyfields = split(/\,/,$ENV{'form.keyfields'});
1318: my $cid = $ENV{'request.course.id'};
1319: my %fields=();
1320: for (my $i=0; $i<=$ENV{'form.nfields'}; $i++) {
1321: if ($ENV{'form.upfile_associate'} eq 'reverse') {
1322: if ($ENV{'form.f'.$i} ne 'none') {
1323: $fields{$keyfields[$i]}=$ENV{'form.f'.$i};
1324: }
1325: } else {
1326: $fields{$ENV{'form.f'.$i}}=$keyfields[$i];
1327: }
1328: }
1329: #
1330: my $startdate = $ENV{'form.startdate'};
1331: my $enddate = $ENV{'form.enddate'};
1332: if ($startdate=~/\D/) { $startdate=''; }
1333: if ($enddate=~/\D/) { $enddate=''; }
1334: # Determine domain and desired host (home server)
1335: my $domain=$ENV{'form.lcdomain'};
1336: my $desiredhost = $ENV{'form.lcserver'};
1337: if (lc($desiredhost) eq 'default') {
1338: $desiredhost = undef;
1339: } else {
1340: my %home_servers = &Apache::loncommon::get_library_servers($domain);
1341: if (! exists($home_servers{$desiredhost})) {
1342: $r->print('<font color="#ff0000">Error:</font>'.
1343: 'Invalid home server specified');
1344: return;
1345: }
1346: }
1347: # Determine authentication mechanism
1348: my $amode = '';
1349: my $genpwd = '';
1350: if ($ENV{'form.login'} eq 'krb') {
1351: $amode='krb';
1352: $amode.=$ENV{'form.krbver'};
1353: $genpwd=$ENV{'form.krbarg'};
1354: } elsif ($ENV{'form.login'} eq 'int') {
1355: $amode='internal';
1356: if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) {
1357: $genpwd=$ENV{'form.intarg'};
1358: }
1359: } elsif ($ENV{'form.login'} eq 'loc') {
1360: $amode='localauth';
1361: if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
1362: $genpwd=$ENV{'form.locarg'};
1363: }
1364: }
1365: unless (($domain=~/\W/) || ($amode eq '')) {
1366: #######################################
1367: ## Enroll Students ##
1368: #######################################
1369: $r->print('<h3>Enrolling Students</h3>');
1370: my $count=0;
1371: my $flushc=0;
1372: my %student=();
1373: # Get new classlist
1374: foreach (@studentdata) {
1375: my %entries=&Apache::loncommon::record_sep($_);
1376: # Determine student name
1377: unless (($entries{$fields{'username'}} eq '') ||
1378: (!defined($entries{$fields{'username'}}))) {
1379: my ($fname, $mname, $lname,$gen) = ('','','','');
1380: if (defined($fields{'names'})) {
1381: ($lname,$fname,$mname)=($entries{$fields{'names'}}=~
1382: /([^\,]+)\,\s*(\w+)\s*(.*)$/);
1383: } else {
1384: if (defined($fields{'fname'})) {
1385: $fname=$entries{$fields{'fname'}};
1386: }
1387: if (defined($fields{'mname'})) {
1388: $mname=$entries{$fields{'mname'}};
1389: }
1390: if (defined($fields{'lname'})) {
1391: $lname=$entries{$fields{'lname'}};
1392: }
1393: if (defined($fields{'gen'})) {
1394: $gen=$entries{$fields{'gen'}};
1395: }
1396: }
1397: if ($entries{$fields{'username'}}=~/\W/) {
1398: $r->print('<p><b>Unacceptable username: '.
1399: $entries{$fields{'username'}}.' for user '.
1400: $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');
1401: } else {
1402: # determine section number
1403: my $sec='';
1404: my $username=$entries{$fields{'username'}};
1405: if (defined($fields{'sec'})) {
1406: if (defined($entries{$fields{'sec'}})) {
1407: $sec=$entries{$fields{'sec'}};
1408: }
1409: }
1410: # determine student id number
1411: my $id='';
1412: if (defined($fields{'id'})) {
1413: if (defined($entries{$fields{'id'}})) {
1414: $id=$entries{$fields{'id'}};
1415: }
1416: $id=~tr/A-Z/a-z/;
1417: }
1418: # determine student password
1419: my $password='';
1420: if ($genpwd) {
1421: $password=$genpwd;
1422: } else {
1423: if (defined($fields{'ipwd'})) {
1424: if ($entries{$fields{'ipwd'}}) {
1425: $password=$entries{$fields{'ipwd'}};
1426: }
1427: }
1428: }
1429: # Clean up whitespace
1430: foreach (\$domain,\$username,\$id,\$fname,\$mname,
1431: \$lname,\$gen,\$sec) {
1432: $$_ =~ s/(\s+$|^\s+)//g;
1433: }
1434: if ($password) {
1435: &modifystudent($domain,$username,$cid,$sec,
1436: $desiredhost);
1437: my $reply=&Apache::lonnet::modifystudent
1438: ($domain,$username,$id,$amode,$password,
1439: $fname,$mname,$lname,$gen,$sec,$enddate,
1440: $startdate,$ENV{'form.forceid'},$desiredhost);
1441: if ($reply ne 'ok') {
1442: $r->print('<p><b>'.
1443: 'Error enrolling '.$username.': '.
1444: $reply.'</b></p>');
1445: } else {
1446: $count++; $flushc++;
1447: $student{$username}=1;
1448: $r->print('. ');
1449: if ($flushc>15) {
1450: $r->rflush;
1451: $flushc=0;
1452: }
1453: }
1454: } else {
1455: $r->print("<p><b>No password for $username</b><p>");
1456: }
1457: }
1458: }
1459: } # end of foreach (@studentdata)
1460: $r->print('<p>Processed Students: '.$count.'</p>');
1461: $r->print("<p>If active, the new role will be available when the ".
1462: "students next log in to LON-CAPA.</p>");
1463: #####################################
1464: # Drop students #
1465: #####################################
1466: if ($ENV{'form.fullup'} eq 'yes') {
1467: $r->print('<h3>Dropping Students</h3>');
1468: # Get current classlist
1469: my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
1470: if (! defined($classlist)) {
1471: $r->print("There are no students currently enrolled.\n");
1472: } else {
1473: # Remove the students we just added from the list of students.
1474: foreach (@studentdata) {
1475: my %entries=&Apache::loncommon::record_sep($_);
1476: unless (($entries{$fields{'username'}} eq '') ||
1477: (!defined($entries{$fields{'username'}}))) {
1478: delete($classlist->{$entries{$fields{'username'}}.
1479: ':'.$domain});
1480: }
1481: }
1482: # Print out list of dropped students.
1483: &show_drop_list($r,$classlist,$keylist,'nosort');
1484: }
1485: }
1486: } # end of unless
1487: }
1488:
1489: # ================================================================== Phase four
1490: sub drop_student_list {
1491: my $r=shift;
1492: my $count=0;
1493: my @droplist;
1494: if (ref($ENV{'form.droplist'})) {
1495: @droplist = @{$ENV{'form.droplist'}};
1496: } else {
1497: @droplist = ($ENV{'form.droplist'});
1498: }
1499: foreach (@droplist) {
1500: my ($uname,$udom)=split(/\:/,$_);
1501: # drop student
1502: my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});
1503: if ($result eq 'ok' || $result eq 'ok:') {
1504: $r->print('Dropped '.$uname.' @ '.$udom.'<br>');
1505: } else {
1506: $r->print('Error dropping '.$uname.' @ '.$udom.': '.$result.
1507: '<br />');
1508: }
1509: $count++;
1510: }
1511: $r->print('<p><b>Dropped '.$count.' student(s).</b>');
1512: $r->print('<p>Re-enrollment will re-activate data.');
1513: }
1514:
1515: ###################################################################
1516: ###################################################################
1517:
1518: =pod
1519:
1520: =item &handler
1521:
1522: The typical handler you see in all these modules. Takes $r, the
1523: http request, as an argument.
1524:
1525: The response to the request is governed by two form variables
1526:
1527: form.action form.state response
1528: ---------------------------------------------------
1529: undefined undefined print main menu
1530: upload undefined print courselist upload menu
1531: upload got_file deal with uploaded file,
1532: print the upload managing menu
1533: upload enrolling enroll students based on upload
1534: drop undefined print the classlist ready to drop
1535: drop done drop the selected students
1536: enrollstudent undefined print single student enroll menu
1537: enrollstudent enrolling enroll student
1538: classlist undefined print html classlist
1539: classlist csv print csv classlist
1540: modifystudent undefined print classlist to select student to modify
1541: modifystudent selected print modify student menu
1542: modifystudent done make modifications to student record
1543:
1544: =cut
1545:
1546: ###################################################################
1547: ###################################################################
1548: sub handler {
1549: my $r=shift;
1550: if ($r->header_only) {
1551: $r->content_type('text/html');
1552: $r->send_http_header;
1553: return OK;
1554: }
1555: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1556: ['action','state']);
1557: # Needs to be in a course
1558: if (! (($ENV{'request.course.fn'}) &&
1559: (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'})))) {
1560: # Not in a course, or not allowed to modify parms
1561: $ENV{'user.error.msg'}=
1562: "/adm/dropadd:cst:0:0:Cannot drop or add students";
1563: return HTTP_NOT_ACCEPTABLE;
1564: }
1565: #
1566: # Only output the header information if they did not request csv format
1567: #
1568: if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
1569: $r->content_type('text/csv');
1570: } else {
1571: # Start page
1572: $r->content_type('text/html');
1573: $r->send_http_header;
1574: $r->print(&header());
1575: }
1576: #
1577: # Main switch on form.action and form.state, as appropriate
1578: if (! exists($ENV{'form.action'})) {
1579: &print_main_menu($r);
1580: } elsif ($ENV{'form.action'} eq 'upload') {
1581: if (! exists($ENV{'form.state'})) {
1582: &print_first_courselist_upload_form($r);
1583: } elsif ($ENV{'form.state'} eq 'got_file') {
1584: &print_upload_manager_form($r);
1585: } elsif ($ENV{'form.state'} eq 'enrolling') {
1586: if ($ENV{'form.datatoken'}) {
1587: &upfile_drop_add($r);
1588: } else {
1589: # Hmmm, this is an error
1590: }
1591: } else {
1592: &print_first_courselist_upload_form($r);
1593: }
1594: } elsif ($ENV{'form.action'} eq 'drop') {
1595: if (! exists($ENV{'form.state'})) {
1596: &print_drop_menu($r);
1597: } elsif ($ENV{'form.state'} eq 'done') {
1598: &drop_student_list($r);
1599: } else {
1600: &print_drop_menu($r);
1601: }
1602: } elsif ($ENV{'form.action'} eq 'enrollstudent') {
1603: if (! exists($ENV{'form.state'})) {
1604: &print_enroll_single_student_form($r);
1605: } elsif ($ENV{'form.state'} eq 'enrolling') {
1606: &enroll_single_student($r);
1607: } else {
1608: &print_enroll_single_student_form($r);
1609: }
1610: } elsif ($ENV{'form.action'} eq 'classlist') {
1611: if (! exists($ENV{'form.state'})) {
1612: &print_html_classlist($r);
1613: } elsif ($ENV{'form.state'} eq 'csv') {
1614: &print_csv_classlist($r);
1615: } else {
1616: &print_html_classlist($r);
1617: }
1618: } elsif ($ENV{'form.action'} eq 'modifystudent') {
1619: if (! exists($ENV{'form.state'})) {
1620: &print_html_classlist($r);
1621: } elsif ($ENV{'form.state'} eq 'selected') {
1622: &print_modify_student_form($r);
1623: } elsif ($ENV{'form.state'} eq 'done') {
1624: &modify_single_student($r);
1625: } else {
1626: &print_html_classlist($r);
1627: }
1628: } else {
1629: # We should not end up here, but I guess it is possible
1630: &Apache::lonnet::logthis("Undetermined state in londropadd.pm. ".
1631: "form.action = ".$ENV{'form.action'}.
1632: "Someone should fix this.");
1633: &print_main_menu($r);
1634: }
1635: #
1636: # Finish up
1637: if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
1638: $r->print("\n");
1639: } else {
1640: $r->print('</form></body></html>');
1641: }
1642: return OK;
1643: }
1644:
1645: ###################################################################
1646: ###################################################################
1647:
1648: 1;
1649: __END__
1650:
1651:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to londropadd.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface