Annotation of loncom/interface/loncreateuser.pm, revision 1.151
1.20 harris41 1: # The LearningOnline Network with CAPA
1.1 www 2: # Create a user
3: #
1.151 ! albertel 4: # $Id: loncreateuser.pm,v 1.150 2007/06/07 22:23:11 banghart Exp $
1.22 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.20 harris41 28: ###
29:
1.1 www 30: package Apache::loncreateuser;
1.66 bowersj2 31:
32: =pod
33:
34: =head1 NAME
35:
36: Apache::loncreateuser - handler to create users and custom roles
37:
38: =head1 SYNOPSIS
39:
40: Apache::loncreateuser provides an Apache handler for creating users,
41: editing their login parameters, roles, and removing roles, and
42: also creating and assigning custom roles.
43:
44: =head1 OVERVIEW
45:
46: =head2 Custom Roles
47:
48: In LON-CAPA, roles are actually collections of privileges. "Teaching
49: Assistant", "Course Coordinator", and other such roles are really just
50: collection of privileges that are useful in many circumstances.
51:
52: Creating custom roles can be done by the Domain Coordinator through
53: the Create User functionality. That screen will show all privileges
54: that can be assigned to users. For a complete list of privileges,
55: please see C</home/httpd/lonTabs/rolesplain.tab>.
56:
57: Custom role definitions are stored in the C<roles.db> file of the role
58: author.
59:
60: =cut
1.1 www 61:
62: use strict;
63: use Apache::Constants qw(:common :http);
64: use Apache::lonnet;
1.54 bowersj2 65: use Apache::loncommon;
1.68 www 66: use Apache::lonlocal;
1.117 raeburn 67: use Apache::longroup;
1.118 www 68: use lib '/home/httpd/lib/perl/';
1.139 albertel 69: use LONCAPA qw(:DEFAULT :match);
1.1 www 70:
1.20 harris41 71: my $loginscript; # piece of javascript used in two separate instances
72: my $generalrule;
73: my $authformnop;
74: my $authformkrb;
75: my $authformint;
76: my $authformfsys;
77: my $authformloc;
78:
1.94 matthew 79: sub initialize_authen_forms {
80: my ($krbdefdom)=( $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/);
81: $krbdefdom= uc($krbdefdom);
1.31 matthew 82: my %param = ( formname => 'document.cu',
83: kerb_def_dom => $krbdefdom
84: );
1.48 albertel 85: # no longer static due to configurable kerberos defaults
86: # $loginscript = &Apache::loncommon::authform_header(%param);
1.31 matthew 87: $generalrule = &Apache::loncommon::authform_authorwarning(%param);
88: $authformnop = &Apache::loncommon::authform_nochange(%param);
1.48 albertel 89: # no longer static due to configurable kerberos defaults
90: # $authformkrb = &Apache::loncommon::authform_kerberos(%param);
1.31 matthew 91: $authformint = &Apache::loncommon::authform_internal(%param);
92: $authformfsys = &Apache::loncommon::authform_filesystem(%param);
93: $authformloc = &Apache::loncommon::authform_local(%param);
1.20 harris41 94: }
95:
1.43 www 96:
1.59 www 97: # ======================================================= Existing Custom Roles
98:
99: sub my_custom_roles {
100: my %returnhash=();
101: my %rolehash=&Apache::lonnet::dump('roles');
1.135 raeburn 102: foreach my $key (keys %rolehash) {
103: if ($key=~/^rolesdef\_(\w+)$/) {
1.61 www 104: $returnhash{$1}=$1;
1.59 www 105: }
106: }
107: return %returnhash;
108: }
1.43 www 109:
110: # ==================================================== Figure out author access
111:
112: sub authorpriv {
113: my ($auname,$audom)=@_;
1.105 www 114: unless ((&Apache::lonnet::allowed('cca',$audom.'/'.$auname))
115: || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; }
1.43 www 116: return 1;
117: }
118:
1.134 raeburn 119: # ====================================================
120:
121: sub portfolio_quota {
122: my ($ccuname,$ccdomain) = @_;
123: my %lt = &Apache::lonlocal::texthash(
124: 'disk' => "Disk space allocated to user's portfolio files",
1.149 raeburn 125: 'cuqu' => "Current quota",
126: 'cust' => "Custom quota",
127: 'defa' => "Default",
128: 'chqu' => "Change quota",
1.134 raeburn 129: );
1.149 raeburn 130: my ($currquota,$quotatype,$inststatus,$defquota) =
131: &Apache::loncommon::get_user_quota($ccuname,$ccdomain);
132: my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain);
133: my ($longinsttype,$showquota,$custom_on,$custom_off,$defaultinfo);
134: if ($inststatus ne '') {
135: if ($usertypes->{$inststatus} ne '') {
136: $longinsttype = $usertypes->{$inststatus};
137: }
138: }
139: $custom_on = ' ';
140: $custom_off = ' checked="checked" ';
141: my $quota_javascript = <<"END_SCRIPT";
142: <script type="text/javascript">
143: function quota_changes(caller) {
144: if (caller == "custom") {
145: if (document.cu.customquota[0].checked) {
146: document.cu.portfolioquota.value = "";
147: }
148: }
149: if (caller == "quota") {
150: document.cu.customquota[1].checked = true;
151: }
152: }
153: </script>
154: END_SCRIPT
155: if ($quotatype eq 'custom') {
156: $custom_on = $custom_off;
157: $custom_off = ' ';
158: $showquota = $currquota;
159: if ($longinsttype eq '') {
160: $defaultinfo = &mt('For this user, the default quota would be [_1]
161: Mb.',$defquota);
162: } else {
163: $defaultinfo = &mt("For this user, the default quota would be [_1]
164: Mb, as determined by the user's institutional
165: affiliation ([_2]).",$defquota,$longinsttype);
166: }
167: } else {
168: if ($longinsttype eq '') {
169: $defaultinfo = &mt('For this user, the default quota is [_1]
170: Mb.',$defquota);
171: } else {
172: $defaultinfo = &mt("For this user, the default quota of [_1]
173: Mb, is determined by the user's institutional
174: affiliation ([_2]).",$defquota,$longinsttype);
175: }
176: }
177: my $output = $quota_javascript.
178: '<h3>'.$lt{'disk'}.'</h3>'.
179: $lt{'cuqu'}.': '.$currquota.' Mb. '.
180: $defaultinfo.'<br /><span class="LC_nobreak">'.$lt{'chqu'}.
181: ': <label>'.
182: '<input type="radio" name="customquota" value="0" '.
183: $custom_off.' onchange="javascript:quota_changes('."'custom'".')"
184: />'.$lt{'defa'}.' ('.$defquota.' Mb).</label> '.
185: ' <label><input type="radio" name="customquota" value="1" '.
186: $custom_on.' onchange="javascript:quota_changes('."'custom'".')" />'.
187: $lt{'cust'}.':</label> '.
1.134 raeburn 188: '<input type="text" name="portfolioquota" size ="5" value="'.
1.149 raeburn 189: $showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.
190: '/> Mb';
1.134 raeburn 191: return $output;
192: }
193:
1.2 www 194: # =================================================================== Phase one
1.1 www 195:
1.42 matthew 196: sub print_username_entry_form {
1.110 albertel 197: my ($r) = @_;
1.101 albertel 198: my $defdom=$env{'request.role.domain'};
1.33 matthew 199: my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
1.46 www 200: my $selscript=&Apache::loncommon::studentbrowser_javascript();
1.110 albertel 201: my $start_page =
202: &Apache::loncommon::start_page('Create Users, Change User Privileges',
203: $selscript);
204:
1.46 www 205: my $sellink=&Apache::loncommon::selectstudent_link
206: ('crtuser','ccuname','ccdomain');
1.59 www 207: my %existingroles=&my_custom_roles();
208: my $choice=&Apache::loncommon::select_form('make new role','rolename',
209: ('make new role' => 'Generate new role ...',%existingroles));
1.71 sakharuk 210: my %lt=&Apache::lonlocal::texthash(
211: 'siur' => "Set Individual User Roles",
212: 'usr' => "Username",
213: 'dom' => "Domain",
214: 'usrr' => "User Roles",
215: 'ecrp' => "Edit Custom Role Privileges",
1.72 sakharuk 216: 'nr' => "Name of Role",
1.71 sakharuk 217: 'cre' => "Custom Role Editor"
218: );
1.122 albertel 219: my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');
1.76 www 220: my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');
221: my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');
1.33 matthew 222: $r->print(<<"ENDDOCUMENT");
1.111 albertel 223: $start_page
1.46 www 224: <form action="/adm/createuser" method="post" name="crtuser">
1.42 matthew 225: <input type="hidden" name="phase" value="get_user_info">
1.76 www 226: <h2>$lt{siur}$helpsiur</h2>
1.43 www 227: <table>
1.71 sakharuk 228: <tr><td>$lt{usr}:</td><td><input type="text" size="15" name="ccuname">
1.46 www 229: </td><td rowspan="2">$sellink</td></tr><tr><td>
1.71 sakharuk 230: $lt{'dom'}:</td><td>$domform</td></tr>
1.58 www 231: </table>
1.71 sakharuk 232: <input name="userrole" type="submit" value="$lt{usrr}" />
1.2 www 233: </form>
1.106 www 234: ENDDOCUMENT
235: if (&Apache::lonnet::allowed('mcr','/')) {
236: $r->print(<<ENDCUSTOM);
1.58 www 237: <form action="/adm/createuser" method="post" name="docustom">
238: <input type="hidden" name="phase" value="selected_custom_edit">
1.76 www 239: <h2>$lt{'ecrp'}$helpecpr</h2>
1.72 sakharuk 240: $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
1.71 sakharuk 241: <input name="customeditor" type="submit" value="$lt{'cre'}" />
1.107 www 242: </form>
1.106 www 243: ENDCUSTOM
1.107 www 244: }
1.110 albertel 245: $r->print(&Apache::loncommon::end_page());
246: }
247:
248:
249: sub user_modification_js {
1.113 raeburn 250: my ($pjump_def,$dc_setcourse_code,$nondc_setsection_code,$groupslist)=@_;
251:
1.110 albertel 252: return <<END;
253: <script type="text/javascript" language="Javascript">
254:
255: function pclose() {
256: parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
257: "height=350,width=350,scrollbars=no,menubar=no");
258: parmwin.close();
259: }
260:
261: $pjump_def
262: $dc_setcourse_code
263:
264: function dateset() {
265: eval("document.cu."+document.cu.pres_marker.value+
266: ".value=document.cu.pres_value.value");
267: pclose();
268: }
269:
1.113 raeburn 270: $nondc_setsection_code
271:
1.110 albertel 272: </script>
273: END
1.2 www 274: }
275:
276: # =================================================================== Phase two
1.42 matthew 277: sub print_user_modification_page {
1.2 www 278: my $r=shift;
1.138 albertel 279: my $ccuname =&LONCAPA::clean_username($env{'form.ccuname'});
280: my $ccdomain=&LONCAPA::clean_domain($env{'form.ccdomain'});
1.58 www 281:
282: unless (($ccuname) && ($ccdomain)) {
283: &print_username_entry_form($r);
284: return;
285: }
286:
1.101 albertel 287: my $defdom=$env{'request.role.domain'};
1.48 albertel 288:
289: my ($krbdef,$krbdefdom) =
290: &Apache::loncommon::get_kerberos_defaults($defdom);
291:
1.31 matthew 292: my %param = ( formname => 'document.cu',
1.48 albertel 293: kerb_def_dom => $krbdefdom,
294: kerb_def_auth => $krbdef
1.31 matthew 295: );
296: $loginscript = &Apache::loncommon::authform_header(%param);
1.48 albertel 297: $authformkrb = &Apache::loncommon::authform_kerberos(%param);
1.149 raeburn 298:
1.138 albertel 299: $ccuname =&LONCAPA::clean_username($ccuname);
300: $ccdomain=&LONCAPA::clean_domain($ccdomain);
1.52 matthew 301: my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
1.88 raeburn 302: my $dc_setcourse_code = '';
1.119 raeburn 303: my $nondc_setsection_code = '';
304:
1.112 albertel 305: my %loaditem;
1.114 albertel 306:
307: my $groupslist;
1.117 raeburn 308: my %curr_groups = &Apache::longroup::coursegroups();
1.114 albertel 309: if (%curr_groups) {
1.113 raeburn 310: $groupslist = join('","',sort(keys(%curr_groups)));
311: $groupslist = '"'.$groupslist.'"';
312: }
1.114 albertel 313:
1.139 albertel 314: if ($env{'request.role'} =~ m-^dc\./($match_domain)/$-) {
1.88 raeburn 315: my $dcdom = $1;
1.119 raeburn 316: $loaditem{'onload'} = "document.cu.coursedesc.value='';";
317: my @rolevals = ('st','ta','ep','in','cc');
318: my (@crsroles,@grproles);
319: for (my $i=0; $i<@rolevals; $i++) {
1.120 raeburn 320: $crsroles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Course');
321: $grproles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Group');
1.119 raeburn 322: }
323: my $rolevalslist = join('","',@rolevals);
324: my $crsrolenameslist = join('","',@crsroles);
325: my $grprolenameslist = join('","',@grproles);
326: my $pickcrsfirst = '<--'.&mt('Pick course first');
327: my $pickgrpfirst = '<--'.&mt('Pick group first');
1.88 raeburn 328: $dc_setcourse_code = <<"ENDSCRIPT";
329: function setCourse() {
330: var course = document.cu.dccourse.value;
331: if (course != "") {
332: if (document.cu.dcdomain.value != document.cu.origdom.value) {
333: alert("You must select a course in the current domain");
334: return;
335: }
336: var userrole = document.cu.role.options[document.cu.role.selectedIndex].value
1.91 raeburn 337: var section="";
1.88 raeburn 338: var numsections = 0;
1.116 raeburn 339: var newsecs = new Array();
1.89 raeburn 340: for (var i=0; i<document.cu.currsec.length; i++) {
341: if (document.cu.currsec.options[i].selected == true ) {
342: if (document.cu.currsec.options[i].value != "" && document.cu.currsec.options[i].value != null) {
343: if (numsections == 0) {
344: section = document.cu.currsec.options[i].value
345: numsections = 1;
346: }
347: else {
348: section = section + "," + document.cu.currsec.options[i].value
349: numsections ++;
1.88 raeburn 350: }
351: }
352: }
1.89 raeburn 353: }
354: if (document.cu.newsec.value != "" && document.cu.newsec.value != null) {
355: if (numsections == 0) {
356: section = document.cu.newsec.value
357: }
358: else {
359: section = section + "," + document.cu.newsec.value
1.88 raeburn 360: }
1.116 raeburn 361: newsecs = document.cu.newsec.value.split(/,/g);
362: numsections = numsections + newsecs.length;
1.89 raeburn 363: }
364: if ((userrole == 'st') && (numsections > 1)) {
365: alert("In each course, each user may only have one student role at a time. You had selected "+numsections+" sections.\\nPlease modify your selections so they include no more than one section.")
366: return;
367: }
1.116 raeburn 368: for (var j=0; j<newsecs.length; j++) {
369: if ((newsecs[j] == 'all') || (newsecs[j] == 'none')) {
370: alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
1.113 raeburn 371: return;
372: }
373: if (document.cu.groups.value != '') {
374: var groups = document.cu.groups.value.split(/,/g);
375: for (var k=0; k<groups.length; k++) {
1.116 raeburn 376: if (newsecs[j] == groups[k]) {
377: alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
1.113 raeburn 378: return;
379: }
380: }
381: }
382: }
1.89 raeburn 383: if ((userrole == 'cc') && (numsections > 0)) {
384: alert("Section designations do not apply to Course Coordinator roles.\\nA course coordinator role will be added with access to all sections.");
385: section = "";
1.88 raeburn 386: }
1.131 raeburn 387: var coursename = "_$dcdom"+"_"+course+"_"+userrole
1.88 raeburn 388: var numcourse = getIndex(document.cu.dccourse);
389: if (numcourse == "-1") {
390: alert("There was a problem with your course selection");
391: return
392: }
1.131 raeburn 393: else {
394: document.cu.elements[numcourse].name = "act"+coursename;
395: var numnewsec = getIndex(document.cu.newsec);
396: if (numnewsec != "-1") {
397: document.cu.elements[numnewsec].name = "sec"+coursename;
398: document.cu.elements[numnewsec].value = section;
399: }
400: var numstart = getIndex(document.cu.start);
401: if (numstart != "-1") {
402: document.cu.elements[numstart].name = "start"+coursename;
403: }
404: var numend = getIndex(document.cu.end);
405: if (numend != "-1") {
406: document.cu.elements[numend].name = "end"+coursename
407: }
1.88 raeburn 408: }
409: }
410: document.cu.submit();
411: }
412:
413: function getIndex(caller) {
414: for (var i=0;i<document.cu.elements.length;i++) {
415: if (document.cu.elements[i] == caller) {
416: return i;
417: }
418: }
419: return -1;
420: }
421: ENDSCRIPT
1.113 raeburn 422: } else {
423: $nondc_setsection_code = <<"ENDSECCODE";
424: function setSections() {
425: var re1 = /^currsec_/;
426: var groups = new Array($groupslist);
427: for (var i=0;i<document.cu.elements.length;i++) {
428: var str = document.cu.elements[i].name;
429: var checkcurr = str.match(re1);
430: if (checkcurr != null) {
431: if (document.cu.elements[i-1].checked == true) {
432: var re2 = /^currsec_[a-zA-Z0-9]+_[a-zA-Z0-9]+_(\\w+)\$/;
433: match = re2.exec(str);
434: var role = match[1];
435: if (role == 'cc') {
436: alert("Section designations do not apply to Course Coordinator roles.\\nA course coordinator role will be added with access to all sections.");
437: }
438: else {
439: var sections = '';
440: var numsec = 0;
441: var sections;
442: for (var j=0; j<document.cu.elements[i].length; j++) {
443: if (document.cu.elements[i].options[j].selected == true ) {
444: if (document.cu.elements[i].options[j].value != "") {
445: if (numsec == 0) {
446: if (document.cu.elements[i].options[j].value != "") {
447: sections = document.cu.elements[i].options[j].value;
448: numsec ++;
449: }
450: }
451: else {
452: sections = sections + "," + document.cu.elements[i].options[j].value
453: numsec ++;
454: }
455: }
456: }
457: }
458: if (numsec > 0) {
459: if (document.cu.elements[i+1].value != "" && document.cu.elements[i+1].value != null) {
460: sections = sections + "," + document.cu.elements[i+1].value;
461: }
462: }
463: else {
464: sections = document.cu.elements[i+1].value;
465: }
466: var newsecs = document.cu.elements[i+1].value;
1.125 albertel 467: var numsplit;
1.113 raeburn 468: if (newsecs != null && newsecs != "") {
1.125 albertel 469: numsplit = newsecs.split(/,/g);
1.113 raeburn 470: numsec = numsec + numsplit.length;
471: }
1.125 albertel 472:
1.113 raeburn 473: if ((role == 'st') && (numsec > 1)) {
474: alert("In each course, each user may only have one student role at a time. You had selected "+numsec+" sections.\\nPlease modify your selections so they include no more than one section.")
475: return;
476: }
1.125 albertel 477: else if (numsplit != null) {
1.113 raeburn 478: for (var j=0; j<numsplit.length; j++) {
479: if ((numsplit[j] == 'all') ||
480: (numsplit[j] == 'none')) {
481: alert("'"+numsplit[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
482: return;
483: }
484: for (var k=0; k<groups.length; k++) {
485: if (numsplit[j] == groups[k]) {
486: alert("'"+numsplit[j]+"' may not be used as a section name, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
487: return;
488: }
489: }
490: }
491: }
1.128 raeburn 492: document.cu.elements[i+2].value = sections;
1.113 raeburn 493: }
494: }
495: }
496: }
497: document.cu.submit();
498: }
499: ENDSECCODE
1.88 raeburn 500: }
1.113 raeburn 501: my $js = &user_modification_js($pjump_def,$dc_setcourse_code,
502: $nondc_setsection_code,$groupslist);
1.110 albertel 503: my $start_page =
504: &Apache::loncommon::start_page('Create Users, Change User Privileges',
1.112 albertel 505: $js,{'add_entries' => \%loaditem,});
1.3 www 506:
1.25 matthew 507: my $forminfo =<<"ENDFORMINFO";
508: <form action="/adm/createuser" method="post" name="cu">
1.42 matthew 509: <input type="hidden" name="phase" value="update_user_data">
1.25 matthew 510: <input type="hidden" name="ccuname" value="$ccuname">
511: <input type="hidden" name="ccdomain" value="$ccdomain">
512: <input type="hidden" name="pres_value" value="" >
513: <input type="hidden" name="pres_type" value="" >
514: <input type="hidden" name="pres_marker" value="" >
515: ENDFORMINFO
1.2 www 516: my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
517: my %inccourses;
1.135 raeburn 518: foreach my $key (keys(%env)) {
1.139 albertel 519: if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {
1.2 www 520: $inccourses{$1.'_'.$2}=1;
521: }
1.24 matthew 522: }
1.2 www 523: if ($uhome eq 'no_host') {
1.29 matthew 524: my $home_server_list=
1.32 matthew 525: '<option value="default" selected>default</option>'."\n".
526: &Apache::loncommon::home_server_option_list($ccdomain);
527:
1.79 albertel 528: my %lt=&Apache::lonlocal::texthash(
1.72 sakharuk 529: 'cnu' => "Create New User",
530: 'nu' => "New User",
531: 'id' => "in domain",
532: 'pd' => "Personal Data",
533: 'fn' => "First Name",
534: 'mn' => "Middle Name",
535: 'ln' => "Last Name",
536: 'gen' => "Generation",
537: 'idsn' => "ID/Student Number",
538: 'hs' => "Home Server",
539: 'lg' => "Login Data"
540: );
1.134 raeburn 541: my $portfolioform;
542: if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
543: # Current user has quota modification privileges
544: $portfolioform = &portfolio_quota($ccuname,$ccdomain);
545: }
1.78 www 546: my $genhelp=&Apache::loncommon::help_open_topic('Generation');
1.94 matthew 547: &initialize_authen_forms();
1.26 matthew 548: $r->print(<<ENDNEWUSER);
1.110 albertel 549: $start_page
1.72 sakharuk 550: <h1>$lt{'cnu'}</h1>
1.25 matthew 551: $forminfo
1.72 sakharuk 552: <h2>$lt{'nu'} "$ccuname" $lt{'id'} $ccdomain</h2>
1.31 matthew 553: <script type="text/javascript" language="Javascript">
1.20 harris41 554: $loginscript
1.31 matthew 555: </script>
1.20 harris41 556: <input type='hidden' name='makeuser' value='1' />
1.72 sakharuk 557: <h3>$lt{'pd'}</h3>
1.25 matthew 558: <p>
559: <table>
1.72 sakharuk 560: <tr><td>$lt{'fn'} </td>
1.25 matthew 561: <td><input type='text' name='cfirst' size='15' /></td></tr>
1.72 sakharuk 562: <tr><td>$lt{'mn'} </td>
1.25 matthew 563: <td><input type='text' name='cmiddle' size='15' /></td></tr>
1.72 sakharuk 564: <tr><td>$lt{'ln'} </td>
1.25 matthew 565: <td><input type='text' name='clast' size='15' /></td></tr>
1.78 www 566: <tr><td>$lt{'gen'}$genhelp</td>
1.25 matthew 567: <td><input type='text' name='cgen' size='5' /></td></tr>
568: </table>
1.72 sakharuk 569: $lt{'idsn'} <input type='text' name='cstid' size='15' /></p>
1.74 sakharuk 570: $lt{'hs'}: <select name="hserver" size="1"> $home_server_list </select>
1.25 matthew 571: <hr />
1.72 sakharuk 572: <h3>$lt{'lg'}</h3>
1.31 matthew 573: <p>$generalrule </p>
574: <p>$authformkrb </p>
575: <p>$authformint </p>
576: <p>$authformfsys</p>
577: <p>$authformloc </p>
1.134 raeburn 578: <hr />
579: $portfolioform
1.26 matthew 580: ENDNEWUSER
1.25 matthew 581: } else { # user already exists
1.79 albertel 582: my %lt=&Apache::lonlocal::texthash(
1.72 sakharuk 583: 'cup' => "Change User Privileges",
584: 'usr' => "User",
585: 'id' => "in domain",
586: 'fn' => "first name",
587: 'mn' => "middle name",
588: 'ln' => "last name",
589: 'gen' => "generation"
590: );
1.26 matthew 591: $r->print(<<ENDCHANGEUSER);
1.110 albertel 592: $start_page
1.72 sakharuk 593: <h1>$lt{'cup'}</h1>
1.25 matthew 594: $forminfo
1.72 sakharuk 595: <h2>$lt{'usr'} "$ccuname" $lt{'id'} "$ccdomain"</h2>
1.26 matthew 596: ENDCHANGEUSER
1.28 matthew 597: # Get the users information
598: my %userenv = &Apache::lonnet::get('environment',
1.134 raeburn 599: ['firstname','middlename','lastname','generation',
600: 'portfolioquota'],$ccdomain,$ccuname);
1.28 matthew 601: my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
1.135 raeburn 602: $r->print('
603: <hr />'.
604: &Apache::loncommon::start_data_table().
605: &Apache::loncommon::start_data_table_header_row().
606: '<th>'.$lt{'fn'}.'</th><th>'.$lt{'mn'}.'</th><th>'.$lt{'ln'}.'</th><th>'.$lt{'gen'}.'</th>'.
607: &Apache::loncommon::end_data_table_header_row().
608: &Apache::loncommon::start_data_table_row());
609: foreach my $item ('firstname','middlename','lastname','generation') {
1.28 matthew 610: if (&Apache::lonnet::allowed('mau',$ccdomain)) {
1.135 raeburn 611: $r->print(<<"END");
612: <td><input type="text" name="c$item" value="$userenv{$item}" size="15" /></td>
1.28 matthew 613: END
614: } else {
1.135 raeburn 615: $r->print('<td>'.$userenv{$item}.'</td>');
1.28 matthew 616: }
617: }
1.135 raeburn 618: $r->print(&Apache::loncommon::end_data_table_row().
619: &Apache::loncommon::end_data_table());
1.25 matthew 620: # Build up table of user roles to allow revocation of a role.
1.28 matthew 621: my ($tmp) = keys(%rolesdump);
622: unless ($tmp =~ /^(con_lost|error)/i) {
1.2 www 623: my $now=time;
1.72 sakharuk 624: my %lt=&Apache::lonlocal::texthash(
625: 'rer' => "Revoke Existing Roles",
626: 'rev' => "Revoke",
627: 'del' => "Delete",
1.81 albertel 628: 'ren' => "Re-Enable",
1.72 sakharuk 629: 'rol' => "Role",
630: 'ext' => "Extent",
631: 'sta' => "Start",
632: 'end' => "End"
633: );
1.89 raeburn 634: my (%roletext,%sortrole,%roleclass,%rolepriv);
1.67 albertel 635: foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
636: my $b1=join('_',(split('_',$b))[1,0]);
637: return $a1 cmp $b1;
638: } keys(%rolesdump)) {
1.37 matthew 639: next if ($area =~ /^rolesdef/);
1.79 albertel 640: my $envkey=$area;
1.37 matthew 641: my $role = $rolesdump{$area};
642: my $thisrole=$area;
643: $area =~ s/\_\w\w$//;
644: my ($role_code,$role_end_time,$role_start_time) =
645: split(/_/,$role);
1.64 www 646: # Is this a custom role? Get role owner and title.
647: my ($croleudom,$croleuname,$croletitle)=
1.139 albertel 648: ($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});
1.37 matthew 649: my $allowed=0;
1.53 www 650: my $delallowed=0;
1.79 albertel 651: my $sortkey=$role_code;
652: my $class='Unknown';
1.141 albertel 653: if ($area =~ m{^/($match_domain)/($match_courseid)} ) {
1.79 albertel 654: $class='Course';
1.57 matthew 655: my ($coursedom,$coursedir) = ($1,$2);
1.130 albertel 656: $sortkey.="\0$coursedom";
1.57 matthew 657: # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
1.37 matthew 658: my %coursedata=
659: &Apache::lonnet::coursedescription($1.'_'.$2);
1.51 albertel 660: my $carea;
661: if (defined($coursedata{'description'})) {
1.79 albertel 662: $carea=$coursedata{'description'}.
1.72 sakharuk 663: '<br />'.&mt('Domain').': '.$coursedom.(' 'x8).
1.57 matthew 664: &Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);
1.79 albertel 665: $sortkey.="\0".$coursedata{'description'};
1.119 raeburn 666: $class=$coursedata{'type'};
1.51 albertel 667: } else {
1.72 sakharuk 668: $carea=&mt('Unavailable course').': '.$area;
1.86 albertel 669: $sortkey.="\0".&mt('Unavailable course').': '.$area;
1.51 albertel 670: }
1.130 albertel 671: $sortkey.="\0$coursedir";
1.37 matthew 672: $inccourses{$1.'_'.$2}=1;
1.53 www 673: if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||
674: (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
1.37 matthew 675: $allowed=1;
676: }
1.53 www 677: if ((&Apache::lonnet::allowed('dro',$1)) ||
678: (&Apache::lonnet::allowed('dro',$ccdomain))) {
679: $delallowed=1;
680: }
1.64 www 681: # - custom role. Needs more info, too
682: if ($croletitle) {
683: if (&Apache::lonnet::allowed('ccr',$1.'/'.$2)) {
684: $allowed=1;
685: $thisrole.='.'.$role_code;
686: }
687: }
1.37 matthew 688: # Compute the background color based on $area
1.141 albertel 689: if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
1.113 raeburn 690: $carea.='<br />Section: '.$3;
1.87 albertel 691: $sortkey.="\0$3";
1.37 matthew 692: }
693: $area=$carea;
694: } else {
1.79 albertel 695: $sortkey.="\0".$area;
1.37 matthew 696: # Determine if current user is able to revoke privileges
1.139 albertel 697: if ($area=~m{^/($match_domain)/}) {
1.53 www 698: if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||
699: (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
1.37 matthew 700: $allowed=1;
701: }
1.53 www 702: if (((&Apache::lonnet::allowed('dro',$1)) ||
703: (&Apache::lonnet::allowed('dro',$ccdomain))) &&
704: ($role_code ne 'dc')) {
705: $delallowed=1;
706: }
1.37 matthew 707: } else {
708: if (&Apache::lonnet::allowed('c'.$role_code,'/')) {
709: $allowed=1;
710: }
711: }
1.79 albertel 712: if ($role_code eq 'ca' || $role_code eq 'au') {
713: $class='Construction Space';
714: } elsif ($role_code eq 'su') {
715: $class='System';
716: } else {
717: $class='Domain';
718: }
1.37 matthew 719: }
1.105 www 720: if (($role_code eq 'ca') || ($role_code eq 'aa')) {
1.139 albertel 721: $area=~m{/($match_domain)/($match_username)};
1.43 www 722: if (&authorpriv($2,$1)) {
723: $allowed=1;
724: } else {
725: $allowed=0;
1.37 matthew 726: }
727: }
728: my $row = '';
1.137 raeburn 729: $row.= '<td>';
1.37 matthew 730: my $active=1;
731: $active=0 if (($role_end_time) && ($now>$role_end_time));
732: if (($active) && ($allowed)) {
733: $row.= '<input type="checkbox" name="rev:'.$thisrole.'">';
734: } else {
1.56 www 735: if ($active) {
736: $row.=' ';
737: } else {
1.72 sakharuk 738: $row.=&mt('expired or revoked');
1.56 www 739: }
1.37 matthew 740: }
1.53 www 741: $row.='</td><td>';
1.81 albertel 742: if ($allowed && !$active) {
743: $row.= '<input type="checkbox" name="ren:'.$thisrole.'">';
744: } else {
745: $row.=' ';
746: }
747: $row.='</td><td>';
1.53 www 748: if ($delallowed) {
749: $row.= '<input type="checkbox" name="del:'.$thisrole.'">';
750: } else {
751: $row.=' ';
752: }
1.64 www 753: my $plaintext='';
1.150 banghart 754: if (!$croletitle) {
1.120 raeburn 755: $plaintext=&Apache::lonnet::plaintext($role_code,$class)
1.64 www 756: } else {
757: $plaintext=
758: "Customrole '$croletitle' defined by $croleuname\@$croleudom";
759: }
760: $row.= '</td><td>'.$plaintext.
1.37 matthew 761: '</td><td>'.$area.
762: '</td><td>'.($role_start_time?localtime($role_start_time)
763: : ' ' ).
764: '</td><td>'.($role_end_time ?localtime($role_end_time)
765: : ' ' )
1.137 raeburn 766: ."</td>";
1.79 albertel 767: $sortrole{$sortkey}=$envkey;
768: $roletext{$envkey}=$row;
769: $roleclass{$envkey}=$class;
1.89 raeburn 770: $rolepriv{$envkey}=$allowed;
1.79 albertel 771: #$r->print($row);
1.28 matthew 772: } # end of foreach (table building loop)
1.89 raeburn 773: my $rolesdisplay = 0;
774: my %output = ();
1.119 raeburn 775: foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
1.89 raeburn 776: $output{$type} = '';
1.79 albertel 777: foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
1.89 raeburn 778: if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {
1.137 raeburn 779: $output{$type}.=
780: &Apache::loncommon::start_data_table_row().
781: $roletext{$sortrole{$which}}.
782: &Apache::loncommon::end_data_table_row();
1.79 albertel 783: }
784: }
1.89 raeburn 785: unless($output{$type} eq '') {
1.137 raeburn 786: $output{$type} = '<tr class="LC_info_row">'.
787: "<td align='center' colspan='7'>".&mt($type)."</td></tr>".
1.89 raeburn 788: $output{$type};
789: $rolesdisplay = 1;
1.79 albertel 790: }
791: }
1.89 raeburn 792: if ($rolesdisplay == 1) {
1.137 raeburn 793: $r->print('
1.89 raeburn 794: <hr />
1.137 raeburn 795: <h3>'.$lt{'rer'}.'</h3>'.
796: &Apache::loncommon::start_data_table("LC_createuser").
797: &Apache::loncommon::start_data_table_header_row().
798: '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.
799: '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
800: '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
801: &Apache::loncommon::end_data_table_header_row());
1.119 raeburn 802: foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
1.89 raeburn 803: if ($output{$type}) {
804: $r->print($output{$type}."\n");
805: }
806: }
1.137 raeburn 807: $r->print(&Apache::loncommon::end_data_table());
1.89 raeburn 808: }
1.28 matthew 809: } # End of unless
1.20 harris41 810: my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
1.41 albertel 811: if ($currentauth=~/^krb(4|5):/) {
812: $currentauth=~/^krb(4|5):(.*)/;
1.108 albertel 813: my $krbdefdom=$2;
1.31 matthew 814: my %param = ( formname => 'document.cu',
815: kerb_def_dom => $krbdefdom
816: );
817: $loginscript = &Apache::loncommon::authform_header(%param);
1.20 harris41 818: }
1.26 matthew 819: # Check for a bad authentication type
1.41 albertel 820: unless ($currentauth=~/^krb(4|5):/ or
1.20 harris41 821: $currentauth=~/^unix:/ or
822: $currentauth=~/^internal:/ or
823: $currentauth=~/^localauth:/
1.26 matthew 824: ) { # bad authentication scheme
1.132 raeburn 825: if (&Apache::lonnet::allowed('mau',$ccdomain)) {
1.94 matthew 826: &initialize_authen_forms();
1.73 sakharuk 827: my %lt=&Apache::lonlocal::texthash(
828: 'err' => "ERROR",
829: 'uuas' => "This user has an unrecognized authentication scheme",
830: 'sldb' => "Please specify login data below",
831: 'ld' => "Login Data"
832: );
1.26 matthew 833: $r->print(<<ENDBADAUTH);
1.21 harris41 834: <hr />
1.31 matthew 835: <script type="text/javascript" language="Javascript">
1.21 harris41 836: $loginscript
1.31 matthew 837: </script>
1.73 sakharuk 838: <font color='#ff0000'>$lt{'err'}:</font>
839: $lt{'uuas'} ($currentauth). $lt{'sldb'}.
840: <h3>$lt{'ld'}</h3>
1.31 matthew 841: <p>$generalrule</p>
842: <p>$authformkrb</p>
843: <p>$authformint</p>
844: <p>$authformfsys</p>
845: <p>$authformloc</p>
1.26 matthew 846: ENDBADAUTH
847: } else {
1.132 raeburn 848: # This user is not allowed to modify the user's
1.26 matthew 849: # authentication scheme, so just notify them of the problem
1.73 sakharuk 850: my %lt=&Apache::lonlocal::texthash(
851: 'err' => "ERROR",
852: 'uuas' => "This user has an unrecognized authentication scheme",
853: 'adcs' => "Please alert a domain coordinator of this situation"
854: );
1.26 matthew 855: $r->print(<<ENDBADAUTH);
856: <hr />
1.73 sakharuk 857: <font color="#ff0000"> $lt{'err'}: </font>
858: $lt{'uuas'} ($currentauth). $lt{'adcs'}.
1.26 matthew 859: <hr />
860: ENDBADAUTH
861: }
862: } else { # Authentication type is valid
1.20 harris41 863: my $authformcurrent='';
1.26 matthew 864: my $authform_other='';
1.94 matthew 865: &initialize_authen_forms();
1.41 albertel 866: if ($currentauth=~/^krb(4|5):/) {
1.20 harris41 867: $authformcurrent=$authformkrb;
1.31 matthew 868: $authform_other="<p>$authformint</p>\n".
869: "<p>$authformfsys</p><p>$authformloc</p>";
1.20 harris41 870: }
871: elsif ($currentauth=~/^internal:/) {
872: $authformcurrent=$authformint;
1.31 matthew 873: $authform_other="<p>$authformkrb</p>".
874: "<p>$authformfsys</p><p>$authformloc</p>";
1.20 harris41 875: }
876: elsif ($currentauth=~/^unix:/) {
877: $authformcurrent=$authformfsys;
1.31 matthew 878: $authform_other="<p>$authformkrb</p>".
879: "<p>$authformint</p><p>$authformloc;</p>";
1.20 harris41 880: }
881: elsif ($currentauth=~/^localauth:/) {
882: $authformcurrent=$authformloc;
1.31 matthew 883: $authform_other="<p>$authformkrb</p>".
884: "<p>$authformint</p><p>$authformfsys</p>";
1.20 harris41 885: }
1.53 www 886: $authformcurrent.=' <i>(will override current values)</i><br />';
1.132 raeburn 887: if (&Apache::lonnet::allowed('mau',$ccdomain)) {
1.26 matthew 888: # Current user has login modification privileges
1.73 sakharuk 889: my %lt=&Apache::lonlocal::texthash(
890: 'ccld' => "Change Current Login Data",
891: 'enld' => "Enter New Login Data"
892: );
1.26 matthew 893: $r->print(<<ENDOTHERAUTHS);
1.21 harris41 894: <hr />
1.31 matthew 895: <script type="text/javascript" language="Javascript">
1.21 harris41 896: $loginscript
1.31 matthew 897: </script>
1.73 sakharuk 898: <h3>$lt{'ccld'}</h3>
1.31 matthew 899: <p>$generalrule</p>
900: <p>$authformnop</p>
901: <p>$authformcurrent</p>
1.73 sakharuk 902: <h3>$lt{'enld'}</h3>
1.26 matthew 903: $authform_other
904: ENDOTHERAUTHS
1.132 raeburn 905: } else {
906: if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) {
907: my %lt=&Apache::lonlocal::texthash(
908: 'ccld' => "Change Current Login Data",
909: 'yodo' => "You do not have privileges to modify the authentication configuration for this user.",
910: 'ifch' => "If a change is required, contact a domain coordinator for the domain",
911: );
912: $r->print(<<ENDNOPRIV);
913: <hr />
914: <h3>$lt{'ccld'}</h3>
915: $lt{'yodo'} $lt{'ifch'}: $ccdomain
916: ENDNOPRIV
917: }
1.26 matthew 918: }
1.134 raeburn 919: if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
920: # Current user has quota modification privileges
921: $r->print(&portfolio_quota($ccuname,$ccdomain));
922: }
1.26 matthew 923: } ## End of "check for bad authentication type" logic
1.25 matthew 924: } ## End of new user/old user logic
1.72 sakharuk 925: $r->print('<hr /><h3>'.&mt('Add Roles').'</h3>');
1.17 www 926: #
927: # Co-Author
928: #
1.101 albertel 929: if (&authorpriv($env{'user.name'},$env{'request.role.domain'}) &&
930: ($env{'user.name'} ne $ccuname || $env{'user.domain'} ne $ccdomain)) {
1.44 matthew 931: # No sense in assigning co-author role to yourself
1.101 albertel 932: my $cuname=$env{'user.name'};
933: my $cudom=$env{'request.role.domain'};
1.72 sakharuk 934: my %lt=&Apache::lonlocal::texthash(
935: 'cs' => "Construction Space",
936: 'act' => "Activate",
937: 'rol' => "Role",
938: 'ext' => "Extent",
939: 'sta' => "Start",
1.80 www 940: 'end' => "End",
1.72 sakharuk 941: 'cau' => "Co-Author",
1.105 www 942: 'caa' => "Assistant Co-Author",
1.72 sakharuk 943: 'ssd' => "Set Start Date",
944: 'sed' => "Set End Date"
945: );
1.135 raeburn 946: $r->print('<h4>'.$lt{'cs'}.'</h4>'."\n".
947: &Apache::loncommon::start_data_table()."\n".
948: &Apache::loncommon::start_data_table_header_row()."\n".
949: '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'.
950: '<th>'.$lt{'ext'}.'</th><th>'.$lt{'sta'}.'</th>'.
951: '<th>'.$lt{'end'}.'</th>'."\n".
952: &Apache::loncommon::end_data_table_header_row()."\n".
953: &Apache::loncommon::start_data_table_row()."\n".
954: '<td>
955: <input type=checkbox name="act_'.$cudom.'_'.$cuname.'_ca" />
956: </td>
957: <td>'.$lt{'cau'}.'</td>
958: <td>'.$cudom.'_'.$cuname.'</td>
959: <td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_ca" value="" />
960: <a href=
961: "javascript:pjump('."'date_start','Start Date Co-Author',document.cu.start_$cudom\_$cuname\_ca.value,'start_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
962: <td><input type=hidden name="end_'.$cudom.'_'.$cuname.'_ca" value="" />
1.17 www 963: <a href=
1.135 raeburn 964: "javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
965: &Apache::loncommon::end_data_table_row()."\n".
966: &Apache::loncommon::start_data_table_row()."\n".
967: '<td><input type=checkbox name="act_'.$cudom.'_'.$cuname.'_aa" /></td>
968: <td>'.$lt{'caa'}.'</td>
969: <td>'.$cudom.'_'.$cuname.'</td>
970: <td><input type=hidden name="start_'.$cudom.'_'.$cuname.'_aa" value="" />
1.17 www 971: <a href=
1.135 raeburn 972: "javascript:pjump('."'date_start','Start Date Assistant Co-Author',document.cu.start_$cudom\_$cuname\_aa.value,'start_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
973: <td><input type=hidden name="end_'.$cudom.'_'.$cuname.'_aa" value="" />
1.105 www 974: <a href=
1.135 raeburn 975: "javascript:pjump('."'date_end','End Date Assistant Co-Author',document.cu.end_$cudom\_$cuname\_aa.value,'end_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
976: &Apache::loncommon::end_data_table_row()."\n".
977: &Apache::loncommon::end_data_table());
1.17 www 978: }
1.8 www 979: #
980: # Domain level
981: #
1.89 raeburn 982: my $num_domain_level = 0;
983: my $domaintext =
984: '<h4>'.&mt('Domain Level').'</h4>'.
1.135 raeburn 985: &Apache::loncommon::start_data_table().
986: &Apache::loncommon::start_data_table_header_row().
987: '<th>'.&mt('Activate').'</th><th>'.&mt('Role').'</th><th>'.
988: &mt('Extent').'</th>'.
989: '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
990: &Apache::loncommon::end_data_table_header_row();
1.146 albertel 991: foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
1.135 raeburn 992: foreach my $role ('dc','li','dg','au','sc') {
993: if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
994: my $plrole=&Apache::lonnet::plaintext($role);
1.72 sakharuk 995: my %lt=&Apache::lonlocal::texthash(
996: 'ssd' => "Set Start Date",
997: 'sed' => "Set End Date"
998: );
1.89 raeburn 999: $num_domain_level ++;
1.135 raeburn 1000: $domaintext .=
1001: &Apache::loncommon::start_data_table_row().
1002: '<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'"></td>
1003: <td>'.$plrole.'</td>
1004: <td>'.$thisdomain.'</td>
1005: <td><input type=hidden name="start_'.$thisdomain.'_'.$role.'" value="">
1.8 www 1006: <a href=
1.135 raeburn 1007: "javascript:pjump('."'date_start','Start Date $plrole',document.cu.start_$thisdomain\_$role.value,'start_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
1008: <td><input type=hidden name="end_'.$thisdomain.'_'.$role.'" value="">
1.8 www 1009: <a href=
1.135 raeburn 1010: "javascript:pjump('."'date_end','End Date $plrole',document.cu.end_$thisdomain\_$role.value,'end_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'.
1011: &Apache::loncommon::end_data_table_row();
1.2 www 1012: }
1.24 matthew 1013: }
1014: }
1.135 raeburn 1015: $domaintext.= &Apache::loncommon::end_data_table();
1.89 raeburn 1016: if ($num_domain_level > 0) {
1017: $r->print($domaintext);
1018: }
1.8 www 1019: #
1.119 raeburn 1020: # Course and group levels
1.8 www 1021: #
1.88 raeburn 1022:
1.139 albertel 1023: if ($env{'request.role'} =~ m{^dc\./($match_domain)/$}) {
1.119 raeburn 1024: $r->print(&course_level_dc($1,'Course'));
1.88 raeburn 1025: $r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()">'."\n");
1026: } else {
1027: $r->print(&course_level_table(%inccourses));
1.89 raeburn 1028: $r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setSections()">'."\n");
1.88 raeburn 1029: }
1.110 albertel 1030: $r->print("</form>".&Apache::loncommon::end_page());
1.2 www 1031: }
1.1 www 1032:
1.4 www 1033: # ================================================================= Phase Three
1.42 matthew 1034: sub update_user_data {
1.4 www 1035: my $r=shift;
1.101 albertel 1036: my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'},
1037: $env{'form.ccdomain'});
1.27 matthew 1038: # Error messages
1.73 sakharuk 1039: my $error = '<font color="#ff0000">'.&mt('Error').':</font>';
1.110 albertel 1040: my $end = &Apache::loncommon::end_page();
1041:
1.40 www 1042: my $title;
1.101 albertel 1043: if (exists($env{'form.makeuser'})) {
1.40 www 1044: $title='Set Privileges for New User';
1045: } else {
1046: $title='Modify User Privileges';
1047: }
1.110 albertel 1048: $r->print(&Apache::loncommon::start_page($title));
1.113 raeburn 1049: my %disallowed;
1.27 matthew 1050: # Check Inputs
1.101 albertel 1051: if (! $env{'form.ccuname'} ) {
1.73 sakharuk 1052: $r->print($error.&mt('No login name specified').'.'.$end);
1.27 matthew 1053: return;
1054: }
1.138 albertel 1055: if ( $env{'form.ccuname'} ne
1056: &LONCAPA::clean_username($env{'form.ccuname'}) ) {
1.73 sakharuk 1057: $r->print($error.&mt('Invalid login name').'. '.
1058: &mt('Only letters, numbers, and underscores are valid').'.'.
1.27 matthew 1059: $end);
1060: return;
1061: }
1.101 albertel 1062: if (! $env{'form.ccdomain'} ) {
1.73 sakharuk 1063: $r->print($error.&mt('No domain specified').'.'.$end);
1.27 matthew 1064: return;
1065: }
1.138 albertel 1066: if ( $env{'form.ccdomain'} ne
1067: &LONCAPA::clean_domain($env{'form.ccdomain'}) ) {
1.73 sakharuk 1068: $r->print($error.&mt ('Invalid domain name').'. '.
1.138 albertel 1069: &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.
1.27 matthew 1070: $end);
1071: return;
1072: }
1.101 albertel 1073: if (! exists($env{'form.makeuser'})) {
1.29 matthew 1074: # Modifying an existing user, so check the validity of the name
1075: if ($uhome eq 'no_host') {
1.73 sakharuk 1076: $r->print($error.&mt('Unable to determine home server for ').
1.101 albertel 1077: $env{'form.ccuname'}.&mt(' in domain ').
1078: $env{'form.ccdomain'}.'.');
1.29 matthew 1079: return;
1080: }
1081: }
1.27 matthew 1082: # Determine authentication method and password for the user being modified
1083: my $amode='';
1084: my $genpwd='';
1.101 albertel 1085: if ($env{'form.login'} eq 'krb') {
1.41 albertel 1086: $amode='krb';
1.101 albertel 1087: $amode.=$env{'form.krbver'};
1088: $genpwd=$env{'form.krbarg'};
1089: } elsif ($env{'form.login'} eq 'int') {
1.27 matthew 1090: $amode='internal';
1.101 albertel 1091: $genpwd=$env{'form.intarg'};
1092: } elsif ($env{'form.login'} eq 'fsys') {
1.27 matthew 1093: $amode='unix';
1.101 albertel 1094: $genpwd=$env{'form.fsysarg'};
1095: } elsif ($env{'form.login'} eq 'loc') {
1.27 matthew 1096: $amode='localauth';
1.101 albertel 1097: $genpwd=$env{'form.locarg'};
1.27 matthew 1098: $genpwd=" " if (!$genpwd);
1.101 albertel 1099: } elsif (($env{'form.login'} eq 'nochange') ||
1100: ($env{'form.login'} eq '' )) {
1.34 matthew 1101: # There is no need to tell the user we did not change what they
1102: # did not ask us to change.
1.35 matthew 1103: # If they are creating a new user but have not specified login
1104: # information this will be caught below.
1.30 matthew 1105: } else {
1.73 sakharuk 1106: $r->print($error.&mt('Invalid login mode or password').$end);
1.30 matthew 1107: return;
1.27 matthew 1108: }
1.101 albertel 1109: if ($env{'form.makeuser'}) {
1.27 matthew 1110: # Create a new user
1.73 sakharuk 1111: my %lt=&Apache::lonlocal::texthash(
1112: 'cru' => "Creating user",
1113: 'id' => "in domain"
1114: );
1.27 matthew 1115: $r->print(<<ENDNEWUSERHEAD);
1.101 albertel 1116: <h3>$lt{'cru'} "$env{'form.ccuname'}" $lt{'id'} "$env{'form.ccdomain'}"</h3>
1.27 matthew 1117: ENDNEWUSERHEAD
1118: # Check for the authentication mode and password
1119: if (! $amode || ! $genpwd) {
1.73 sakharuk 1120: $r->print($error.&mt('Invalid login mode or password').$end);
1.27 matthew 1121: return;
1.18 albertel 1122: }
1.29 matthew 1123: # Determine desired host
1.101 albertel 1124: my $desiredhost = $env{'form.hserver'};
1.29 matthew 1125: if (lc($desiredhost) eq 'default') {
1126: $desiredhost = undef;
1127: } else {
1.147 albertel 1128: my %home_servers =
1129: &Apache::lonnet::get_servers($env{'form.ccdomain'},'library');
1.29 matthew 1130: if (! exists($home_servers{$desiredhost})) {
1.73 sakharuk 1131: $r->print($error.&mt('Invalid home server specified'));
1.29 matthew 1132: return;
1133: }
1134: }
1.27 matthew 1135: # Call modifyuser
1136: my $result = &Apache::lonnet::modifyuser
1.101 albertel 1137: ($env{'form.ccdomain'},$env{'form.ccuname'},$env{'form.cstid'},
1138: $amode,$genpwd,$env{'form.cfirst'},
1139: $env{'form.cmiddle'},$env{'form.clast'},$env{'form.cgen'},
1.29 matthew 1140: undef,$desiredhost
1.27 matthew 1141: );
1.77 www 1142: $r->print(&mt('Generating user').': '.$result);
1.101 albertel 1143: my $home = &Apache::lonnet::homeserver($env{'form.ccuname'},
1144: $env{'form.ccdomain'});
1.77 www 1145: $r->print('<br />'.&mt('Home server').': '.$home.' '.
1.148 albertel 1146: &Apache::lonnet::hostname($home));
1.101 albertel 1147: } elsif (($env{'form.login'} ne 'nochange') &&
1148: ($env{'form.login'} ne '' )) {
1.27 matthew 1149: # Modify user privileges
1.73 sakharuk 1150: my %lt=&Apache::lonlocal::texthash(
1151: 'usr' => "User",
1152: 'id' => "in domain"
1153: );
1.27 matthew 1154: $r->print(<<ENDMODIFYUSERHEAD);
1.101 albertel 1155: <h2>$lt{'usr'} "$env{'form.ccuname'}" $lt{'id'} "$env{'form.ccdomain'}"</h2>
1.27 matthew 1156: ENDMODIFYUSERHEAD
1157: if (! $amode || ! $genpwd) {
1158: $r->print($error.'Invalid login mode or password'.$end);
1159: return;
1.20 harris41 1160: }
1.27 matthew 1161: # Only allow authentification modification if the person has authority
1.101 albertel 1162: if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {
1.20 harris41 1163: $r->print('Modifying authentication: '.
1.31 matthew 1164: &Apache::lonnet::modifyuserauth(
1.101 albertel 1165: $env{'form.ccdomain'},$env{'form.ccuname'},
1.21 harris41 1166: $amode,$genpwd));
1.102 albertel 1167: $r->print('<br />'.&mt('Home server').': '.&Apache::lonnet::homeserver
1.101 albertel 1168: ($env{'form.ccuname'},$env{'form.ccdomain'}));
1.4 www 1169: } else {
1.27 matthew 1170: # Okay, this is a non-fatal error.
1.73 sakharuk 1171: $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.');
1.27 matthew 1172: }
1.28 matthew 1173: }
1174: ##
1.101 albertel 1175: if (! $env{'form.makeuser'} ) {
1.28 matthew 1176: # Check for need to change
1177: my %userenv = &Apache::lonnet::get
1.134 raeburn 1178: ('environment',['firstname','middlename','lastname','generation',
1.149 raeburn 1179: 'portfolioquota','inststatus'],$env{'form.ccdomain'},
1180: $env{'form.ccuname'});
1.28 matthew 1181: my ($tmp) = keys(%userenv);
1182: if ($tmp =~ /^(con_lost|error)/i) {
1183: %userenv = ();
1184: }
1185: # Check to see if we need to change user information
1.135 raeburn 1186: foreach my $item ('firstname','middlename','lastname','generation') {
1.28 matthew 1187: # Strip leading and trailing whitespace
1.135 raeburn 1188: $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g;
1.28 matthew 1189: }
1.149 raeburn 1190: my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,
1191: $inststatus,$isdefault,$defquotatext);
1192: my ($defquota,$settingstatus) =
1193: &Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);
1.134 raeburn 1194: my %changeHash;
1.149 raeburn 1195: if ($userenv{'portfolioquota'} ne '') {
1.134 raeburn 1196: $oldportfolioquota = $userenv{'portfolioquota'};
1.149 raeburn 1197: if ($env{'form.customquota'} == 1) {
1198: if ($env{'form.portfolioquota'} eq '') {
1199: $newportfolioquota = 0;
1200: } else {
1201: $newportfolioquota = $env{'form.portfolioquota'};
1202: $newportfolioquota =~ s/[^\d\.]//g;
1203: }
1204: if ($newportfolioquota != $userenv{'portfolioquota'}) {
1205: $quotachanged = "a_admin($newportfolioquota,\%changeHash);
1.134 raeburn 1206: }
1.149 raeburn 1207: } else {
1208: $quotachanged = "a_admin('',\%changeHash);
1209: $newportfolioquota = $defquota;
1210: $isdefault = 1;
1.134 raeburn 1211: }
1212: } else {
1.149 raeburn 1213: $oldportfolioquota = $defquota;
1214: if ($env{'form.customquota'} == 1) {
1215: if ($env{'form.portfolioquota'} eq '') {
1216: $newportfolioquota = 0;
1217: } else {
1218: $newportfolioquota = $env{'form.portfolioquota'};
1219: $newportfolioquota =~ s/[^\d\.]//g;
1220: }
1221: $quotachanged = "a_admin($newportfolioquota,\%changeHash);
1222: } else {
1223: $newportfolioquota = $defquota;
1224: $isdefault = 1;
1225: }
1226: }
1227: if ($isdefault) {
1228: if ($settingstatus eq '') {
1229: $defquotatext = &mt('(default)');
1230: } else {
1231: my ($usertypes,$order) =
1232: &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});
1233: if ($usertypes->{$settingstatus} eq '') {
1234: $defquotatext = &mt('(default)');
1235: } else {
1236: $defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});
1237: }
1238: }
1.134 raeburn 1239: }
1.101 albertel 1240: if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) &&
1241: ($env{'form.cfirstname'} ne $userenv{'firstname'} ||
1242: $env{'form.cmiddlename'} ne $userenv{'middlename'} ||
1243: $env{'form.clastname'} ne $userenv{'lastname'} ||
1244: $env{'form.cgeneration'} ne $userenv{'generation'} )) {
1.134 raeburn 1245: $namechanged = 1;
1246: }
1247: if ($namechanged) {
1.28 matthew 1248: # Make the change
1.101 albertel 1249: $changeHash{'firstname'} = $env{'form.cfirstname'};
1250: $changeHash{'middlename'} = $env{'form.cmiddlename'};
1251: $changeHash{'lastname'} = $env{'form.clastname'};
1252: $changeHash{'generation'} = $env{'form.cgeneration'};
1.28 matthew 1253: my $putresult = &Apache::lonnet::put
1254: ('environment',\%changeHash,
1.101 albertel 1255: $env{'form.ccdomain'},$env{'form.ccuname'});
1.28 matthew 1256: if ($putresult eq 'ok') {
1257: # Tell the user we changed the name
1.73 sakharuk 1258: my %lt=&Apache::lonlocal::texthash(
1259: 'uic' => "User Information Changed",
1260: 'frst' => "first",
1261: 'mddl' => "middle",
1262: 'lst' => "last",
1263: 'gen' => "generation",
1.134 raeburn 1264: 'disk' => "disk space allocated to portfolio files",
1.73 sakharuk 1265: 'prvs' => "Previous",
1266: 'chto' => "Changed To"
1267: );
1.28 matthew 1268: $r->print(<<"END");
1269: <table border="2">
1.73 sakharuk 1270: <caption>$lt{'uic'}</caption>
1.28 matthew 1271: <tr><th> </th>
1.73 sakharuk 1272: <th>$lt{'frst'}</th>
1273: <th>$lt{'mddl'}</th>
1274: <th>$lt{'lst'}</th>
1.134 raeburn 1275: <th>$lt{'gen'}</th>
1276: <th>$lt{'disk'}<th></tr>
1.73 sakharuk 1277: <tr><td>$lt{'prvs'}</td>
1.28 matthew 1278: <td>$userenv{'firstname'} </td>
1279: <td>$userenv{'middlename'} </td>
1280: <td>$userenv{'lastname'} </td>
1.134 raeburn 1281: <td>$userenv{'generation'} </td>
1.149 raeburn 1282: <td>$oldportfolioquota Mb</td>
1.134 raeburn 1283: </tr>
1.73 sakharuk 1284: <tr><td>$lt{'chto'}</td>
1.101 albertel 1285: <td>$env{'form.cfirstname'} </td>
1286: <td>$env{'form.cmiddlename'} </td>
1287: <td>$env{'form.clastname'} </td>
1.134 raeburn 1288: <td>$env{'form.cgeneration'} </td>
1.149 raeburn 1289: <td>$newportfolioquota Mb $defquotatext </td></tr>
1.28 matthew 1290: </table>
1291: END
1.149 raeburn 1292: if (($env{'form.ccdomain'} eq $env{'user.domain'}) &&
1293: ($env{'form.ccuname'} eq $env{'user.name'})) {
1294: my %newenvhash;
1295: foreach my $key (keys(%changeHash)) {
1296: $newenvhash{'environment.'.$key} = $changeHash{$key};
1297: }
1298: &Apache::lonnet::appenv(%newenvhash);
1299: }
1.28 matthew 1300: } else { # error occurred
1.73 sakharuk 1301: $r->print("<h2>".&mt('Unable to successfully change environment for')." ".
1.101 albertel 1302: $env{'form.ccuname'}." ".&mt('in domain')." ".
1303: $env{'form.ccdomain'}."</h2>");
1.28 matthew 1304: }
1.101 albertel 1305: } else { # End of if ($env ... ) logic
1.134 raeburn 1306: my $putresult;
1307: if ($quotachanged) {
1308: $putresult = &Apache::lonnet::put
1309: ('environment',\%changeHash,
1310: $env{'form.ccdomain'},$env{'form.ccuname'});
1311: }
1.28 matthew 1312: # They did not want to change the users name but we can
1313: # still tell them what the name is
1.73 sakharuk 1314: my %lt=&Apache::lonlocal::texthash(
1315: 'usr' => "User",
1316: 'id' => "in domain",
1.134 raeburn 1317: 'gen' => "Generation",
1318: 'disk' => "Disk space allocated to user's portfolio files",
1.73 sakharuk 1319: );
1.134 raeburn 1320: $r->print(<<"END");
1.101 albertel 1321: <h2>$lt{'usr'} "$env{'form.ccuname'}" $lt{'id'} "$env{'form.ccdomain'}"</h2>
1.28 matthew 1322: <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} </h4>
1.73 sakharuk 1323: <h4>$lt{'gen'}: $userenv{'generation'}</h4>
1.28 matthew 1324: END
1.134 raeburn 1325: if ($putresult eq 'ok') {
1.149 raeburn 1326: if ($oldportfolioquota != $newportfolioquota) {
1327: $r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '.
1328: $defquotatext.'</h4>');
1329: &Apache::lonnet::appenv('environment.portfolioquota' => $changeHash{'portfolioquota'});
1.134 raeburn 1330: }
1331: }
1.28 matthew 1332: }
1.4 www 1333: }
1.27 matthew 1334: ##
1.4 www 1335: my $now=time;
1.73 sakharuk 1336: $r->print('<h3>'.&mt('Modifying Roles').'</h3>');
1.135 raeburn 1337: foreach my $key (keys (%env)) {
1338: next if (! $env{$key});
1.27 matthew 1339: # Revoke roles
1.135 raeburn 1340: if ($key=~/^form\.rev/) {
1341: if ($key=~/^form\.rev\:([^\_]+)\_([^\_\.]+)$/) {
1.64 www 1342: # Revoke standard role
1.73 sakharuk 1343: $r->print(&mt('Revoking').' '.$2.' in '.$1.': <b>'.
1.101 albertel 1344: &Apache::lonnet::revokerole($env{'form.ccdomain'},
1.102 albertel 1345: $env{'form.ccuname'},$1,$2).'</b><br />');
1.53 www 1346: if ($2 eq 'st') {
1.141 albertel 1347: $1=~m{^/($match_domain)/($match_courseid)};
1.53 www 1348: my $cid=$1.'_'.$2;
1.73 sakharuk 1349: $r->print(&mt('Drop from classlist').': <b>'.
1.53 www 1350: &Apache::lonnet::critical('put:'.
1.101 albertel 1351: $env{'course.'.$cid.'.domain'}.':'.
1352: $env{'course.'.$cid.'.num'}.':classlist:'.
1.118 www 1353: &escape($env{'form.ccuname'}.':'.
1.101 albertel 1354: $env{'form.ccdomain'}).'='.
1.118 www 1355: &escape($now.':'),
1.102 albertel 1356: $env{'course.'.$cid.'.home'}).'</b><br />');
1.53 www 1357: }
1358: }
1.139 albertel 1359: if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
1.64 www 1360: # Revoke custom role
1.113 raeburn 1361: $r->print(&mt('Revoking custom role:').
1.139 albertel 1362: ' '.$4.' by '.$3.':'.$2.' in '.$1.': <b>'.
1.101 albertel 1363: &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},
1364: $env{'form.ccuname'},$1,$2,$3,$4).
1.102 albertel 1365: '</b><br />');
1.64 www 1366: }
1.135 raeburn 1367: } elsif ($key=~/^form\.del/) {
1368: if ($key=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {
1.116 raeburn 1369: # Delete standard role
1.73 sakharuk 1370: $r->print(&mt('Deleting').' '.$2.' in '.$1.': '.
1.101 albertel 1371: &Apache::lonnet::assignrole($env{'form.ccdomain'},
1.102 albertel 1372: $env{'form.ccuname'},$1,$2,$now,0,1).'<br />');
1.27 matthew 1373: if ($2 eq 'st') {
1.141 albertel 1374: $1=~m{^/($match_domain)/($match_courseid)};
1.27 matthew 1375: my $cid=$1.'_'.$2;
1.73 sakharuk 1376: $r->print(&mt('Drop from classlist').': <b>'.
1.27 matthew 1377: &Apache::lonnet::critical('put:'.
1.101 albertel 1378: $env{'course.'.$cid.'.domain'}.':'.
1379: $env{'course.'.$cid.'.num'}.':classlist:'.
1.118 www 1380: &escape($env{'form.ccuname'}.':'.
1.101 albertel 1381: $env{'form.ccdomain'}).'='.
1.118 www 1382: &escape($now.':'),
1.102 albertel 1383: $env{'course.'.$cid.'.home'}).'</b><br />');
1.81 albertel 1384: }
1.116 raeburn 1385: }
1.139 albertel 1386: if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
1.116 raeburn 1387: my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
1388: # Delete custom role
1389: $r->print(&mt('Deleting custom role [_1] by [_2]@[_3] in [_4]',
1390: $rolename,$rnam,$rdom,$url).': <b>'.
1391: &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},
1392: $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
1393: 0,1).'</b><br />');
1394: }
1.135 raeburn 1395: } elsif ($key=~/^form\.ren/) {
1.101 albertel 1396: my $udom = $env{'form.ccdomain'};
1397: my $uname = $env{'form.ccuname'};
1.116 raeburn 1398: # Re-enable standard role
1.135 raeburn 1399: if ($key=~/^form\.ren\:([^\_]+)\_([^\_\.]+)$/) {
1.89 raeburn 1400: my $url = $1;
1401: my $role = $2;
1402: my $logmsg;
1403: my $output;
1404: if ($role eq 'st') {
1.141 albertel 1405: if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {
1.129 albertel 1406: my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3);
1.89 raeburn 1407: if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course')) {
1408: $output = "Error: $result\n";
1409: } else {
1410: $output = &mt('Assigning').' '.$role.' in '.$url.
1411: &mt('starting').' '.localtime($now).
1412: ': <br />'.$logmsg.'<br />'.
1413: &mt('Add to classlist').': <b>ok</b><br />';
1414: }
1415: }
1416: } else {
1.101 albertel 1417: my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},
1418: $env{'form.ccuname'},$url,$role,0,$now);
1.116 raeburn 1419: $output = &mt('Re-enabling [_1] in [_2]: <b>[_3]</b>',
1.89 raeburn 1420: $role,$url,$result).'<br />';
1.27 matthew 1421: }
1.89 raeburn 1422: $r->print($output);
1.113 raeburn 1423: }
1.116 raeburn 1424: # Re-enable custom role
1.139 albertel 1425: if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
1.116 raeburn 1426: my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
1427: my $result = &Apache::lonnet::assigncustomrole(
1428: $env{'form.ccdomain'}, $env{'form.ccuname'},
1429: $url,$rdom,$rnam,$rolename,0,$now);
1430: $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',
1431: $rolename,$rnam,$rdom,$url,$result).'<br />');
1432: }
1.135 raeburn 1433: } elsif ($key=~/^form\.act/) {
1.101 albertel 1434: my $udom = $env{'form.ccdomain'};
1435: my $uname = $env{'form.ccuname'};
1.141 albertel 1436: if ($key=~/^form\.act\_($match_domain)\_($match_courseid)\_cr_cr_($match_domain)_($match_username)_([^\_]+)$/) {
1.65 www 1437: # Activate a custom role
1.83 albertel 1438: my ($one,$two,$three,$four,$five)=($1,$2,$3,$4,$5);
1439: my $url='/'.$one.'/'.$two;
1440: my $full=$one.'_'.$two.'_cr_cr_'.$three.'_'.$four.'_'.$five;
1.65 www 1441:
1.101 albertel 1442: my $start = ( $env{'form.start_'.$full} ?
1443: $env{'form.start_'.$full} :
1.88 raeburn 1444: $now );
1.101 albertel 1445: my $end = ( $env{'form.end_'.$full} ?
1446: $env{'form.end_'.$full} :
1.88 raeburn 1447: 0 );
1448:
1449: # split multiple sections
1450: my %sections = ();
1.101 albertel 1451: my $num_sections = &build_roles($env{'form.sec_'.$full},\%sections,$5);
1.88 raeburn 1452: if ($num_sections == 0) {
1.129 albertel 1453: $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$url,$three,$four,$five,$start,$end));
1.88 raeburn 1454: } else {
1.114 albertel 1455: my %curr_groups =
1.117 raeburn 1456: &Apache::longroup::coursegroups($one,$two);
1.113 raeburn 1457: foreach my $sec (sort {$a cmp $b} keys %sections) {
1458: if (($sec eq 'none') || ($sec eq 'all') ||
1459: exists($curr_groups{$sec})) {
1460: $disallowed{$sec} = $url;
1461: next;
1462: }
1463: my $securl = $url.'/'.$sec;
1.129 albertel 1464: $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end));
1.88 raeburn 1465: }
1466: }
1.142 raeburn 1467: } elsif ($key=~/^form\.act\_($match_domain)\_($match_name)\_([^\_]+)$/) {
1.27 matthew 1468: # Activate roles for sections with 3 id numbers
1469: # set start, end times, and the url for the class
1.83 albertel 1470: my ($one,$two,$three)=($1,$2,$3);
1.101 albertel 1471: my $start = ( $env{'form.start_'.$one.'_'.$two.'_'.$three} ?
1472: $env{'form.start_'.$one.'_'.$two.'_'.$three} :
1.27 matthew 1473: $now );
1.101 albertel 1474: my $end = ( $env{'form.end_'.$one.'_'.$two.'_'.$three} ?
1475: $env{'form.end_'.$one.'_'.$two.'_'.$three} :
1.27 matthew 1476: 0 );
1.83 albertel 1477: my $url='/'.$one.'/'.$two;
1.88 raeburn 1478: my $type = 'three';
1479: # split multiple sections
1480: my %sections = ();
1.101 albertel 1481: my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two.'_'.$three},\%sections,$three);
1.88 raeburn 1482: if ($num_sections == 0) {
1.129 albertel 1483: $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
1.88 raeburn 1484: } else {
1.114 albertel 1485: my %curr_groups =
1.117 raeburn 1486: &Apache::longroup::coursegroups($one,$two);
1.88 raeburn 1487: my $emptysec = 0;
1488: foreach my $sec (sort {$a cmp $b} keys %sections) {
1489: $sec =~ s/\W//g;
1.113 raeburn 1490: if ($sec ne '') {
1491: if (($sec eq 'none') || ($sec eq 'all') ||
1492: exists($curr_groups{$sec})) {
1493: $disallowed{$sec} = $url;
1494: next;
1495: }
1.88 raeburn 1496: my $securl = $url.'/'.$sec;
1.129 albertel 1497: $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$three,$start,$end,$one,$two,$sec));
1.88 raeburn 1498: } else {
1499: $emptysec = 1;
1500: }
1501: }
1502: if ($emptysec) {
1.129 albertel 1503: $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
1.88 raeburn 1504: }
1505: }
1.135 raeburn 1506: } elsif ($key=~/^form\.act\_([^\_]+)\_([^\_]+)$/) {
1.27 matthew 1507: # Activate roles for sections with two id numbers
1508: # set start, end times, and the url for the class
1.101 albertel 1509: my $start = ( $env{'form.start_'.$1.'_'.$2} ?
1510: $env{'form.start_'.$1.'_'.$2} :
1.27 matthew 1511: $now );
1.101 albertel 1512: my $end = ( $env{'form.end_'.$1.'_'.$2} ?
1513: $env{'form.end_'.$1.'_'.$2} :
1.27 matthew 1514: 0 );
1515: my $url='/'.$1.'/';
1.88 raeburn 1516: # split multiple sections
1517: my %sections = ();
1.101 albertel 1518: my $num_sections = &build_roles($env{'form.sec_'.$1.'_'.$2},\%sections,$2);
1.88 raeburn 1519: if ($num_sections == 0) {
1.129 albertel 1520: $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));
1.88 raeburn 1521: } else {
1522: my $emptysec = 0;
1523: foreach my $sec (sort {$a cmp $b} keys %sections) {
1524: if ($sec ne '') {
1525: my $securl = $url.'/'.$sec;
1.129 albertel 1526: $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$2,$start,$end,$1,undef,$sec));
1.88 raeburn 1527: } else {
1528: $emptysec = 1;
1529: }
1530: }
1531: if ($emptysec) {
1.129 albertel 1532: $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));
1.88 raeburn 1533: }
1534: }
1.64 www 1535: } else {
1.135 raeburn 1536: $r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></p><br />');
1.64 www 1537: }
1.113 raeburn 1538: foreach my $key (sort(keys(%disallowed))) {
1539: if (($key eq 'none') || ($key eq 'all')) {
1540: $r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is a reserved word.',$key));
1541: } else {
1542: $r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is the name of a course group.',$key));
1543: }
1544: $r->print(' '.&mt('Please <a href="javascript:history.go(-1)">go back</a> and choose a different section name.').'</p><br />');
1545: }
1546: }
1.101 albertel 1547: } # End of foreach (keys(%env))
1.75 www 1548: # Flush the course logs so reverse user roles immediately updated
1549: &Apache::lonnet::flushcourselogs();
1.103 albertel 1550: $r->print('<p><a href="/adm/createuser">Create/Modify Another User</a></p>');
1.110 albertel 1551: $r->print(&Apache::loncommon::end_page());
1.4 www 1552: }
1553:
1.149 raeburn 1554: sub quota_admin {
1555: my ($setquota,$changeHash) = @_;
1556: my $quotachanged;
1557: if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
1558: # Current user has quota modification privileges
1559: $quotachanged = 1;
1560: $changeHash->{'portfolioquota'} = $setquota;
1561: }
1562: return $quotachanged;
1563: }
1564:
1.88 raeburn 1565: sub build_roles {
1.89 raeburn 1566: my ($sectionstr,$sections,$role) = @_;
1.88 raeburn 1567: my $num_sections = 0;
1568: if ($sectionstr=~ /,/) {
1569: my @secnums = split/,/,$sectionstr;
1.89 raeburn 1570: if ($role eq 'st') {
1571: $secnums[0] =~ s/\W//g;
1572: $$sections{$secnums[0]} = 1;
1573: $num_sections = 1;
1574: } else {
1575: foreach my $sec (@secnums) {
1576: $sec =~ ~s/\W//g;
1.150 banghart 1577: if (!($sec eq "")) {
1.89 raeburn 1578: if (exists($$sections{$sec})) {
1579: $$sections{$sec} ++;
1580: } else {
1581: $$sections{$sec} = 1;
1582: $num_sections ++;
1583: }
1.88 raeburn 1584: }
1585: }
1586: }
1587: } else {
1588: $sectionstr=~s/\W//g;
1589: unless ($sectionstr eq '') {
1590: $$sections{$sectionstr} = 1;
1591: $num_sections ++;
1592: }
1593: }
1.129 albertel 1594:
1.88 raeburn 1595: return $num_sections;
1596: }
1597:
1.58 www 1598: # ========================================================== Custom Role Editor
1599:
1600: sub custom_role_editor {
1601: my $r=shift;
1.101 albertel 1602: my $rolename=$env{'form.rolename'};
1.58 www 1603:
1.59 www 1604: if ($rolename eq 'make new role') {
1.101 albertel 1605: $rolename=$env{'form.newrolename'};
1.59 www 1606: }
1607:
1.63 www 1608: $rolename=~s/[^A-Za-z0-9]//gs;
1.58 www 1609:
1.150 banghart 1610: if (!$rolename) {
1.58 www 1611: &print_username_entry_form($r);
1612: return;
1613: }
1.150 banghart 1614: my $head_script = <<END_SCRIPT;
1615: <script type="text/javascript">
1616: function setchecks() {
1617: document.form1.bre_c.checked = false;
1618: }
1619: </script>
1620: END_SCRIPT
1621:
1622: $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));
1.61 www 1623: my $syspriv='';
1624: my $dompriv='';
1625: my $coursepriv='';
1.150 banghart 1626: my ($disp_dummy,$disp_roles) = &Apache::lonnet::get('roles',["st"]);
1.59 www 1627: my ($rdummy,$roledef)=
1628: &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
1.60 www 1629: # ------------------------------------------------------- Does this role exist?
1.110 albertel 1630: $r->print('<h2>');
1.59 www 1631: if (($rdummy ne 'con_lost') && ($roledef ne '')) {
1.73 sakharuk 1632: $r->print(&mt('Existing Role').' "');
1.61 www 1633: # ------------------------------------------------- Get current role privileges
1634: ($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);
1.59 www 1635: } else {
1.73 sakharuk 1636: $r->print(&mt('New Role').' "');
1.59 www 1637: $roledef='';
1638: }
1639: $r->print($rolename.'"</h2>');
1.60 www 1640: # ------------------------------------------------------- What can be assigned?
1641: my %full=();
1642: my %courselevel=();
1.61 www 1643: my %courselevelcurrent=();
1.150 banghart 1644: my @roles = ("st:c","st:d");
1.151 ! albertel 1645: #foreach my $item (@roles) {
! 1646: # &Apache::lonnet::logthis(" roles for $item: ".$Apache::lonnet::pr{$item});
! 1647: #}
1.150 banghart 1648:
1.135 raeburn 1649: foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
1.150 banghart 1650:
1.135 raeburn 1651: my ($priv,$restrict)=split(/\&/,$item);
1.150 banghart 1652: if (!$restrict) { $restrict='F'; }
1.60 www 1653: $courselevel{$priv}=$restrict;
1.61 www 1654: if ($coursepriv=~/\:$priv/) {
1655: $courselevelcurrent{$priv}=1;
1656: }
1.60 www 1657: $full{$priv}=1;
1658: }
1659: my %domainlevel=();
1.61 www 1660: my %domainlevelcurrent=();
1.135 raeburn 1661: foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
1662: my ($priv,$restrict)=split(/\&/,$item);
1.150 banghart 1663: if (!$restrict) { $restrict='F'; }
1.60 www 1664: $domainlevel{$priv}=$restrict;
1.61 www 1665: if ($dompriv=~/\:$priv/) {
1666: $domainlevelcurrent{$priv}=1;
1667: }
1.60 www 1668: $full{$priv}=1;
1669: }
1.61 www 1670: my %systemlevel=();
1671: my %systemlevelcurrent=();
1.135 raeburn 1672: foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
1673: my ($priv,$restrict)=split(/\&/,$item);
1.150 banghart 1674: if (!$restrict) { $restrict='F'; }
1.61 www 1675: $systemlevel{$priv}=$restrict;
1676: if ($syspriv=~/\:$priv/) {
1677: $systemlevelcurrent{$priv}=1;
1678: }
1679: $full{$priv}=1;
1680: }
1.73 sakharuk 1681: my %lt=&Apache::lonlocal::texthash(
1682: 'prv' => "Privilege",
1.131 raeburn 1683: 'crl' => "Course Level",
1.73 sakharuk 1684: 'dml' => "Domain Level",
1.150 banghart 1685: 'ssl' => "System Level");
1686: $r->print('<form action=""><input type="button" onClick="setchecks()" value="Click" /></form>');
1.61 www 1687: $r->print(<<ENDCCF);
1.150 banghart 1688: <form name=form1 method="post">
1.61 www 1689: <input type="hidden" name="phase" value="set_custom_roles" />
1690: <input type="hidden" name="rolename" value="$rolename" />
1691: ENDCCF
1.135 raeburn 1692: $r->print(&Apache::loncommon::start_data_table().
1693: &Apache::loncommon::start_data_table_header_row().
1694: '<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.
1695: '</th><th>'.$lt{'ssl'}.'</th>'.
1696: &Apache::loncommon::end_data_table_header_row());
1.119 raeburn 1697: foreach my $priv (sort keys %full) {
1698: my $privtext = &Apache::lonnet::plaintext($priv);
1.135 raeburn 1699: $r->print(&Apache::loncommon::start_data_table_row().
1700: '<td>'.$privtext.'</td><td>'.
1.150 banghart 1701: ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c" '.
1.119 raeburn 1702: ($courselevelcurrent{$priv}?'checked="1"':'').' />':' ').
1.61 www 1703: '</td><td>'.
1.150 banghart 1704: ($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d" '.
1.119 raeburn 1705: ($domainlevelcurrent{$priv}?'checked="1"':'').' />':' ').
1.61 www 1706: '</td><td>'.
1.150 banghart 1707: ($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s" '.
1.119 raeburn 1708: ($systemlevelcurrent{$priv}?'checked="1"':'').' />':' ').
1.135 raeburn 1709: '</td>'.
1710: &Apache::loncommon::end_data_table_row());
1.60 www 1711: }
1.135 raeburn 1712: $r->print(&Apache::loncommon::end_data_table().
1713: '<input type="submit" value="'.&mt('Define Role').'" /></form>'.
1.110 albertel 1714: &Apache::loncommon::end_page());
1.61 www 1715: }
1716:
1717: # ---------------------------------------------------------- Call to definerole
1718: sub set_custom_role {
1.110 albertel 1719: my ($r) = @_;
1.61 www 1720:
1.101 albertel 1721: my $rolename=$env{'form.rolename'};
1.61 www 1722:
1.63 www 1723: $rolename=~s/[^A-Za-z0-9]//gs;
1.61 www 1724:
1.150 banghart 1725: if (!$rolename) {
1.61 www 1726: &print_username_entry_form($r);
1727: return;
1728: }
1729:
1.110 albertel 1730: $r->print(&Apache::loncommon::start_page('Save Custom Role').'<h2>');
1.61 www 1731: my ($rdummy,$roledef)=
1.110 albertel 1732: &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
1733:
1.61 www 1734: # ------------------------------------------------------- Does this role exist?
1735: if (($rdummy ne 'con_lost') && ($roledef ne '')) {
1.73 sakharuk 1736: $r->print(&mt('Existing Role').' "');
1.61 www 1737: } else {
1.73 sakharuk 1738: $r->print(&mt('New Role').' "');
1.61 www 1739: $roledef='';
1740: }
1741: $r->print($rolename.'"</h2>');
1742: # ------------------------------------------------------- What can be assigned?
1743: my $sysrole='';
1744: my $domrole='';
1745: my $courole='';
1746:
1.135 raeburn 1747: foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
1748: my ($priv,$restrict)=split(/\&/,$item);
1.150 banghart 1749: if (!$restrict) { $restrict=''; }
1750: if ($env{'form.'.$priv.'_c'}) {
1.135 raeburn 1751: $courole.=':'.$item;
1.61 www 1752: }
1753: }
1754:
1.135 raeburn 1755: foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
1756: my ($priv,$restrict)=split(/\&/,$item);
1.150 banghart 1757: if (!$restrict) { $restrict=''; }
1758: if ($env{'form.'.$priv.'_d'}) {
1.135 raeburn 1759: $domrole.=':'.$item;
1.61 www 1760: }
1761: }
1762:
1.135 raeburn 1763: foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
1764: my ($priv,$restrict)=split(/\&/,$item);
1.150 banghart 1765: if (!$restrict) { $restrict=''; }
1766: if ($env{'form.'.$priv.'_s'}) {
1.135 raeburn 1767: $sysrole.=':'.$item;
1.61 www 1768: }
1769: }
1.63 www 1770: $r->print('<br />Defining Role: '.
1.61 www 1771: &Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));
1.101 albertel 1772: if ($env{'request.course.id'}) {
1773: my $url='/'.$env{'request.course.id'};
1.63 www 1774: $url=~s/\_/\//g;
1.73 sakharuk 1775: $r->print('<br />'.&mt('Assigning Role to Self').': '.
1.101 albertel 1776: &Apache::lonnet::assigncustomrole($env{'user.domain'},
1777: $env{'user.name'},
1.63 www 1778: $url,
1.101 albertel 1779: $env{'user.domain'},
1780: $env{'user.name'},
1.63 www 1781: $rolename));
1782: }
1.109 albertel 1783: $r->print('<p><a href="/adm/createuser">Create another role, or Create/Modify a user.</a></p>');
1.110 albertel 1784: $r->print(&Apache::loncommon::end_page());
1.58 www 1785: }
1786:
1.2 www 1787: # ================================================================ Main Handler
1788: sub handler {
1789: my $r = shift;
1790:
1791: if ($r->header_only) {
1.68 www 1792: &Apache::loncommon::content_type($r,'text/html');
1.2 www 1793: $r->send_http_header;
1794: return OK;
1795: }
1796:
1.101 albertel 1797: if ((&Apache::lonnet::allowed('cta',$env{'request.course.id'})) ||
1798: (&Apache::lonnet::allowed('cin',$env{'request.course.id'})) ||
1799: (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) ||
1800: (&Apache::lonnet::allowed('cep',$env{'request.course.id'})) ||
1.104 albertel 1801: (&authorpriv($env{'user.name'},$env{'request.role.domain'})) ||
1.101 albertel 1802: (&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {
1.68 www 1803: &Apache::loncommon::content_type($r,'text/html');
1.2 www 1804: $r->send_http_header;
1.150 banghart 1805: if (!$env{'form.phase'}) {
1.42 matthew 1806: &print_username_entry_form($r);
1.2 www 1807: }
1.101 albertel 1808: if ($env{'form.phase'} eq 'get_user_info') {
1.42 matthew 1809: &print_user_modification_page($r);
1.101 albertel 1810: } elsif ($env{'form.phase'} eq 'update_user_data') {
1.42 matthew 1811: &update_user_data($r);
1.101 albertel 1812: } elsif ($env{'form.phase'} eq 'selected_custom_edit') {
1.58 www 1813: &custom_role_editor($r);
1.101 albertel 1814: } elsif ($env{'form.phase'} eq 'set_custom_roles') {
1.61 www 1815: &set_custom_role($r);
1.2 www 1816: }
1.1 www 1817: } else {
1.101 albertel 1818: $env{'user.error.msg'}=
1.9 albertel 1819: "/adm/createuser:mau:0:0:Cannot modify user data";
1.1 www 1820: return HTTP_NOT_ACCEPTABLE;
1821: }
1822: return OK;
1823: }
1.26 matthew 1824:
1.27 matthew 1825: #-------------------------------------------------- functions for &phase_two
1.26 matthew 1826: sub course_level_table {
1.89 raeburn 1827: my (%inccourses) = @_;
1.26 matthew 1828: my $table = '';
1.62 www 1829: # Custom Roles?
1830:
1831: my %customroles=&my_custom_roles();
1.89 raeburn 1832: my %lt=&Apache::lonlocal::texthash(
1833: 'exs' => "Existing sections",
1834: 'new' => "Define new section",
1835: 'ssd' => "Set Start Date",
1836: 'sed' => "Set End Date",
1.131 raeburn 1837: 'crl' => "Course Level",
1.89 raeburn 1838: 'act' => "Activate",
1839: 'rol' => "Role",
1840: 'ext' => "Extent",
1.113 raeburn 1841: 'grs' => "Section",
1.89 raeburn 1842: 'sta' => "Start",
1843: 'end' => "End"
1844: );
1.62 www 1845:
1.135 raeburn 1846: foreach my $protectedcourse (sort( keys(%inccourses))) {
1847: my $thiscourse=$protectedcourse;
1.26 matthew 1848: $thiscourse=~s:_:/:g;
1849: my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
1850: my $area=$coursedata{'description'};
1.119 raeburn 1851: my $type=$coursedata{'type'};
1.135 raeburn 1852: if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
1.89 raeburn 1853: my ($domain,$cnum)=split(/\//,$thiscourse);
1.115 albertel 1854: my %sections_count;
1.101 albertel 1855: if (defined($env{'request.course.id'})) {
1856: if ($env{'request.course.id'} eq $domain.'_'.$cnum) {
1.115 albertel 1857: %sections_count =
1858: &Apache::loncommon::get_sections($domain,$cnum);
1.92 raeburn 1859: }
1860: }
1.135 raeburn 1861: foreach my $role ('st','ta','ep','in','cc') {
1862: if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
1863: my $plrole=&Apache::lonnet::plaintext($role);
1.136 raeburn 1864: $table .= &Apache::loncommon::start_data_table_row().
1865: '<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'"></td>
1866: <td>'.$plrole.'</td>
1867: <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
1.135 raeburn 1868: if ($role ne 'cc') {
1.115 albertel 1869: if (%sections_count) {
1.135 raeburn 1870: my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role);
1.89 raeburn 1871: $table .=
1.137 raeburn 1872: '<td><table class="LC_createuser">'.
1873: '<tr class="LC_section_row">
1874: <td valign="top">'.$lt{'exs'}.'<br />'.
1.89 raeburn 1875: $currsec.'</td>'.
1876: '<td> </td>'.
1877: '<td valign="top"> '.$lt{'new'}.'<br />'.
1.135 raeburn 1878: '<input type="text" name="newsec_'.$protectedcourse.'_'.$role.'" value="" /></td>'.
1.89 raeburn 1879: '<input type="hidden" '.
1.135 raeburn 1880: 'name="sec_'.$protectedcourse.'_'.$role.'"></td>'.
1.89 raeburn 1881: '</tr></table></td>';
1882: } else {
1883: $table .= '<td><input type="text" size="10" '.
1.135 raeburn 1884: 'name="sec_'.$protectedcourse.'_'.$role.'"></td>';
1.89 raeburn 1885: }
1.26 matthew 1886: } else {
1.89 raeburn 1887: $table .= '<td> </td>';
1.26 matthew 1888: }
1889: $table .= <<ENDTIMEENTRY;
1.135 raeburn 1890: <td><input type=hidden name="start_$protectedcourse\_$role" value=''>
1.26 matthew 1891: <a href=
1.135 raeburn 1892: "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$role.value,'start_$protectedcourse\_$role','cu.pres','dateset')">$lt{'ssd'}</a></td>
1893: <td><input type=hidden name="end_$protectedcourse\_$role" value=''>
1.26 matthew 1894: <a href=
1.135 raeburn 1895: "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td>
1.26 matthew 1896: ENDTIMEENTRY
1.136 raeburn 1897: $table.= &Apache::loncommon::end_data_table_row();
1.26 matthew 1898: }
1899: }
1.135 raeburn 1900: foreach my $cust (sort keys %customroles) {
1.65 www 1901: if (&Apache::lonnet::allowed('ccr',$thiscourse)) {
1.135 raeburn 1902: my $plrole=$cust;
1.101 albertel 1903: my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.
1904: '_'.$env{'user.name'}.'_'.$plrole;
1.136 raeburn 1905: $table .= &Apache::loncommon::start_data_table_row().
1906: '<td><input type="checkbox" name="act_'.$customrole.'"></td>
1907: <td>'.$plrole.'</td>
1908: <td>'.$area.'</td>'."\n";
1.115 albertel 1909: if (%sections_count) {
1910: my $currsec = &course_sections(\%sections_count,$customrole);
1.89 raeburn 1911: $table.=
1912: '<td><table border="0" cellspacing="0" cellpadding="0">'.
1913: '<tr><td valign="top">'.$lt{'exs'}.'<br />'.
1914: $currsec.'</td>'.
1915: '<td> </td>'.
1916: '<td valign="top"> '.$lt{'new'}.'<br />'.
1917: '<input type="text" name="newsec_'.$customrole.'" value="" /></td>'.
1918: '<input type="hidden" '.
1919: 'name="sec_'.$customrole.'"></td>'.
1920: '</tr></table></td>';
1921: } else {
1922: $table .= '<td><input type="text" size="10" '.
1923: 'name="sec_'.$customrole.'"></td>';
1924: }
1925: $table .= <<ENDENTRY;
1.65 www 1926: <td><input type=hidden name="start_$customrole" value=''>
1.62 www 1927: <a href=
1.73 sakharuk 1928: "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>
1.65 www 1929: <td><input type=hidden name="end_$customrole" value=''>
1.62 www 1930: <a href=
1.136 raeburn 1931: "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td>
1.62 www 1932: ENDENTRY
1.136 raeburn 1933: $table .= &Apache::loncommon::end_data_table_row();
1.65 www 1934: }
1.62 www 1935: }
1.26 matthew 1936: }
1937: return '' if ($table eq ''); # return nothing if there is nothing
1938: # in the table
1.136 raeburn 1939: my $result = '
1940: <h4>'.$lt{'crl'}.'</h4>'.
1941: &Apache::loncommon::start_data_table().
1942: &Apache::loncommon::start_data_table_header_row().
1943: '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>
1944: <th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
1945: &Apache::loncommon::end_data_table_header_row().
1946: &Apache::loncommon::start_data_table_row().
1947: $table.
1948: &Apache::loncommon::end_data_table_row().
1949: &Apache::loncommon::end_data_table();
1.26 matthew 1950: return $result;
1951: }
1.88 raeburn 1952:
1.89 raeburn 1953: sub course_sections {
1.115 albertel 1954: my ($sections_count,$role) = @_;
1.89 raeburn 1955: my $output = '';
1956: my @sections = (sort {$a <=> $b} keys %{$sections_count});
1.115 albertel 1957: if (scalar(@sections) == 1) {
1.92 raeburn 1958: $output = '<select name="currsec_'.$role.'" >'."\n".
1959: ' <option value="">Select</option>'."\n".
1.93 raeburn 1960: ' <option value="">No section</option>'."\n".
1.92 raeburn 1961: ' <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";
1962: } else {
1963: $output = '<select name="currsec_'.$role.'" ';
1964: my $multiple = 4;
1.115 albertel 1965: if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
1.145 raeburn 1966: $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
1.135 raeburn 1967: foreach my $sec (@sections) {
1968: $output .= '<option value="'.$sec.'">'.$sec."</option>\n";
1.92 raeburn 1969: }
1.89 raeburn 1970: }
1971: $output .= '</select>';
1972: return $output;
1973: }
1974:
1.88 raeburn 1975: sub course_level_dc {
1976: my ($dcdom) = @_;
1977: my %customroles=&my_custom_roles();
1978: my $hiddenitems = '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.
1979: '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
1.133 raeburn 1980: '<input type="hidden" name="dccourse" value="" />';
1.88 raeburn 1981: my $courseform='<b>'.&Apache::loncommon::selectcourse_link
1.131 raeburn 1982: ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';
1983: my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');
1.88 raeburn 1984: my %lt=&Apache::lonlocal::texthash(
1985: 'rol' => "Role",
1.113 raeburn 1986: 'grs' => "Section",
1.88 raeburn 1987: 'exs' => "Existing sections",
1988: 'new' => "Define new section",
1989: 'sta' => "Start",
1990: 'end' => "End",
1991: 'ssd' => "Set Start Date",
1992: 'sed' => "Set End Date"
1993: );
1.131 raeburn 1994: my $header = '<h4>'.&mt('Course Level').'</h4>'.
1.136 raeburn 1995: &Apache::loncommon::start_data_table().
1996: &Apache::loncommon::start_data_table_header_row().
1.143 raeburn 1997: '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
1.136 raeburn 1998: &Apache::loncommon::end_data_table_header_row();
1.143 raeburn 1999: my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
1.131 raeburn 2000: '<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".
1.88 raeburn 2001: '<td><select name="role">'."\n";
1.135 raeburn 2002: foreach my $role ('st','ta','ep','in','cc') {
2003: my $plrole=&Apache::lonnet::plaintext($role);
2004: $otheritems .= ' <option value="'.$role.'">'.$plrole;
1.88 raeburn 2005: }
2006: if ( keys %customroles > 0) {
1.135 raeburn 2007: foreach my $cust (sort keys %customroles) {
1.101 albertel 2008: my $custrole='cr_cr_'.$env{'user.domain'}.
1.135 raeburn 2009: '_'.$env{'user.name'}.'_'.$cust;
2010: $otheritems .= ' <option value="'.$custrole.'">'.$cust;
1.88 raeburn 2011: }
2012: }
2013: $otheritems .= '</select></td><td>'.
2014: '<table border="0" cellspacing="0" cellpadding="0">'.
2015: '<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'.
2016: ' <option value=""><--'.&mt('Pick course first').'</select></td>'.
2017: '<td> </td>'.
2018: '<td valign="top"> <b>'.$lt{'new'}.'</b><br />'.
1.113 raeburn 2019: '<input type="text" name="newsec" value="" />'.
2020: '<input type="hidden" name="groups" value="" /></td>'.
1.88 raeburn 2021: '</tr></table></td>';
2022: $otheritems .= <<ENDTIMEENTRY;
2023: <td><input type=hidden name="start" value=''>
2024: <a href=
2025: "javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>
2026: <td><input type=hidden name="end" value=''>
2027: <a href=
2028: "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
2029: ENDTIMEENTRY
1.136 raeburn 2030: $otheritems .= &Apache::loncommon::end_data_table_row().
2031: &Apache::loncommon::end_data_table()."\n";
1.88 raeburn 2032: return $cb_jscript.$header.$hiddenitems.$otheritems;
2033: }
2034:
1.27 matthew 2035: #---------------------------------------------- end functions for &phase_two
1.29 matthew 2036:
2037: #--------------------------------- functions for &phase_two and &phase_three
2038:
2039: #--------------------------end of functions for &phase_two and &phase_three
1.1 www 2040:
2041: 1;
2042: __END__
1.2 www 2043:
2044:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to loncreateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface