Annotation of loncom/interface/londropadd.pm, revision 1.100
1.1 www 1: # The LearningOnline Network with CAPA
2: # Handler to drop and add students in courses
3: #
1.100 ! www 4: # $Id: londropadd.pm,v 1.99 2004/01/15 19:27:05 matthew Exp $
1.17 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.1 www 28: #
1.50 matthew 29: ###############################################################
1.82 www 30: ##############################################################
1.1 www 31:
32: package Apache::londropadd;
33:
34: use strict;
1.24 albertel 35: use Apache::lonnet();
36: use Apache::loncommon();
1.50 matthew 37: use Apache::lonhtmlcommon();
1.1 www 38: use Apache::Constants qw(:common :http REDIRECT);
1.60 matthew 39: use Spreadsheet::WriteExcel;
1.86 www 40: use Apache::lonlocal;
1.1 www 41:
1.50 matthew 42: ###############################################################
43: ###############################################################
1.10 www 44: sub header {
1.98 www 45: my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager').
46: &Apache::loncommon::help_open_faq(9).
47: &Apache::loncommon::help_open_bug('Instructor Interface');
1.88 matthew 48: my $title = &mt('LON-CAPA Enrollment Manager');
1.27 matthew 49: return(<<ENDHEAD);
1.1 www 50: <html>
51: <head>
1.88 matthew 52: <title>$title</title>
1.1 www 53: </head>
1.46 www 54: $bodytag
1.40 matthew 55: <form method="post" enctype="multipart/form-data"
56: action="/adm/dropadd" name="studentform">
1.1 www 57: ENDHEAD
1.10 www 58: }
59:
1.50 matthew 60: ###############################################################
61: ###############################################################
62: # Drop student from all sections of a course, except optional $csec
1.26 matthew 63: sub modifystudent {
1.33 matthew 64: my ($udom,$unam,$courseid,$csec,$desiredhost)=@_;
1.26 matthew 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
1.25 matthew 68: $courseid=~s/\_/\//g;
69: $courseid=~s/^(\w)/\/$1/;
1.26 matthew 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
1.35 matthew 73: return "$1" if ($tmp =~ /^(con_lost|error|no_such_host)/i);
1.26 matthew 74: # Go through the roles looking for enrollment in this course
1.35 matthew 75: my $result = '';
1.26 matthew 76: foreach my $course (keys(%roles)) {
1.35 matthew 77: if ($course=~/^$courseid(?:\/)*(?:\s+)*(\w+)*\_st$/) {
1.26 matthew 78: # We are in this course
1.25 matthew 79: my $section=$1;
1.26 matthew 80: $section='' if ($course eq $courseid.'_st');
1.87 matthew 81: if (defined($csec) && $section eq $csec) {
1.71 matthew 82: $result .= 'ok:';
83: } elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) {
1.27 matthew 84: my (undef,$end,$start)=split(/\_/,$roles{$course});
1.25 matthew 85: my $now=time;
1.50 matthew 86: # if this is an active role
1.27 matthew 87: if (!($start && ($now<$start)) || !($end && ($now>$end))) {
1.25 matthew 88: my $reply=&Apache::lonnet::modifystudent
1.70 matthew 89: # dom name id mode pass f m l g
90: ($udom,$unam,'', '', '',undef,undef,undef,undef,
1.33 matthew 91: $section,time,undef,undef,$desiredhost);
1.35 matthew 92: $result .= $reply.':';
1.25 matthew 93: }
1.10 www 94: }
95: }
1.20 harris41 96: }
1.35 matthew 97: if ($result eq '') {
1.62 matthew 98: $result = 'Unable to find section for this student';
1.37 matthew 99: } else {
100: $result =~ s/(ok:)+/ok/g;
1.35 matthew 101: }
102: return $result;
1.10 www 103: }
104:
1.50 matthew 105: ###############################################################
106: ###############################################################
107: # build a domain and server selection form
1.31 matthew 108: sub domain_form {
109: my ($defdom) = @_;
110: # Set up domain and server selection forms
111: #
112: # Get the domains
113: my @domains = &Apache::loncommon::get_domains();
114: # build up the menu information to be passed to
115: # &Apache::loncommon::linked_select_forms
116: my %select_menus;
117: foreach my $dom (@domains) {
118: # set up the text for this domain
119: $select_menus{$dom}->{'text'}= $dom;
120: # we want a choice of 'default' as the default in the second menu
121: $select_menus{$dom}->{'default'}= 'default';
122: $select_menus{$dom}->{'select2'}->{'default'} = 'default';
123: # Now build up the other items in the second menu
1.45 matthew 124: my %servers = &Apache::loncommon::get_library_servers($dom);
1.31 matthew 125: foreach my $server (keys(%servers)) {
126: $select_menus{$dom}->{'select2'}->{$server}
127: = "$server $servers{$server}";
128: }
129: }
130: my $result = &Apache::loncommon::linked_select_forms
131: ('studentform',' with home server ',$defdom,
132: 'lcdomain','lcserver',\%select_menus);
133: return $result;
134: }
135:
1.50 matthew 136: ###############################################################
137: ###############################################################
138: # Menu Phase One
139: sub print_main_menu {
1.10 www 140: my $r=shift;
1.88 matthew 141: my %Text = &Apache::lonlocal::texthash
142: ('upload' => 'Upload a class list',
143: 'enrollone' => 'Enroll a single student',
144: 'modify' => 'Modify student data',
145: 'view' => 'View Class List',
1.91 raeburn 146: 'drop' => 'Drop Students',
147: 'populate' => 'Automated Enrollment Manager');
1.98 www 148: my %help=();
149: foreach ('Course_Drop_Student','Course_Add_Student',
150: 'Course_Modify_Student_Data','Course_View_Class_List',
151: 'Course_Create_Class_List') {
152: $help{$_}=&Apache::loncommon::help_open_topic($_);
153: }
1.88 matthew 154:
1.48 matthew 155: $r->print(<<END);
156: <p>
1.50 matthew 157: <font size="+1">
1.98 www 158: <a href="/adm/dropadd?action=upload">$Text{'upload'}</a>
159: </font>$help{'Course_Create_Class_List'}
1.50 matthew 160: </p><p>
161: <font size="+1">
1.88 matthew 162: <a href="/adm/dropadd?action=enrollstudent">$Text{'enrollone'}</a>
1.98 www 163: </font>$help{'Course_Add_Student'}
1.48 matthew 164: </p><p>
1.50 matthew 165: <font size="+1">
1.88 matthew 166: <a href="/adm/dropadd?action=modifystudent">$Text{'modify'}</a>
1.98 www 167: </font>$help{'Course_Modify_Student_Data'}
1.48 matthew 168: </p><p>
1.50 matthew 169: <font size="+1">
1.88 matthew 170: <a href="/adm/dropadd?action=classlist">$Text{'view'}</a>
1.98 www 171: </font>$help{'Course_View_Class_List'}
1.48 matthew 172: </p><p>
1.50 matthew 173: <font size="+1">
1.88 matthew 174: <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
1.98 www 175: </font>$help{'Course_Drop_Student'}
1.91 raeburn 176: </p><p>
177: <font size="+1">
178: <a href="/adm/populate">$Text{'populate'}</a>
179: </font>
1.48 matthew 180: END
1.10 www 181: }
182:
1.50 matthew 183: ###############################################################
184: ###############################################################
1.89 matthew 185: sub hidden_input {
186: my ($name,$value) = @_;
187: return '<input type="hidden" name="'.$name.'" value="'.$value.'" />'."\n";
188: }
189:
1.50 matthew 190: sub print_upload_manager_header {
1.23 albertel 191: my ($r,$datatoken,$distotal,$krbdefdom)=@_;
1.24 albertel 192: my $javascript;
1.99 matthew 193: #
1.50 matthew 194: if (! exists($ENV{'form.upfile_associate'})) {
195: $ENV{'form.upfile_associate'} = 'forward';
196: }
197: if ($ENV{'form.associate'} eq 'Reverse Association') {
198: if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {
199: $ENV{'form.upfile_associate'} = 'reverse';
200: } else {
201: $ENV{'form.upfile_associate'} = 'forward';
202: }
203: }
1.24 albertel 204: if ($ENV{'form.upfile_associate'} eq 'reverse') {
1.50 matthew 205: $javascript=&upload_manager_javascript_reverse_associate();
1.24 albertel 206: } else {
1.50 matthew 207: $javascript=&upload_manager_javascript_forward_associate();
1.24 albertel 208: }
1.99 matthew 209: #
210: # Deal with restored settings
211: my $password_choice = '';
212: if (exists($ENV{'form.ipwd_choice'}) &&
213: $ENV{'form.ipwd_choice'} ne '') {
214: # If a column was specified for password, assume it is for an
215: # internal password. This is a bug waiting to be filed (could be
216: # local or krb auth instead of internal) but I do not have the
217: # time to mess around with this now.
218: $password_choice = 'int';
219: }
220: #
221: my $javascript_validations=&javascript_validations('auth',$krbdefdom,
222: $password_choice);
1.82 www 223: my $checked=(($ENV{'form.noFirstLine'})?' checked="1"':'');
1.88 matthew 224: $r->print('<h3>'.&mt('Uploading Class List')."</h3>\n".
225: "<hr>\n".
226: '<h3>'.&mt('Identify fields')."</h3>\n");
227: $r->print("<p>\n".
228: &mt('Total number of records found in file: [_1].',$distotal).
229: "\n".
230: "</p><hr>\n");
1.94 sakharuk 231: $r->print(&mt('Enter as many fields as you can. The system will inform you and bring you back to this page if the data selected is insufficient to enroll students in your class.')."<hr>\n");
1.89 matthew 232: $r->print(&hidden_input('action','upload').
233: &hidden_input('state','got_file').
234: &hidden_input('associate','').
235: &hidden_input('datatoken',$datatoken).
236: &hidden_input('fileupload',$ENV{'form.fileupload'}).
237: &hidden_input('upfiletype',$ENV{'form.upfiletype'}).
238: &hidden_input('upfile_associate',$ENV{'form.upfile_associate'}));
239: $r->print('<input type="button" value="Reverse Association" '.
240: 'name="'.&mt('Reverse Association').'" '.
241: 'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
242: $r->print('<input type="checkbox" name="noFirstLine" $checked />'.
243: &mt('Ignore First Line'));
244: $r->print("<hr />\n".
245: '<script type="text/javascript" language="Javascript">'."\n".
246: $javascript."\n".$javascript_validations.'</script>');
1.24 albertel 247: }
248:
1.50 matthew 249: ###############################################################
250: ###############################################################
1.24 albertel 251: sub javascript_validations {
1.96 raeburn 252: my ($mode,$krbdefdom,$curr_authtype,$curr_authfield)=@_;
1.89 matthew 253: my $authheader;
254: if ($mode eq 'auth') {
255: my %param = ( formname => 'studentform',
1.99 matthew 256: kerb_def_dom => $krbdefdom,
257: curr_authtype => $curr_authtype);
1.89 matthew 258: $authheader = &Apache::loncommon::authform_header(%param);
1.91 raeburn 259: } elsif ($mode eq 'createcourse') {
260: my %param = ( formname => 'ccrs',
1.99 matthew 261: kerb_def_dom => $krbdefdom,
262: curr_authtype => $curr_authtype );
1.91 raeburn 263: $authheader = &Apache::loncommon::authform_header(%param);
1.96 raeburn 264: } elsif ($mode eq 'modifycourse') {
265: my %param = ( formname => 'cmod',
266: kerb_def_dom => $krbdefdom,
267: mode => 'modifycourse',
268: curr_authtype => $curr_authtype,
269: curr_autharg => $curr_authfield );
270: $authheader = &Apache::loncommon::authform_header(%param);
1.89 matthew 271: }
1.96 raeburn 272:
1.91 raeburn 273:
1.89 matthew 274: my %alert = &Apache::lonlocal::texthash
275: (username => 'You need to specify the username field.',
276: authen => 'You must choose an authentication type.',
277: krb => 'You need to specify the Kerberos domain.',
278: ipass => 'You need to specify the initial password.',
279: name => 'The optional name field was not specified.',
280: snum => 'The optional student number field was not specified.',
281: section => 'The optional section or group field was not specified.',
282: email => 'The optional email address field was not specified.',
283: continue => 'Continue enrollment?',
284: );
285:
286: # my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
287: my $function_name =(<<END);
1.73 www 288: function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {
1.89 matthew 289: END
1.97 raeburn 290: my $auth_checks;
1.96 raeburn 291: if ($mode eq 'createcourse') {
292: $auth_checks .= (<<END);
1.97 raeburn 293: if (vf.autoadds[0].checked == true) {
1.96 raeburn 294: if (current.radiovalue == null || current.radiovalue == 'nochange') {
295: alert('$alert{'authen'}');
296: return;
297: }
298: }
299: END
300: } else {
1.91 raeburn 301: $auth_checks .= (<<END);
1.97 raeburn 302: var foundatype=0;
1.3 www 303: if (founduname==0) {
1.89 matthew 304: alert('$alert{'username'}');
1.3 www 305: return;
306: }
1.61 matthew 307: // alert('current.radiovalue = '+current.radiovalue);
1.29 matthew 308: if (current.radiovalue == null || current.radiovalue == 'nochange') {
1.28 matthew 309: // They did not check any of the login radiobuttons.
1.89 matthew 310: alert('$alert{'authen'}');
1.28 matthew 311: return;
312: }
1.96 raeburn 313: END
314: }
1.97 raeburn 315: if ($mode eq 'createcourse') {
316: $auth_checks .= "
317: if ( (vf.autoadds[0].checked == true) &&
318: (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '') ) {
319: ";
320: } elsif ($mode eq 'modifycourse') {
321: $auth_checks .= "
322: if (vf.elements[current.argfield].value == null || vf.elements[current.argfield].value == '') {
323: ";
324: }
1.96 raeburn 325: if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
1.97 raeburn 326: $auth_checks .= (<<END);
327: var alertmsg = '';
328: switch (current.radiovalue) {
329: case 'krb':
330: alertmsg = '$alert{'krb'}';
331: break;
332: default:
333: alertmsg = '';
1.96 raeburn 334: }
1.97 raeburn 335: if (alertmsg != '') {
336: alert(alertmsg);
337: return;
1.96 raeburn 338: }
339: }
340: END
341: } else {
342: $auth_checks .= (<<END);
1.28 matthew 343: foundatype=1;
1.29 matthew 344: if (current.argfield == null || current.argfield == '') {
1.28 matthew 345: var alertmsg = '';
1.29 matthew 346: switch (current.value) {
1.28 matthew 347: case 'krb':
1.89 matthew 348: alertmsg = '$alert{'krb'}';
1.28 matthew 349: break;
350: case 'loc':
351: case 'fsys':
1.89 matthew 352: alertmsg = '$alert{'ipass'}';
1.28 matthew 353: break;
354: case 'fsys':
355: alertmsg = '';
356: break;
357: default:
358: alertmsg = '';
1.3 www 359: }
1.28 matthew 360: if (alertmsg != '') {
361: alert(alertmsg);
1.3 www 362: return;
363: }
364: }
1.89 matthew 365: END
1.96 raeburn 366: }
1.91 raeburn 367: my $optional_checks = '';
1.96 raeburn 368: if ( ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
1.91 raeburn 369: $optional_checks = (<<END);
370: vf.submit();
371: }
372: END
373: } else {
374: $optional_checks = (<<END);
1.89 matthew 375: var message='';
376: if (foundname==0) {
377: message='$alert{'name'}';
1.24 albertel 378: }
1.89 matthew 379: if (foundid==0) {
380: if (message!='') {
381: message+='\\n';
382: }
383: message+='$alert{'snum'}';
384: }
385: if (foundsec==0) {
386: if (message!='') {
387: message+='\\n';
388: }
389: message+='$alert{'section'}';
390: }
391: if (foundemail==0) {
392: if (message!='') {
393: message+='\\n';
394: }
395: message+='$alert{'email'}';
1.74 matthew 396: }
397: if (message!='') {
1.89 matthew 398: message+= '\\n$alert{'continue'}';
399: if (confirm(message)) {
400: vf.state.value='enrolling';
401: vf.submit();
402: }
1.74 matthew 403: } else {
1.89 matthew 404: vf.state.value='enrolling';
405: vf.submit();
1.74 matthew 406: }
407: }
1.89 matthew 408: END
1.91 raeburn 409: }
1.89 matthew 410: my $result = $function_name;
1.96 raeburn 411: if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
1.89 matthew 412: $result .= $auth_checks;
413: }
414: $result .= $optional_checks;
1.96 raeburn 415: if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) {
1.89 matthew 416: $result .= $authheader;
417: }
418: return $result;
1.74 matthew 419: }
420:
1.50 matthew 421: ###############################################################
422: ###############################################################
423: sub upload_manager_javascript_forward_associate {
1.24 albertel 424: return(<<ENDPICK);
425: function verify(vf) {
426: var founduname=0;
427: var foundpwd=0;
428: var foundname=0;
429: var foundid=0;
430: var foundsec=0;
1.73 www 431: var foundemail=0;
1.24 albertel 432: var tw;
433: for (i=0;i<=vf.nfields.value;i++) {
434: tw=eval('vf.f'+i+'.selectedIndex');
435: if (tw==1) { founduname=1; }
436: if ((tw>=2) && (tw<=6)) { foundname=1; }
437: if (tw==7) { foundid=1; }
438: if (tw==8) { foundsec=1; }
439: if (tw==9) { foundpwd=1; }
1.73 www 440: if (tw==10) { foundemail=1; }
1.24 albertel 441: }
1.73 www 442: verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail);
1.24 albertel 443: }
444:
1.49 matthew 445: //
446: // vf = this.form
447: // tf = column number
448: //
449: // values of nw
450: //
451: // 0 = none
452: // 1 = username
453: // 2 = names (lastname, firstnames)
454: // 3 = fname (firstname)
455: // 4 = mname (middlename)
456: // 5 = lname (lastname)
457: // 6 = gen (generation)
458: // 7 = id
459: // 8 = section
460: // 9 = ipwd (password)
1.73 www 461: // 10 = email address
462:
1.24 albertel 463: function flip(vf,tf) {
464: var nw=eval('vf.f'+tf+'.selectedIndex');
465: var i;
1.49 matthew 466: // make sure no other columns are labeled the same as this one
1.24 albertel 467: for (i=0;i<=vf.nfields.value;i++) {
468: if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {
469: eval('vf.f'+i+'.selectedIndex=0;')
470: }
471: }
1.49 matthew 472: // If we set this to 'lastname, firstnames', clear out all the ones
473: // set to 'fname','mname','lname','gen' (3,4,5,6) currently.
1.24 albertel 474: if (nw==2) {
475: for (i=0;i<=vf.nfields.value;i++) {
476: if ((eval('vf.f'+i+'.selectedIndex')>=3) &&
477: (eval('vf.f'+i+'.selectedIndex')<=6)) {
478: eval('vf.f'+i+'.selectedIndex=0;')
479: }
480: }
481: }
1.49 matthew 482: // If we set this to one of 'fname','mname','lname','gen' (3,4,5,6),
483: // clear out any that are set to 'lastname, firstnames' (2)
1.24 albertel 484: if ((nw>=3) && (nw<=6)) {
485: for (i=0;i<=vf.nfields.value;i++) {
486: if (eval('vf.f'+i+'.selectedIndex')==2) {
487: eval('vf.f'+i+'.selectedIndex=0;')
488: }
489: }
490: }
1.49 matthew 491: // If we set the password, make the password form below correspond to
492: // the new value.
1.24 albertel 493: if (nw==9) {
1.28 matthew 494: changed_radio('int',document.studentform);
495: set_auth_radio_buttons('int',document.studentform);
496: vf.intarg.value='';
497: vf.krbarg.value='';
1.24 albertel 498: vf.locarg.value='';
499: }
500: }
501:
502: function clearpwd(vf) {
503: var i;
504: for (i=0;i<=vf.nfields.value;i++) {
505: if (eval('vf.f'+i+'.selectedIndex')==9) {
506: eval('vf.f'+i+'.selectedIndex=0;')
507: }
508: }
509: }
510:
511: ENDPICK
512: }
513:
1.50 matthew 514: ###############################################################
515: ###############################################################
516: sub upload_manager_javascript_reverse_associate {
1.24 albertel 517: return(<<ENDPICK);
518: function verify(vf) {
519: var founduname=0;
520: var foundpwd=0;
521: var foundname=0;
522: var foundid=0;
523: var foundsec=0;
524: var tw;
525: for (i=0;i<=vf.nfields.value;i++) {
526: tw=eval('vf.f'+i+'.selectedIndex');
527: if (i==0 && tw!=0) { founduname=1; }
528: if (((i>=1) && (i<=5)) && tw!=0 ) { foundname=1; }
529: if (i==6 && tw!=0) { foundid=1; }
530: if (i==7 && tw!=0) { foundsec=1; }
531: if (i==8 && tw!=0) { foundpwd=1; }
532: }
533: verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
534: }
535:
536: function flip(vf,tf) {
537: var nw=eval('vf.f'+tf+'.selectedIndex');
538: var i;
539: // picked the all one one name field, reset the other name ones to blank
540: if (tf==1 && nw!=0) {
541: for (i=2;i<=5;i++) {
542: eval('vf.f'+i+'.selectedIndex=0;')
543: }
544: }
545: //picked one of the piecewise name fields, reset the all in
546: //one field to blank
547: if ((tf>=2) && (tf<=5) && (nw!=0)) {
548: eval('vf.f1.selectedIndex=0;')
549: }
550: // intial password specified, pick internal authentication
551: if (tf==8 && nw!=0) {
1.28 matthew 552: changed_radio('int',document.studentform);
553: set_auth_radio_buttons('int',document.studentform);
554: vf.krbarg.value='';
555: vf.intarg.value='';
1.24 albertel 556: vf.locarg.value='';
557: }
558: }
559:
560: function clearpwd(vf) {
561: var i;
562: if (eval('vf.f8.selectedIndex')!=0) {
563: eval('vf.f8.selectedIndex=0;')
564: }
565: }
1.2 www 566: ENDPICK
1.23 albertel 567: }
1.10 www 568:
1.50 matthew 569: ###############################################################
570: ###############################################################
571: sub print_upload_manager_footer {
1.23 albertel 572: my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_;
1.64 albertel 573:
574: my ($krbdef,$krbdefdom) =
575: &Apache::loncommon::get_kerberos_defaults($defdom);
576: my %param = ( formname => 'document.studentform',
577: kerb_def_dom => $krbdefdom,
578: kerb_def_auth => $krbdef
579: );
1.99 matthew 580: if (exists($ENV{'form.ipwd_choice'}) &&
581: defined($ENV{'form.ipwd_choice'}) &&
582: $ENV{'form.ipwd_choice'} ne '') {
583: $param{'curr_authtype'} = 'int';
584: }
1.28 matthew 585: my $krbform = &Apache::loncommon::authform_kerberos(%param);
586: my $intform = &Apache::loncommon::authform_internal(%param);
587: my $locform = &Apache::loncommon::authform_local(%param);
1.31 matthew 588: my $domform = &domain_form($defdom);
1.68 matthew 589: my $date_table = &date_setting_table();
1.90 matthew 590: my $Str = "</table>\n";
591: $Str .= &hidden_input('nfields',$i);
592: $Str .= &hidden_input('keyfields',$keyfields);
593: $Str .= '<h3>'.&mt('Login Type')."</h3>\n";
594: $Str .= "<p>\n".
595: &mt('Note: this will not take effect if the user already exists').
596: "</p><p>\n";
597: $Str .= $krbform."\n</p><p>\n".
598: $intform."\n</p><p>\n".
599: $locform."\n</p>\n";
600: $Str .= '<h3>'.&mt('LON-CAPA Domain for Students')."</h3>\n";
601: $Str .= "<p>\n".&mt('LON-CAPA domain: [_1]',$domform)."\n</p>\n";
602: $Str .= "<h3>".&mt('Starting and Ending Dates')."</h3>\n";
603: $Str .= "<p>\n".$date_table."</p>\n";
604: $Str .= "<h3>".&mt('Full Update')."</h3>\n";
605: $Str .= '<input type="checkbox" name="fullup" value="yes">'.
606: ' '.&mt('Full update (also print list of users not enrolled anymore)').
607: "</p>\n";
608: $Str .= "<h3>".&mt('Student Number')."</h3>\n";
609: $Str .= "<p>\n".'<input type="checkbox" name="forceid" value="yes">';
610: $Str .= &mt('Disable ID/Student Number Safeguard and Force Change '.
611: 'of Conflicting IDs (only do if you know what you are doing)').
612: "\n</p><p>\n";
613: $Str .= '<input type="button" onClick="javascript:verify(this.form)" '.
1.95 albertel 614: 'value="Update Class List" />'."<br />\n";
1.90 matthew 615: $Str .= &mt('Note: for large courses, this operation may be time '.
616: 'consuming');
617: $r->print($Str);
618: return;
1.23 albertel 619: }
1.24 albertel 620:
1.90 matthew 621: ###############################################################
622: ###############################################################
1.50 matthew 623: sub print_upload_manager_form {
1.23 albertel 624: my $r=shift;
1.99 matthew 625:
1.82 www 626: my $firstLine;
1.24 albertel 627: my $datatoken;
628: if (!$ENV{'form.datatoken'}) {
1.90 matthew 629: $datatoken=&Apache::loncommon::upfile_store($r);
1.24 albertel 630: } else {
1.90 matthew 631: $datatoken=$ENV{'form.datatoken'};
632: &Apache::loncommon::load_tmp_file($r);
1.24 albertel 633: }
634: my @records=&Apache::loncommon::upfile_record_sep();
1.90 matthew 635: if($ENV{'form.noFirstLine'}){
636: $firstLine=shift(@records);
637: }
1.23 albertel 638: my $total=$#records;
639: my $distotal=$total+1;
640: my $today=time;
641: my $halfyear=$today+15552000;
1.99 matthew 642: #
643: # Restore memorized settings
644: &Apache::loncommon::restore_course_settings
645: ('enrollment_upload',{ 'username_choice' => 'scalar', # column settings
646: 'names_choice' => 'scalar',
647: 'fname_choice' => 'scalar',
648: 'mname_choice' => 'scalar',
649: 'lname_choice' => 'scalar',
650: 'gen_choice' => 'scalar',
651: 'id_choice' => 'scalar',
652: 'sec_choice' => 'scalar',
653: 'ipwd_choice' => 'scalar',
654: 'email_choice' => 'scalar',
655: });
656: #
657: # Determine kerberos parameters as appropriate
1.85 matthew 658: my $defdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
1.64 albertel 659: my ($krbdef,$krbdefdom) =
660: &Apache::loncommon::get_kerberos_defaults($defdom);
1.99 matthew 661: #
1.50 matthew 662: &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom);
1.24 albertel 663: my $i;
664: my $keyfields;
1.23 albertel 665: if ($total>=0) {
1.99 matthew 666: my @field=
667: (['username',&mt('Username'), $ENV{'form.username_choice'}],
668: ['names',&mt('Last Name, First Names'),$ENV{'form.names_choice'}],
669: ['fname',&mt('First Name'), $ENV{'form.fname_choice'}],
670: ['mname',&mt('Middle Names/Initials'),$ENV{'form.mname_choice'}],
671: ['lname',&mt('Last Name'), $ENV{'form.lname_choice'}],
672: ['gen', &mt('Generation'), $ENV{'form.gen_choice'}],
673: ['id', &mt('ID/Student Number'),$ENV{'form.id_choice'}],
674: ['sec', &mt('Group/Section'), $ENV{'form.sec_choice'}],
675: ['ipwd', &mt('Initial Password'),$ENV{'form.ipwd_choice'}],
676: ['email',&mt('EMail Address'), $ENV{'form.email_choice'}]);
1.24 albertel 677: if ($ENV{'form.upfile_associate'} eq 'reverse') {
678: &Apache::loncommon::csv_print_samples($r,\@records);
1.90 matthew 679: $i=&Apache::loncommon::csv_print_select_table($r,\@records,
680: \@field);
681: foreach (@field) {
682: $keyfields.=$_->[0].',';
683: }
1.24 albertel 684: chop($keyfields);
685: } else {
1.90 matthew 686: unshift(@field,['none','']);
687: $i=&Apache::loncommon::csv_samples_select_table($r,\@records,
688: \@field);
1.24 albertel 689: my %sone=&Apache::loncommon::record_sep($records[0]);
690: $keyfields=join(',',sort(keys(%sone)));
1.23 albertel 691: }
692: }
1.50 matthew 693: &print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear);
1.10 www 694: }
695:
1.90 matthew 696: ###############################################################
697: ###############################################################
1.12 www 698: sub enroll_single_student {
699: my $r=shift;
1.80 matthew 700: # Remove non alphanumeric values from section
701: $ENV{'form.csec'}=~s/\W//g;
1.68 matthew 702: #
703: # We do the dates first because the action of making them the defaul
704: # in the course is entirely seperate from the action of enrolling the
705: # student. Also, a failure in setting the dates as default is not fatal
706: # to the process of enrolling / modifying a student.
707: my ($startdate,$enddate) = &get_dates_from_form();
708: if ($ENV{'form.makedatesdefault'}) {
709: $r->print(&make_dates_default($startdate,$enddate));
710: }
711:
1.94 sakharuk 712: $r->print('<h3>'.&mt('Enrolling Student').'</h3>');
713: $r->print('<p>'.&mt('Enrolling').' '.$ENV{'form.cuname'}." \@ ".
1.34 matthew 714: $ENV{'form.lcdomain'}.'</p>');
1.12 www 715: if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&
1.31 matthew 716: ($ENV{'form.lcdomain'})&&($ENV{'form.lcdomain'}!~/\W/)) {
717: # Deal with home server selection
718: my $domain=$ENV{'form.lcdomain'};
719: my $desiredhost = $ENV{'form.lcserver'};
720: if (lc($desiredhost) eq 'default') {
721: $desiredhost = undef;
722: } else {
1.45 matthew 723: my %home_servers =&Apache::loncommon::get_library_servers($domain);
1.31 matthew 724: if (! exists($home_servers{$desiredhost})) {
1.94 sakharuk 725: $r->print('<font color="#ff0000">'.&mt('Error').':</font>'.
726: &mt('Invalid home server specified'));
1.31 matthew 727: return;
728: }
729: }
1.94 sakharuk 730: $r->print(" ".&mt('with server')." $desiredhost :") if (defined($desiredhost));
1.31 matthew 731: # End of home server selection logic
1.12 www 732: my $amode='';
733: my $genpwd='';
734: if ($ENV{'form.login'} eq 'krb') {
1.47 albertel 735: $amode='krb';
736: $amode.=$ENV{'form.krbver'};
1.28 matthew 737: $genpwd=$ENV{'form.krbarg'};
1.12 www 738: } elsif ($ENV{'form.login'} eq 'int') {
1.26 matthew 739: $amode='internal';
1.28 matthew 740: $genpwd=$ENV{'form.intarg'};
1.15 albertel 741: } elsif ($ENV{'form.login'} eq 'loc') {
742: $amode='localauth';
743: $genpwd=$ENV{'form.locarg'};
744: if (!$genpwd) { $genpwd=" "; }
745: }
1.34 matthew 746: my $home = &Apache::lonnet::homeserver($ENV{'form.cuname'},
747: $ENV{'form.lcdomain'});
748: if ((($amode) && ($genpwd)) || ($home ne 'no_host')) {
1.55 matthew 749: # Clean out any old roles the student has in this class.
1.33 matthew 750: &modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'},
751: $ENV{'request.course.id'},$ENV{'form.csec'},
752: $desiredhost);
1.55 matthew 753: my $login_result = &Apache::lonnet::modifystudent
754: ($ENV{'form.lcdomain'},$ENV{'form.cuname'},
755: $ENV{'form.cstid'},$amode,$genpwd,
756: $ENV{'form.cfirst'},$ENV{'form.cmiddle'},
757: $ENV{'form.clast'},$ENV{'form.cgen'},
1.67 matthew 758: $ENV{'form.csec'},$enddate,
759: $startdate,$ENV{'form.forceid'},
1.55 matthew 760: $desiredhost);
761: if ($login_result =~ /^ok/) {
762: $r->print($login_result);
1.94 sakharuk 763: $r->print("<p> ".&mt('If active, the new role will be available when the student next logs in to LON-CAPA.')."</p>");
1.55 matthew 764: } else {
1.94 sakharuk 765: $r->print(&mt('unable to enroll').": ".$login_result);
1.55 matthew 766: }
1.12 www 767: } else {
1.94 sakharuk 768: $r->print('<p><font color="#ff0000">'.&mt('ERROR').'</font> ');
1.79 matthew 769: if ($amode =~ /^krb/) {
1.94 sakharuk 770: $r->print(&mt('Missing Kerberos domain information.').' ');
1.79 matthew 771: } else {
1.94 sakharuk 772: $r->print(&mt('Invalid login mode or password.').' ');
1.79 matthew 773: }
1.94 sakharuk 774: $r->print('<b>'.&mt('Unable to enroll').' '.$ENV{'form.cuname'}.'.</b></p>');
1.79 matthew 775: }
1.12 www 776: } else {
1.94 sakharuk 777: $r->print(&mt('Invalid username or domain'));
1.26 matthew 778: }
1.12 www 779: }
780:
1.68 matthew 781: sub setup_date_selectors {
1.91 raeburn 782: my ($starttime,$endtime,$mode) = @_;
1.68 matthew 783: if (! defined($starttime)) {
784: $starttime = time;
1.91 raeburn 785: unless ($mode eq 'createcourse') {
786: if (exists($ENV{'course.'.$ENV{'request.course.id'}.
1.68 matthew 787: '.default_enrollment_start_date'})) {
1.91 raeburn 788: $starttime = $ENV{'course.'.$ENV{'request.course.id'}.
1.68 matthew 789: '.default_enrollment_start_date'};
1.91 raeburn 790: }
1.68 matthew 791: }
792: }
793: if (! defined($endtime)) {
794: $endtime = time+(6*30*24*60*60); # 6 months from now, approx
1.91 raeburn 795: unless ($mode eq 'createcourse') {
796: if (exists($ENV{'course.'.$ENV{'request.course.id'}.
1.68 matthew 797: '.default_enrollment_end_date'})) {
1.91 raeburn 798: $endtime = $ENV{'course.'.$ENV{'request.course.id'}.
1.68 matthew 799: '.default_enrollment_end_date'};
1.91 raeburn 800: }
1.68 matthew 801: }
802: }
803: my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',
804: 'startdate',
805: $starttime);
806: my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
807: 'enddate',
808: $endtime);
1.91 raeburn 809: if ($mode eq 'createcourse') {
810: $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',
811: 'startdate',
812: $starttime);
813: $enddateform = &Apache::lonhtmlcommon::date_setter('ccrs',
814: 'enddate',
815: $endtime);
816: }
1.68 matthew 817: return ($startdateform,$enddateform);
818: }
819:
820: sub get_dates_from_form {
821: my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate');
822: my $enddate = &Apache::lonhtmlcommon::get_date_from_form('enddate');
823: if ($ENV{'form.no_end_date'}) {
824: $enddate = 0;
825: }
826: return ($startdate,$enddate);
827: }
828:
829: sub date_setting_table {
1.91 raeburn 830: my ($starttime,$endtime,$mode) = @_;
831: my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);
1.68 matthew 832: my $dateDefault = '<nobr>'.
1.94 sakharuk 833: '<input type="checkbox" name="makedatesdefault" /> '.
834: &mt('make these dates the default for future enrollment');
1.91 raeburn 835: if ($mode eq 'createcourse') {
836: $dateDefault = ' ';
837: }
1.68 matthew 838: my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';
839: if (defined($endtime) && $endtime == 0) {
840: $perpetual .= ' checked';
841: }
1.94 sakharuk 842: $perpetual.= ' /> '.&mt('no ending date').'</nobr>';
1.68 matthew 843: my $result = '';
844: $result .= "<table>\n";
1.94 sakharuk 845: $result .= '<tr><td align="right">'.&mt('Starting Date').'</td>'.
1.68 matthew 846: '<td>'.$startform.'</td>'.
847: '<td>'.$dateDefault.'</td>'."</tr>\n";
1.94 sakharuk 848: $result .= '<tr><td align="right">'.&mt('Ending Date').'</td>'.
1.68 matthew 849: '<td>'.$endform.'</td>'.
850: '<td>'.$perpetual.'</td>'."</tr>\n";
851: $result .= "</table>\n";
852: return $result;
853: }
854:
855: sub make_dates_default {
856: my ($startdate,$enddate) = @_;
857: my $result = '';
858: my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
859: my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
860: my $put_result = &Apache::lonnet::put('environment',
861: {'default_enrollment_start_date'=>$startdate,
862: 'default_enrollment_end_date' =>$enddate},$dom,$crs);
863: if ($put_result eq 'ok') {
864: $result .= "Set default start and end dates for course<br />";
1.69 matthew 865: #
866: # Refresh the course environment
867: &Apache::lonnet::coursedescription($ENV{'request.course.id'});
1.68 matthew 868: } else {
1.94 sakharuk 869: $result .= &mt('Unable to set default dates for course').":".$put_result.
1.68 matthew 870: '<br />';
871: }
872: return $result;
873: }
874:
1.74 matthew 875: ##
876: ## Single student enrollment routines (some of them)
877: ##
878: sub get_student_username_domain_form {
879: my $r = shift;
880: my $domform = &Apache::loncommon::select_dom_form
1.85 matthew 881: ($ENV{'course.'.$ENV{'request.course.id'}.'.domain'},'cudomain',0);
1.94 sakharuk 882: my %lt=&Apache::lonlocal::texthash(
883: 'eos' => "Enroll One Student",
884: 'usr' => "Username",
885: 'dom' => "Domain",
886: 'been' => "Begin Enrollment",
887: );
1.74 matthew 888: $r->print(<<END);
889: <input type="hidden" name="action" value="enrollstudent" />
890: <input type="hidden" name="state" value="gotusername" />
1.94 sakharuk 891: <h3>$lt{'eos'}</h3>
1.74 matthew 892: <table>
1.94 sakharuk 893: <tr><th>$lt{'usr'}:</th>
1.74 matthew 894: <td><input type="text" name="cuname" size="15" /></td></tr>
1.94 sakharuk 895: <tr><th>$lt{'dom'}:</th>
1.74 matthew 896: <td>$domform</td></tr>
897: <tr><th> </th>
898: <td>
1.94 sakharuk 899: <input type="submit" name="Begin Enrollment" value="$lt{'been'}" />
1.74 matthew 900: </td></tr>
901: </table>
902: END
903: return;
904: }
905:
1.50 matthew 906: sub print_enroll_single_student_form {
1.10 www 907: my $r=shift;
1.94 sakharuk 908: $r->print("<h3>".&mt('Enroll One Student')."</h3>");
1.74 matthew 909: #
910: my $username = $ENV{'form.cuname'};
911: my $domain = $ENV{'form.cudomain'};
912: my $home = &Apache::lonnet::homeserver($username,$domain);
913: # $new_user flags whether we are creating a new user or using an old one
914: my $new_user = 1;
915: if ($home ne 'no_host') {
916: $new_user = 0;
917: }
918: #
919: my $user_data_html = '';
920: my $javascript_validations = '';
921: if ($new_user) {
1.85 matthew 922: my $defdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
1.74 matthew 923: # Set up authentication forms
924: my ($krbdef,$krbdefdom) =
1.75 matthew 925: &Apache::loncommon::get_kerberos_defaults($domain);
1.89 matthew 926: $javascript_validations=&javascript_validations('auth',$krbdefdom);
1.74 matthew 927: my %param = ( formname => 'document.studentform',
928: kerb_def_dom => $krbdefdom,
929: kerb_def_auth => $krbdef
930: );
931: my $krbform = &Apache::loncommon::authform_kerberos(%param);
932: my $intform = &Apache::loncommon::authform_internal(%param);
933: my $locform = &Apache::loncommon::authform_local(%param);
934: #
935: # Set up domain selection form
936: my $homeserver_form = '';
937: my %servers = &Apache::loncommon::get_library_servers($domain);
938: $homeserver_form = '<select name="lcserver" size="1">'."\n".
939: '<option value="default" selected>default</option>'."\n";
940: while (my ($servername,$serverdescription) = each (%servers)) {
941: $homeserver_form .= '<option value="'.$servername.'">'.
942: $serverdescription."</option>\n";
943: }
944: $homeserver_form .= "</select>\n";
945: #
946: #
1.94 sakharuk 947: my %lt=&Apache::lonlocal::texthash(
948: 'udf' => "User Data for",
949: 'fn' => "First Name",
950: 'mn' => "Middle Name",
951: 'ln' => "Last Name",
952: 'gen' => "Generation",
953: 'hs' => "Home Server",
954: 'pswd' => "Password",
955: 'psam' => "Please select an authentication mechanism",
956: );
1.74 matthew 957: $user_data_html = <<END;
1.94 sakharuk 958: <h3>$lt{'udf'} $username\@$domain</h3>
1.74 matthew 959: <table>
1.94 sakharuk 960: <tr><th>$lt{'fn'}:</th>
1.74 matthew 961: <td><input type="text" name="cfirst" size="15"></td></tr>
1.94 sakharuk 962: <tr><th>$lt{'mn'}:</th>
1.74 matthew 963: <td><input type="text" name="cmiddle" size="15"></td></tr>
1.94 sakharuk 964: <tr><th>$lt{'ln'}:</th>
1.74 matthew 965: <td><input type="text" name="clast" size="15"></td></tr>
1.94 sakharuk 966: <tr><th>$lt{'gen'}:</th>
1.74 matthew 967: <td><input type="text" name="cgen" size="5"> </td></tr>
1.94 sakharuk 968: <tr><th>$lt{'hs'}:</th>
1.74 matthew 969: <td>$homeserver_form</td></tr>
970: </table>
1.94 sakharuk 971: <h3>$lt{'pswd'}</h3>
972: $lt{'psam'}
1.74 matthew 973: <table>
974: <p>
975: $krbform
1.75 matthew 976: <br />
1.74 matthew 977: $intform
1.75 matthew 978: <br />
1.74 matthew 979: $locform
980: </p>
981: END
982: } else {
983: # User already exists. Do not worry about authentication
984: my %uenv = &Apache::lonnet::dump('environment',$domain,$username);
1.89 matthew 985: $javascript_validations = &javascript_validations('noauth');
1.94 sakharuk 986: my %lt=&Apache::lonlocal::texthash(
987: 'udf' => "User Data for",
988: 'fn' => "First Name",
989: 'mn' => "Middle Name",
990: 'ln' => "Last Name",
991: 'gen' => "Generation",
992: );
1.74 matthew 993: $user_data_html = <<END;
1.94 sakharuk 994: <h3>$lt{'udf'} $username\@$domain</h3>
1.74 matthew 995: <input type="hidden" name="lcserver" value="default" />
996: <table>
1.94 sakharuk 997: <tr><th>$lt{'fn'}:</th>
1.74 matthew 998: <td>
999: <input type="text" name="cfirst" value="$uenv{'firstname'}" size="15" />
1000: </td></tr>
1.94 sakharuk 1001: <tr><th>$lt{'mn'}:</th>
1.74 matthew 1002: <td>
1003: <input type="text" name="cmiddle" value="$uenv{'middlename'}" size="15" />
1004: </td></tr>
1.94 sakharuk 1005: <tr><th>$lt{'ln'}:</th>
1.74 matthew 1006: <td>
1007: <input type="text" name="clast"value="$uenv{'lastname'}" size="15" />
1008: </td></tr>
1.94 sakharuk 1009: <tr><th>$lt{'gen'}:</th>
1.74 matthew 1010: <td>
1011: <input type="text" name="cgen" value="$uenv{'generation'}" size="5" />
1012: </td></tr>
1013: </table>
1014: END
1015: }
1.68 matthew 1016: my $date_table = &date_setting_table();
1.74 matthew 1017: # Print it all out
1.94 sakharuk 1018: my %lt=&Apache::lonlocal::texthash(
1019: 'cd' => "Course Data",
1020: 'gs' => "Group/Section",
1021: 'idsn' => "ID/Student Number",
1022: 'disn' => "Disable ID/Student Number Safeguard and Force Change of Conflicting IDs (only do if you know what you are doing)",
1023: 'eas' => "Enroll as student",
1024: );
1.50 matthew 1025: $r->print(<<END);
1.74 matthew 1026: <input type="hidden" name="action" value="enrollstudent" />
1027: <input type="hidden" name="state" value="done" />
1028: <input type="hidden" name="cuname" value="$username" />
1029: <input type="hidden" name="lcdomain" value="$domain" />
1.28 matthew 1030: <script type="text/javascript" language="Javascript">
1.12 www 1031: function verify(vf) {
1032: var founduname=0;
1033: var foundpwd=0;
1034: var foundname=0;
1035: var foundid=0;
1036: var foundsec=0;
1037: var tw;
1.26 matthew 1038: if ((typeof(vf.cuname.value) !="undefined") && (vf.cuname.value!='') &&
1.31 matthew 1039: (typeof(vf.lcdomain.value)!="undefined") && (vf.lcdomain.value!='')) {
1.12 www 1040: founduname=1;
1041: }
1.14 harris41 1042: if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&
1.26 matthew 1043: (typeof(vf.clast.value) !="undefined") && (vf.clast.value!='')) {
1.12 www 1044: foundname=1;
1045: }
1.14 harris41 1046: if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {
1.12 www 1047: foundsec=1;
1048: }
1.14 harris41 1049: if ((typeof(vf.cstid.value)!="undefined") && (vf.cstid.value!='')) {
1.12 www 1050: foundid=1;
1051: }
1052: if (founduname==0) {
1053: alert('You need to specify at least the username and domain fields');
1054: return;
1055: }
1.24 albertel 1056: verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
1.12 www 1057: }
1058:
1.24 albertel 1059: $javascript_validations
1.12 www 1060:
1.24 albertel 1061: function clearpwd(vf) {
1062: //nothing else needs clearing
1.15 albertel 1063: }
1064:
1.12 www 1065: </script>
1.11 www 1066:
1.74 matthew 1067: $user_data_html
1.50 matthew 1068:
1.94 sakharuk 1069: <h3>$lt{'cd'}</h3>
1.50 matthew 1070:
1.94 sakharuk 1071: <p>$lt{'gs'}: <input type="text" name="csec" size="5" />
1.50 matthew 1072: <p>
1.68 matthew 1073: $date_table
1.50 matthew 1074: </p>
1.94 sakharuk 1075: <h3>$lt{'idsn'}</h3>
1.50 matthew 1076: <p>
1.94 sakharuk 1077: $lt{'idsn'}: <input type="text" name="cstid" size="10">
1.26 matthew 1078: </p><p>
1079: <input type="checkbox" name="forceid" value="yes">
1.94 sakharuk 1080: $lt{'disn'}
1.50 matthew 1081: </p><p>
1.94 sakharuk 1082: <input type="button" onClick="verify(this.form)" value="$lt{'eas'}">
1.26 matthew 1083: </p>
1.50 matthew 1084: END
1085: return;
1.10 www 1086: }
1087:
1088: # ========================================================= Menu Phase Two Drop
1.51 matthew 1089: sub print_drop_menu {
1.10 www 1090: my $r=shift;
1.92 sakharuk 1091: $r->print("<h3>".&mt('Drop Students')."</h3>");
1.11 www 1092: my $cid=$ENV{'request.course.id'};
1.56 matthew 1093: my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
1094: if (! defined($classlist)) {
1.94 sakharuk 1095: $r->print(&mt('There are no students currently enrolled.')."\n");
1.51 matthew 1096: return;
1.25 matthew 1097: }
1.51 matthew 1098: # Print out the available choices
1.56 matthew 1099: &show_drop_list($r,$classlist,$keylist);
1.51 matthew 1100: return;
1.11 www 1101: }
1102:
1.40 matthew 1103: # ============================================== view classlist
1.50 matthew 1104: sub print_html_classlist {
1.40 matthew 1105: my $r=shift;
1.57 matthew 1106: if (! exists($ENV{'form.sortby'})) {
1107: $ENV{'form.sortby'} = 'username';
1108: }
1.59 matthew 1109: if ($ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) {
1.57 matthew 1110: $ENV{'form.Status'} = 'Active';
1111: }
1112: my $status_select = &Apache::lonhtmlcommon::StatusOptions
1113: ($ENV{'form.Status'},'studentform');
1.100 ! www 1114: my $cid=$ENV{'request.course.id'};
! 1115: my $cdom=$ENV{'course.'.$cid.'.domain'};
! 1116: my $cnum=$ENV{'course.'.$cid.'.num'};
! 1117: # -------------------------------------------------------- Get course personnel
! 1118: my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
! 1119: $r->print('<table border="2">');
! 1120: foreach (sort keys %coursepersonnel) {
! 1121: $r->print('<tr><td>'.$_.'</td><td>');
! 1122: foreach (split(/\,/,$coursepersonnel{$_})) {
! 1123: my ($puname,$pudom)=split(/\:/,$_);
! 1124: $r->print(' '.&Apache::loncommon::aboutmewrapper(
! 1125: &Apache::loncommon::plainname($puname,
! 1126: $pudom),$puname,$pudom));
! 1127: }
! 1128: $r->print('</td></tr>');
! 1129: }
! 1130: $r->print('</table>');
! 1131: # --------------------------------------------------------------- Student roles
1.94 sakharuk 1132: my $CCL=&mt('Current Class List');
1.48 matthew 1133: $r->print(<<END);
1.58 matthew 1134: <input type="hidden" name="action" value="$ENV{'form.action'}" />
1.57 matthew 1135: <input type="hidden" name="state" value="" />
1.50 matthew 1136: <p>
1.94 sakharuk 1137: <font size="+1">$CCL</font>
1.57 matthew 1138:
1.59 matthew 1139: END
1140: if ($ENV{'form.action'} ne 'modifystudent') {
1.94 sakharuk 1141: my %lt=&Apache::lonlocal::texthash(
1142: 'ef' => "Excel format",
1143: 'ss' => "Student Status",
1144: );
1.59 matthew 1145: $r->print(<<END);
1.57 matthew 1146: <font size="+1">
1147: <a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a>
1.61 matthew 1148:
1.94 sakharuk 1149: <a href="javascript:document.studentform.state.value='excel';document.studentform.submit();">$lt{'ef'}</a>
1.57 matthew 1150: </font>
1151:
1.94 sakharuk 1152: $lt{'ss'}:
1.48 matthew 1153: END
1.59 matthew 1154: }
1155: $r->print($status_select."</p>\n");
1.56 matthew 1156: my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
1157: if (! defined($classlist)) {
1.94 sakharuk 1158: $r->print(&mt('There are no students currently enrolled.')."\n");
1.40 matthew 1159: } else {
1160: # Print out the available choices
1.50 matthew 1161: if ($ENV{'form.action'} eq 'modifystudent') {
1.53 matthew 1162: &show_class_list($r,'view','modify','modifystudent',
1.57 matthew 1163: $ENV{'form.Status'},$classlist,$keylist);
1.50 matthew 1164: } else {
1.53 matthew 1165: &show_class_list($r,'view','aboutme','classlist',
1.57 matthew 1166: $ENV{'form.Status'},$classlist,$keylist);
1.50 matthew 1167: }
1.41 matthew 1168: }
1169: }
1170:
1171: # ============================================== view classlist
1.60 matthew 1172: sub print_formatted_classlist {
1.41 matthew 1173: my $r=shift;
1.60 matthew 1174: my $mode = shift;
1.41 matthew 1175: my $cid=$ENV{'request.course.id'};
1.56 matthew 1176: my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
1177: if (! defined($classlist)) {
1.94 sakharuk 1178: $r->print(&mt('There are no students currently enrolled.')."\n");
1.41 matthew 1179: } else {
1.60 matthew 1180: &show_class_list($r,$mode,'nolink','csv',
1.57 matthew 1181: $ENV{'form.Status'},$classlist,$keylist);
1.40 matthew 1182: }
1183: }
1184:
1185: # =================================================== Show student list to drop
1186: sub show_class_list {
1.56 matthew 1187: my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;
1.40 matthew 1188: my $cid=$ENV{'request.course.id'};
1.60 matthew 1189: #
1190: # Variables for excel output
1191: my ($excel_workbook, $excel_sheet, $excel_filename,$row);
1192: #
1.53 matthew 1193: my $sortby = $ENV{'form.sortby'};
1194: if ($sortby !~ /^(username|domain|section|fullname|id)$/) {
1195: $sortby = 'username';
1196: }
1.42 matthew 1197: # Print out header
1.41 matthew 1198: if ($mode eq 'view') {
1.50 matthew 1199: if ($linkto eq 'aboutme') {
1.94 sakharuk 1200: $r->print(&mt('Select a user name to view the users personal page.'));
1.50 matthew 1201: } elsif ($linkto eq 'modify') {
1.94 sakharuk 1202: $r->print(&mt('Select a user name to modify the students information'));
1.50 matthew 1203: }
1.94 sakharuk 1204: my %lt=&Apache::lonlocal::texthash(
1205: 'usrn' => "username",
1206: 'dom' => "domain",
1207: 'sn' => "student name",
1208: 'sec' => "section",
1209: );
1.41 matthew 1210: $r->print(<<END);
1.59 matthew 1211:
1.53 matthew 1212: <input type="hidden" name="sortby" value="$sortby" />
1.59 matthew 1213: <input type="hidden" name="sname" value="" />
1214: <input type="hidden" name="sdom" value="" />
1.40 matthew 1215: <p>
1216: <table border=2>
1.53 matthew 1217: <tr><th>
1.94 sakharuk 1218: <a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">$lt{'usrn'}</a>
1.53 matthew 1219: </th><th>
1.94 sakharuk 1220: <a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">$lt{'dom'}</a>
1.53 matthew 1221: </th><th>
1.57 matthew 1222: <a href="javascript:document.studentform.sortby.value='id';document.studentform.submit();">ID</a>
1.53 matthew 1223: </th><th>
1.94 sakharuk 1224: <a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">$lt{'sn'}</a>
1.53 matthew 1225: </th><th>
1.94 sakharuk 1226: <a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">$lt{'sec'}</a>
1.53 matthew 1227: </th>
1228: </tr>
1.40 matthew 1229: END
1.41 matthew 1230: } elsif ($mode eq 'csv') {
1.58 matthew 1231: if($statusmode eq 'Expired') {
1.94 sakharuk 1232: $r->print(&mt('Students with expired roles'));
1.58 matthew 1233: }
1234: if ($statusmode eq 'Any') {
1.94 sakharuk 1235: $r->print('"'.join('","',(&mt("username"),&mt("domain"),"ID",
1236: &mt("student name"),&mt("section"),&mt("status"))).
1237: '"'."\n");
1.58 matthew 1238: } else {
1.94 sakharuk 1239: $r->print('"'.join('","',(&mt("username"),&mt("domain"),"ID",
1240: &mt("student name"),&mt("section"))).'"'."\n");
1.58 matthew 1241: }
1.60 matthew 1242: } elsif ($mode eq 'excel') {
1243: # Create the excel spreadsheet
1244: $excel_filename = '/prtspool/'.
1245: $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
1246: time.'_'.rand(1000000000).'.xls';
1247: $excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'.
1248: $excel_filename);
1249: $excel_workbook->set_tempdir('/home/httpd/perl/tmp');
1250: $excel_sheet = $excel_workbook->addworksheet('classlist');
1251: #
1.76 albertel 1252: my $description = 'Class List for '.
1.60 matthew 1253: $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
1254: $excel_sheet->write($row++,0,$description);
1255: #
1256: $excel_sheet->write($row++,0,["username","domain","ID",
1257: "student name","section","status"]);
1.41 matthew 1258: }
1.56 matthew 1259: #
1260: # Sort the students
1261: my %index;
1262: my $i;
1263: foreach (@$keylist) {
1264: $index{$_} = $i++;
1265: }
1266: my $index = $index{$sortby};
1267: my $second = $index{'username'};
1268: my $third = $index{'domain'};
1.53 matthew 1269: my @Sorted_Students = sort {
1.56 matthew 1270: lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
1271: ||
1272: lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
1273: ||
1274: lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
1275: } (keys(%$classlist));
1.53 matthew 1276: foreach my $student (@Sorted_Students) {
1.56 matthew 1277: my $username = $classlist->{$student}->[$index{'username'}];
1278: my $domain = $classlist->{$student}->[$index{'domain'}];
1279: my $section = $classlist->{$student}->[$index{'section'}];
1280: my $name = $classlist->{$student}->[$index{'fullname'}];
1281: my $id = $classlist->{$student}->[$index{'id'}];
1282: my $status = $classlist->{$student}->[$index{'status'}];
1.57 matthew 1283: next if (($statusmode ne 'Any') && ($status ne $statusmode));
1.51 matthew 1284: if ($mode eq 'view') {
1285: $r->print("<tr>\n <td>\n ");
1286: if ($linkto eq 'nothing') {
1287: $r->print($username);
1288: } elsif ($linkto eq 'aboutme') {
1289: $r->print(&Apache::loncommon::aboutmewrapper($username,
1290: $username,
1291: $domain));
1292: } elsif ($linkto eq 'modify') {
1.59 matthew 1293: $r->print('<a href="'.
1294: "javascript:document.studentform.sname.value='".
1295: $username.
1296: "';document.studentform.sdom.value='".$domain.
1297: "';document.studentform.state.value='selected".
1298: "';document.studentform.submit();".'">'.
1.53 matthew 1299: $username."</a>\n");
1.50 matthew 1300: }
1.51 matthew 1301: $r->print(<<"END");
1.50 matthew 1302: </td>
1.51 matthew 1303: <td>$domain</td>
1304: <td>$id</td>
1305: <td>$name</td>
1306: <td>$section</td>
1.40 matthew 1307: </tr>
1308: END
1.51 matthew 1309: } elsif ($mode eq 'csv') {
1310: # no need to bother with $linkto
1311: my @line = ();
1312: foreach ($username,$domain,$id,$name,$section) {
1313: push @line,&Apache::loncommon::csv_translate($_);
1.58 matthew 1314: }
1315: if ($statusmode eq 'Any') {
1316: push @line,&Apache::loncommon::csv_translate($status);
1.41 matthew 1317: }
1.51 matthew 1318: my $tmp = $";
1319: $" = '","';
1320: $r->print("\"@line\"\n");
1321: $" = $tmp;
1.60 matthew 1322: } elsif ($mode eq 'excel') {
1323: $excel_sheet->write($row++,0,[$username,$domain,$id,
1324: $name,$section,$status]);
1.40 matthew 1325: }
1326: }
1.60 matthew 1327: if ($mode eq 'view') {
1328: $r->print('</table><br>');
1329: } elsif ($mode eq 'excel') {
1330: $excel_workbook->close();
1331: $r->print('<p><a href="'.$excel_filename.'">'.
1.94 sakharuk 1332: &mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");
1.60 matthew 1333: }
1.40 matthew 1334: }
1335:
1.50 matthew 1336:
1337: #
1338: # print out form for modification of a single students data
1339: #
1340: sub print_modify_student_form {
1341: my $r = shift();
1342: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.59 matthew 1343: ['sdom','sname']);
1.53 matthew 1344: my $sname = $ENV{'form.sname'};
1345: my $sdom = $ENV{'form.sdom'};
1346: my $sortby = $ENV{'form.sortby'};
1.50 matthew 1347: # determine the students name information
1348: my %info=&Apache::lonnet::get('environment',
1349: ['firstname','middlename',
1.52 matthew 1350: 'lastname','generation','id'],
1.50 matthew 1351: $sdom, $sname);
1352: my ($tmp) = keys(%info);
1353: if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
1.94 sakharuk 1354: $r->print('<font color="#ff0000" size="+2">'.&mt('Error').'</font>'.
1.50 matthew 1355: '<p>'.
1.94 sakharuk 1356: &mt('Unable to retrieve environment data for').' '.$sname.
1357: &mt('in domain').' '.$sdom.'</p><p>'.
1358: &mt('Please contact your LON-CAPA administrator regarding this situation.').'</p></body></html>');
1.50 matthew 1359: return;
1360: }
1361: # determine the students starting and ending times and section
1362: my ($starttime,$endtime,$section) = &get_enrollment_data($sname,$sdom);
1.87 matthew 1363: if ($starttime =~ /^error/) {
1.94 sakharuk 1364: $r->print('<h2>'&mt('Error').'</h2>');
1.87 matthew 1365: $r->print('<p>'.$starttime.'</p>');
1366: return;
1367: }
1.50 matthew 1368: # Deal with date forms
1.68 matthew 1369: my $date_table = &date_setting_table($starttime,$endtime);
1.59 matthew 1370: #
1371: if (! exists($ENV{'form.Status'}) ||
1372: $ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) {
1373: $ENV{'form.Status'} = 'crap';
1374: }
1.94 sakharuk 1375: # Make sure student is enrolled in course
1376: my %lt=&Apache::lonlocal::texthash(
1377: 'mef' => "Modify Enrollment for",
1378: 'odcc' => "Only domain coordinators can change a users password.",
1379: 'sn' => "Student Name",
1380: 'fn' => "First",
1381: 'mn' => "Middle",
1382: 'ln' => "Last",
1383: 'gen' => "Generation",
1384: 'sid' => "Student ID",
1385: 'disn' => "Disable ID/Student Number Safeguard and Force Change of Conflicting IDs (only do if you know what you are doing)",
1386: 'sec' => "Section",
1387: 'sm' => "Submit Modifications",
1388: );
1.50 matthew 1389: $r->print(<<END);
1.52 matthew 1390: <p>
1391: <font size="+1">
1.94 sakharuk 1392: $lt{'odcc'}
1.52 matthew 1393: </font>
1394: </p>
1.50 matthew 1395: <input type="hidden" name="slogin" value="$sname" />
1396: <input type="hidden" name="sdomain" value="$sdom" />
1397: <input type="hidden" name="action" value="modifystudent" />
1.53 matthew 1398: <input type="hidden" name="state" value="done" />
1399: <input type="hidden" name="sortby" value="$sortby" />
1.59 matthew 1400: <input type="hidden" name="Status" value="$ENV{'form.Status'}" />
1401:
1.94 sakharuk 1402: <h2>$lt{'mef'} $info{'firstname'} $info{'middlename'}
1.50 matthew 1403: $info{'lastname'} $info{'generation'}, $sname\@$sdom</h2>
1404: <p>
1.94 sakharuk 1405: <b>$lt{'sn'}</b>
1.50 matthew 1406: <table>
1.94 sakharuk 1407: <tr><th>$lt{'fn'}</th><th>$lt{'mn'}</th><th>$lt{'ln'}</th><th>$lt{'gen'}</th></tr>
1.50 matthew 1408: <tr><td>
1409: <input type="text" name="firstname" value="$info{'firstname'}" /></td><td>
1410: <input type="text" name="middlename" value="$info{'middlename'}" /></td><td>
1411: <input type="text" name="lastname" value="$info{'lastname'}" /></td><td>
1412: <input type="text" name="generation" value="$info{'generation'}" /></td></tr>
1413: </table>
1414: </p><p>
1.94 sakharuk 1415: <b>$lt{'sid'}</b>: <input type="text" name="id" value="$info{'id'}" size="12"/>
1.52 matthew 1416: </p><p>
1.53 matthew 1417: <input type="checkbox" name="forceid" >
1.94 sakharuk 1418: $lt{'disn'}
1.53 matthew 1419: </p><p>
1.94 sakharuk 1420: <b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="4"/>
1.50 matthew 1421: </p>
1.68 matthew 1422: <p>$date_table</p>
1.94 sakharuk 1423: <input type="submit" value="$lt{'sm'}" />
1.50 matthew 1424: </body></html>
1425: END
1426: return;
1427: }
1428:
1429: #
1430: # modify a single students section
1431: #
1432: sub modify_single_student {
1433: my $r = shift;
1.68 matthew 1434: #
1.80 matthew 1435: # Remove non alphanumeric values from the section
1436: $ENV{'form.section'} =~ s/\W//g;
1.77 matthew 1437: #
1.68 matthew 1438: # Do the date defaults first
1439: my ($starttime,$endtime) = &get_dates_from_form();
1440: if ($ENV{'form.makedatesdefault'}) {
1441: $r->print(&make_dates_default($starttime,$endtime));
1442: }
1.59 matthew 1443: # Get the 'sortby' and 'Status' variables so the user goes back to their
1444: # previous screen
1.53 matthew 1445: my $sortby = $ENV{'form.sortby'};
1.59 matthew 1446: my $status = $ENV{'form.Status'};
1.53 matthew 1447: #
1448: # We always need this information
1449: my $slogin = $ENV{'form.slogin'};
1450: my $sdom = $ENV{'form.sdomain'};
1451: #
1452: # Get the old data
1453: my %old=&Apache::lonnet::get('environment',
1454: ['firstname','middlename',
1455: 'lastname','generation','id'],
1456: $sdom, $slogin);
1.59 matthew 1457: $old{'section'} = &Apache::lonnet::getsection($sdom,$slogin,
1458: $ENV{'request.course.id'});
1.53 matthew 1459: my ($tmp) = keys(%old);
1460: if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
1.94 sakharuk 1461: $r->print(&mt('There was an error determining the environment values for')." $slogin \@ $sdom.");
1.53 matthew 1462: return;
1463: }
1464: undef $tmp;
1465: #
1466: # Get the new data
1.50 matthew 1467: my $firstname = $ENV{'form.firstname'};
1468: my $middlename = $ENV{'form.middlename'};
1469: my $lastname = $ENV{'form.lastname'};
1470: my $generation = $ENV{'form.generation'};
1471: my $section = $ENV{'form.section'};
1472: my $courseid = $ENV{'request.course.id'};
1.52 matthew 1473: my $sid = $ENV{'form.id'};
1.50 matthew 1474: my $displayable_starttime = localtime($starttime);
1475: my $displayable_endtime = localtime($endtime);
1.53 matthew 1476: #
1477: # check for forceid override
1.63 matthew 1478: if ((defined($old{'id'})) && ($old{'id'} ne '') &&
1479: ($sid ne $old{'id'}) && (! exists($ENV{'form.forceid'}))) {
1.94 sakharuk 1480: $r->print("<font color=\"ff0000\">".&mt('You changed the students id but did not disable the ID change safeguard. The students id will not be changed.')."</font>");
1.53 matthew 1481: $sid = $old{'id'};
1482: }
1483: #
1.50 matthew 1484: # talk to the user about what we are going to do
1.94 sakharuk 1485: my %lt=&Apache::lonlocal::texthash(
1486: 'mdu' => "Modifying data for user",
1487: 'si' => "Student Information",
1488: 'fd' => "Field",
1489: 'ov' => "Old Value",
1490: 'nv' => "New Value",
1491: 'fn' => "First name",
1492: 'mn' => "Middle name",
1493: 'ln' => "Last name",
1494: 'gen' => "Generation",
1495: 'sec' => "Section",
1496: 'ri' => "Role Information",
1497: 'st' => "Start Time",
1498: 'et' => "End Time",
1499: );
1.50 matthew 1500: $r->print(<<END);
1.94 sakharuk 1501: <h2>$lt{'mdu'} $slogin \@ $sdom </h2>
1502: <h3>$lt{'si'}</h3>
1.53 matthew 1503: <table rules="rows" border="1" cellpadding="3" >
1504: <tr>
1.94 sakharuk 1505: <th> $lt{'fd'} </th>
1506: <th> $lt{'ov'} </th>
1507: <th> $lt{'nv'} </th>
1.53 matthew 1508: </tr>
1509: <tr>
1.94 sakharuk 1510: <td> <b>$lt{'fn'}</b> </td>
1.53 matthew 1511: <td> $old{'firstname'} </td>
1512: <td> $firstname </td>
1513: </tr><tr>
1.94 sakharuk 1514: <td> <b>$lt{'mn'}</b> </td>
1.53 matthew 1515: <td> $old{'middlename'} </td>
1516: <td> $middlename </td>
1517: </tr><tr>
1.94 sakharuk 1518: <td> <b>$lt{'ln'}</b> </td>
1.53 matthew 1519: <td> $old{'lastname'} </td>
1520: <td> $lastname </td>
1521: </tr><tr>
1.94 sakharuk 1522: <td> <b>$lt{'gen'}</b> </td>
1.53 matthew 1523: <td> $old{'generation'} </td>
1524: <td> $generation </td>
1525: </tr><tr>
1526: <td> <b>ID</b> </td>
1527: <td> $old{'id'} </td>
1528: <td> $sid </td>
1.59 matthew 1529: </tr><tr>
1.94 sakharuk 1530: <td> <b>$lt{'sec'}</b> </td>
1.59 matthew 1531: <td> $old{'section'} </td>
1532: <td> $section</td>
1.53 matthew 1533: </tr>
1.50 matthew 1534: </table>
1.94 sakharuk 1535: <h3>$lt{'ri'}</h3>
1.50 matthew 1536: <table>
1.94 sakharuk 1537: <tr><td align="right"><b>$lt{'st'}:</b></td><td> $displayable_starttime </td></tr>
1538: <tr><td align="right"><b>$lt{'et'}:</b></td><td> $displayable_endtime </td></tr>
1.50 matthew 1539: </table>
1.52 matthew 1540: <p>
1.50 matthew 1541: END
1.53 matthew 1542: #
1.63 matthew 1543: # Send request(s) to modify data (final undef is for 'desiredhost',
1544: # which is a moot point because the student already has an account.
1545: my $modify_section_results = &modifystudent($sdom,$slogin,
1546: $ENV{'request.course.id'},
1547: $section,undef);
1548: if ($modify_section_results !~ /^ok/) {
1.94 sakharuk 1549: $r->print(&mt('An error occured during the attempt to change the section for this student.')."<br />");
1.63 matthew 1550: }
1.52 matthew 1551: my $roleresults = &Apache::lonnet::modifystudent
1.53 matthew 1552: ($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname,
1553: $generation,$section,$endtime,$starttime,$ENV{'form.forceid'});
1554: if ($roleresults eq 'refused' ) {
1.94 sakharuk 1555: $r->print(&mt('Your request to change the role information for this student was refused. You do not appear to have sufficient authority to change student information.'));
1.50 matthew 1556: } elsif ($roleresults !~ /ok/) {
1.94 sakharuk 1557: $r->print(&mt('An error occurred during the attempt to change the role information for this student.')." <br />".
1558: &mt('The error reported was')." ".
1.50 matthew 1559: $roleresults);
1.53 matthew 1560: &Apache::lonnet::logthis("londropadd:failed attempt to modify student".
1561: " data for ".$slogin." \@ ".$sdom." by ".
1562: $ENV{'user.name'}." \@ ".$ENV{'user.domain'}.
1563: ":".$roleresults);
1.50 matthew 1564: } else { # everything is okay!
1.94 sakharuk 1565: $r->print(&mt('Student information updated successfully.')." <br />".
1566: &mt('The student must log out and log in again to see these changes.'));
1.50 matthew 1567: }
1.94 sakharuk 1568: my $Masd=&mt('Modify another students data');
1.50 matthew 1569: $r->print(<<END);
1.52 matthew 1570: </p><p>
1.59 matthew 1571: <input type="hidden" name="action" value="modifystudent" />
1572: <input type="hidden" name="sortby" value="$sortby" />
1573: <input type="hidden" name="Status" value="$status" />
1.94 sakharuk 1574: <a href="javascript:document.studentform.submit();">$Masd</a>
1.50 matthew 1575: </body></html>
1576: END
1577: return;
1578: }
1579:
1580: sub get_enrollment_data {
1581: my ($sname,$sdomain) = @_;
1582: my $courseid = $ENV{'request.course.id'};
1583: $courseid =~ s:_:/:g;
1584: my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname);
1585: my ($tmp) = keys(%roles);
1586: # Bail out if we were unable to get the students roles
1.87 matthew 1587: return ('error'.$tmp) if ($tmp =~ /^(con_lost|error|no_such_host)/i);
1.50 matthew 1588: # Go through the roles looking for enrollment in this course
1589: my ($end,$start) = (undef,undef);
1590: my $section = '';
1591: my $count = scalar(keys(%roles));
1592: while (my ($course,$role) = each(%roles)) {
1593: if ($course=~ /^\/$courseid\/*\s*(\w+)*_st$/ ) {
1594: #
1595: # Get active role
1596: $section=$1;
1597: (undef,$end,$start)=split(/\_/,$role);
1598: my $now=time;
1599: my $notactive=0;
1600: if ($start) {
1601: if ($now<$start) { $notactive=1; }
1602: }
1603: if ($end) {
1604: if ($now>$end) { $notactive=1; }
1605: }
1606: unless ($notactive) { return ($start,$end,$section); }
1607: }
1608: }
1609: return ($start,$end,$section);
1610: }
1611:
1.56 matthew 1612: #################################################
1613: #################################################
1614:
1615: =pod
1616:
1617: =item show_drop_list
1618:
1619: Display a list of students to drop
1620: Inputs:
1621:
1622: =over 4
1623:
1624: =item $r, Apache request
1625:
1626: =item $classlist, hash pointer returned from loncoursedata::get_classlist();
1627:
1628: =item $keylist, array pointer returned from loncoursedata::get_classlist()
1629: which describes the order elements are stored in the %$classlist values.
1630:
1631: =item $nosort, if true, sorting links are omitted.
1632:
1633: =back
1634:
1635: =cut
1636:
1637: #################################################
1638: #################################################
1.11 www 1639: sub show_drop_list {
1.56 matthew 1640: my ($r,$classlist,$keylist,$nosort)=@_;
1.11 www 1641: my $cid=$ENV{'request.course.id'};
1.59 matthew 1642: if (! exists($ENV{'form.sortby'})) {
1643: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1644: ['sortby']);
1645: }
1.54 matthew 1646: my $sortby = $ENV{'form.sortby'};
1647: if ($sortby !~ /^(username|domain|section|fullname|id)$/) {
1648: $sortby = 'username';
1649: }
1.56 matthew 1650: #
1.54 matthew 1651: my $action = "drop";
1652: $r->print(<<END);
1653: <input type="hidden" name="sortby" value="$sortby" />
1654: <input type="hidden" name="action" value="$action" />
1.50 matthew 1655: <input type="hidden" name="state" value="done" />
1.32 matthew 1656: <script>
1.51 matthew 1657: function checkAll(field) {
1.32 matthew 1658: for (i = 0; i < field.length; i++)
1659: field[i].checked = true ;
1660: }
1661:
1.51 matthew 1662: function uncheckAll(field) {
1.32 matthew 1663: for (i = 0; i < field.length; i++)
1664: field[i].checked = false ;
1665: }
1666: </script>
1667: <p>
1.26 matthew 1668: <input type="hidden" name="phase" value="four">
1.56 matthew 1669: END
1670:
1671: if ($nosort) {
1.94 sakharuk 1672: my %lt=&Apache::lonlocal::texthash(
1673: 'usrn' => "username",
1674: 'dom' => "domain",
1675: 'sn' => "student name",
1676: 'sec' => "section",
1677: );
1.56 matthew 1678: $r->print(<<END);
1679: <table border=2>
1680: <tr>
1681: <th> </th>
1.94 sakharuk 1682: <th>$lt{'usrn'}</th>
1683: <th>$lt{'dom'}</th>
1.56 matthew 1684: <th>ID</th>
1.94 sakharuk 1685: <th>$lt{'sn'}</th>
1686: <th>$lt{'sec'}</th>
1.56 matthew 1687: </tr>
1688: END
1689:
1690: } else {
1.94 sakharuk 1691: my %lt=&Apache::lonlocal::texthash(
1692: 'usrn' => "username",
1693: 'dom' => "domain",
1694: 'sn' => "student name",
1695: 'sec' => "section",
1696: );
1.56 matthew 1697: $r->print(<<END);
1.26 matthew 1698: <table border=2>
1.54 matthew 1699: <tr><th> </th>
1700: <th>
1.94 sakharuk 1701: <a href="/adm/dropadd?action=$action&sortby=username">$lt{'usrn'}</a>
1.54 matthew 1702: </th><th>
1.94 sakharuk 1703: <a href="/adm/dropadd?action=$action&sortby=domain">$lt{'dom'}</a>
1.54 matthew 1704: </th><th>
1705: <a href="/adm/dropadd?action=$action&sortby=id">ID</a>
1706: </th><th>
1.94 sakharuk 1707: <a href="/adm/dropadd?action=$action&sortby=fullname">$lt{'sn'}</a>
1.54 matthew 1708: </th><th>
1.94 sakharuk 1709: <a href="/adm/dropadd?action=$action&sortby=section">$lt{'sec'}</a>
1.54 matthew 1710: </th>
1711: </tr>
1.26 matthew 1712: END
1.56 matthew 1713: }
1714: #
1715: # Sort the students
1716: my %index;
1717: my $i;
1718: foreach (@$keylist) {
1719: $index{$_} = $i++;
1720: }
1721: my $index = $index{$sortby};
1722: my $second = $index{'username'};
1723: my $third = $index{'domain'};
1.54 matthew 1724: my @Sorted_Students = sort {
1.56 matthew 1725: lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
1726: ||
1727: lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
1728: ||
1729: lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
1730: } (keys(%$classlist));
1.54 matthew 1731: foreach my $student (@Sorted_Students) {
1.52 matthew 1732: my $error;
1.56 matthew 1733: my $username = $classlist->{$student}->[$index{'username'}];
1734: my $domain = $classlist->{$student}->[$index{'domain'}];
1735: my $section = $classlist->{$student}->[$index{'section'}];
1736: my $name = $classlist->{$student}->[$index{'fullname'}];
1737: my $id = $classlist->{$student}->[$index{'id'}];
1738: my $status = $classlist->{$student}->[$index{'status'}];
1.51 matthew 1739: next if ($status ne 'Active');
1740: #
1741: $r->print(<<"END");
1.26 matthew 1742: <tr>
1.51 matthew 1743: <td><input type="checkbox" name="droplist" value="$student"></td>
1744: <td>$username</td>
1745: <td>$domain</td>
1746: <td>$id</td>
1747: <td>$name</td>
1748: <td>$section</td>
1.26 matthew 1749: </tr>
1750: END
1.25 matthew 1751: }
1752: $r->print('</table><br>');
1.94 sakharuk 1753: my %lt=&Apache::lonlocal::texthash(
1754: 'dp' => "Drop Students",
1755: 'ca' => "check all",
1756: 'ua' => "uncheck all",
1757: );
1.32 matthew 1758: $r->print(<<"END");
1759: </p><p>
1.94 sakharuk 1760: <input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.droplist)">
1761: <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.droplist)">
1762: <p><input type=submit value="$lt{'dp'}"></p>
1.32 matthew 1763: END
1.51 matthew 1764: return;
1.10 www 1765: }
1766:
1.48 matthew 1767: #
1768: # Print out the initial form to get the courselist file
1769: #
1770: sub print_first_courselist_upload_form {
1771: my $r=shift;
1.88 matthew 1772: my $str;
1773: $str = '<input type="hidden" name="phase" value="two">';
1774: $str .= '<input type="hidden" name="action" value="upload" />';
1775: $str .= '<input type="hidden" name="state" value="got_file" />';
1776: $str .= "<h3>".&mt('Upload a class list')."</h3>\n";
1777: $str .= &Apache::loncommon::upfile_select_html();
1778: $str .= "<p>\n";
1779: $str .= '<input type="submit" name="fileupload" value="'.
1780: &mt('Upload class list').'">'."\n";
1781: $str .= '<input type="checkbox" name="noFirstLine" /> '.
1782: &mt('Ignore First Line')."</p>\n";
1783: $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",
1.92 sakharuk 1784: &mt("How do I create a class list from a spreadsheet")).
1.88 matthew 1785: "<br />\n";
1786: $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
1.92 sakharuk 1787: &mt("How do I create a CSV file from a spreadsheet")).
1.88 matthew 1788: "<br />\n";
1789: $str .= "</body>\n</html>\n";
1790: $r->print($str);
1.48 matthew 1791: return;
1792: }
1793:
1.10 www 1794: # ================================================= Drop/Add from uploaded file
1795: sub upfile_drop_add {
1796: my $r=shift;
1.24 albertel 1797: &Apache::loncommon::load_tmp_file($r);
1798: my @studentdata=&Apache::loncommon::upfile_record_sep();
1.82 www 1799: if($ENV{'form.noFirstLine'}){shift(@studentdata);}
1.26 matthew 1800: my @keyfields = split(/\,/,$ENV{'form.keyfields'});
1801: my $cid = $ENV{'request.course.id'};
1.25 matthew 1802: my %fields=();
1.26 matthew 1803: for (my $i=0; $i<=$ENV{'form.nfields'}; $i++) {
1.25 matthew 1804: if ($ENV{'form.upfile_associate'} eq 'reverse') {
1805: if ($ENV{'form.f'.$i} ne 'none') {
1806: $fields{$keyfields[$i]}=$ENV{'form.f'.$i};
1807: }
1808: } else {
1809: $fields{$ENV{'form.f'.$i}}=$keyfields[$i];
1810: }
1811: }
1.99 matthew 1812: #
1813: # Store the field choices away
1814: foreach my $field (qw/username names
1815: fname mname lname gen id sec ipwd email/) {
1816: $ENV{'form.'.$field.'_choice'}=$fields{$field};
1817: }
1818: &Apache::loncommon::store_course_settings('enrollment_upload',
1819: { 'username_choice' => 'scalar',
1820: 'names_choice' => 'scalar',
1821: 'fname_choice' => 'scalar',
1822: 'mname_choice' => 'scalar',
1823: 'lname_choice' => 'scalar',
1824: 'gen_choice' => 'scalar',
1825: 'id_choice' => 'scalar',
1826: 'sec_choice' => 'scalar',
1827: 'ipwd_choice' => 'scalar',
1828: 'email_choice' => 'scalar' });
1829:
1.26 matthew 1830: #
1.68 matthew 1831: my ($startdate,$enddate) = &get_dates_from_form();
1832: if ($ENV{'form.makedatesdefault'}) {
1833: $r->print(&make_dates_default($startdate,$enddate));
1834: }
1.31 matthew 1835: # Determine domain and desired host (home server)
1.25 matthew 1836: my $domain=$ENV{'form.lcdomain'};
1.31 matthew 1837: my $desiredhost = $ENV{'form.lcserver'};
1838: if (lc($desiredhost) eq 'default') {
1839: $desiredhost = undef;
1840: } else {
1.45 matthew 1841: my %home_servers = &Apache::loncommon::get_library_servers($domain);
1.31 matthew 1842: if (! exists($home_servers{$desiredhost})) {
1.88 matthew 1843: $r->print('<font color="#ff0000">'.&mt('Error').'</font>'.
1844: &mt('Invalid home server specified'));
1845: $r->print("</body>\n</html>\n");
1.31 matthew 1846: return;
1847: }
1848: }
1.26 matthew 1849: # Determine authentication mechanism
1850: my $amode = '';
1851: my $genpwd = '';
1.25 matthew 1852: if ($ENV{'form.login'} eq 'krb') {
1.47 albertel 1853: $amode='krb';
1854: $amode.=$ENV{'form.krbver'};
1.28 matthew 1855: $genpwd=$ENV{'form.krbarg'};
1.25 matthew 1856: } elsif ($ENV{'form.login'} eq 'int') {
1857: $amode='internal';
1.28 matthew 1858: if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) {
1859: $genpwd=$ENV{'form.intarg'};
1.25 matthew 1860: }
1861: } elsif ($ENV{'form.login'} eq 'loc') {
1862: $amode='localauth';
1863: if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
1864: $genpwd=$ENV{'form.locarg'};
1.79 matthew 1865: }
1866: }
1867: if ($amode =~ /^krb/) {
1868: if (! defined($genpwd) || $genpwd eq '') {
1869: $r->print('<font color="red" size="+1">'.
1.88 matthew 1870: &mt('Unable to enroll students').'</font> '.
1871: &mt('No Kerberos domain was specified.').'</p>');
1.79 matthew 1872: $amode = ''; # This causes the loop below to be skipped
1.25 matthew 1873: }
1874: }
1875: unless (($domain=~/\W/) || ($amode eq '')) {
1.26 matthew 1876: #######################################
1877: ## Enroll Students ##
1878: #######################################
1.88 matthew 1879: $r->print('<h3>'.&mt('Enrolling Students')."</h3>\n<p>\n");
1.25 matthew 1880: my $count=0;
1881: my $flushc=0;
1882: my %student=();
1.26 matthew 1883: # Get new classlist
1.25 matthew 1884: foreach (@studentdata) {
1885: my %entries=&Apache::loncommon::record_sep($_);
1.26 matthew 1886: # Determine student name
1.25 matthew 1887: unless (($entries{$fields{'username'}} eq '') ||
1888: (!defined($entries{$fields{'username'}}))) {
1.26 matthew 1889: my ($fname, $mname, $lname,$gen) = ('','','','');
1.25 matthew 1890: if (defined($fields{'names'})) {
1.26 matthew 1891: ($lname,$fname,$mname)=($entries{$fields{'names'}}=~
1892: /([^\,]+)\,\s*(\w+)\s*(.*)$/);
1.25 matthew 1893: } else {
1894: if (defined($fields{'fname'})) {
1895: $fname=$entries{$fields{'fname'}};
1896: }
1897: if (defined($fields{'mname'})) {
1898: $mname=$entries{$fields{'mname'}};
1899: }
1900: if (defined($fields{'lname'})) {
1901: $lname=$entries{$fields{'lname'}};
1902: }
1903: if (defined($fields{'gen'})) {
1904: $gen=$entries{$fields{'gen'}};
1905: }
1906: }
1907: if ($entries{$fields{'username'}}=~/\W/) {
1.88 matthew 1908: $r->print('<br />'.
1909: &mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',
1910: $entries{$fields{'username'}},$fname,$mname,$lname,$gen).
1911: '</b>');
1.25 matthew 1912: } else {
1.26 matthew 1913: # determine section number
1.25 matthew 1914: my $sec='';
1915: my $username=$entries{$fields{'username'}};
1916: if (defined($fields{'sec'})) {
1917: if (defined($entries{$fields{'sec'}})) {
1918: $sec=$entries{$fields{'sec'}};
1919: }
1920: }
1.80 matthew 1921: # remove non alphanumeric values from section
1922: $sec =~ s/\W//g;
1.26 matthew 1923: # determine student id number
1.25 matthew 1924: my $id='';
1925: if (defined($fields{'id'})) {
1926: if (defined($entries{$fields{'id'}})) {
1927: $id=$entries{$fields{'id'}};
1928: }
1929: $id=~tr/A-Z/a-z/;
1930: }
1.73 www 1931: # determine email address
1932: my $email='';
1933: if (defined($fields{'email'})) {
1934: if (defined($entries{$fields{'email'}})) {
1935: $email=$entries{$fields{'email'}};
1936: unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; }
1937: }
1938: }
1.26 matthew 1939: # determine student password
1.25 matthew 1940: my $password='';
1941: if ($genpwd) {
1942: $password=$genpwd;
1943: } else {
1944: if (defined($fields{'ipwd'})) {
1945: if ($entries{$fields{'ipwd'}}) {
1946: $password=$entries{$fields{'ipwd'}};
1947: }
1948: }
1949: }
1.56 matthew 1950: # Clean up whitespace
1951: foreach (\$domain,\$username,\$id,\$fname,\$mname,
1952: \$lname,\$gen,\$sec) {
1953: $$_ =~ s/(\s+$|^\s+)//g;
1954: }
1.84 albertel 1955: if ($password || $ENV{'form.login'} eq 'loc') {
1.33 matthew 1956: &modifystudent($domain,$username,$cid,$sec,
1957: $desiredhost);
1.25 matthew 1958: my $reply=&Apache::lonnet::modifystudent
1959: ($domain,$username,$id,$amode,$password,
1960: $fname,$mname,$lname,$gen,$sec,$enddate,
1.73 www 1961: $startdate,$ENV{'form.forceid'},$desiredhost,
1962: $email);
1.26 matthew 1963: if ($reply ne 'ok') {
1.72 matthew 1964: $reply =~ s/^error://;
1.88 matthew 1965: $r->print('<br />'.
1966: &mt('<b>[_1]</b>: Unable to enroll: [_2]',$username,$reply));
1.10 www 1967: } else {
1.7 www 1968: $count++; $flushc++;
1969: $student{$username}=1;
1.6 www 1970: $r->print('. ');
1.7 www 1971: if ($flushc>15) {
1972: $r->rflush;
1973: $flushc=0;
1974: }
1.6 www 1975: }
1.25 matthew 1976: } else {
1.88 matthew 1977: $r->print('<br />'.
1978: &mt('<b>[_1]</b>: Unable to enroll. No password specified.',$username)
1979: );
1.25 matthew 1980: }
1981: }
1.26 matthew 1982: }
1983: } # end of foreach (@studentdata)
1.88 matthew 1984: $r->print("</p>\n<p>\n".&mt('Processed [_1] student(s).',$count).
1985: "</p>\n");
1986: $r->print("<p>\n".
1987: &mt('If active, the new role will be available when the '.
1988: 'students next log in to LON-CAPA.')."</p>\n");
1.26 matthew 1989: #####################################
1990: # Drop students #
1991: #####################################
1.25 matthew 1992: if ($ENV{'form.fullup'} eq 'yes') {
1.88 matthew 1993: $r->print('<h3>'.&mt('Dropping Students')."</h3>\n");
1.26 matthew 1994: # Get current classlist
1.56 matthew 1995: my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
1996: if (! defined($classlist)) {
1.88 matthew 1997: $r->print(&mt('There are no students currently enrolled.').
1998: "\n");
1.56 matthew 1999: } else {
2000: # Remove the students we just added from the list of students.
1.25 matthew 2001: foreach (@studentdata) {
2002: my %entries=&Apache::loncommon::record_sep($_);
2003: unless (($entries{$fields{'username'}} eq '') ||
2004: (!defined($entries{$fields{'username'}}))) {
1.56 matthew 2005: delete($classlist->{$entries{$fields{'username'}}.
1.26 matthew 2006: ':'.$domain});
1.25 matthew 2007: }
2008: }
1.56 matthew 2009: # Print out list of dropped students.
2010: &show_drop_list($r,$classlist,$keylist,'nosort');
1.25 matthew 2011: }
2012: }
1.26 matthew 2013: } # end of unless
1.10 www 2014: }
2015:
1.11 www 2016: # ================================================================== Phase four
2017: sub drop_student_list {
2018: my $r=shift;
2019: my $count=0;
1.35 matthew 2020: my @droplist;
2021: if (ref($ENV{'form.droplist'})) {
2022: @droplist = @{$ENV{'form.droplist'}};
2023: } else {
2024: @droplist = ($ENV{'form.droplist'});
2025: }
2026: foreach (@droplist) {
1.26 matthew 2027: my ($uname,$udom)=split(/\:/,$_);
1.56 matthew 2028: # drop student
1.35 matthew 2029: my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});
1.37 matthew 2030: if ($result eq 'ok' || $result eq 'ok:') {
1.88 matthew 2031: $r->print(&mt('Dropped [_1]',$uname.'@'.$udom).'<br>');
1.59 matthew 2032: $count++;
1.35 matthew 2033: } else {
1.88 matthew 2034: $r->print(
2035: &mt('Error dropping [_1]:[_2]',$uname.'@'.$udom,$result).
1.35 matthew 2036: '<br />');
2037: }
1.20 harris41 2038: }
1.88 matthew 2039: $r->print('<p><b>'.&mt('Dropped [_1] student(s).',$count).'</b></p>');
2040: $r->print('<p>'.&mt('Re-enrollment will re-activate data.')) if ($count);
1.11 www 2041: }
2042:
1.50 matthew 2043: ###################################################################
2044: ###################################################################
2045:
2046: =pod
2047:
2048: =item &handler
2049:
2050: The typical handler you see in all these modules. Takes $r, the
2051: http request, as an argument.
2052:
2053: The response to the request is governed by two form variables
2054:
2055: form.action form.state response
2056: ---------------------------------------------------
2057: undefined undefined print main menu
2058: upload undefined print courselist upload menu
2059: upload got_file deal with uploaded file,
2060: print the upload managing menu
2061: upload enrolling enroll students based on upload
2062: drop undefined print the classlist ready to drop
2063: drop done drop the selected students
1.74 matthew 2064: enrollstudent undefined print student username domain form
2065: enrollstudent gotusername print single student enroll menu
1.50 matthew 2066: enrollstudent enrolling enroll student
2067: classlist undefined print html classlist
2068: classlist csv print csv classlist
2069: modifystudent undefined print classlist to select student to modify
2070: modifystudent selected print modify student menu
2071: modifystudent done make modifications to student record
2072:
2073: =cut
2074:
2075: ###################################################################
2076: ###################################################################
1.10 www 2077: sub handler {
1.26 matthew 2078: my $r=shift;
2079: if ($r->header_only) {
1.86 www 2080: &Apache::loncommon::content_type($r,'text/html');
1.26 matthew 2081: $r->send_http_header;
2082: return OK;
2083: }
1.48 matthew 2084: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.50 matthew 2085: ['action','state']);
1.26 matthew 2086: # Needs to be in a course
1.50 matthew 2087: if (! (($ENV{'request.course.fn'}) &&
2088: (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'})))) {
2089: # Not in a course, or not allowed to modify parms
2090: $ENV{'user.error.msg'}=
2091: "/adm/dropadd:cst:0:0:Cannot drop or add students";
2092: return HTTP_NOT_ACCEPTABLE;
2093: }
2094: #
2095: # Only output the header information if they did not request csv format
2096: #
2097: if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
2098: $r->content_type('text/csv');
2099: } else {
1.26 matthew 2100: # Start page
1.86 www 2101: &Apache::loncommon::content_type($r,'text/html');
1.26 matthew 2102: $r->send_http_header;
1.50 matthew 2103: $r->print(&header());
2104: }
2105: #
2106: # Main switch on form.action and form.state, as appropriate
2107: if (! exists($ENV{'form.action'})) {
2108: &print_main_menu($r);
2109: } elsif ($ENV{'form.action'} eq 'upload') {
2110: if (! exists($ENV{'form.state'})) {
2111: &print_first_courselist_upload_form($r);
2112: } elsif ($ENV{'form.state'} eq 'got_file') {
2113: &print_upload_manager_form($r);
2114: } elsif ($ENV{'form.state'} eq 'enrolling') {
1.26 matthew 2115: if ($ENV{'form.datatoken'}) {
2116: &upfile_drop_add($r);
1.50 matthew 2117: } else {
2118: # Hmmm, this is an error
1.26 matthew 2119: }
1.50 matthew 2120: } else {
2121: &print_first_courselist_upload_form($r);
1.26 matthew 2122: }
1.50 matthew 2123: } elsif ($ENV{'form.action'} eq 'drop') {
2124: if (! exists($ENV{'form.state'})) {
1.51 matthew 2125: &print_drop_menu($r);
1.50 matthew 2126: } elsif ($ENV{'form.state'} eq 'done') {
1.26 matthew 2127: &drop_student_list($r);
1.50 matthew 2128: } else {
1.55 matthew 2129: &print_drop_menu($r);
1.26 matthew 2130: }
1.50 matthew 2131: } elsif ($ENV{'form.action'} eq 'enrollstudent') {
2132: if (! exists($ENV{'form.state'})) {
1.74 matthew 2133: &get_student_username_domain_form($r);
2134: } elsif ($ENV{'form.state'} eq 'gotusername') {
1.50 matthew 2135: &print_enroll_single_student_form($r);
2136: } elsif ($ENV{'form.state'} eq 'enrolling') {
1.26 matthew 2137: &enroll_single_student($r);
1.50 matthew 2138: } else {
1.74 matthew 2139: &get_student_username_domain_form($r);
1.26 matthew 2140: }
1.50 matthew 2141: } elsif ($ENV{'form.action'} eq 'classlist') {
2142: if (! exists($ENV{'form.state'})) {
2143: &print_html_classlist($r);
2144: } elsif ($ENV{'form.state'} eq 'csv') {
1.60 matthew 2145: &print_formatted_classlist($r,'csv');
2146: } elsif ($ENV{'form.state'} eq 'excel') {
2147: &print_formatted_classlist($r,'excel');
1.50 matthew 2148: } else {
2149: &print_html_classlist($r);
2150: }
2151: } elsif ($ENV{'form.action'} eq 'modifystudent') {
2152: if (! exists($ENV{'form.state'})) {
2153: &print_html_classlist($r);
2154: } elsif ($ENV{'form.state'} eq 'selected') {
2155: &print_modify_student_form($r);
2156: } elsif ($ENV{'form.state'} eq 'done') {
2157: &modify_single_student($r);
2158: } else {
2159: &print_html_classlist($r);
2160: }
2161: } else {
2162: # We should not end up here, but I guess it is possible
2163: &Apache::lonnet::logthis("Undetermined state in londropadd.pm. ".
2164: "form.action = ".$ENV{'form.action'}.
2165: "Someone should fix this.");
2166: &print_main_menu($r);
2167: }
2168: #
2169: # Finish up
2170: if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
2171: $r->print("\n");
1.26 matthew 2172: } else {
1.50 matthew 2173: $r->print('</form></body></html>');
1.26 matthew 2174: }
2175: return OK;
1.1 www 2176: }
2177:
1.50 matthew 2178: ###################################################################
2179: ###################################################################
2180:
1.1 www 2181: 1;
2182: __END__
1.50 matthew 2183:
1.1 www 2184:
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