Annotation of loncom/interface/slotrequest.pm, revision 1.151
1.1 albertel 1: # The LearningOnline Network with CAPA
2: # Handler for requesting to have slots added to a students record
3: #
1.151 ! raeburn 4: # $Id: slotrequest.pm,v 1.150 2025/03/20 17:59:20 raeburn Exp $
1.1 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: #
28: ###
29:
30: package Apache::slotrequest;
31:
32: use strict;
33: use Apache::Constants qw(:common :http :methods);
34: use Apache::loncommon();
35: use Apache::lonlocal;
36: use Apache::lonnet;
1.48 albertel 37: use Apache::lonnavmaps();
1.27 albertel 38: use Date::Manip;
1.63 www 39: use lib '/home/httpd/lib/perl/';
1.124 raeburn 40: use LONCAPA qw(:DEFAULT :match);
1.1 albertel 41:
42: sub fail {
43: my ($r,$code)=@_;
1.2 albertel 44: if ($code eq 'not_valid') {
1.8 albertel 45: $r->print('<p>'.&mt('Unable to understand what resource you wanted to sign up for.').'</p>');
1.61 albertel 46: } elsif ($code eq 'not_available') {
47: $r->print('<p>'.&mt('No slots are available.').'</p>');
1.8 albertel 48: } elsif ($code eq 'not_allowed') {
49: $r->print('<p>'.&mt('Not allowed to sign up or change reservations at this time.').'</p>');
50: } else {
51: $r->print('<p>'.&mt('Failed.').'</p>');
1.2 albertel 52: }
1.147 raeburn 53:
1.42 albertel 54: &return_link($r);
1.1 albertel 55: &end_page($r);
56: }
57:
58: sub start_page {
1.145 raeburn 59: my ($r,$title,$brcrum,$bread_crumbs_component,$js,$mgr)=@_;
1.91 raeburn 60: my $args;
61: if (ref($brcrum) eq 'ARRAY') {
62: $args = {bread_crumbs => $brcrum};
1.147 raeburn 63: if ($bread_crumbs_component) {
64: $args->{bread_crumbs_component} = $bread_crumbs_component;
1.143 raeburn 65: }
1.151 ! raeburn 66: if ((($env{'form.requestattempt'}) || ($env{'form.context'} eq 'user')) &&
! 67: ($env{'form.symb'})) {
! 68: $args->{'bread_crumbs_nomenu'} = 1;
! 69: }
1.91 raeburn 70: }
1.122 raeburn 71: if (($env{'form.requestattempt'}) || ($env{'form.command'} eq 'manageresv')) {
72: my %loaditems = (
73: onload => 'javascript:uncheckSlotRadio();',
74: );
75: if (ref($args) eq 'HASH') {
76: $args->{'add_entries'} = \%loaditems;
77: } else {
78: $args = { 'add_entries' => \%loaditems };
79: }
80: }
1.145 raeburn 81: unless (($env{'form.context'} eq 'usermanage') || (($mgr eq 'F') &&
82: (($env{'form.command'} eq 'release') ||
83: ($env{'form.command'} eq 'remove_registration')))) {
84: if ($env{'form.symb'}) {
85: my $symb=&unescape($env{'form.symb'});
86: my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($symb);
87: if ($resurl =~ /ext\.tool$/) {
88: my $target;
89: my ($marker,$exttool) = (split(m{/},$resurl))[3,4];
90: $marker=~s/\D//g;
91: if (($marker) && ($exttool) && ($env{'request.course.id'})) {
92: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
93: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
94: my ($idx,$crstool,$is_tool,%toolhash,%toolsettings);
95: if ($resurl eq "adm/$cdom/$cnum/$marker/$exttool") {
96: my %toolsettings=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);
97: $target = $toolsettings{'target'};
98: }
99: }
100: if ($target eq 'iframe') {
101: $args->{'only_body'} = 1;
102: }
103: }
104: }
105: }
1.122 raeburn 106: $r->print(&Apache::loncommon::start_page($title,$js,$args));
1.1 albertel 107: }
108:
109: sub end_page {
110: my ($r)=@_;
1.149 raeburn 111: $r->print('</div>'.&Apache::loncommon::end_page());
1.1 albertel 112: }
113:
1.122 raeburn 114: sub reservation_js {
115: my ($slots,$consumed_uniqueperiods,$available,$got_slots,$symb) = @_;
116: return unless ((ref($slots) eq 'HASH') && (ref($available) eq 'ARRAY'));
117: my $toskip;
118: if ($symb eq '') {
119: $toskip = { symb => 1, };
120: }
121: my ($i,$j) = (0,0);
122: my $js;
123: foreach my $slot (sort
124: { return $slots->{$a}->{'starttime'} <=> $slots->{$b}->{'starttime'} }
125: (keys(%{$slots}))) {
126:
127: next if (!&allowed_slot($slot,$slots->{$slot},$symb,$slots,
128: $consumed_uniqueperiods,$toskip));
129: $js .= " slotstart[$i]='$slots->{$slot}->{'starttime'}';\n".
130: " slotend[$i]='$slots->{$slot}->{'endtime'}';\n".
131: " slotname[$i]='$slot';\n";
132: if (($symb) && (ref($got_slots) eq 'ARRAY')) {
133: if (grep(/^\Q$slot\E$/,@{$got_slots})) {
134: $js .= " currslot[$j]='$slot';\n";
135: $j++;
136: }
137: }
138: $i++;
139: push(@{$available},$slot);
140: }
141: if ($j) {
142: $js = " var currslot = new Array($j);\n\n$js";
143: }
144: my %alerts = &Apache::lonlocal::texthash (
145: none => 'No reservable time slots found',
146: invalid => 'Invalid date format',
147: );
148: return <<"ENDSCRIPT";
149: <script type="text/javascript">
150: // <![CDATA[
151: function updateSlotDisplay(form,num,slotpickradio) {
152: var slotstart = new Array($i);
153: var slotend = new Array($i);
154: var slotname = new Array($i);
155: $js
156:
157: if (slotpickradio == 'all') {
158: for (var i=0; i<$i; i++) {
159: if (document.getElementById('LC_slotrow_'+num+'_'+slotname[i])) {
160: document.getElementById('LC_slotrow_'+num+'_'+slotname[i]).style.display = '';
161: }
162: if (document.getElementById('LC_slotsearch_'+num)) {
163: document.getElementById('LC_slotsearch_'+num).style.display = 'block';
164: }
165: }
166: } else {
167: if (slotpickradio == 'show') {
168: for (var i=0; i<$i; i++) {
169: if (document.getElementById('LC_slotrow_'+num+'_'+slotname[i])) {
170: document.getElementById('LC_slotrow_'+num+'_'+slotname[i]).style.display = 'none';
171: }
172: }
173: for (var j=0; j<$j; j++) {
174: if (document.getElementById('LC_slotrow_'+num+'_'+currslot[j])) {
175: document.getElementById('LC_slotrow_'+num+'_'+currslot[j]).style.display = '';
176: }
177: }
178: if (document.getElementById('LC_slotsearch_'+num)) {
179: document.getElementById('LC_slotsearch_'+num).style.display = 'block';
180: }
181: } else {
182: var numberRegExp = /^[0-9]+\$/;
183: var startm = form.start_month.options[form.start_month.selectedIndex].value;
184: var startd = form.start_day.value;
185: startd=startd.trim();
186: var starty = form.start_year.value;
187: starty=starty.trim();
188: var endm = form.end_month.options[form.end_month.selectedIndex].value;
189: var endd = form.end_day.value;
190: endd=endd.trim();
191: var endy = form.end_year.value;
192: endy=endy.trim();
193: if (numberRegExp.test(endd) && numberRegExp.test(endy) && numberRegExp.test(startd) && numberRegExp.test(starty)) {
194: var startdate = startm+"/"+startd+"/"+starty;
195: var starttime = new Date(startdate).getTime();
196: starttime = starttime/1000;
1.128 raeburn 197: var starth = form.start_hour.options[form.start_hour.selectedIndex].value;
198: if (numberRegExp.test(starth)) {
199: starth = parseInt(starth);
200: if (starth > 0 && starth <= 23) {
201: starttime += 3600 * starth;
202: }
203: }
1.122 raeburn 204: var enddate = endm+"/"+endd+"/"+endy;
205: var endtime = new Date(enddate).getTime();
206: endtime = endtime/1000;
1.128 raeburn 207: var endh = form.end_hour.options[form.end_hour.selectedIndex].value;
208: if (numberRegExp.test(endh)) {
209: endh = parseInt(endh);
210: if (endh > 0 && endh <= 23) {
211: endtime += 3600 * endh;
212: }
213: }
214:
1.122 raeburn 215: var shown = 0;
216: for (var i=0; i<$i; i++) {
217: if ((slotstart[i] >= starttime) && (slotend[i] <= endtime)) {
218: if (document.getElementById('LC_slotrow_'+num+'_'+slotname[i])) {
219: document.getElementById('LC_slotrow_'+num+'_'+slotname[i]).style.display = '';
220: shown ++;
221: }
222: } else {
223: if (document.getElementById('LC_slotrow_'+num+'_'+slotname[i])) {
224: document.getElementById('LC_slotrow_'+num+'_'+slotname[i]).style.display = 'none';
225: }
226: }
227: }
228: if (document.getElementById('LC_slotsearch_'+num)) {
229: if (shown) {
230: document.getElementById('LC_slotsearch_'+num).style.display = 'block';
231: } else {
232: document.getElementById('LC_slotsearch_'+num).style.display = 'none';
233: }
234: }
235: if (shown == 0) {
236: alert('$alerts{"none"}');
237: }
238: } else {
239: alert('$alerts{"invalid"}');
240: }
241: }
242: }
243: return;
244: }
245:
246: function toggleSlotDisplay(form,num) {
247: if (form.slotpick.length) {
248: for (var i=0; i<form.slotpick.length; i++) {
249: if (form.slotpick[i].checked) {
250: var val = form.slotpick[i].value;
251: if (document.getElementById('LC_slotfilter_'+num)) {
252: document.getElementById('LC_slotsearch_'+num).style.display = 'none';
253: if (val == 'filter') {
254: document.getElementById('LC_slotfilter_'+num).style.display = 'block';
255: } else {
256: document.getElementById('LC_slotfilter_'+num).style.display = 'none';
257: if (val == 'all') {
258: updateSlotDisplay(form,num,val);
259: } else {
260: updateSlotDisplay(form,num,val);
261: }
262: }
263: }
264: break;
265: }
266: }
267: }
268: return false;
269: }
270:
271: if (!document.getElementsByClassName) {
272: function getElementsByClassName(node, classname) {
273: var a = [];
274: var re = new RegExp('(^| )'+classname+'( |$)');
275: var els = node.getElementsByTagName("*");
276: for(var i=0,j=els.length; i<j; i++)
277: if(re.test(els[i].className))a.push(els[i]);
278: return a;
279: }
280: }
281:
282: function uncheckSlotRadio() {
283: var slotpicks;
284: if (document.getElementsByClassName) {
285: slotpicks = document.getElementsByClassName('LC_slotpick_radio');
286: } else {
1.125 raeburn 287: slotpicks = getElementsByClassName(document.body,'LC_slotpick_radio');
1.122 raeburn 288: }
289: if (slotpicks.length) {
290: for (var i=0; i<slotpicks.length; i++) {
1.147 raeburn 291: slotpicks[i].checked = false;
1.122 raeburn 292: }
293: }
294: }
1.127 raeburn 295:
1.129 raeburn 296: function toggleSlotMap(maprownum,rownum) {
1.127 raeburn 297: if (document.getElementById('arrow'+maprownum)) {
298: var img = document.getElementById('arrow'+maprownum);
299: var rowdisplay;
300: var celldisplay = '';
301: if (img.src.indexOf('arrow.open.gif')!=-1) {
302: img.src = '/adm/lonIcons/arrow.closed.gif';
303: rowdisplay = 'none';
304: }
305: else {
306: img.src = '/adm/lonIcons/arrow.open.gif';
307: rowdisplay = 'table-row';
308: celldisplay = 'none';
309: }
310: var resrows;
311: var maptext;
312: if (document.getElementsByClassName) {
1.129 raeburn 313: resrows = document.getElementsByClassName('LC_slotresrow_'+maprownum);
1.127 raeburn 314: maptext = document.getElementsByClassName('LC_slotmaptext_'+maprownum);
315: } else {
1.129 raeburn 316: resrows = getElementsByClassName(document.body,'LC_slotresrow_'+maprownum);
1.127 raeburn 317: maptext = getElementsByClassName(document.body,'LC_slotmaptext_'+maprownum);
318: }
1.129 raeburn 319: if (maptext.length) {
320: for (var i=0; i<maptext.length; i++) {
321: maptext[i].style.display = celldisplay;
322: }
323: }
1.127 raeburn 324: if (resrows.length) {
1.129 raeburn 325: var mapbgidx = 0;
326: var rowclasses = ['LC_even_row','LC_odd_row'];
327: var mapbgClass = 'LC_even_row';
328: var regExpBg = /LC_odd_row/i;
329: if (rowdisplay == 'table-row') {
330: if (document.getElementById('LC_slotmaprow_'+rownum)) {
331: mapbgClass = document.getElementById('LC_slotmaprow_'+rownum).className;
332: if (regExpBg.test(mapbgClass)) {
333: mapbgidx = 1;
334: }
335: }
336: }
1.127 raeburn 337: for (var i=0; i<resrows.length; i++) {
1.129 raeburn 338: resrows[i].style.display = rowdisplay;
339: if (rowdisplay == 'table-row') {
1.147 raeburn 340: mapbgidx ++;
1.129 raeburn 341: var bgcolnew = mapbgidx % 2;
342: var bgcolold = (mapbgidx+1) % 2;
343: var k = i+parseInt(rownum)+1;
344: if (document.getElementById('LC_slotresrow_'+k)) {
345: document.getElementById('LC_slotresrow_'+k).className = document.getElementById('LC_slotresrow_'+k).className.replace(rowclasses[bgcolold],rowclasses[bgcolnew]);
346: }
347: }
1.127 raeburn 348: }
1.129 raeburn 349: if (document.getElementById('LC_slot_reservations')) {
350: var numrowsOdd = resrows.length % 2;
351: if (numrowsOdd) {
352: var lastbgClass = 'LC_even_row';
353: var idx = 0;
354: var lastresnum = parseInt(rownum) + resrows.length;
355: if (rowdisplay == 'none') {
356: lastresnum = rownum;
357: if (document.getElementById('LC_slotmaprow_'+rownum)) {
358: lastbgClass = document.getElementById('LC_slotmaprow_'+rownum).className;
359: }
360: } else {
361: lastresnum = parseInt(rownum) + resrows.length;
362: if (document.getElementById('LC_slotresrow_'+lastresnum)) {
363: lastbgClass = document.getElementById('LC_slotresrow_'+lastresnum).className;
364: }
365: }
366: if (regExpBg.test(lastbgClass)) {
367: idx = 1;
368: }
369: var table = document.getElementById('LC_slot_reservations');
370: if ((table.rows.length) && (table.rows.length >= lastresnum)) {
371: for (var i=lastresnum; i<table.rows.length; i++) {
372: if (table.rows[i].style.display != 'none') {
373: idx ++;
374: var bgcolnew = idx % 2;
1.147 raeburn 375: var bgcolold = (idx+1) % 2;
1.129 raeburn 376: j = i+1;
377: if (document.getElementById('LC_slotmaprow_'+j)) {
378: document.getElementById('LC_slotmaprow_'+j).className = rowclasses[bgcolnew];
379: } else {
380: if (document.getElementById('LC_slotresrow_'+j)) {
381: document.getElementById('LC_slotresrow_'+j).className = document.getElementById('LC_slotresrow_'+j).className.replace(rowclasses[bgcolold],rowclasses[bgcolnew]);
382: }
383: }
384: }
385: }
386: }
387: }
1.127 raeburn 388: }
389: }
390: }
391: }
1.122 raeburn 392: // ]]>
393: </script>
394: ENDSCRIPT
395:
396: }
397:
398:
1.2 albertel 399: =pod
400:
401: slot_reservations db
402: - keys are
403: - slotname\0id -> value is an hashref of
404: name -> user@domain of holder
405: timestamp -> timestamp of reservation
406: symb -> symb of resource that it is reserved for
407:
408: =cut
409:
410: sub get_course {
1.69 albertel 411: (undef,my $courseid)=&Apache::lonnet::whichuser();
1.2 albertel 412: my $cdom=$env{'course.'.$courseid.'.domain'};
413: my $cnum=$env{'course.'.$courseid.'.num'};
414: return ($cnum,$cdom);
415: }
416:
417: sub get_reservation_ids {
418: my ($slot_name)=@_;
1.147 raeburn 419:
1.2 albertel 420: my ($cnum,$cdom)=&get_course();
421:
422: my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
423: "^$slot_name\0");
1.67 albertel 424: if (&Apache::lonnet::error(%consumed)) {
1.40 albertel 425: return 'error: Unable to determine current status';
426: }
1.2 albertel 427: my ($tmp)=%consumed;
428: if ($tmp=~/^error: 2 / ) {
429: return 0;
430: }
431: return keys(%consumed);
432: }
433:
434: sub space_available {
435: my ($slot_name,$slot)=@_;
436: my $max=$slot->{'maxspace'};
437:
438: if (!defined($max)) { return 1; }
439:
440: my $consumed=scalar(&get_reservation_ids($slot_name));
441: if ($consumed < $max) {
442: return 1
443: }
444: return 0;
445: }
1.3 albertel 446:
1.4 albertel 447: sub check_for_reservation {
1.43 albertel 448: my ($symb,$mode)=@_;
1.4 albertel 449: my $student = &Apache::lonnet::EXT("resource.0.availablestudent", $symb,
450: $env{'user.domain'}, $env{'user.name'});
451: my $course = &Apache::lonnet::EXT("resource.0.available", $symb,
452: $env{'user.domain'}, $env{'user.name'});
453: my @slots = (split(/:/,$student), split(/:/, $course));
454:
455: &Apache::lonxml::debug(" slot list is ".join(':',@slots));
456:
457: my ($cnum,$cdom)=&get_course();
458: my %slots=&Apache::lonnet::get('slots', [@slots], $cdom, $cnum);
459:
1.67 albertel 460: if (&Apache::lonnet::error($student)
461: || &Apache::lonnet::error($course)
462: || &Apache::lonnet::error(%slots)) {
1.41 albertel 463: return 'error: Unable to determine current status';
1.147 raeburn 464: }
1.43 albertel 465: my @got;
1.112 raeburn 466: my @sorted_slots = &Apache::loncommon::sorted_slots(\@slots,\%slots,'starttime');
1.91 raeburn 467: foreach my $slot_name (@sorted_slots) {
1.4 albertel 468: next if (!defined($slots{$slot_name}) ||
469: !ref($slots{$slot_name}));
470: &Apache::lonxml::debug(time." $slot_name ".
471: $slots{$slot_name}->{'starttime'}." -- ".
1.111 raeburn 472: $slots{$slot_name}->{'startreserve'}." -- ".
473: $slots{$slot_name}->{'endreserve'});
474: if (($slots{$slot_name}->{'endtime'} > time) &&
475: ($slots{$slot_name}->{'startreserve'} < time) &&
476: ((!$slots{$slot_name}->{'endreserve'}) ||
477: ($slots{$slot_name}->{'endreserve'} > time))) {
478: # between start of reservation time and end of reservation time
479: # and before end of slot
1.43 albertel 480: if ($mode eq 'allslots') {
481: push(@got,$slot_name);
482: } else {
483: return($slot_name, $slots{$slot_name});
484: }
1.4 albertel 485: }
486: }
1.43 albertel 487: if ($mode eq 'allslots' && @got) {
488: return @got;
489: }
1.4 albertel 490: return (undef,undef);
491: }
492:
1.48 albertel 493: sub get_consumed_uniqueperiods {
494: my ($slots) = @_;
495: my $navmap=Apache::lonnavmaps::navmap->new;
1.85 raeburn 496: if (!defined($navmap)) {
497: return 'error: Unable to determine current status';
498: }
1.48 albertel 499: my @problems = $navmap->retrieveResources(undef,
1.137 raeburn 500: sub { $_[0]->is_problem() || $_[0]->is_tool() },1,0);
1.48 albertel 501: my %used_slots;
502: foreach my $problem (@problems) {
503: my $symb = $problem->symb();
504: my $student = &Apache::lonnet::EXT("resource.0.availablestudent",
505: $symb, $env{'user.domain'},
506: $env{'user.name'});
507: my $course = &Apache::lonnet::EXT("resource.0.available",
508: $symb, $env{'user.domain'},
509: $env{'user.name'});
1.67 albertel 510: if (&Apache::lonnet::error($student)
511: || &Apache::lonnet::error($course)) {
1.48 albertel 512: return 'error: Unable to determine current status';
513: }
514: foreach my $slot (split(/:/,$student), split(/:/, $course)) {
515: $used_slots{$slot}=1;
516: }
517: }
1.43 albertel 518:
519: if (!ref($slots)) {
1.48 albertel 520: my ($cnum,$cdom)=&get_course();
521: my %slots=&Apache::lonnet::get('slots', [keys(%used_slots)], $cdom, $cnum);
1.67 albertel 522: if (&Apache::lonnet::error(%slots)) {
1.48 albertel 523: return 'error: Unable to determine current status';
524: }
1.43 albertel 525: $slots = \%slots;
526: }
1.41 albertel 527:
1.48 albertel 528: my %consumed_uniqueperiods;
529: foreach my $slot_name (keys(%used_slots)) {
1.43 albertel 530: next if (!defined($slots->{$slot_name}) ||
531: !ref($slots->{$slot_name}));
1.48 albertel 532:
1.43 albertel 533: next if (!defined($slots->{$slot_name}{'uniqueperiod'}) ||
534: !ref($slots->{$slot_name}{'uniqueperiod'}));
1.48 albertel 535: $consumed_uniqueperiods{$slot_name} =
536: $slots->{$slot_name}{'uniqueperiod'};
537: }
538: return \%consumed_uniqueperiods;
539: }
540:
541: sub check_for_conflict {
542: my ($symb,$new_slot_name,$new_slot,$slots,$consumed_uniqueperiods)=@_;
543:
544: if (!defined($new_slot->{'uniqueperiod'})) { return undef; }
545:
546: if (!ref($consumed_uniqueperiods)) {
1.122 raeburn 547: if ($consumed_uniqueperiods =~ /^error: /) {
548: return $consumed_uniqueperiods;
1.85 raeburn 549: } else {
1.122 raeburn 550: $consumed_uniqueperiods = &get_consumed_uniqueperiods($slots);
551: if (ref($consumed_uniqueperiods) eq 'HASH') {
552: if (&Apache::lonnet::error(%$consumed_uniqueperiods)) {
553: return 'error: Unable to determine current status';
554: }
555: } else {
556: return 'error: Unable to determine current status';
557: }
1.85 raeburn 558: }
1.122 raeburn 559: }
1.48 albertel 560: my ($new_uniq_start,$new_uniq_end) = @{$new_slot->{'uniqueperiod'}};
561: foreach my $slot_name (keys(%$consumed_uniqueperiods)) {
562: my ($start,$end)=@{$consumed_uniqueperiods->{$slot_name}};
1.43 albertel 563: if (!
564: ($start < $new_uniq_start && $end < $new_uniq_start) ||
565: ($start > $new_uniq_end && $end > $new_uniq_end )) {
1.5 albertel 566: return $slot_name;
567: }
568: }
569: return undef;
570: }
571:
1.2 albertel 572: sub make_reservation {
1.89 raeburn 573: my ($slot_name,$slot,$symb,$cnum,$cdom)=@_;
1.3 albertel 574:
575: my $value=&Apache::lonnet::EXT("resource.0.availablestudent",$symb,
576: $env{'user.domain'},$env{'user.name'});
577: &Apache::lonxml::debug("value is $value<br />");
1.59 albertel 578:
1.80 albertel 579: my $use_slots = &Apache::lonnet::EXT("resource.0.useslots",$symb,
580: $env{'user.domain'},$env{'user.name'});
1.59 albertel 581: &Apache::lonxml::debug("use_slots is $use_slots<br />");
582:
1.67 albertel 583: if (&Apache::lonnet::error($value)
584: || &Apache::lonnet::error($use_slots)) {
1.40 albertel 585: return 'error: Unable to determine current status';
586: }
587:
1.141 raeburn 588: my $symb_for_db = $symb;
1.59 albertel 589: my $parm_level = 1;
1.66 albertel 590: if ($use_slots eq 'map' || $use_slots eq 'map_map') {
1.59 albertel 591: my ($map) = &Apache::lonnet::decode_symb($symb);
1.141 raeburn 592: $symb_for_db = &Apache::lonnet::symbread($map);
1.59 albertel 593: $parm_level = 2;
594: }
595:
1.3 albertel 596: foreach my $other_slot (split(/:/, $value)) {
597: if ($other_slot eq $slot_name) {
598: my %consumed=&Apache::lonnet::dump('slot_reservations', $cdom,
1.147 raeburn 599: $cnum, "^$slot_name\0");
1.67 albertel 600: if (&Apache::lonnet::error($value)) {
1.40 albertel 601: return 'error: Unable to determine current status';
602: }
1.57 albertel 603: my $me=$env{'user.name'}.':'.$env{'user.domain'};
1.3 albertel 604: foreach my $key (keys(%consumed)) {
605: if ($consumed{$key}->{'name'} eq $me) {
606: my $num=(split('\0',$key))[1];
607: return -$num;
608: }
609: }
610: }
611: }
612:
1.2 albertel 613: my $max=$slot->{'maxspace'};
1.3 albertel 614: if (!defined($max)) { $max=99999; }
1.2 albertel 615:
616: my (@ids)=&get_reservation_ids($slot_name);
1.67 albertel 617: if (&Apache::lonnet::error(@ids)) {
1.40 albertel 618: return 'error: Unable to determine current status';
619: }
1.2 albertel 620: my $last=0;
621: foreach my $id (@ids) {
622: my $num=(split('\0',$id))[1];
623: if ($num > $last) { $last=$num; }
624: }
1.147 raeburn 625:
1.2 albertel 626: my $wanted=$last+1;
1.3 albertel 627: &Apache::lonxml::debug("wanted $wanted<br />");
1.7 albertel 628: if (scalar(@ids) >= $max) {
1.2 albertel 629: # full up
1.7 albertel 630: return undef;
1.2 albertel 631: }
1.147 raeburn 632:
1.57 albertel 633: my %reservation=('name' => $env{'user.name'}.':'.$env{'user.domain'},
1.2 albertel 634: 'timestamp' => time,
1.141 raeburn 635: 'symb' => $symb_for_db);
1.2 albertel 636:
637: my $success=&Apache::lonnet::newput('slot_reservations',
638: {"$slot_name\0$wanted" =>
639: \%reservation},
1.3 albertel 640: $cdom, $cnum);
641:
1.2 albertel 642: if ($success eq 'ok') {
1.3 albertel 643: my $new_value=$slot_name;
644: if ($value) {
645: $new_value=$value.':'.$new_value;
646: }
1.141 raeburn 647: my $result = &store_slot_parm($symb,$symb_for_db,$slot_name,$parm_level,
648: $new_value,$cnum,$cdom,$env{'user.name'},
649: $env{'user.domain'},'reserve',$env{'form.context'});
1.2 albertel 650: return $wanted;
651: }
1.3 albertel 652:
1.2 albertel 653: # someone else got it
1.3 albertel 654: return undef;
655: }
656:
1.89 raeburn 657: sub store_slot_parm {
1.141 raeburn 658: my ($symb_for_parm,$symb_for_db,$slot_name,$parm_level,$new_value,
659: $cnum,$cdom,$uname,$udom,$action,$context,$delflag) = @_;
660:
661: # store new parameter string
662: my $result=&Apache::lonparmset::storeparm_by_symb($symb_for_parm,
663: '0_availablestudent',
664: $parm_level,$new_value,
665: 'string',$uname,$udom);
1.89 raeburn 666: &Apache::lonxml::debug("hrrm $result");
667: my %storehash = (
1.141 raeburn 668: symb => $symb_for_db,
1.89 raeburn 669: slot => $slot_name,
1.141 raeburn 670: action => $action,
671: context => $context,
1.89 raeburn 672: );
673:
1.116 raeburn 674: &Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
1.141 raeburn 675: $delflag,$uname,$udom,$cnum,$cdom);
1.116 raeburn 676: &Apache::lonnet::write_log('course',$cdom.'_'.$cnum.'_slotlog',\%storehash,
1.141 raeburn 677: $delflag,$uname,$udom,$uname,$udom);
678: return $result;
1.89 raeburn 679: }
680:
1.33 albertel 681: sub remove_registration {
682: my ($r) = @_;
1.55 albertel 683: if ($env{'form.entry'} ne 'remove all') {
684: return &remove_registration_user($r);
685: }
686: my $slot_name = $env{'form.slotname'};
687: my %slot=&Apache::lonnet::get_slot($slot_name);
688:
689: my ($cnum,$cdom)=&get_course();
690: my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
691: "^$slot_name\0");
1.67 albertel 692: if (&Apache::lonnet::error(%consumed)) {
1.83 raeburn 693: $r->print("<p><span class=\"LC_error\">".&mt('A network error has occurred.').'</span></p>');
1.55 albertel 694: return;
695: }
696: if (!%consumed) {
1.87 raeburn 697: $r->print('<p>'.&mt('Slot [_1] has no reservations.',
698: '<tt>'.$slot_name.'</tt>').'</p>');
1.55 albertel 699: return;
700: }
701:
702: my @names = map { $consumed{$_}{'name'} } (sort(keys(%consumed)));
703: my $names = join(' ',@names);
704:
705: my $msg = &mt('Remove all of [_1] from slot [_2]?',$names,$slot_name);
1.89 raeburn 706: &remove_registration_confirmation($r,$msg,['entry','slotname','context']);
1.55 albertel 707: }
708:
709: sub remove_registration_user {
710: my ($r) = @_;
1.147 raeburn 711:
1.55 albertel 712: my $slot_name = $env{'form.slotname'};
713:
1.33 albertel 714: my $name = &Apache::loncommon::plainname($env{'form.uname'},
715: $env{'form.udom'});
716:
717: my $title = &Apache::lonnet::gettitle($env{'form.symb'});
718:
1.55 albertel 719: my $msg = &mt('Remove [_1] from slot [_2] for [_3]',
720: $name,$slot_name,$title);
1.147 raeburn 721:
1.55 albertel 722: &remove_registration_confirmation($r,$msg,['uname','udom','slotname',
1.89 raeburn 723: 'entry','symb','context']);
1.55 albertel 724: }
725:
726: sub remove_registration_confirmation {
727: my ($r,$msg,$inputs) =@_;
728:
1.33 albertel 729: my $hidden_input;
1.55 albertel 730: foreach my $parm (@{$inputs}) {
1.33 albertel 731: $hidden_input .=
732: '<input type="hidden" name="'.$parm.'" value="'
733: .&HTML::Entities::encode($env{'form.'.$parm},'"<>&\'').'" />'."\n";
734: }
1.90 bisitz 735: my %lt = &Apache::lonlocal::texthash(
736: 'yes' => 'Yes',
737: 'no' => 'No',
738: );
1.33 albertel 739: $r->print(<<"END_CONFIRM");
1.55 albertel 740: <p> $msg </p>
1.64 albertel 741: <form action="/adm/slotrequest" method="post">
1.33 albertel 742: <input type="hidden" name="command" value="release" />
1.55 albertel 743: <input type="hidden" name="button" value="yes" />
1.33 albertel 744: $hidden_input
1.55 albertel 745: <input type="submit" value="$lt{'yes'}" />
1.33 albertel 746: </form>
1.64 albertel 747: <form action="/adm/slotrequest" method="post">
1.33 albertel 748: <input type="hidden" name="command" value="showslots" />
1.55 albertel 749: <input type="submit" value="$lt{'no'}" />
1.33 albertel 750: </form>
751: END_CONFIRM
752:
753: }
754:
1.55 albertel 755: sub release_all_slot {
756: my ($r,$mgr)=@_;
1.147 raeburn 757:
1.55 albertel 758: my $slot_name = $env{'form.slotname'};
759:
760: my ($cnum,$cdom)=&get_course();
761:
762: my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
763: "^$slot_name\0");
1.147 raeburn 764:
1.55 albertel 765: $r->print('<p>'.&mt('Releasing reservations').'</p>');
766:
767: foreach my $entry (sort { $consumed{$a}{'name'} cmp
768: $consumed{$b}{'name'} } (keys(%consumed))) {
1.57 albertel 769: my ($uname,$udom) = split(':',$consumed{$entry}{'name'});
1.55 albertel 770: my ($result,$msg) =
771: &release_reservation($slot_name,$uname,$udom,
772: $consumed{$entry}{'symb'},$mgr);
1.85 raeburn 773: if (!$result) {
1.141 raeburn 774: $r->print('<p class="LC_error">'.&mt($msg).'</p>');
1.85 raeburn 775: } else {
1.151 ! raeburn 776: $r->print($msg);
1.85 raeburn 777: }
1.55 albertel 778: $r->rflush();
779: }
780: $r->print('<p><a href="/adm/slotrequest?command=showslots">'.
781: &mt('Return to slot list').'</a></p>');
782: &return_link($r);
783: }
784:
1.5 albertel 785: sub release_slot {
1.33 albertel 786: my ($r,$symb,$slot_name,$inhibit_return_link,$mgr)=@_;
1.6 albertel 787:
788: if ($slot_name eq '') { $slot_name=$env{'form.slotname'}; }
789:
1.33 albertel 790: my ($uname,$udom) = ($env{'user.name'}, $env{'user.domain'});
791: if ($mgr eq 'F'
792: && defined($env{'form.uname'}) && defined($env{'form.udom'})) {
793: ($uname,$udom) = ($env{'form.uname'}, $env{'form.udom'});
794: }
795:
796: if ($mgr eq 'F'
797: && defined($env{'form.symb'})) {
1.71 albertel 798: $symb = &unescape($env{'form.symb'});
1.33 albertel 799: }
1.55 albertel 800:
801: my ($result,$msg) =
802: &release_reservation($slot_name,$uname,$udom,$symb,$mgr);
1.85 raeburn 803: if (!$result) {
1.142 raeburn 804: $r->print('<p class="LC_error">'.&mt($msg).'</p>');
1.85 raeburn 805: } else {
806: $r->print("<p>$msg</p>");
807: }
1.147 raeburn 808:
1.55 albertel 809: if ($mgr eq 'F') {
810: $r->print('<p><a href="/adm/slotrequest?command=showslots">'.
811: &mt('Return to slot list').'</a></p>');
812: }
813:
814: if (!$inhibit_return_link) { &return_link($r); }
815: return $result;
816: }
817:
818: sub release_reservation {
819: my ($slot_name,$uname,$udom,$symb,$mgr) = @_;
1.39 albertel 820: my %slot=&Apache::lonnet::get_slot($slot_name);
1.55 albertel 821: my $description=&get_description($slot_name,\%slot);
1.141 raeburn 822: my $msg;
1.33 albertel 823:
1.39 albertel 824: if ($mgr ne 'F') {
1.43 albertel 825: if ($slot{'starttime'} < time) {
1.141 raeburn 826: return (0,&mt('Not allowed to release Reservation: [_1], as it has already started.',$description));
1.39 albertel 827: }
828: }
1.141 raeburn 829: my $context = $env{'form.context'};
1.80 albertel 830:
1.141 raeburn 831: # get navmap object
1.80 albertel 832: my $navmap=Apache::lonnavmaps::navmap->new;
1.85 raeburn 833: if (!defined($navmap)) {
834: return (0,'error: Unable to determine current status');
835: }
1.141 raeburn 836:
837: my ($cnum,$cdom)=&get_course();
838:
839: # get slot reservations, check if user has reservation
840: my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
841: "^$slot_name\0");
842:
843: #
844: # If release is because of a reservation *change*, symb(s) associated with reservation
845: # being dropped may differ from the current symb.
846: #
847: # We need to get symb(s) from slot_reservations.db, and for each symb, update
848: # the value of the availablestudent parameter, at the appropriate level
849: # (as dictated by the value of the useslots parameter for the symb and user).
850: #
851: # We also delete all entries for the slot being released, for the specific user.
852: #
853:
854: my $conflict;
855:
856: if (($env{'form.command'} eq 'change') && ($slot_name eq $env{'form.releaseslot'}) &&
857: ($env{'form.slotname'} ne $slot_name)) {
858: my %changedto = &Apache::lonnet::get_slot($env{'form.slotname'});
859:
860: # check for conflicts
861: my ($to_uniq_start,$to_uniq_end,$from_uniq_start,$from_uniq_end);
862: if (ref($changedto{'uniqueperiod'}) eq 'ARRAY') {
863: ($to_uniq_start,$to_uniq_end) = @{$changedto{'uniqueperiod'}};
864: }
865: if (ref($slot{'uniqueperiod'}) eq 'ARRAY') {
866: ($from_uniq_start,$from_uniq_end) = @{$slot{'uniqueperiod'}};
867: }
868: my $to_start = $changedto{'starttime'};
869: my $to_end = $changedto{'endtime'};
870: my $from_start = $slot{'starttime'};
871: my $from_end = $slot{'endtime'};
872:
873: if (!
874: ($from_start < $to_uniq_start && $from_end < $to_uniq_start) ||
875: ($from_start > $to_uniq_end && $from_end > $to_uniq_end )) {
876: $conflict = 1;
877: }
878: if (!
879: ($to_start < $from_uniq_start && $to_end < $from_uniq_start) ||
880: ($to_start > $from_uniq_end && $to_end > $from_uniq_end )) {
881: $conflict = 1;
882: }
883:
884: if ($conflict) {
885: my %symbs_for_slot;
886: my (%to_delete,%failed,%released);
887: foreach my $entry (keys(%consumed)) {
888: if ( $consumed{$entry}->{'name'} eq ($uname.':'.$udom) ) {
889: $symbs_for_slot{$consumed{$entry}->{'symb'}} = 1;
890: $to_delete{$entry} = 1;
891: }
892: }
893: if (keys(%to_delete)) {
894: my @removals = keys(%to_delete);
895: if (&Apache::lonnet::del('slot_reservations',\@removals,
896: $cdom,$cnum) eq 'ok') {
897: foreach my $item (keys(%symbs_for_slot)) {
898: my $result = &update_selectable($navmap,$slot_name,$item,$cdom,
899: $cnum,$udom,$uname,$context);
900: if ($result =~ /^error/) {
901: $failed{$item} = 1;
902: } else {
903: $released{$item} = 1;
904: }
905: }
906: }
907: }
908: if (keys(%released)) {
909: $msg = '<span style="font-weight: bold;">'.
910: &mt('Released Reservation: [_1]',$description).'</span> '.
911: &mt('The following items had their reservation status change').':';
912: my (%folders,%pages,%container,%titles);
913: foreach my $item (keys(%released)) {
914: my $res = $navmap->getBySymb($item);
915: if (ref($res)) {
916: $titles{$item} = $res->title();
917: if ($res->is_map()) {
918: $folders{$item}{'title'} = $titles{$item};
919: if ($res->is_page()) {
920: $pages{$item}{'title'} = $titles{$item};
921: } else {
922: $folders{$item}{'title'} = $titles{$item};
923: }
924: } else {
925: my $mapsrc = $res->enclosing_map_src();
926: my $map = $navmap->getResourceByUrl($mapsrc);
927: if (ref($map)) {
928: if ($map->id() eq '0.0') {
929: $container{$mapsrc}{'title'} &mt('Top level of course');
930: } else {
931: $container{$mapsrc}{'title'} = $map->title();
932: if ($map->is_page()) {
933: $container{$mapsrc}{'page'} = 1;
934: }
935: }
936: }
937: $container{$mapsrc}{'resources'}{$item} = 1;
938: }
939: }
940: }
941: $msg .= '<ul>';
942: if (keys(%folders)) {
943: $msg .= '<li>'.&mt('Folders').': '.
944: join(', ', map { $folders{$_}{'title'} } (sort { $folders{$b}{'title'} cmp $folders{$a}{'title'} } (keys(%folders)))).
945: '</li>';
946: }
947: if (keys(%pages)) {
948: $msg .= '<li>'.&mt('Composite Pages').': '.
949: join(', ', map { $pages{$_}{'title'} } (sort { $pages{$b}{'title'} cmp $pages{$a}{'title'} } (keys(%pages)))).
950: '</li>';
951: }
952: if (keys(%container)) {
953: $msg .= '<li>'.&mt('Resources').':<ul>';
954: foreach my $key (sort { $container{$b}{'title'} cmp $container{$a}{'title'} } (keys(%container))) {
955: if (ref($container{$key}{'resources'}) eq 'HASH') {
956: $msg .= '<li>'.
957: join(', ', map { $titles{$_} } (sort(keys(%{$container{$key}{'resources'}}))));
958: if ($container{$key}{'page'}) {
959: $msg .= ' '.&mt('(in composite page [_1])',$container{$key}{'title'}).'</li>';
960: } else {
961: $msg .= ' '.&mt('(in folder [_1])',$container{$key}{'title'}).'</li>';
962: }
963: }
964: }
965: $msg .= '</ul></li>';
966: }
967: $msg .= '</ul>';
968: my $person = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
969: my $subject = &mt('Reservation change: [_1]',$description);
970: my $msgbody = &mt('Reservation released by [_1] for [_2].',$person,$description);
971: $msg .= &slot_change_messaging($slot{'reservationmsg'},$subject,$msgbody,'release');
972: return (1,$msg);
973: } else {
974: if (keys(%to_delete)) {
975: $msg = &mt('Reservation release partially complete for [_1]',$description);
1.142 raeburn 976: } else {
1.141 raeburn 977: $msg = &mt('No entries found for this user to release for [_1].',$description);
978: }
979: return (0,$msg);
980: }
981: } else {
982: $msg = &mt('No conflict found; not releasing: [_1].',$description);
983: return (0,$msg);
984: }
985: }
986:
987: my $map_symb;
988: my $parm_symb = $symb;
1.80 albertel 989: my $passed_resource = $navmap->getBySymb($symb);
1.141 raeburn 990:
991: # if the reservation symb is for a map get a resource in that map
992: # to check slot parameters on
993: my $parm_level = 1;
1.123 raeburn 994: if (ref($passed_resource)) {
995: if ($passed_resource->is_map()) {
996: my ($a_resource) =
997: $navmap->retrieveResources($passed_resource,
1.141 raeburn 998: sub {$_[0]->is_problem() || $_[0]->is_tool() },0,1);
999: $parm_symb = $a_resource->symb();
1.123 raeburn 1000: }
1001: } else {
1002: unless ($mgr eq 'F') {
1003: return (0,'error: Unable to determine current status');
1004: }
1.80 albertel 1005: }
1006:
1.141 raeburn 1007: # Get value of useslots parameter in effect for this user.
1008: # If value is map or map_map, then the parm level is 2 (i.e.,
1009: # non-recursive enclosing map/folder level for specific user)
1010: # and the symb for this reservation in slot_reservations.db
1011: # will be the symb of the map itself.
1012:
1013: my $use_slots = &Apache::lonnet::EXT('resource.0.useslots',
1014: $parm_symb,$udom,$uname);
1015: if (&Apache::lonnet::error($use_slots)) {
1016: return (0,'error: Unable to determine current status');
1017: }
1018: if ($use_slots eq 'map' || $use_slots eq 'map_map') {
1019: $parm_level = 2;
1020: if ($passed_resource->is_map()) {
1021: $map_symb = $passed_resource->symb();
1022: } else {
1023: my ($map) = &Apache::lonnet::decode_symb($symb);
1024: $map_symb = &Apache::lonnet::symbread($map);
1025: }
1026: }
1027:
1028: #
1029: # If release is *not* because of a reservation change, i.e., this is a "drop"
1.142 raeburn 1030: # by a student, or a removal for a single student by an instructor then
1.141 raeburn 1031: # only remove one entry from slot_reservations.db, where both the user
1032: # and the symb match the current context. If useslots was set to map or
1033: # map_map, then the symb to match in slot_reservations.db is the symb of
1034: # the enclosing map/folder, not the symb of the resource.
1035: #
1036:
1037: my ($match,$symb_to_check);
1038: if ($parm_level == 2) {
1039: $symb_to_check = $map_symb;
1040: } else {
1.142 raeburn 1041: $symb_to_check = $parm_symb;
1.141 raeburn 1042: }
1043: foreach my $entry (keys(%consumed)) {
1044: if ( $consumed{$entry}->{'name'} eq ($uname.':'.$udom) ) {
1045: if ($consumed{$entry}->{'symb'} eq $symb_to_check) {
1046: if (&Apache::lonnet::del('slot_reservations',[$entry],
1047: $cdom,$cnum) eq 'ok') {
1048: $match = $symb_to_check;
1049: }
1050: last;
1051: }
1052: }
1053: }
1054: if ($match) {
1055: if (&update_selectable($navmap,$slot_name,$symb,$cdom,
1056: $cnum,$udom,$uname,$context) =~ /^error/) {
1057: if ($mgr eq 'F') {
1058: $msg = &mt('Reservation release partially complete for: [_1]',"$uname:$udom").'<br />'.
1.142 raeburn 1059: &mt('Update of availablestudent parameter for [_1] was not completed.',"$uname:$udom");
1.141 raeburn 1060: } else {
1061: $msg = &mt('Release partially complete for: [_1]',$description);
1062: }
1063: return (0,$msg);
1064: } else {
1065: if ($mgr eq 'F') {
1.142 raeburn 1066: $msg = &mt('Released Reservation for user: [_1]',"$uname:$udom");
1.141 raeburn 1067: } else {
1.151 ! raeburn 1068: $msg = '<p style="font-weight: bold;">'.
! 1069: &mt('Released reservation: [_1]',$description).'</p>';
1.141 raeburn 1070: my $person = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
1071: my $subject = &mt('Reservation change: [_1]',$description);
1072: my $msgbody = &mt('Reservation released by [_1] for [_2].',$person,$description);
1073: $msg .= &slot_change_messaging($slot{'reservationmsg'},$subject,$msgbody,'release');
1074: }
1075: return (1,$msg);
1076: }
1077: } else {
1078: $msg = &mt('Release failed for: [_1]',$description);
1079: return (0,$msg);
1080: }
1081: }
1082:
1083: sub update_selectable {
1084: my ($navmap,$slot_name,$symb,$cdom,$cnum,$udom,$uname,$context) = @_;
1085: return 'error: ' unless (ref($navmap));
1086: my $symb_for_parm = $symb;
1087: my $passed_resource = $navmap->getBySymb($symb);
1088: return 'error: invalid symb' unless (ref($passed_resource));
1.33 albertel 1089:
1.141 raeburn 1090: # if the reservation symb is for a map get a resource in that map
1091: # to check slot parameters on
1092: if ($passed_resource->is_map()) {
1093: my ($a_resource) =
1094: $navmap->retrieveResources($passed_resource,
1095: sub {$_[0]->is_problem() || $_[0]->is_tool() },0,1);
1096: $symb_for_parm = $a_resource->symb();
1.6 albertel 1097: }
1.141 raeburn 1098: # get parameter string, check for existence, rebuild string with the slot
1099: my $student = &Apache::lonnet::EXT('resource.0.availablestudent',
1100: $symb_for_parm,$udom,$uname);
1.5 albertel 1101:
1.140 raeburn 1102: # Get value of useslots parameter in effect for this user.
1103: # If value is map or map_map, then the parm level is 2 (i.e.,
1104: # non-recursive enclosing map/folder level for specific user)
1105: # and the symb for this reservation in slot_reservations.db
1106: # will be the symb of the map itself.
1107:
1.141 raeburn 1108: my $use_slots = &Apache::lonnet::EXT('resource.0.useslots',
1109: $symb_for_parm,$udom,$uname);
1.140 raeburn 1110: &Apache::lonxml::debug("use_slots is $use_slots<br />");
1111:
1112: if (&Apache::lonnet::error($use_slots)) {
1.141 raeburn 1113: return 'error: Unable to determine current status';
1.140 raeburn 1114: }
1115:
1116: my $parm_level = 1;
1117: if ($use_slots eq 'map' || $use_slots eq 'map_map') {
1118: $parm_level = 2;
1119: }
1120:
1.141 raeburn 1121: my @slots = split(/:/,$student);
1.55 albertel 1122:
1.141 raeburn 1123: my @new_slots;
1124: foreach my $exist_slot (@slots) {
1125: next if ($exist_slot eq $slot_name);
1126: push(@new_slots,$exist_slot);
1.6 albertel 1127: }
1.141 raeburn 1128: my $new_value = join(':',@new_slots);
1.33 albertel 1129:
1.141 raeburn 1130: my $result = &store_slot_parm($symb_for_parm,$symb,$slot_name,$parm_level,
1131: $new_value,$cnum,$cdom,$uname,$udom,'release',
1132: $context,1);
1133: return $result;
1.5 albertel 1134: }
1135:
1.34 albertel 1136: sub delete_slot {
1137: my ($r)=@_;
1138:
1139: my $slot_name = $env{'form.slotname'};
1140: my %slot=&Apache::lonnet::get_slot($slot_name);
1141:
1142: my ($cnum,$cdom)=&get_course();
1143: my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
1144: "^$slot_name\0");
1.38 albertel 1145: my ($tmp) = %consumed;
1146: if ($tmp =~ /error: 2/) { undef(%consumed); }
1.34 albertel 1147:
1148: if (%slot && !%consumed) {
1149: $slot{'type'} = 'deleted';
1150: my $ret = &Apache::lonnet::cput('slots', {$slot_name => \%slot},
1151: $cdom, $cnum);
1152: if ($ret eq 'ok') {
1.87 raeburn 1153: $r->print('<p>'.&mt('Slot [_1] marked as deleted.','<tt>'.$slot_name.'</tt>').'</p>');
1.34 albertel 1154: } else {
1.142 raeburn 1155: $r->print('<p class="LC_error">'.&mt('An error occurred when attempting to delete slot: [_1]','<tt>'.$slot_name.'</tt>')." ($ret)</p>");
1.34 albertel 1156: }
1157: } else {
1158: if (%consumed) {
1.87 raeburn 1159: $r->print('<p>'.&mt('Slot [_1] has active reservations.','<tt>'.$slot_name.'</tt>').'</p>');
1.34 albertel 1160: } else {
1.87 raeburn 1161: $r->print('<p>'.&mt('Slot [_1] does not exist.','<tt>'.$slot_name.'</tt>').'</p>');
1.34 albertel 1162: }
1163: }
1164: $r->print('<p><a href="/adm/slotrequest?command=showslots">'.
1165: &mt('Return to slot list').'</a></p>');
1.42 albertel 1166: &return_link($r);
1.34 albertel 1167: }
1168:
1.40 albertel 1169: sub return_link {
1170: my ($r) = @_;
1.145 raeburn 1171: my $target = &return_target();
1.91 raeburn 1172: if (($env{'form.command'} eq 'manageresv') || ($env{'form.context'} eq 'usermanage')) {
1.145 raeburn 1173: $r->print('<p><a href="/adm/slotrequest?command=manageresv" target="'.$target.'">'.
1.147 raeburn 1174: &mt('Return to reservations').'</a></p>');
1.91 raeburn 1175: } else {
1.145 raeburn 1176: $r->print('<p><a href="/adm/flip?postdata=return:" target="'.$target.'">'.
1.91 raeburn 1177: &mt('Return to last resource').'</a></p>');
1178: }
1.40 albertel 1179: }
1180:
1.145 raeburn 1181: sub return_target {
1182: my ($target,$ltitarget,$deeplinktarget);
1183: if ($env{'request.lti.login'}) {
1184: $ltitarget = $env{'request.lti.target'};
1185: }
1186: if ($env{'request.deeplink.login'}) {
1187: $deeplinktarget = $env{'request.deeplink.target'};
1188: }
1189: if (($ltitarget eq 'iframe') || ($deeplinktarget eq '_self')) {
1190: $target = '_self';
1191: } else {
1192: $target = '_top';
1193: }
1194: return $target;
1195: }
1196:
1.3 albertel 1197: sub get_slot {
1.75 albertel 1198: my ($r,$symb,$conflictable_slot,$inhibit_return_link)=@_;
1.3 albertel 1199:
1.43 albertel 1200: my %slot=&Apache::lonnet::get_slot($env{'form.slotname'});
1201: my $slot_name=&check_for_conflict($symb,$env{'form.slotname'},\%slot);
1.40 albertel 1202:
1203: if ($slot_name =~ /^error: (.*)/) {
1.142 raeburn 1204: $r->print('<p class="LC_error">'
1.82 bisitz 1205: .&mt('An error occurred while attempting to make a reservation. ([_1])',$1)
1.142 raeburn 1206: .'</p>');
1.40 albertel 1207: &return_link($r);
1.75 albertel 1208: return 0;
1.40 albertel 1209: }
1.75 albertel 1210: if ($slot_name && $slot_name ne $conflictable_slot) {
1.5 albertel 1211: my %slot=&Apache::lonnet::get_slot($slot_name);
1.6 albertel 1212: my $description1=&get_description($slot_name,\%slot);
1.138 raeburn 1213: my $slottype1=$slot{'type'};
1.6 albertel 1214: %slot=&Apache::lonnet::get_slot($env{'form.slotname'});
1215: my $description2=&get_description($env{'form.slotname'},\%slot);
1.138 raeburn 1216: if ($slottype1 eq 'preassigned') {
1217: $r->print('<p>'.&mt('You already have a reservation: "[_1]", assigned by your instructor.',
1218: $description1).'</p>'.
1219: '<p>'.&mt('Your instructor must unassign it before you can make a new reservation.').
1220: '</p>');
1221: } elsif ($slot_name ne $env{'form.slotname'}) {
1.7 albertel 1222: $r->print(<<STUFF);
1.64 albertel 1223: <form method="post" action="/adm/slotrequest">
1.6 albertel 1224: <input type="hidden" name="symb" value="$env{'form.symb'}" />
1225: <input type="hidden" name="slotname" value="$env{'form.slotname'}" />
1226: <input type="hidden" name="releaseslot" value="$slot_name" />
1227: <input type="hidden" name="command" value="change" />
1228: STUFF
1.110 raeburn 1229: $r->print('<p class="LC_error">'.&mt('Reservation currently unchanged').'</p>');
1.109 raeburn 1230: if ($slot_name ne '') {
1.110 raeburn 1231: $r->print('<p>'.&mt('To complete the transaction you [_1]must confirm[_2] you want to [_3]process the change[_4] to [_5].'
1232: ,'<b>','</b>','<i>','</i>','<b>'.$description2.'</b>')
1233: .'<br />'
1234: .&mt('Or you can choose to [_1]make no change[_2] and continue[_2] with the reservation you already had: [_3].'
1235: ,'<i>','</i>','<b>'.$description1.'</b>')
1236: .'</p><p><span class="LC_nobreak">'
1237: .'<input type="submit" name="change" value="'.&mt('Process the change').'" />'
1238: .(' 'x3)
1239: .'<input type="submit" name="nochange" value="'.&mt('Make no change').'" />'
1240: .'</span></p>');
1.109 raeburn 1241: }
1.7 albertel 1242: $r->print(<<STUFF);
1.6 albertel 1243: </form>
1244: STUFF
1.7 albertel 1245: } else {
1.109 raeburn 1246: $r->print('<p>'.&mt('Already have a reservation: [_1].',$description1).'</p>');
1.40 albertel 1247: &return_link($r);
1.7 albertel 1248: }
1.75 albertel 1249: return 0;
1.5 albertel 1250: }
1.45 albertel 1251:
1.89 raeburn 1252: my ($cnum,$cdom)=&get_course();
1.3 albertel 1253: my $reserved=&make_reservation($env{'form.slotname'},
1.89 raeburn 1254: \%slot,$symb,$cnum,$cdom);
1.3 albertel 1255: my $description=&get_description($env{'form.slotname'},\%slot);
1.7 albertel 1256: if (defined($reserved)) {
1.75 albertel 1257: my $retvalue = 0;
1.40 albertel 1258: if ($slot_name =~ /^error: (.*)/) {
1.142 raeburn 1259: $r->print('<p class="LC_error">'
1.82 bisitz 1260: .&mt('An error occurred while attempting to make a reservation. ([_1])',$1)
1.142 raeburn 1261: .'</p>');
1.40 albertel 1262: } elsif ($reserved > -1) {
1.109 raeburn 1263: $r->print('<p style="font-weight: bold;">'.&mt('Successfully signed up: [_1]',$description).'</p>');
1.75 albertel 1264: $retvalue = 1;
1.109 raeburn 1265: my $person = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
1266: my $subject = &mt('Reservation change: [_1]',$description);
1267: my $msgbody = &mt('Successful reservation by [_1] for [_2].',$person,$description);
1268: my $msg = &slot_change_messaging($slot{'reservationmsg'},$subject,$msgbody,'reserve');
1269: if ($msg) {
1270: $r->print($msg);
1271: }
1.7 albertel 1272: } elsif ($reserved < 0) {
1.87 raeburn 1273: $r->print('<p>'.&mt('Already reserved: [_1]',$description).'</p>');
1.7 albertel 1274: }
1.75 albertel 1275: if (!$inhibit_return_link) { &return_link($r); }
1276: return 1;
1.3 albertel 1277: }
1278:
1.90 bisitz 1279: my %lt = &Apache::lonlocal::texthash(
1.120 bisitz 1280: 'request' => 'Availability list',
1.90 bisitz 1281: 'try' => 'Try again?',
1282: 'or' => 'or',
1283: );
1.3 albertel 1284:
1.75 albertel 1285: my $extra_input;
1286: if ($conflictable_slot) {
1287: $extra_input='<input type="hidden" name="releaseslot" value="'.$env{'form.slotname'}.'" />';
1288: }
1289:
1.87 raeburn 1290: $r->print('<p>'.&mt('[_1]Failed[_2] to reserve a slot for [_3].','<span class="LC_warning">','</span>',$description).'</p>');
1.3 albertel 1291: $r->print(<<STUFF);
1292: <p>
1.64 albertel 1293: <form method="post" action="/adm/slotrequest">
1.3 albertel 1294: <input type="submit" name="Try Again" value="$lt{'try'}" />
1295: <input type="hidden" name="symb" value="$env{'form.symb'}" />
1296: <input type="hidden" name="slotname" value="$env{'form.slotname'}" />
1.75 albertel 1297: <input type="hidden" name="command" value="$env{'form.command'}" />
1298: $extra_input
1.3 albertel 1299: </form>
1300: </p>
1301: <p>
1.87 raeburn 1302: $lt{'or'}
1.64 albertel 1303: <form method="post" action="/adm/slotrequest">
1.3 albertel 1304: <input type="hidden" name="symb" value="$env{'form.symb'}" />
1305: <input type="submit" name="requestattempt" value="$lt{'request'}" />
1306: </form>
1307: STUFF
1.42 albertel 1308:
1.87 raeburn 1309: if (!$inhibit_return_link) {
1.98 raeburn 1310: $r->print(&mt('or').'</p>');
1311: &return_link($r);
1.87 raeburn 1312: } else {
1313: $r->print('</p>');
1314: }
1.75 albertel 1315: return 0;
1.3 albertel 1316: }
1317:
1318: sub allowed_slot {
1.122 raeburn 1319: my ($slot_name,$slot,$symb,$slots,$consumed_uniqueperiods,$toskip)=@_;
1.49 albertel 1320:
1.3 albertel 1321: #already started
1322: if ($slot->{'starttime'} < time) {
1.76 albertel 1323: return 0;
1.3 albertel 1324: }
1.5 albertel 1325: &Apache::lonxml::debug("$slot_name starttime good");
1.49 albertel 1326:
1.3 albertel 1327: #already ended
1328: if ($slot->{'endtime'} < time) {
1329: return 0;
1330: }
1.5 albertel 1331: &Apache::lonxml::debug("$slot_name endtime good");
1.49 albertel 1332:
1.3 albertel 1333: # not allowed to pick this one
1334: if (defined($slot->{'type'})
1335: && $slot->{'type'} ne 'schedulable_student') {
1336: return 0;
1337: }
1.5 albertel 1338: &Apache::lonxml::debug("$slot_name type good");
1.49 albertel 1339:
1.53 albertel 1340: # reserve time not yet started
1341: if ($slot->{'startreserve'} > time) {
1342: return 0;
1343: }
1.111 raeburn 1344: # reserve time ended
1345: if (($slot->{'endreserve'}) &&
1346: ($slot->{'endreserve'} < time)) {
1347: return 0;
1.147 raeburn 1348: }
1.53 albertel 1349: &Apache::lonxml::debug("$slot_name reserve good");
1350:
1.50 albertel 1351: my $userallowed=0;
1.49 albertel 1352: # its for a different set of users
1.50 albertel 1353: if (defined($slot->{'allowedsections'})) {
1354: if (!defined($env{'request.role.sec'})
1355: && grep(/^No section assigned$/,
1356: split(',',$slot->{'allowedsections'}))) {
1357: $userallowed=1;
1358: }
1359: if (defined($env{'request.role.sec'})
1360: && grep(/^\Q$env{'request.role.sec'}\E$/,
1361: split(',',$slot->{'allowedsections'}))) {
1362: $userallowed=1;
1363: }
1.68 albertel 1364: if (defined($env{'request.course.groups'})) {
1365: my @groups = split(/:/,$env{'request.course.groups'});
1366: my @allowed_sec = split(',',$slot->{'allowedsections'});
1367: foreach my $group (@groups) {
1368: if (grep {$_ eq $group} (@allowed_sec)) {
1369: $userallowed=1;
1370: last;
1371: }
1372: }
1373: }
1.49 albertel 1374: }
1.50 albertel 1375: &Apache::lonxml::debug("$slot_name sections is $userallowed");
1.49 albertel 1376:
1377: # its for a different set of users
1.50 albertel 1378: if (defined($slot->{'allowedusers'})
1379: && grep(/^\Q$env{'user.name'}:$env{'user.domain'}\E$/,
1380: split(',',$slot->{'allowedusers'}))) {
1381: $userallowed=1;
1.49 albertel 1382: }
1.51 albertel 1383:
1384: if (!defined($slot->{'allowedusers'})
1385: && !defined($slot->{'allowedsections'})) {
1386: $userallowed=1;
1387: }
1388:
1.50 albertel 1389: &Apache::lonxml::debug("$slot_name user is $userallowed");
1390: return 0 if (!$userallowed);
1.49 albertel 1391:
1.3 albertel 1392: # not allowed for this resource
1.126 raeburn 1393: if (defined($slot->{'symb'})) {
1394: my $exclude = 1;
1.130 raeburn 1395: my @symbs;
1396: if ($slot->{'symb'} =~ /,/) {
1397: @symbs = split(/\s*,\s*/,$slot->{'symb'});
1398: } else {
1399: @symbs = ($slot->{'symb'});
1400: }
1401: my ($map,$id,$url) = &Apache::lonnet::decode_symb($symb);
1402: foreach my $reqsymb (@symbs) {
1403: next if ($reqsymb eq '');
1404: my ($slotmap,$slotid,$sloturl) = &Apache::lonnet::decode_symb($reqsymb);
1405: if ($sloturl=~/\.(page|sequence)$/) {
1406: if (($map ne '') && ($map eq $sloturl)) {
1407: $exclude = 0;
1408: last;
1409: }
1410: } elsif ($reqsymb eq $symb) {
1.126 raeburn 1411: $exclude = 0;
1.130 raeburn 1412: last;
1.126 raeburn 1413: }
1414: }
1415: if ($exclude) {
1416: unless ((ref($toskip) eq 'HASH') && ($toskip->{'symb'})) {
1417: return 0;
1418: }
1.122 raeburn 1419: }
1.3 albertel 1420: }
1.50 albertel 1421:
1.48 albertel 1422: my $conflict = &check_for_conflict($symb,$slot_name,$slot,$slots,
1423: $consumed_uniqueperiods);
1.85 raeburn 1424: if ($conflict =~ /^error: /) {
1425: return 0;
1.86 raeburn 1426: } elsif ($conflict ne '') {
1.44 albertel 1427: if ($slots->{$conflict}{'starttime'} < time) {
1428: return 0;
1429: }
1430: }
1.5 albertel 1431: &Apache::lonxml::debug("$slot_name symb good");
1.3 albertel 1432: return 1;
1.2 albertel 1433: }
1434:
1.3 albertel 1435: sub get_description {
1436: my ($slot_name,$slot)=@_;
1437: my $description=$slot->{'description'};
1438: if (!defined($description)) {
1.4 albertel 1439: $description=&mt('[_1] From [_2] to [_3]',$slot_name,
1.3 albertel 1440: &Apache::lonlocal::locallocaltime($slot->{'starttime'}),
1441: &Apache::lonlocal::locallocaltime($slot->{'endtime'}));
1442: }
1443: return $description;
1444: }
1.2 albertel 1445:
1446: sub show_choices {
1.127 raeburn 1447: my ($symb,$formname,$num,$class,$slots,$consumed_uniqueperiods,$available,$got_slots)=@_;
1.122 raeburn 1448: my $output;
1.5 albertel 1449: &Apache::lonxml::debug("Checking Slots");
1.122 raeburn 1450: if (!ref($available) eq 'ARRAY') {
1.85 raeburn 1451: return;
1452: }
1.122 raeburn 1453: if (!@{$available}) {
1.151 ! raeburn 1454: $output = '<p class="LC_info">'.&mt('No available times.').'</p>';
1.91 raeburn 1455: if ($env{'form.command'} ne 'manageresv') {
1.145 raeburn 1456: my $target = &return_target();
1457: $output .= ' <a href="/adm/flip?postdata=return:" target="'.$target.'">'.
1.91 raeburn 1458: &mt('Return to last resource').'</a>';
1459: }
1.127 raeburn 1460: if ($class) {
1461: return '<div class="'.$class.'">'.$output.'</div>';
1462: } else {
1463: return $output;
1464: }
1.151 ! raeburn 1465: } elsif ($env{'form.command'} ne 'manageresv') {
! 1466: my $title = &Apache::lonnet::gettitle($symb);
! 1467: my $headertext = &mt('Manage Reservation(s) for [_1]',$title);
! 1468: $output .= '<h2 class="LC_heading_3">'.$headertext.'</h2>';
1.91 raeburn 1469: }
1.122 raeburn 1470: if (@{$available} > 1) {
1471: my $numavailable = scalar(@{$available});
1472: my $numreserved = 0;
1473: my $js;
1474: my $j = 0;
1475: foreach my $got (@{$got_slots}) {
1476: unless (($got eq '') || (!defined($got))) {
1477: $numreserved ++;
1478: if ($env{'form.command'} eq 'manageresv') {
1479: $js .= " currslot[$j]='$got';\n";
1480: $j++;
1481: }
1482: }
1483: }
1484: my $showfilter = 'none';
1.149 raeburn 1485: $output .= '<fieldset><legend>'.&mt('Actions').':</legend>'."\n".
1.122 raeburn 1486: '<form method="post" name="reservationdisplay_'.$num.
1487: '" action="" onsubmit="toggleSlotDisplay(this.form,'."'$num'".');">';
1488: my @options = ('all','filter');
1489: if ($numreserved) {
1490: unshift(@options,'show');
1491: }
1492: my %resmenu = &Apache::lonlocal::texthash (
1493: show => 'Show current reservation',
1494: all => 'Show all',
1495: filter => 'Search by date',
1496: );
1497: foreach my $option (@options) {
1498: my $onclick = "toggleSlotDisplay(this.form,'$num');";
1.147 raeburn 1499: if (($option eq 'show') && ($env{'form.command'} eq 'manageresv')) {
1.122 raeburn 1500: $onclick .= "currSlotDisplay$num(this.form,'$num');";
1501: }
1502: $output .= '<span class="LC_nobreak"><label>'.
1503: '<input type="radio" class="LC_slotpick_radio" name="slotpick" value="'.
1504: $option.'" onclick="'.$onclick.'" />'.
1505: $resmenu{$option}.
1506: '</label></span>'.(' ' x3)."\n";
1507: }
1508: $output .= '</form>';
1509: my $chooserform = 'reservationchooser_'.$num;
1510: my $starttime = $slots->{$available->[0]}->{'starttime'};
1511: my $endtime = $slots->{$available->[-1]}->{'starttime'};
1512: if ($env{'form.command'} eq 'manageresv') {
1513: $output .= <<"ENDSCRIPT";
1514:
1515: <script type="text/javascript">
1516: // <![CDATA[
1517: function currSlotDisplay$num() {
1518: var currslot = new Array($numreserved);
1.147 raeburn 1519: $js
1.122 raeburn 1520: for (var j=0; j<$numreserved; j++) {
1521: if (document.getElementById('LC_slotrow_$num\_'+currslot[j])) {
1522: document.getElementById('LC_slotrow_$num\_'+currslot[j]).style.display = '';
1523: }
1524: }
1525: }
1526: // ]]>
1527: </script>
1528:
1529: ENDSCRIPT
1530: }
1531: $output .=
1532: '<div id="LC_slotfilter_'.$num.'" style="display:'.$showfilter.'">'.
1533: '<form method="post" name="'.$chooserform.'" action="">'.
1.151 ! raeburn 1534: '<table class="LC_manage_reservations"><tr><th>'.&mt('Open after').'</th><td>'.
1.122 raeburn 1535: &Apache::lonhtmlcommon::date_setter($chooserform,'start',$starttime,'','','','','','','',1,1).
1.151 ! raeburn 1536: '</td></tr><tr><th>'.&mt('Closed before').'</th><td>'.
1.122 raeburn 1537: &Apache::lonhtmlcommon::date_setter($chooserform,'end',$endtime,'','','','','','','',1,1).
1538: '</td></tr></table><br />'.
1539: '<input type="button" name="slotfilter" value="Search for reservable slots" onclick="updateSlotDisplay(this.form,'."'$num'".');" />'.
1540: '</form></div><div id="LC_slotsearch_'.$num.'" style="display:none"><hr />';
1541: }
1.91 raeburn 1542: if ($env{'form.command'} eq 'manageresv') {
1.151 ! raeburn 1543: $output .= '<table border="0" class="LC_manage_reservations">'.
! 1544: '<tr><th>'.&mt('Action').'</th><th>'.&mt('Name').'</th></tr>';
1.91 raeburn 1545: } else {
1.151 ! raeburn 1546: $output .= &Apache::loncommon::start_data_table().
! 1547: &Apache::loncommon::start_data_table_header_row().
! 1548: '<th>'.&mt('Action').'</th><th>'.&mt('Name').'</th>'.
! 1549: &Apache::loncommon::end_data_table_header_row();
1.91 raeburn 1550: }
1.122 raeburn 1551: foreach my $slot (@{$available}) {
1552: my $description=&get_description($slot,$slots->{$slot});
1.91 raeburn 1553: my $form;
1.122 raeburn 1554: if ((grep(/^\Q$slot\E$/,@{$got_slots})) ||
1555: &space_available($slot,$slots->{$slot},$symb)) {
1.5 albertel 1556: my $text=&mt('Select');
1557: my $command='get';
1.122 raeburn 1558: if (grep(/^\Q$slot\E$/,@{$got_slots})) {
1.70 albertel 1559: $text=&mt('Drop Reservation');
1.5 albertel 1560: $command='release';
1.43 albertel 1561: } else {
1.122 raeburn 1562: my $conflict = &check_for_conflict($symb,$slot,$slots->{$slot},
1563: $slots,$consumed_uniqueperiods);
1.85 raeburn 1564: if ($conflict) {
1565: if ($conflict =~ /^error: /) {
1.91 raeburn 1566: $form = '<span class="LC_error">'.
1.122 raeburn 1567: &mt('Slot: [_1] has unknown status.',$description).
1568: '</span>';
1.85 raeburn 1569: } else {
1570: $text=&mt('Change Reservation');
1571: $command='get';
1572: }
1573: }
1.5 albertel 1574: }
1.63 www 1575: my $escsymb=&escape($symb);
1.91 raeburn 1576: if (!$form) {
1.122 raeburn 1577: my $name;
1.91 raeburn 1578: if ($formname) {
1.122 raeburn 1579: $name = 'name="'.$formname.'"';
1.91 raeburn 1580: }
1581: my $context = 'user';
1582: if ($env{'form.command'} eq 'manageresv') {
1583: $context = 'usermanage';
1584: }
1585: $form=<<STUFF;
1.122 raeburn 1586: <form method="post" action="/adm/slotrequest" $name>
1.5 albertel 1587: <input type="submit" name="Select" value="$text" />
1.3 albertel 1588: <input type="hidden" name="symb" value="$escsymb" />
1589: <input type="hidden" name="slotname" value="$slot" />
1.5 albertel 1590: <input type="hidden" name="command" value="$command" />
1.91 raeburn 1591: <input type="hidden" name="context" value="$context" />
1.2 albertel 1592: </form>
1593: STUFF
1.91 raeburn 1594: }
1595: } else {
1596: $form = &mt('Unavailable');
1597: }
1598: if ($env{'form.command'} eq 'manageresv') {
1.122 raeburn 1599: $output .= '<tr id="LC_slotrow_'.$num.'_'.$slot.'" >';
1.91 raeburn 1600: } else {
1.122 raeburn 1601: $output .= &Apache::loncommon::start_data_table_row('','LC_slotrow_'.$num.'_'.$slot);
1.91 raeburn 1602: }
1603: $output .= "
1.2 albertel 1604: <td>$form</td>
1.91 raeburn 1605: <td>$description</td>\n";
1606: if ($env{'form.command'} eq 'manageresv') {
1607: $output .= '</tr>';
1608: } else {
1609: $output .= &Apache::loncommon::end_data_table_row();
1610: }
1.2 albertel 1611: }
1.91 raeburn 1612: if ($env{'form.command'} eq 'manageresv') {
1613: $output .= '</table>';
1614: } else {
1.122 raeburn 1615: $output .= &Apache::loncommon::end_data_table();
1616: }
1617: if (@{$available} > 1) {
1618: $output .= '</div></fieldset>';
1.3 albertel 1619: }
1.127 raeburn 1620: if ($class) {
1621: return '<div class="'.$class.'">'.$output.'</div>';
1622: } else {
1623: return $output;
1624: }
1.2 albertel 1625: }
1626:
1.30 albertel 1627: sub to_show {
1.54 albertel 1628: my ($slotname,$slot,$when,$deleted,$name) = @_;
1.30 albertel 1629: my $time=time;
1630: my $week=60*60*24*7;
1.54 albertel 1631:
1.35 albertel 1632: if ($deleted eq 'hide' && $slot->{'type'} eq 'deleted') {
1633: return 0;
1634: }
1.54 albertel 1635:
1636: if ($name && $name->{'value'} =~ /\w/) {
1637: if ($name->{'type'} eq 'substring') {
1638: if ($slotname !~ /\Q$name->{'value'}\E/) {
1639: return 0;
1640: }
1641: }
1642: if ($name->{'type'} eq 'exact') {
1643: if ($slotname eq $name->{'value'}) {
1644: return 0;
1645: }
1646: }
1647: }
1648:
1.35 albertel 1649: if ($when eq 'any') {
1650: return 1;
1651: } elsif ($when eq 'now') {
1.30 albertel 1652: if ($time > $slot->{'starttime'} &&
1653: $time < $slot->{'endtime'}) {
1654: return 1;
1655: }
1656: return 0;
1657: } elsif ($when eq 'nextweek') {
1658: if ( ($time < $slot->{'starttime'} &&
1659: ($time+$week) > $slot->{'starttime'})
1660: ||
1661: ($time < $slot->{'endtime'} &&
1662: ($time+$week) > $slot->{'endtime'}) ) {
1663: return 1;
1664: }
1665: return 0;
1666: } elsif ($when eq 'lastweek') {
1667: if ( ($time > $slot->{'starttime'} &&
1668: ($time-$week) < $slot->{'starttime'})
1669: ||
1670: ($time > $slot->{'endtime'} &&
1671: ($time-$week) < $slot->{'endtime'}) ) {
1672: return 1;
1673: }
1674: return 0;
1675: } elsif ($when eq 'willopen') {
1676: if ($time < $slot->{'starttime'}) {
1677: return 1;
1678: }
1679: return 0;
1680: } elsif ($when eq 'wereopen') {
1681: if ($time > $slot->{'endtime'}) {
1682: return 1;
1683: }
1684: return 0;
1685: }
1.147 raeburn 1686:
1.30 albertel 1687: return 1;
1688: }
1689:
1.33 albertel 1690: sub remove_link {
1691: my ($slotname,$entry,$uname,$udom,$symb) = @_;
1692:
1.55 albertel 1693: my $remove = &mt('Remove');
1694:
1695: if ($entry eq 'remove all') {
1696: $remove = &mt('Remove All');
1697: undef($uname);
1698: undef($udom);
1699: }
1700:
1.63 www 1701: $slotname = &escape($slotname);
1702: $entry = &escape($entry);
1703: $uname = &escape($uname);
1704: $udom = &escape($udom);
1705: $symb = &escape($symb);
1.33 albertel 1706:
1707: return <<"END_LINK";
1.89 raeburn 1708: <a href="/adm/slotrequest?command=remove_registration&slotname=$slotname&entry=$entry&uname=$uname&udom=$udom&symb=$symb&context=manage"
1.33 albertel 1709: >($remove)</a>
1710: END_LINK
1711:
1712: }
1713:
1.5 albertel 1714: sub show_table {
1.19 albertel 1715: my ($r,$mgr)=@_;
1.5 albertel 1716:
1717: my ($cnum,$cdom)=&get_course();
1.105 raeburn 1718: my $crstype=&Apache::loncommon::course_type($cdom.'_'.$cnum);
1.5 albertel 1719: my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum);
1.19 albertel 1720: if ( (keys(%slots))[0] =~ /^error: 2 /) {
1721: undef(%slots);
1722: }
1.5 albertel 1723: my $available;
1.14 albertel 1724: if ($mgr eq 'F') {
1.30 albertel 1725: $r->print('<div>');
1.64 albertel 1726: $r->print('<form method="post" action="/adm/slotrequest">
1.14 albertel 1727: <input type="hidden" name="command" value="uploadstart" />
1728: <input type="submit" name="start" value="'.&mt('Upload Slot List').'" />
1729: </form>');
1.72 rezaferr 1730: $r->print(&Apache::loncommon::help_open_topic('Slot CommaDelimited'));
1.64 albertel 1731: $r->print('<form method="post" action="/adm/helper/newslot.helper">
1.28 albertel 1732: <input type="submit" name="newslot" value="'.&mt('Create a New Slot').'" />
1733: </form>');
1.143 raeburn 1734: $r->print(&Apache::loncommon::help_open_topic('Slot About'));
1.30 albertel 1735: $r->print('</div>');
1.14 albertel 1736: }
1.91 raeburn 1737:
1738: if (!keys(%slots)) {
1.117 bisitz 1739: $r->print(
1740: '<p class="LC_info">'
1741: .&mt('No slots have been created in this '.lc($crstype).'.')
1742: .'</p>'
1743: );
1.91 raeburn 1744: return;
1745: }
1.147 raeburn 1746:
1.54 albertel 1747: my %Saveable_Parameters = ('show' => 'array',
1748: 'when' => 'scalar',
1749: 'order' => 'scalar',
1750: 'deleted' => 'scalar',
1751: 'name_filter_type' => 'scalar',
1752: 'name_filter_value' => 'scalar',
1.35 albertel 1753: );
1.46 albertel 1754: &Apache::loncommon::store_course_settings('slotrequest',
1755: \%Saveable_Parameters);
1756: &Apache::loncommon::restore_course_settings('slotrequest',
1757: \%Saveable_Parameters);
1758: &Apache::grades::init_perm();
1759: my ($classlist,$section,$fullname)=&Apache::grades::getclasslist('all');
1760: &Apache::grades::reset_perm();
1.29 albertel 1761:
1.54 albertel 1762: # what to display filtering
1.30 albertel 1763: my %show_fields=&Apache::lonlocal::texthash(
1.49 albertel 1764: 'name' => 'Slot Name',
1765: 'description' => 'Description',
1766: 'type' => 'Type',
1767: 'starttime' => 'Start time',
1768: 'endtime' => 'End Time',
1769: 'startreserve' => 'Time students can start reserving',
1.111 raeburn 1770: 'endreserve' => 'Time students can no longer reserve',
1.109 raeburn 1771: 'reservationmsg' => 'Message triggered by reservation',
1.49 albertel 1772: 'secret' => 'Secret Word',
1.74 albertel 1773: 'space' => '# of students/max',
1.49 albertel 1774: 'ip' => 'IP or DNS restrictions',
1.130 raeburn 1775: 'symb' => 'Resource(s)/Map(s) slot is restricted to.',
1.49 albertel 1776: 'allowedsections' => 'Sections slot is restricted to.',
1777: 'allowedusers' => 'Users slot is restricted to.',
1778: 'uniqueperiod' => 'Period of time slot is unique',
1779: 'scheduled' => 'Scheduled Students',
1.131 raeburn 1780: 'proctor' => 'List of proctors',
1781: 'iptied' => 'Unique IP each student',);
1.105 raeburn 1782: if ($crstype eq 'Community') {
1783: $show_fields{'startreserve'} = &mt('Time members can start reserving');
1.111 raeburn 1784: $show_fields{'endreserve'} = &mt('Time members can no longer reserve');
1.105 raeburn 1785: $show_fields{'scheduled'} = &mt('Scheduled Members');
1786: }
1.30 albertel 1787: my @show_order=('name','description','type','starttime','endtime',
1.111 raeburn 1788: 'startreserve','endreserve','reservationmsg','secret','space',
1.131 raeburn 1789: 'ip','iptied','symb','allowedsections','allowedusers','uniqueperiod',
1.49 albertel 1790: 'scheduled','proctor');
1.30 albertel 1791: my @show =
1.29 albertel 1792: (exists($env{'form.show'})) ? &Apache::loncommon::get_env_multiple('form.show')
1.30 albertel 1793: : keys(%show_fields);
1794: my %show = map { $_ => 1 } (@show);
1795:
1.54 albertel 1796: #when filtering setup
1.30 albertel 1797: my %when_fields=&Apache::lonlocal::texthash(
1.35 albertel 1798: 'now' => 'Open now',
1.30 albertel 1799: 'nextweek' => 'Open within the next week',
1800: 'lastweek' => 'Were open last week',
1801: 'willopen' => 'Will open later',
1.35 albertel 1802: 'wereopen' => 'Were open',
1803: 'any' => 'Anytime',
1804: );
1805: my @when_order=('any','now','nextweek','lastweek','willopen','wereopen');
1.30 albertel 1806: $when_fields{'select_form_order'} = \@when_order;
1807: my $when = (exists($env{'form.when'})) ? $env{'form.when'}
1808: : 'now';
1.29 albertel 1809:
1.54 albertel 1810: #display of students setup
1.46 albertel 1811: my %stu_display_fields=
1812: &Apache::lonlocal::texthash('username' => 'User name',
1813: 'fullname' => 'Full name',
1814: );
1815: my @stu_display_order=('fullname','username');
1816: my @stu_display =
1817: (exists($env{'form.studisplay'})) ? &Apache::loncommon::get_env_multiple('form.studisplay')
1818: : keys(%stu_display_fields);
1819: my %stu_display = map { $_ => 1 } (@stu_display);
1820:
1.54 albertel 1821: #name filtering setup
1822: my %name_filter_type_fields=
1823: &Apache::lonlocal::texthash('substring' => 'Substring',
1824: 'exact' => 'Exact',
1825: #'reg' => 'Regular Expression',
1826: );
1827: my @name_filter_type_order=('substring','exact');
1828:
1829: $name_filter_type_fields{'select_form_order'} = \@name_filter_type_order;
1830: my $name_filter_type =
1831: (exists($env{'form.name_filter_type'})) ? $env{'form.name_filter_type'}
1832: : 'substring';
1833: my $name_filter = {'type' => $name_filter_type,
1834: 'value' => $env{'form.name_filter_value'},};
1835:
1.147 raeburn 1836:
1.54 albertel 1837: #deleted slot filtering
1.64 albertel 1838: #default to hide if no value
1839: $env{'form.deleted'} ||= 'hide';
1.35 albertel 1840: my $hide_radio =
1841: &Apache::lonhtmlcommon::radio('deleted',$env{'form.deleted'},'hide');
1842: my $show_radio =
1843: &Apache::lonhtmlcommon::radio('deleted',$env{'form.deleted'},'show');
1844:
1.64 albertel 1845: $r->print('<form method="post" action="/adm/slotrequest">
1.30 albertel 1846: <input type="hidden" name="command" value="showslots" />');
1847: $r->print('<div>');
1.35 albertel 1848: $r->print('<table class="inline">
1.149 raeburn 1849: <tr><th><label for="show">'.&mt('Show').'</label></th>
1850: <th><label for="studisplay">'.&mt('Student Display').'</label></th>
1851: <th><label for="when">'.&mt('Open').'</label></th>
1852: <th><label for="name_filter_type">'.&mt('Slot Name Filter').'</label></th>
1.35 albertel 1853: <th>'.&mt('Options').'</th>
1854: </tr>
1.149 raeburn 1855: <tr><td valign="top">'.&Apache::loncommon::multiple_select_form('show',\@show,6,\%show_fields,\@show_order,'show').
1.35 albertel 1856: '</td>
1.91 raeburn 1857: <td valign="top">
1.46 albertel 1858: '.&Apache::loncommon::multiple_select_form('studisplay',\@stu_display,
1859: 6,\%stu_display_fields,
1.149 raeburn 1860: \@stu_display_order,'studisplay').'
1.46 albertel 1861: </td>
1.149 raeburn 1862: <td valign="top">'.&Apache::loncommon::select_form($when,'when',\%when_fields,'','','when').
1.35 albertel 1863: '</td>
1.149 raeburn 1864: <td valign="top"><span class="LC_nobreak">'.&Apache::loncommon::select_form($name_filter_type,
1.54 albertel 1865: 'name_filter_type',
1.149 raeburn 1866: \%name_filter_type_fields,'','','name_filter_type').
1867: ' '.
1.54 albertel 1868: &Apache::lonhtmlcommon::textbox('name_filter_value',
1869: $env{'form.name_filter_value'},
1.149 raeburn 1870: 15,'aria-label="'.&mt('Name filter').'"').
1871: '</span></td>
1.91 raeburn 1872: <td valign="top">
1.149 raeburn 1873: <fieldset class="LC_delete_slot">
1874: <legend>'.&mt('Deleted slots').'</legend>
1875: <span class="LC_nobreak"><label>'.$show_radio.&mt('Show').'</label>
1876: <label>'.$hide_radio.&mt('Hide').'</label></span>
1877: </fieldset>
1878: </td>
1.35 albertel 1879: </tr>
1880: </table>');
1.30 albertel 1881: $r->print('</div>');
1882: $r->print('<p><input type="submit" name="start" value="'.&mt('Update Display').'" /></p>');
1.21 albertel 1883: my $linkstart='<a href="/adm/slotrequest?command=showslots&order=';
1.133 raeburn 1884: my $tableheader = &Apache::loncommon::start_data_table().
1885: &Apache::loncommon::start_data_table_header_row().'
1.149 raeburn 1886: <th><span class="LC_visually_hidden">'.&mt('Action').'</span></th>';
1.30 albertel 1887: foreach my $which (@show_order) {
1888: if ($which ne 'proctor' && exists($show{$which})) {
1.133 raeburn 1889: $tableheader .= '<th>'.$linkstart.$which.'">'.$show_fields{$which}.'</a></th>';
1.29 albertel 1890: }
1891: }
1.133 raeburn 1892: $tableheader .= &Apache::loncommon::end_data_table_header_row();
1893: my $shownheader = 0;
1.29 albertel 1894:
1.21 albertel 1895: my %name_cache;
1896: my $slotsort = sub {
1.111 raeburn 1897: if ($env{'form.order'}=~/^(type|description|endtime|startreserve|endreserve|ip|symb|allowedsections|allowedusers|reservationmsg)$/) {
1.21 albertel 1898: if (lc($slots{$a}->{$env{'form.order'}})
1899: ne lc($slots{$b}->{$env{'form.order'}})) {
1900: return (lc($slots{$a}->{$env{'form.order'}})
1901: cmp lc($slots{$b}->{$env{'form.order'}}));
1902: }
1.74 albertel 1903: } elsif ($env{'form.order'} eq 'space') {
1904: if ($slots{$a}{'maxspace'} ne $slots{$b}{'maxspace'}) {
1905: return ($slots{$a}{'maxspace'} cmp $slots{$b}{'maxspace'});
1906: }
1.23 albertel 1907: } elsif ($env{'form.order'} eq 'name') {
1908: if (lc($a) cmp lc($b)) {
1909: return lc($a) cmp lc($b);
1910: }
1.29 albertel 1911: } elsif ($env{'form.order'} eq 'uniqueperiod') {
1.147 raeburn 1912:
1.21 albertel 1913: if ($slots{$a}->{'uniqueperiod'}[0]
1914: ne $slots{$b}->{'uniqueperiod'}[0]) {
1915: return ($slots{$a}->{'uniqueperiod'}[0]
1916: cmp $slots{$b}->{'uniqueperiod'}[0]);
1917: }
1918: if ($slots{$a}->{'uniqueperiod'}[1]
1919: ne $slots{$b}->{'uniqueperiod'}[1]) {
1920: return ($slots{$a}->{'uniqueperiod'}[1]
1921: cmp $slots{$b}->{'uniqueperiod'}[1]);
1922: }
1923: }
1924: return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'};
1925: };
1.74 albertel 1926:
1927: my %consumed;
1928: if (exists($show{'scheduled'}) || exists($show{'space'}) ) {
1929: %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum);
1930: my ($tmp)=%consumed;
1931: if ($tmp =~ /^error: /) { undef(%consumed); }
1932: }
1933:
1.109 raeburn 1934: my %msgops = &slot_reservationmsg_options();
1935:
1.21 albertel 1936: foreach my $slot (sort $slotsort (keys(%slots))) {
1.54 albertel 1937: if (!&to_show($slot,$slots{$slot},$when,
1938: $env{'form.deleted'},$name_filter)) { next; }
1.109 raeburn 1939: my $reservemsg;
1.5 albertel 1940: if (defined($slots{$slot}->{'type'})
1.109 raeburn 1941: && $slots{$slot}->{'type'} eq 'schedulable_student') {
1942: $reservemsg = $msgops{$slots{$slot}->{'reservationmsg'}};
1.5 albertel 1943: }
1944: my $description=&get_description($slot,$slots{$slot});
1.74 albertel 1945: my ($id_count,$ids);
1.147 raeburn 1946:
1.74 albertel 1947: if (exists($show{'scheduled'}) || exists($show{'space'}) ) {
1.79 albertel 1948: my $re_str = "$slot\0";
1949: my @this_slot = grep(/^\Q$re_str\E/,keys(%consumed));
1.74 albertel 1950: $id_count = scalar(@this_slot);
1951: if (exists($show{'scheduled'})) {
1.54 albertel 1952: foreach my $entry (sort { $consumed{$a}{name} cmp
1953: $consumed{$b}{name} }
1.79 albertel 1954: (@this_slot)) {
1.47 albertel 1955: my (undef,$id)=split("\0",$entry);
1.57 albertel 1956: my ($uname,$udom) = split(':',$consumed{$entry}{'name'});
1.84 bisitz 1957: $ids.= '<span class="LC_nobreak">';
1.47 albertel 1958: foreach my $item (@stu_display_order) {
1959: if ($stu_display{$item}) {
1960: if ($item eq 'fullname') {
1961: $ids.=$fullname->{"$uname:$udom"}.' ';
1962: } elsif ($item eq 'username') {
1.57 albertel 1963: $ids.="<tt>$uname:$udom</tt> ";
1.47 albertel 1964: }
1.46 albertel 1965: }
1966: }
1.47 albertel 1967: $ids.=&remove_link($slot,$entry,$uname,$udom,
1.84 bisitz 1968: $consumed{$entry}{'symb'}).'</span><br />';
1.46 albertel 1969: }
1.38 albertel 1970: }
1.5 albertel 1971: }
1.33 albertel 1972:
1.24 albertel 1973: my $start=($slots{$slot}->{'starttime'}?
1974: &Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'}):'');
1975: my $end=($slots{$slot}->{'endtime'}?
1976: &Apache::lonlocal::locallocaltime($slots{$slot}->{'endtime'}):'');
1.28 albertel 1977: my $start_reserve=($slots{$slot}->{'startreserve'}?
1.24 albertel 1978: &Apache::lonlocal::locallocaltime($slots{$slot}->{'startreserve'}):'');
1.111 raeburn 1979: my $end_reserve=($slots{$slot}->{'endreserve'}?
1980: &Apache::lonlocal::locallocaltime($slots{$slot}->{'endreserve'}):'');
1.24 albertel 1981:
1.14 albertel 1982: my $unique;
1983: if (ref($slots{$slot}{'uniqueperiod'})) {
1.64 albertel 1984: $unique=localtime($slots{$slot}{'uniqueperiod'}[0]).', '.
1.14 albertel 1985: localtime($slots{$slot}{'uniqueperiod'}[1]);
1986: }
1.33 albertel 1987:
1.130 raeburn 1988: my @titles;
1.29 albertel 1989: if (exists($slots{$slot}{'symb'})) {
1.130 raeburn 1990: my @symbs;
1991: if ($slots{$slot}{'symb'} =~ /,/) {
1992: @symbs = split(/\s*,\s*/,$slots{$slot}{'symb'});
1993: } else {
1994: @symbs = ($slots{$slot}{'symb'});
1995: }
1996: foreach my $reqsymb (@symbs) {
1997: my (undef,undef,$res) =
1998: &Apache::lonnet::decode_symb($reqsymb);
1999: $res = &Apache::lonnet::clutter($res);
2000: my $title = &Apache::lonnet::gettitle($reqsymb);
2001: push(@titles,'<a href="'.$res.'?symb='.$reqsymb.'">'.$title.'</a>');
2002: }
1.29 albertel 2003: }
1.33 albertel 2004:
1.49 albertel 2005: my $allowedsections;
2006: if (exists($show{'allowedsections'})) {
2007: $allowedsections =
2008: join(', ',sort(split(/\s*,\s*/,
2009: $slots{$slot}->{'allowedsections'})));
2010: }
2011:
2012: my @allowedusers;
2013: if (exists($show{'allowedusers'})) {
2014: @allowedusers= map {
2015: my ($uname,$udom)=split(/:/,$_);
2016: my $fullname=$name_cache{$_};
2017: if (!defined($fullname)) {
2018: $fullname = &Apache::loncommon::plainname($uname,$udom);
2019: $fullname =~s/\s/ /g;
2020: $name_cache{$_} = $fullname;
2021: }
2022: &Apache::loncommon::aboutmewrapper($fullname,$uname,$udom);
2023: } (sort(split(/\s*,\s*/,$slots{$slot}->{'allowedusers'})));
2024: }
2025: my $allowedusers=join(', ',@allowedusers);
2026:
1.29 albertel 2027: my @proctors;
2028: my $rowspan=1;
2029: my $colspan=1;
1.30 albertel 2030: if (exists($show{'proctor'})) {
1.29 albertel 2031: $rowspan=2;
2032: @proctors= map {
1.62 albertel 2033: my ($uname,$udom)=split(/:/,$_);
1.29 albertel 2034: my $fullname=$name_cache{$_};
2035: if (!defined($fullname)) {
2036: $fullname = &Apache::loncommon::plainname($uname,$udom);
2037: $fullname =~s/\s/ /g;
2038: $name_cache{$_} = $fullname;
2039: }
2040: &Apache::loncommon::aboutmewrapper($fullname,$uname,$udom);
2041: } (sort(split(/\s*,\s*/,$slots{$slot}->{'proctor'})));
2042: }
1.20 albertel 2043: my $proctors=join(', ',@proctors);
1.14 albertel 2044:
1.91 raeburn 2045: my %lt = &Apache::lonlocal::texthash (
2046: edit => 'Edit',
2047: delete => 'Delete',
2048: slotlog => 'History',
2049: );
1.133 raeburn 2050: my ($edit,$delete,$showlog,$remove_all);
1.134 raeburn 2051: if ($mgr) {
1.133 raeburn 2052: $edit=(<<"EDITLINK");
1.149 raeburn 2053: <p class="LC_medium_line"><a href="/adm/helper/newslot.helper?name=$slot">$lt{'edit'}</a></p>
1.31 albertel 2054: EDITLINK
1.34 albertel 2055:
1.133 raeburn 2056: $delete=(<<"DELETELINK");
1.149 raeburn 2057: <p class="LC_medium_line"><a href="/adm/slotrequest?command=delete&slotname=$slot">$lt{'delete'}</a></p>
1.34 albertel 2058: DELETELINK
1.55 albertel 2059:
1.133 raeburn 2060: $remove_all=&remove_link($slot,'remove all').'<br />';
2061:
2062: if ($ids eq '') {
2063: undef($remove_all);
2064: } else {
2065: undef($delete);
2066: }
2067: }
2068:
2069: $showlog=(<<"LOGLINK");
1.149 raeburn 2070: <p class="LC_medium_line"><a href="/adm/slotrequest?command=slotlog&slotname=$slot">$lt{'slotlog'}</a></p>
1.91 raeburn 2071: LOGLINK
2072:
1.93 raeburn 2073: if ($slots{$slot}{'type'} ne 'schedulable_student') {
2074: undef($showlog);
1.55 albertel 2075: undef($remove_all);
2076: }
1.34 albertel 2077:
1.133 raeburn 2078: unless ($shownheader) {
2079: $r->print($tableheader);
2080: $shownheader = 1;
2081: }
2082:
1.65 albertel 2083: my $row_start=&Apache::loncommon::start_data_table_row();
2084: my $row_end=&Apache::loncommon::end_data_table_row();
2085: $r->print($row_start.
1.91 raeburn 2086: "\n<td rowspan=\"$rowspan\">$edit $delete $showlog</td>\n");
1.30 albertel 2087: if (exists($show{'name'})) {
1.29 albertel 2088: $colspan++;$r->print("<td>$slot</td>");
2089: }
1.33 albertel 2090: if (exists($show{'description'})) {
2091: $colspan++;$r->print("<td>$description</td>\n");
2092: }
1.30 albertel 2093: if (exists($show{'type'})) {
1.29 albertel 2094: $colspan++;$r->print("<td>$slots{$slot}->{'type'}</td>\n");
2095: }
1.30 albertel 2096: if (exists($show{'starttime'})) {
1.29 albertel 2097: $colspan++;$r->print("<td>$start</td>\n");
2098: }
1.30 albertel 2099: if (exists($show{'endtime'})) {
1.29 albertel 2100: $colspan++;$r->print("<td>$end</td>\n");
2101: }
1.30 albertel 2102: if (exists($show{'startreserve'})) {
1.29 albertel 2103: $colspan++;$r->print("<td>$start_reserve</td>\n");
2104: }
1.111 raeburn 2105: if (exists($show{'endreserve'})) {
2106: $colspan++;$r->print("<td>$end_reserve</td>\n");
2107: }
1.109 raeburn 2108: if (exists($show{'reservationmsg'})) {
2109: $colspan++;$r->print("<td>$reservemsg</td>\n");
2110: }
1.30 albertel 2111: if (exists($show{'secret'})) {
1.29 albertel 2112: $colspan++;$r->print("<td>$slots{$slot}{'secret'}</td>\n");
2113: }
1.74 albertel 2114: if (exists($show{'space'})) {
2115: my $display = $id_count;
2116: if ($slots{$slot}{'maxspace'}>0) {
2117: $display.='/'.$slots{$slot}{'maxspace'};
2118: if ($slots{$slot}{'maxspace'} <= $id_count) {
2119: $display = '<strong>'.$display.' (full) </strong>';
2120: }
2121: }
2122: $colspan++;$r->print("<td>$display</td>\n");
1.29 albertel 2123: }
1.30 albertel 2124: if (exists($show{'ip'})) {
1.29 albertel 2125: $colspan++;$r->print("<td>$slots{$slot}{'ip'}</td>\n");
2126: }
1.131 raeburn 2127: if (exists($show{'iptied'})) {
2128: $colspan++;
2129: if ($slots{$slot}{'iptied'} eq 'yes') {
2130: $r->print('<td>'.&mt('Yes')."</td>\n");
2131: } elsif ($slots{$slot}{'iptied'} eq 'answer') {
2132: $r->print('<td>'.&mt('Yes, including post-answer date')."</td>\n");
2133: } else {
2134: $r->print('<td>'.&mt('No')."</td>\n");
2135: }
2136: }
1.30 albertel 2137: if (exists($show{'symb'})) {
1.130 raeburn 2138: $colspan++;$r->print("<td>".join('<br />',@titles)."</td>\n");
1.29 albertel 2139: }
1.49 albertel 2140: if (exists($show{'allowedsections'})) {
2141: $colspan++;$r->print("<td>$allowedsections</td>\n");
2142: }
2143: if (exists($show{'allowedusers'})) {
2144: $colspan++;$r->print("<td>$allowedusers</td>\n");
1.29 albertel 2145: }
1.64 albertel 2146: if (exists($show{'uniqueperiod'})) {
2147: $colspan++;$r->print("<td>$unique</td>\n");
2148: }
1.47 albertel 2149: if (exists($show{'scheduled'})) {
1.64 albertel 2150: $colspan++;$r->print("<td>$remove_all $ids</td>\n");
1.47 albertel 2151: }
1.65 albertel 2152: $r->print("$row_end\n");
1.30 albertel 2153: if (exists($show{'proctor'})) {
1.29 albertel 2154: $r->print(<<STUFF);
1.65 albertel 2155: $row_start
1.29 albertel 2156: <td colspan="$colspan">$proctors</td>
1.65 albertel 2157: $row_end
1.5 albertel 2158: STUFF
1.29 albertel 2159: }
1.5 albertel 2160: }
1.133 raeburn 2161: if ($shownheader) {
2162: $r->print(&Apache::loncommon::end_data_table());
2163: } else {
2164: $r->print('<p>'.&mt('No slots meet the criteria for display').'</p>');
2165: }
2166: $r->print('</form>');
1.91 raeburn 2167: return;
2168: }
2169:
2170: sub manage_reservations {
1.122 raeburn 2171: my ($r,$crstype,$slots,$consumed_uniqueperiods,$allavailable) = @_;
1.137 raeburn 2172: my ($cnum,$cdom)=&get_course();
1.91 raeburn 2173: my $navmap = Apache::lonnavmaps::navmap->new();
1.92 bisitz 2174: $r->print('<p>'
2175: .&mt('Instructors may use a reservation system to place restrictions on when and where assignments can be worked on.')
2176: .'<br />'
2177: .&mt('One example is for management of laboratory space, which is only available at certain times, and has a limited number of seats.')
2178: .'</p>'
2179: );
1.91 raeburn 2180: if (!defined($navmap)) {
1.105 raeburn 2181: $r->print('<div class="LC_error">');
2182: if ($crstype eq 'Community') {
2183: $r->print(&mt('Unable to retrieve information about community contents'));
2184: } else {
2185: $r->print(&mt('Unable to retrieve information about course contents'));
2186: }
2187: $r->print('</div>');
2188: &Apache::lonnet::logthis('Manage Reservations - could not create navmap object in '.lc($crstype).':'.$env{'request.course.id'});
1.91 raeburn 2189: return;
2190: }
1.122 raeburn 2191: if (ref($consumed_uniqueperiods) eq 'HASH') {
2192: if (&Apache::lonnet::error(%$consumed_uniqueperiods)) {
2193: $r->print('<span class="LC_error">'.
2194: &mt('An error occurred determining slot availability.').
2195: '</span>');
2196: return;
2197: }
2198: } elsif ($consumed_uniqueperiods =~ /^error: /) {
2199: $r->print('<span class="LC_error">'.
2200: &mt('An error occurred determining slot availability.').
2201: '</span>');
2202: return;
2203: }
1.137 raeburn 2204: my (%output,%slotinfo,%statusbymap,%repsymbs,%shownmaps);
2205: my @possibles = $navmap->retrieveResources(undef,
2206: sub { $_[0]->is_problem() || $_[0]->is_tool() },1,0);
2207:
2208: foreach my $resource (@possibles) {
2209: my ($useslots) = $resource->slot_control();
2210: next if (($useslots eq '') || ($useslots =~ /^\s*no\s*$/i));
2211: my $symb = $resource->symb();
2212: my ($slot_status,$date,$slot_name) = $resource->check_for_slot('0');
2213: my ($msg,$get_choices,$slotdescription);
2214: my $status = $resource->simpleStatus('0');
2215: my ($msg,$get_choices,$slotdescription);
2216: if ($slot_name ne '') {
2217: my %slot=&Apache::lonnet::get_slot($slot_name);
2218: $slotdescription=&get_description($slot_name,\%slot);
2219: }
2220: if ($slot_status == $resource->NOT_IN_A_SLOT) {
2221: $msg=&mt('No current reservation.');
2222: $get_choices = 1;
2223: } elsif ($slot_status == $resource->NEEDS_CHECKIN) {
2224: $msg='<span class="LC_nobreak">'.&mt('Reserved:').
2225: ' '.$slotdescription.'</span><br />'.
2226: &mt('Access requires proctor validation.');
2227: } elsif ($slot_status == $resource->WAITING_FOR_GRADE) {
2228: $msg=&mt('Submitted and currently in grading queue.');
2229: } elsif ($slot_status == $resource->CORRECT) {
2230: $msg=&mt('Problem is unavailable.');
2231: } elsif ($slot_status == $resource->RESERVED) {
2232: $msg='<span class="LC_nobreak">'.&mt('Reserved:').
2233: ' '.$slotdescription.'</span><br />'.
2234: &mt('Problem is currently available.');
2235: } elsif ($slot_status == $resource->RESERVED_LOCATION) {
2236: $msg='<span class="LC_nobreak">'.&mt('Reserved:').
2237: ' '.$slotdescription.'</span><br />'.
2238: &mt('Problem is available at a different location.');
2239: $get_choices = 1;
2240: } elsif ($slot_status == $resource->RESERVED_LATER) {
2241: $msg='<span class="LC_nobreak">'.&mt('Reserved:').
2242: ' '.$slotdescription.'</span><br />'.
2243: &mt('Problem will be available later.');
2244: $get_choices = 1;
2245: } elsif ($slot_status == $resource->RESERVABLE) {
2246: $msg=&mt('Reservation needed');
2247: $get_choices = 1;
2248: } elsif ($slot_status == $resource->RESERVABLE_LATER) {
2249: $msg=&mt('Reservation needed: will be reservable later.');
2250: } elsif ($slot_status == $resource->NOTRESERVABLE) {
2251: $msg=&mt('Reservation needed: none available.');
2252: } elsif ($slot_status == $resource->UNKNOWN) {
2253: $msg=&mt('Unable to determine status due to network problems.');
2254: } else {
2255: if ($status != $resource->OPEN) {
2256: $msg = &Apache::lonnavmaps::getDescription($resource,'0');
2257: }
2258: }
2259: $output{$symb}{'msg'} = $msg;
2260: if (($status == $resource->OPEN) && ($get_choices)) {
2261: $output{$symb}{'hasaction'} = 1;
2262: }
2263: my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($symb);
2264: $mapurl = &Apache::lonnet::clutter($mapurl);
2265: unless ($mapurl =~ /default\.sequence$/) {
2266: $shownmaps{$mapurl} = 1;
2267: my $map = $navmap->getResourceByUrl($mapurl);
2268: if (ref($map)) {
2269: my @pcs = split(/,/,$map->map_hierarchy());
2270: shift(@pcs);
2271: shift(@pcs);
2272: if (@pcs) {
2273: map { $shownmaps{$navmap->getByMapPc($_)->src()} = 1; } reverse(@pcs);
2274: }
2275: }
2276: }
2277: if (($useslots eq 'map_map') || ($useslots eq 'map')) {
2278: if ($slot_status ne '') {
2279: if (ref($statusbymap{$mapurl}{$slot_status}) eq 'ARRAY') {
2280: push(@{$statusbymap{$mapurl}{$slot_status}},$symb);
2281: } else {
2282: $statusbymap{$mapurl}{$slot_status} = [$symb];
2283: }
2284: }
2285: }
2286: }
2287:
2288: foreach my $mapurl (keys(%statusbymap)) {
2289: if (ref($statusbymap{$mapurl}) eq 'HASH') {
2290: if (keys(%{$statusbymap{$mapurl}}) == 1) {
2291: my @values = values(%{$statusbymap{$mapurl}});
2292: my $repsymb = $values[0][0];
2293: if (ref($output{$repsymb}) eq 'HASH') {
2294: $output{$mapurl}{'msg'} = $output{$repsymb}{'msg'};
2295: $output{$mapurl}{'hasaction'} = $output{$repsymb}{'hasaction'};
2296: }
2297: $repsymbs{$mapurl} = $repsymb;
2298: }
2299: }
2300: }
2301:
2302: my (%parent,%container,%container_title);
2303: my ($depth,$count,$reservable,$currcontainer,$rownum,$mapnum,$shown) = (0,0,0,0,0,0,0);
2304: my @backgrounds = ("LC_even_row","LC_odd_row");
1.91 raeburn 2305: my $numcolors = scalar(@backgrounds);
2306: my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif");
1.104 raeburn 2307: my $slotheader = '<p>'.
2308: &mt('Your reservation status for any such assignments is listed below:').
2309: '</p>'.
1.149 raeburn 2310: '<table class="LC_data_table LC_tableOfContent" id="LC_slot_reservations">'."\n".
2311: '<tr class="LC_visually_hidden">'.
2312: '<th>'.&mt('Resource or Folder').'</th>'.
2313: '<th colspan="2">'.&mt('Reservation Status').'</th></tr>'."\n";
1.104 raeburn 2314: my $shownheader = 0;
1.137 raeburn 2315: my $currmap;
1.91 raeburn 2316: my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
2317: while (my $resource = $it->next()) {
2318: if ($resource == $it->BEGIN_MAP()) {
2319: $depth++;
1.137 raeburn 2320: $parent{$depth} = $currcontainer;
2321: if (ref($container{$currcontainer})) {
2322: my $currmapres = $container{$currcontainer};
2323: my $currmaptitle = $container_title{$currcontainer};
2324: $currmap = $currmapres->src();
2325: my $currmaptype = 'sequence';
2326: if ($currmapres->is_page()) {
2327: $currmaptype = 'page';
2328: }
2329: if ($shownmaps{$currmap}) {
2330: $mapnum ++;
2331: $rownum ++;
2332: $shown ++;
2333: if (!$shownheader) {
2334: $r->print($slotheader);
2335: $shownheader = 1;
2336: }
2337: my $bgcolor = $backgrounds[$shown % $numcolors];
2338: my ($spacers,$icon);
2339: my $row = '<tr class="'.$bgcolor.'" id="LC_slotmaprow_'.$rownum.'">';
2340: if (ref($statusbymap{$currmap}) eq 'HASH') {
2341: my ($spacers,$icon) = &show_map_row($depth-1,$location,$currmaptype,$currmaptitle);
2342: my $arrowstate = 'open';
2343: if (keys(%{$statusbymap{$currmap}}) == 1) {
2344: $arrowstate = 'closed';
2345: }
2346: $row .= '<td>'.$spacers.'<img src="/adm/lonIcons/arrow.'.$arrowstate.'.gif" '.
1.150 raeburn 2347: 'id="arrow'.$mapnum.'" '.'alt="arrow" onmouseover="this.style.cursor=\'pointer\'" tabindex="0" '.
2348: 'onclick="'."toggleSlotMap('$mapnum','$rownum');".'" onkeydown="'."toggleSlotMap('$mapnum','$rownum');".'" />'.
1.137 raeburn 2349: $icon.(' ' x6).'</td>'."\n";
2350: if (ref($output{$currmap}) eq 'HASH') {
2351: my $formnum = $mapnum.'_'.$reservable+1;
2352: my $class = 'LC_slotmaptext_'.$mapnum;
2353: if ($output{$currmap}{'hasaction'}) {
2354: $row .= '<td valign="top"><span class="'.$class.'">'.
2355: $output{$currmap}{'msg'}.
2356: '</span></td><td valign="top">'.
2357: &slot_chooser($repsymbs{$currmap},$class,$formnum,
2358: $allavailable,$slots,$consumed_uniqueperiods).
2359: '</td>';
1.127 raeburn 2360: } else {
1.137 raeburn 2361: $row .= '<td colspan="2" valign="middle"><span class="'.$class.'">'.
2362: $output{$currmap}{'msg'}.
2363: '</span></td>';
1.127 raeburn 2364: }
1.137 raeburn 2365: $row .= '</tr>'."\n";
2366: } else {
2367: $row .= '<td colspan="2"> </td></tr>'."\n";
1.127 raeburn 2368: }
2369: } else {
1.137 raeburn 2370: my ($spacers,$icon) = &show_map_row($depth,$location,$currmaptype,$currmaptitle);
2371: $row .= '<td>'.$spacers.$icon.(' ' x6).'</td><td colspan="2"> </td></tr>'."\n";
1.127 raeburn 2372: }
1.137 raeburn 2373: $r->print($row);
1.127 raeburn 2374: }
2375: }
1.137 raeburn 2376: } elsif ($resource == $it->END_MAP()) {
2377: $depth--;
2378: $currcontainer = $parent{$depth};
2379: } elsif (ref($resource)) {
1.91 raeburn 2380: my $symb = $resource->symb();
1.137 raeburn 2381: next if (!$resource->is_problem() && !$resource->is_tool() &&
2382: !$resource->is_sequence() && !$resource->is_page());
1.91 raeburn 2383: $count ++;
2384: if (($resource->is_sequence()) || ($resource->is_page())) {
1.137 raeburn 2385: $currcontainer = $count;
2386: $container{$currcontainer} = $resource;
2387: $container_title{$currcontainer} = $resource->compTitle();
2388: }
1.146 raeburn 2389: if ($resource->is_problem() || $resource->is_tool()) {
1.137 raeburn 2390: next unless (exists($output{$symb}));
1.91 raeburn 2391: $reservable ++;
2392: $rownum ++;
1.104 raeburn 2393: if (!$shownheader) {
1.137 raeburn 2394: $r->print($slotheader);
1.104 raeburn 2395: $shownheader = 1;
2396: }
1.137 raeburn 2397: my $style;
2398: if (exists($output{$currmap})) {
2399: $style = 'none';
2400: } else {
2401: $style = 'table-row';
2402: $shown ++;
2403: }
2404: my $title = $resource->compTitle();
2405: my $bgcolor = $backgrounds[$shown % $numcolors];
2406: $r->print('<tr class="'.$bgcolor.' LC_slotresrow_'.$mapnum.'"'.
2407: ' style="display:'.$style.'" id="LC_slotresrow_'.$rownum.'">'.
2408: '<td>');
1.91 raeburn 2409: for (my $i=0; $i<$depth; $i++) {
1.137 raeburn 2410: $r->print('<img src="'.$location.'" alt="" />');
1.91 raeburn 2411: }
1.137 raeburn 2412: $r->print('<a href="'.$resource->src().'?symb='.$symb.'">'.
2413: '<img class="LC_contentImage" src="/adm/lonIcons/');
1.91 raeburn 2414: if ($resource->is_task()) {
1.137 raeburn 2415: $r->print('task.gif" alt="'.&mt('Task'));
2416: } elsif ($resource->is_tool()) {
2417: $r->print('unknown.gif" alt="'.&mt('External Tool'));
1.91 raeburn 2418: } else {
1.137 raeburn 2419: $r->print('problem.gif" alt="'.&mt('Problem'));
1.91 raeburn 2420: }
1.137 raeburn 2421: $r->print('" /><b>'.$title.'</b></a>'.(' ' x6).'</td>');
1.127 raeburn 2422: my $class = 'LC_slottext_'.$mapnum;
1.137 raeburn 2423: if ($output{$symb}{'hasaction'}) {
2424: $r->print('<td valign="top"><span class="'.$class.'">'.$output{$symb}{'msg'}.'</span></td>'.
2425: '<td valign="top">'.
2426: &slot_chooser($symb,$class,$reservable,$allavailable,$slots,
2427: $consumed_uniqueperiods).'</td>');
1.91 raeburn 2428: } else {
1.137 raeburn 2429: $r->print('<td colspan="2" valign="middle">'.
2430: '<span class="'.$class.'">'.$output{$symb}{'msg'}.'</span>'.
2431: '</td>');
1.91 raeburn 2432: }
1.137 raeburn 2433: $r->print('</tr>'."\n");
1.91 raeburn 2434: }
2435: }
2436: }
1.104 raeburn 2437: if ($shownheader) {
2438: $r->print('</table>');
2439: }
1.91 raeburn 2440: if (!$reservable) {
1.105 raeburn 2441: $r->print('<span class="LC_info">');
2442: if ($crstype eq 'Community') {
2443: $r->print(&mt('No community items currently require a reservation to gain access.'));
2444: } else {
2445: $r->print(&mt('No course items currently require a reservation to gain access.'));
2446: }
2447: $r->print('</span>');
1.91 raeburn 2448: }
1.104 raeburn 2449: $r->print('<p><a href="/adm/slotrequest?command=showresv">'.
1.91 raeburn 2450: &mt('Reservation History').'</a></p>');
2451: }
2452:
2453: sub show_map_row {
1.137 raeburn 2454: my ($depth,$location,$type,$title) = @_;
1.127 raeburn 2455: my $spacers;
1.137 raeburn 2456: for (my $i=0; $i<$depth-1; $i++) {
1.127 raeburn 2457: $spacers .= '<img src="'.$location.'" alt="" />';
1.91 raeburn 2458: }
1.127 raeburn 2459: my $icon;
1.91 raeburn 2460: if ($type eq 'page') {
1.127 raeburn 2461: $icon = '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" /> '."\n";
1.91 raeburn 2462: } else {
1.127 raeburn 2463: $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" /> '."\n";
1.91 raeburn 2464: }
1.127 raeburn 2465: $icon .= $title;
1.137 raeburn 2466: return ($spacers,$icon);
1.91 raeburn 2467: }
2468:
1.127 raeburn 2469: sub slot_chooser {
2470: my ($symb,$class,$formnum,$allavailable,$slots,$consumed_uniqueperiods) = @_;
2471: my $output;
2472: my @got_slots=&check_for_reservation($symb,'allslots');
2473: if ($got_slots[0] =~ /^error: /) {
2474: $output = '<span class="'.$class.'"><span class="LC_error">'.
2475: &mt('An error occurred determining slot availability.').
2476: '</span></span>';
2477: } else {
2478: my $formname = 'manageres_'.$formnum;
2479: if (ref($allavailable) eq 'ARRAY') {
2480: my @available;
2481: if (ref($slots) eq 'HASH') {
2482: foreach my $slot (@{$allavailable}) {
2483: # not allowed for this resource
2484: if (ref($slots->{$slot}) eq 'HASH') {
1.130 raeburn 2485: if ($slots->{$slot}->{'symb'} ne '') {
2486: my ($map,$id,$url) = &Apache::lonnet::decode_symb($symb);
2487: my $exclude = 1;
2488: my @reqsymbs = split(/\s*,\s*/,$slots->{$slot}->{'symb'});
2489: if (@reqsymbs) {
2490: if (grep(/^\Q$symb\E$/,@reqsymbs)) {
2491: $exclude = 0;
2492: } else {
2493: foreach my $reqsymb (@reqsymbs) {
2494: my (undef,undef,$sloturl) = &Apache::lonnet::decode_symb($reqsymb);
2495: if ($sloturl=~/\.(page|sequence)$/) {
2496: if (($map ne '') && ($map eq $sloturl)) {
2497: $exclude = 0;
2498: last;
2499: }
2500: }
2501: }
2502: }
1.147 raeburn 2503: next if ($exclude);
1.130 raeburn 2504: }
1.127 raeburn 2505: }
2506: }
2507: push(@available,$slot);
2508: }
2509: }
2510: $output .= &show_choices($symb,$formname,$formnum,$class,
2511: $slots,$consumed_uniqueperiods,
2512: \@available,\@got_slots);
2513: }
2514: }
2515: return $output;
2516: }
2517:
1.91 raeburn 2518: sub show_reservations {
2519: my ($r,$uname,$udom) = @_;
2520: if (!defined($uname)) {
2521: $uname = $env{'user.name'};
2522: }
2523: if (!defined($udom)) {
2524: $udom = $env{'user.domain'};
2525: }
2526: my $formname = 'slotlog';
1.137 raeburn 2527: my ($cnum,$cdom)=&get_course();
1.105 raeburn 2528: my $crstype = &Apache::loncommon::course_type();
1.91 raeburn 2529: my %log=&Apache::lonnet::dump('nohist_'.$cdom.'_'.$cnum.'_slotlog',$udom,$uname);
2530: if ($env{'form.origin'} eq 'aboutme') {
1.105 raeburn 2531: $r->print('<div class="LC_fontsize_large">');
2532: my $name = &Apache::loncommon::plainname($env{'form.uname'},$env{'form.udom'},
2533: 'firstname');
2534: if ($crstype eq 'Community') {
2535: $r->print(&mt('History of member-reservable slots for: [_1]',
2536: $name));
2537: } else {
2538: $r->print(&mt('History of student-reservable slots for: [_1]',
2539: $name));
2540:
2541: }
2542: $r->print('</div>');
1.91 raeburn 2543: }
2544: $r->print('<form action="/adm/slotrequest" method="post" name="'.$formname.'">');
2545: # set defaults
2546: my $now = time();
2547: my $defstart = $now - (7*24*3600); #7 days ago
2548: my %defaults = (
2549: page => '1',
2550: show => '10',
2551: action => 'any',
2552: log_start_date => $defstart,
2553: log_end_date => $now,
2554: );
2555: my $more_records = 0;
2556:
2557: # set current
2558: my %curr;
2559: foreach my $item ('show','page','action') {
2560: $curr{$item} = $env{'form.'.$item};
2561: }
2562: my ($startdate,$enddate) =
2563: &Apache::lonuserutils::get_dates_from_form('log_start_date',
2564: 'log_end_date');
2565: $curr{'log_start_date'} = $startdate;
2566: $curr{'log_end_date'} = $enddate;
2567: foreach my $key (keys(%defaults)) {
2568: if ($curr{$key} eq '') {
2569: $curr{$key} = $defaults{$key};
2570: }
2571: }
2572: my ($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);
2573: $r->print(&display_filter($formname,$cdom,$cnum,\%curr,$version));
2574: my $showntablehdr = 0;
2575: my $tablehdr = &Apache::loncommon::start_data_table().
2576: &Apache::loncommon::start_data_table_header_row().
2577: '<th> </th><th>'.&mt('When').'</th><th>'.&mt('Action').'</th>'.
2578: '<th>'.&mt('Description').'</th><th>'.&mt('Start time').'</th>'.
2579: '<th>'.&mt('End time').'</th><th>'.&mt('Resource').'</th>'.
2580: &Apache::loncommon::end_data_table_header_row();
2581: my ($minshown,$maxshown);
2582: $minshown = 1;
2583: my $count = 0;
2584: if ($curr{'show'} ne &mt('all')) {
2585: $maxshown = $curr{'page'} * $curr{'show'};
2586: if ($curr{'page'} > 1) {
2587: $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};
2588: }
2589: }
2590: my (%titles,%maptitles);
1.105 raeburn 2591: my %lt = &reservationlog_contexts($crstype);
1.91 raeburn 2592: foreach my $id (sort { $log{$b}{'exe_time'}<=>$log{$a}{'exe_time'} } (keys(%log))) {
2593: next if (($log{$id}{'exe_time'} < $curr{'log_start_date'}) ||
2594: ($log{$id}{'exe_time'} > $curr{'log_end_date'}));
2595: if ($curr{'show'} ne &mt('all')) {
2596: if ($count >= $curr{'page'} * $curr{'show'}) {
2597: $more_records = 1;
2598: last;
2599: }
2600: }
2601: if ($curr{'action'} ne 'any') {
2602: next if ($log{$id}{'logentry'}{'action'} ne $curr{'action'});
2603: }
2604: $count ++;
2605: next if ($count < $minshown);
2606: if (!$showntablehdr) {
2607: $r->print($tablehdr);
2608: $showntablehdr = 1;
2609: }
2610: my $symb = $log{$id}{'logentry'}{'symb'};
2611: my $slot_name = $log{$id}{'logentry'}{'slot'};
2612: my %slot=&Apache::lonnet::get_slot($slot_name);
2613: my $description = $slot{'description'};
2614: my $start = ($slot{'starttime'}?
2615: &Apache::lonlocal::locallocaltime($slot{'starttime'}):'');
2616: my $end = ($slot{'endtime'}?
2617: &Apache::lonlocal::locallocaltime($slot{'endtime'}):'');
2618: my $title = &get_resource_title($symb,\%titles,\%maptitles);
2619: my $chgaction = $log{$id}{'logentry'}{'action'};
2620: if ($chgaction ne '' && $lt{$chgaction} ne '') {
2621: $chgaction = $lt{$chgaction};
2622: }
2623: $r->print(&Apache::loncommon::start_data_table_row().'<td>'.$count.'</td><td>'.&Apache::lonlocal::locallocaltime($log{$id}{'exe_time'}).'</td><td>'.$chgaction.'</td><td>'.$description.'</td><td>'.$start.'</td><td>'.$end.'</td><td>'.$title.'</td>'.&Apache::loncommon::end_data_table_row()."\n");
2624: }
2625: if ($showntablehdr) {
2626: $r->print(&Apache::loncommon::end_data_table().'<br />');
2627: if (($curr{'page'} > 1) || ($more_records)) {
1.133 raeburn 2628: $r->print('<p>');
1.91 raeburn 2629: if ($curr{'page'} > 1) {
1.133 raeburn 2630: $r->print('<input type="button" onclick="javascript:chgPage('."'previous'".');" value="'.
2631: &mt('Previous [_1] changes',$curr{'show'}).'" />');
1.91 raeburn 2632: }
2633: if ($more_records) {
1.133 raeburn 2634: $r->print('<input type="button" onclick="javascript:chgPage('."'next'".');" value="'.
2635: &mt('Next [_1] changes',$curr{'show'}).'" />');
1.91 raeburn 2636: }
1.133 raeburn 2637: $r->print('</p>');
1.91 raeburn 2638: $r->print(<<"ENDSCRIPT");
2639: <script type="text/javascript">
1.122 raeburn 2640: // <![CDATA[
1.91 raeburn 2641: function chgPage(caller) {
2642: if (caller == 'previous') {
2643: document.$formname.page.value --;
2644: }
2645: if (caller == 'next') {
2646: document.$formname.page.value ++;
2647: }
2648: document.$formname.submit();
2649: return;
2650: }
1.122 raeburn 2651: // ]]>
1.91 raeburn 2652: </script>
2653: ENDSCRIPT
2654: }
2655: } else {
1.92 bisitz 2656: $r->print('<span class="LC_info">'
1.100 bisitz 2657: .&mt('There are no transactions to display.')
1.92 bisitz 2658: .'</span>'
2659: );
1.91 raeburn 2660: }
2661: $r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'."\n".
2662: '<input type="hidden" name="command" value="showresv" />'."\n");
2663: if ($env{'form.origin'} eq 'aboutme') {
2664: $r->print('<input type="hidden" name="origin" value="'.$env{'form.origin'}.'" />'."\n".
2665: '<input type="hidden" name="uname" value="'.$env{'form.uname'}.'" />'."\n".
2666: '<input type="hidden" name="udom" value="'.$env{'form.udom'}.'" />'."\n");
2667: }
2668: $r->print('</form>');
2669: return;
2670: }
2671:
2672: sub show_reservations_log {
2673: my ($r) = @_;
1.93 raeburn 2674: my $badslot;
1.105 raeburn 2675: my $crstype = &Apache::loncommon::course_type();
1.93 raeburn 2676: if ($env{'form.slotname'} eq '') {
2677: $r->print('<div class="LC_warning">'.&mt('No slot name provided').'</div>');
2678: $badslot = 1;
2679: } else {
2680: my %slot=&Apache::lonnet::get_slot($env{'form.slotname'});
2681: if (keys(%slot) == 0) {
2682: $r->print('<div class="LC_warning">'.&mt('Invalid slot name: [_1]',$env{'form.slotname'}).'</div>');
2683: $badslot = 1;
2684: } elsif ($slot{type} ne 'schedulable_student') {
2685: my $description = &get_description($env{'form.slotname'},\%slot);
1.105 raeburn 2686: $r->print('<div class="LC_warning">');
2687: if ($crstype eq 'Community') {
2688: $r->print(&mt('Reservation history unavailable for non-member-reservable slot: [_1].',$description));
2689: } else {
2690: $r->print(&mt('Reservation history unavailable for non-student-reservable slot: [_1].',$description));
2691: }
2692: $r->print('</div>');
1.93 raeburn 2693: $badslot = 1;
2694: }
2695: }
2696: if ($badslot) {
2697: $r->print('<p><a href="/adm/slotrequest?command=showslots">'.
2698: &mt('Return to slot list').'</a></p>');
2699: return;
2700: }
1.91 raeburn 2701: my $formname = 'reservationslog';
1.137 raeburn 2702: my ($cnum,$cdom)=&get_course();
1.91 raeburn 2703: my %slotlog=&Apache::lonnet::dump('nohist_slotreservationslog',$cdom,$cnum);
2704: if ((keys(%slotlog))[0]=~/^error\:/) { undef(%slotlog); }
2705:
2706: my (%log,@allsymbs);
2707: if (keys(%slotlog)) {
2708: foreach my $key (keys(%slotlog)) {
2709: if (ref($slotlog{$key}) eq 'HASH') {
2710: if (ref($slotlog{$key}{'logentry'}) eq 'HASH') {
2711: if ($slotlog{$key}{'logentry'}{'slot'} eq $env{'form.slotname'}) {
2712: $log{$key} = $slotlog{$key};
2713: if ($slotlog{$key}{'logentry'}{'symb'} ne '') {
2714: push(@allsymbs,$slotlog{$key}{'logentry'}{'symb'});
2715: }
2716: }
2717: }
2718: }
2719: }
2720: }
2721:
2722: $r->print('<form action="/adm/slotrequest" method="post" name="'.$formname.'">');
2723: my %saveable_parameters = ('show' => 'scalar',);
2724: &Apache::loncommon::store_course_settings('reservationslog',
2725: \%saveable_parameters);
2726: &Apache::loncommon::restore_course_settings('reservationslog',
2727: \%saveable_parameters);
2728: # set defaults
2729: my $now = time();
2730: my $defstart = $now - (7*24*3600); #7 days ago
2731: my %defaults = (
2732: page => '1',
2733: show => '10',
2734: chgcontext => 'any',
2735: action => 'any',
2736: symb => 'any',
2737: log_start_date => $defstart,
2738: log_end_date => $now,
2739: );
2740: my $more_records = 0;
2741:
2742: # set current
2743: my %curr;
2744: foreach my $item ('show','page','chgcontext','action','symb') {
2745: $curr{$item} = $env{'form.'.$item};
2746: }
2747: my ($startdate,$enddate) =
2748: &Apache::lonuserutils::get_dates_from_form('log_start_date',
2749: 'log_end_date');
2750: $curr{'log_start_date'} = $startdate;
2751: $curr{'log_end_date'} = $enddate;
2752: foreach my $key (keys(%defaults)) {
2753: if ($curr{$key} eq '') {
2754: $curr{$key} = $defaults{$key};
2755: }
2756: }
2757: my (%whodunit,%changed,$version);
2758: ($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);
2759:
2760: my %slot=&Apache::lonnet::get_slot($env{'form.slotname'});
2761: my $description = $slot{'description'};
1.105 raeburn 2762: $r->print('<span class="LC_fontsize_large">');
2763: if ($crstype eq 'Community') {
2764: $r->print(&mt('Reservation changes for member-reservable slot: [_1]',$description));
2765: } else {
2766: $r->print(&mt('Reservation changes for student-reservable slot: [_1]',$description));
2767: }
2768: $r->print('</span><br />');
1.91 raeburn 2769: $r->print(&display_filter($formname,$cdom,$cnum,\%curr,$version,\@allsymbs));
2770: my $showntablehdr = 0;
2771: my $tablehdr = &Apache::loncommon::start_data_table().
2772: &Apache::loncommon::start_data_table_header_row().
2773: '<th> </th><th>'.&mt('When').'</th><th>'.&mt('Who made the change').
2774: '</th><th>'.&mt('Affected User').'</th><th>'.&mt('Action').'</th>'.
2775: '<th>'.&mt('Resource').'</th><th>'.&mt('Context').'</th>'.
2776: &Apache::loncommon::end_data_table_header_row();
2777: my ($minshown,$maxshown);
2778: $minshown = 1;
2779: my $count = 0;
2780: if ($curr{'show'} ne &mt('all')) {
2781: $maxshown = $curr{'page'} * $curr{'show'};
2782: if ($curr{'page'} > 1) {
2783: $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};
2784: }
2785: }
1.105 raeburn 2786: my %lt = &reservationlog_contexts($crstype);
1.91 raeburn 2787: my (%titles,%maptitles);
2788: foreach my $id (sort { $log{$b}{'exe_time'}<=>$log{$a}{'exe_time'} } (keys(%log))) {
2789: next if (($log{$id}{'exe_time'} < $curr{'log_start_date'}) ||
2790: ($log{$id}{'exe_time'} > $curr{'log_end_date'}));
2791: if ($curr{'show'} ne &mt('all')) {
2792: if ($count >= $curr{'page'} * $curr{'show'}) {
2793: $more_records = 1;
2794: last;
2795: }
2796: }
2797: if ($curr{'chgcontext'} ne 'any') {
2798: if ($curr{'chgcontext'} eq 'user') {
2799: next if (($log{$id}{'logentry'}{'context'} ne 'user') &&
2800: ($log{$id}{'logentry'}{'context'} ne 'usermanage'));
2801: } else {
2802: next if ($log{$id}{'logentry'}{'context'} ne $curr{'chgcontext'});
2803: }
2804: }
2805: if ($curr{'action'} ne 'any') {
2806: next if ($log{$id}{'logentry'}{'action'} ne $curr{'action'});
2807: }
2808: if ($curr{'symb'} ne 'any') {
2809: next if ($log{$id}{'logentry'}{'symb'} ne $curr{'symb'});
2810: }
2811: $count ++;
2812: next if ($count < $minshown);
2813: if (!$showntablehdr) {
2814: $r->print($tablehdr);
2815: $showntablehdr = 1;
2816: }
2817: if ($whodunit{$log{$id}{'exe_uname'}.':'.$log{$id}{'exe_udom'}} eq '') {
2818: $whodunit{$log{$id}{'exe_uname'}.':'.$log{$id}{'exe_udom'}} =
2819: &Apache::loncommon::plainname($log{$id}{'exe_uname'},$log{$id}{'exe_udom'});
2820: }
2821: if ($changed{$log{$id}{'uname'}.':'.$log{$id}{'udom'}} eq '') {
2822: $changed{$log{$id}{'uname'}.':'.$log{$id}{'udom'}} =
2823: &Apache::loncommon::plainname($log{$id}{'uname'},$log{$id}{'udom'});
2824: }
2825: my $symb = $log{$id}{'logentry'}{'symb'};
2826: my $title = &get_resource_title($symb,\%titles,\%maptitles);
2827: my $chgcontext = $log{$id}{'logentry'}{'context'};
2828: if ($chgcontext ne '' && $lt{$chgcontext} ne '') {
2829: $chgcontext = $lt{$chgcontext};
2830: }
2831: my $chgaction = $log{$id}{'logentry'}{'action'};
2832: if ($chgaction ne '' && $lt{$chgaction} ne '') {
2833: $chgaction = $lt{$chgaction};
2834: }
2835: $r->print(&Apache::loncommon::start_data_table_row().'<td>'.$count.'</td><td>'.&Apache::lonlocal::locallocaltime($log{$id}{'exe_time'}).'</td><td>'.$whodunit{$log{$id}{'exe_uname'}.':'.$log{$id}{'exe_udom'}}.'</td><td>'.$changed{$log{$id}{'uname'}.':'.$log{$id}{'udom'}}.'</td><td>'.$chgaction.'</td><td>'.$title.'</td><td>'.$chgcontext.'</td>'.&Apache::loncommon::end_data_table_row()."\n");
2836: }
2837: if ($showntablehdr) {
2838: $r->print(&Apache::loncommon::end_data_table().'<br />');
2839: if (($curr{'page'} > 1) || ($more_records)) {
1.133 raeburn 2840: $r->print('<p>');
1.91 raeburn 2841: if ($curr{'page'} > 1) {
1.133 raeburn 2842: $r->print('<input type="button" onclick="javascript:chgPage('."'previous'".');" value="'.
2843: &mt('Previous [_1] changes',$curr{'show'}).'" />');
1.91 raeburn 2844: }
2845: if ($more_records) {
1.133 raeburn 2846: $r->print('<input type="button" onclick="javascript:chgPage('."'next'".');" value="'.
2847: &mt('Next [_1] changes',$curr{'show'}).'" />');
1.91 raeburn 2848: }
1.133 raeburn 2849: $r->print('</p>');
1.91 raeburn 2850: $r->print(<<"ENDSCRIPT");
2851: <script type="text/javascript">
2852: function chgPage(caller) {
2853: if (caller == 'previous') {
2854: document.$formname.page.value --;
2855: }
2856: if (caller == 'next') {
2857: document.$formname.page.value ++;
2858: }
2859: document.$formname.submit();
2860: return;
2861: }
2862: </script>
2863: ENDSCRIPT
2864: }
2865: } else {
1.100 bisitz 2866: $r->print(&mt('There are no records to display.'));
1.91 raeburn 2867: }
2868: $r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'.
2869: '<input type="hidden" name="slotname" value="'.$env{'form.slotname'}.'" />'.
1.93 raeburn 2870: '<input type="hidden" name="command" value="slotlog" /></form>'.
2871: '<p><a href="/adm/slotrequest?command=showslots">'.
2872: &mt('Return to slot list').'</a></p>');
1.91 raeburn 2873: return;
2874: }
2875:
2876: sub get_resource_title {
2877: my ($symb,$titles,$maptitles) = @_;
2878: my $title;
2879: if ((ref($titles) eq 'HASH') && (ref($maptitles) eq 'HASH')) {
2880: if (defined($titles->{$symb})) {
2881: $title = $titles->{$symb};
2882: } else {
2883: $title = &Apache::lonnet::gettitle($symb);
2884: my $maptitle;
2885: my ($mapurl) = &Apache::lonnet::decode_symb($symb);
2886: if (defined($maptitles->{$mapurl})) {
2887: $maptitle = $maptitles->{$mapurl};
2888: } else {
2889: if ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) {
1.118 raeburn 2890: $maptitle=&mt('Main Content');
1.91 raeburn 2891: } else {
2892: $maptitle=&Apache::lonnet::gettitle($mapurl);
2893: }
2894: $maptitles->{$mapurl} = $maptitle;
2895: }
2896: if ($maptitle ne '') {
2897: $title .= ' '.&mt('(in [_1])',$maptitle);
2898: }
2899: $titles->{$symb} = $title;
2900: }
2901: } else {
2902: $title = $symb;
2903: }
2904: return $title;
2905: }
2906:
2907: sub reservationlog_contexts {
1.105 raeburn 2908: my ($crstype) = @_;
1.91 raeburn 2909: my %lt = &Apache::lonlocal::texthash (
2910: any => 'Any',
2911: user => 'By student',
2912: manage => 'Via Slot Manager',
2913: parameter => 'Via Parameter Manager',
2914: reserve => 'Made reservation',
2915: release => 'Dropped reservation',
2916: usermanage => 'By student',
2917: );
1.105 raeburn 2918: if ($crstype eq 'Community') {
2919: $lt{'user'} = &mt('By member');
2920: $lt{'usermanage'} = $lt{'user'};
2921: }
1.91 raeburn 2922: return %lt;
2923: }
2924:
2925: sub display_filter {
2926: my ($formname,$cdom,$cnum,$curr,$version,$allsymbs) = @_;
2927: my $nolink = 1;
2928: my (%titles,%maptitles);
1.149 raeburn 2929: my $output = '<br /><table><tr><th class="LC_log_filter">'.
2930: '<span class="LC_nobreak"><label for="show">'.&mt('Changes/page:').'</label></span></th>'.
2931: '<th class="LC_log_filter">'.&mt('Window during which changes occurred:').'</th>';
2932: if (ref($allsymbs) eq 'ARRAY') {
2933: $output.= '<th class="LC_log_filter"><label for="resource">'.&mt('Resource').'</label></th>'.
2934: '<th class="LC_log_filter"><label for="chgcontext">'.&mt('Context').'</label></th>';
2935: } else {
2936: $output.= '<th class="LC_log_filter"><label for="action">'.&mt('Action').'</label></th>';
2937: }
2938: $output .= '</tr><tr><td class="LC_log_filter">'.
2939: &Apache::lonmeta::selectbox('show',$curr->{'show'},'','show',undef,
2940: (&mt('all'),5,10,20,50,100,1000,10000)).
2941: '</td>';
1.91 raeburn 2942: my $startform =
2943: &Apache::lonhtmlcommon::date_setter($formname,'log_start_date',
2944: $curr->{'log_start_date'},undef,
2945: undef,undef,undef,undef,undef,undef,$nolink);
2946: my $endform =
2947: &Apache::lonhtmlcommon::date_setter($formname,'log_end_date',
2948: $curr->{'log_end_date'},undef,
2949: undef,undef,undef,undef,undef,undef,$nolink);
1.105 raeburn 2950: my $crstype = &Apache::loncommon::course_type();
2951: my %lt = &reservationlog_contexts($crstype);
1.149 raeburn 2952: $output .= '<td class="LC_log_filter"><table><tr><th>'.&mt('After:').'</th>'.
2953: '<td>'.$startform.'</td></tr>'.
2954: '<tr><th>'.&mt('Before:').'</th>'.
2955: '<td>'.$endform.'</td></tr></table>'.
2956: '</td>';
1.91 raeburn 2957: if (ref($allsymbs) eq 'ARRAY') {
1.149 raeburn 2958: $output .= '<td class="LC_log_filter"><select name="resource" id="resource"><option value="any"';
1.91 raeburn 2959: if ($curr->{'resource'} eq 'any') {
2960: $output .= ' selected="selected"';
2961: }
2962: $output .= '>'.&mt('Any').'</option>'."\n";
2963: foreach my $symb (@{$allsymbs}) {
2964: my $title = &get_resource_title($symb,\%titles,\%maptitles);
2965: my $selstr = '';
2966: if ($curr->{'resource'} eq $symb) {
2967: $selstr = ' selected="selected"';
2968: }
2969: $output .= ' <option value="'.$symb.'"'.$selstr.'>'.$title.'</option>';
2970: }
1.149 raeburn 2971: $output .= '</select></td>'.
2972: '<td class="LC_log_filter"><select name="chgcontext" id="chgcontext">';
1.91 raeburn 2973: foreach my $chgtype ('any','user','manage','parameter') {
2974: my $selstr = '';
2975: if ($curr->{'chgcontext'} eq $chgtype) {
2976: $output .= $selstr = ' selected="selected"';
2977: }
2978: $output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n";
2979: }
2980: $output .= '</select></td>';
2981: } else {
1.149 raeburn 2982: $output .= '<td class="LC_log_filter"><select name="action" id="action"><option value="any"';
1.91 raeburn 2983: if ($curr->{'action'} eq 'any') {
2984: $output .= ' selected="selected"';
2985: }
2986: $output .= '>'.&mt('Any').'</option>'."\n";
2987: foreach my $actiontype ('reserve','release') {
2988: my $selstr = '';
2989: if ($curr->{'action'} eq $actiontype) {
2990: $output .= $selstr = ' selected="selected"';
2991: }
2992: $output .= '<option value="'.$actiontype.'"'.$selstr.'>'.$lt{$actiontype}.'</option>'."\n";
2993: }
2994: $output .= '</select></td>';
2995: }
1.149 raeburn 2996: $output .= '</tr></table>'.
1.133 raeburn 2997: '<p><input type="submit" value="'.
2998: &mt('Update Display').'" /></p>'.
1.100 bisitz 2999: '<p class="LC_info">'.
3000: &mt('Only changes made from servers running LON-CAPA [_1] or later are displayed.'
1.103 raeburn 3001: ,'2.9.0');
1.91 raeburn 3002: if ($version) {
1.100 bisitz 3003: $output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);
1.91 raeburn 3004: }
1.100 bisitz 3005: $output .= '</p><hr /><br />';
1.91 raeburn 3006: return $output;
1.5 albertel 3007: }
3008:
1.109 raeburn 3009: sub slot_change_messaging {
3010: my ($setting,$subject,$msg,$action) = @_;
3011: my $user = $env{'user.name'};
3012: my $domain = $env{'user.domain'};
3013: my ($message_status,$comment_status);
3014: if ($setting eq 'only_student'
3015: || $setting eq 'student_and_user_notes_screen') {
3016: $message_status =
3017: &Apache::lonmsg::user_normal_msg($user,$domain,$subject,$msg);
3018: $message_status = '<li>'.&mt('Sent to you: [_1]',
3019: $message_status).' </li>';
3020: }
3021: if ($setting eq 'student_and_user_notes_screen') {
3022: $comment_status =
3023: &Apache::lonmsg::store_instructor_comment($subject.'<br />'.
3024: $msg,$user,$domain);
3025: $comment_status = '<li>'.&mt('Entry added to course record (viewable by instructor): [_1]',
3026: $comment_status).'</li>';
3027: }
3028: if ($message_status || $comment_status) {
3029: my $msgtitle;
3030: if ($action eq 'reserve') {
3031: $msgtitle = &mt('Status of messages about saved reservation');
3032: } elsif ($action eq 'release') {
3033: $msgtitle = &mt('Status of messages about dropped reservation');
1.110 raeburn 3034: } elsif ($action eq 'nochange') {
3035: $msgtitle = &mt('Status of messages about unchanged existing reservation');
1.109 raeburn 3036: }
3037: return '<span class="LC_info">'.$msgtitle.'</span>'
3038: .'<ul>'
3039: .$message_status
3040: .$comment_status
3041: .'</ul><hr />';
3042: }
3043: }
3044:
1.14 albertel 3045: sub upload_start {
1.147 raeburn 3046: my ($r)=@_;
1.101 bisitz 3047: $r->print(
3048: &Apache::grades::checkforfile_js()
1.149 raeburn 3049: .'<h2 class="LC_heading_2">'.&mt('Upload a file containing the slot definitions').'</h2>'
1.101 bisitz 3050: .'<form method="post" enctype="multipart/form-data"'
3051: .' action="/adm/slotrequest" name="slotupload">'
3052: .'<input type="hidden" name="command" value="csvuploadmap" />'
3053: .&Apache::lonhtmlcommon::start_pick_box()
1.149 raeburn 3054: .&Apache::lonhtmlcommon::row_title('<label for="upfile">'.&mt('File').'</label>')
1.101 bisitz 3055: .&Apache::loncommon::upfile_select_html()
3056: .&Apache::lonhtmlcommon::row_closure()
3057: .&Apache::lonhtmlcommon::row_title(
3058: '<label for="noFirstLine">'
3059: .&mt('Ignore First Line')
3060: .'</label>')
3061: .'<input type="checkbox" name="noFirstLine" id="noFirstLine" />'
3062: .&Apache::lonhtmlcommon::row_closure(1)
3063: .&Apache::lonhtmlcommon::end_pick_box()
3064: .'<p>'
3065: .'<input type="button" onclick="javascript:checkUpload(this.form);"'
3066: .' value="'.&mt('Next').'" />'
3067: .'</p>'
3068: .'</form>'
3069: );
1.14 albertel 3070: }
3071:
3072: sub csvuploadmap_header {
1.19 albertel 3073: my ($r,$datatoken,$distotal)= @_;
1.14 albertel 3074: my $javascript;
3075: if ($env{'form.upfile_associate'} eq 'reverse') {
3076: $javascript=&csvupload_javascript_reverse_associate();
3077: } else {
3078: $javascript=&csvupload_javascript_forward_associate();
3079: }
3080:
3081: my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');
3082: my $ignore=&mt('Ignore First Line');
1.117 bisitz 3083: my $buttontext = &mt('Reverse Association');
3084:
3085: $r->print(
3086: '<form method="post" enctype="multipart/form-data" action="/adm/slotrequest" name="slotupload">'
1.149 raeburn 3087: .'<h2 class="LC_heading_2">'.&mt('Identify fields in uploaded list').'</h2>'
1.117 bisitz 3088: .'<div class="LC_columnSection">'
3089: .&Apache::loncommon::help_open_topic(
3090: 'Slot About',&mt('Help on slots'))
3091: .' '.&Apache::loncommon::help_open_topic(
3092: 'Slot SelectingField',&mt('Help on selecting Fields'))
3093: ."</div>\n"
3094: .'<p class="LC_info">'
3095: .&mt('Total number of records found in file: [_1]','<b>'.$distotal.'</b>')
3096: ."</p>\n"
3097: );
3098: if ($distotal == 0) {
3099: $r->print('<p class="LC_warning">'.&mt('None found').'</p>');
3100: }
3101: $r->print(
3102: '<p>'
3103: .&mt('Enter as many fields as you can.').'<br />'
3104: .&mt('The system will inform you and bring you back to this page,[_1]if the data selected is insufficient to create the slots.','<br />')
3105: .'</p>'
3106: );
3107: $r->print(
3108: '<div class="LC_left_float">'
3109: .'<fieldset><legend>'.&mt('Functions').'</legend>'
3110: .'<label><input type="checkbox" name="noFirstLine"'.$checked.' />'.$ignore.'</label>'
3111: .' <input type="button" value="'.$buttontext
3112: .'" onclick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />'
3113: .'</fieldset></div><br clear="all" />'
3114: );
1.72 rezaferr 3115:
1.14 albertel 3116: $r->print(<<ENDPICK);
3117: <input type="hidden" name="associate" value="" />
3118: <input type="hidden" name="datatoken" value="$datatoken" />
3119: <input type="hidden" name="fileupload" value="$env{'form.fileupload'}" />
3120: <input type="hidden" name="upfiletype" value="$env{'form.upfiletype'}" />
3121: <input type="hidden" name="upfile_associate"
3122: value="$env{'form.upfile_associate'}" />
3123: <input type="hidden" name="command" value="csvuploadassign" />
3124: <script type="text/javascript" language="Javascript">
1.117 bisitz 3125: // <![CDATA[
1.14 albertel 3126: $javascript
1.117 bisitz 3127: // ]]>
1.14 albertel 3128: </script>
3129: ENDPICK
3130: return '';
3131:
3132: }
3133:
3134: sub csvuploadmap_footer {
3135: my ($request,$i,$keyfields) =@_;
1.87 raeburn 3136: my $buttontext = &mt('Create Slots');
1.14 albertel 3137: $request->print(<<ENDPICK);
3138: <input type="hidden" name="nfields" value="$i" />
3139: <input type="hidden" name="keyfields" value="$keyfields" />
1.101 bisitz 3140: <input type="button" onclick="javascript:verify(this.form)" value="$buttontext" /><br />
1.14 albertel 3141: </form>
3142: ENDPICK
3143: }
3144:
3145: sub csvupload_javascript_reverse_associate {
1.120 bisitz 3146: my $error1=&mt('You need to specify the name, start time, end time and a type.');
1.14 albertel 3147: return(<<ENDPICK);
3148: function verify(vf) {
3149: var foundstart=0;
3150: var foundend=0;
3151: var foundname=0;
3152: var foundtype=0;
3153: for (i=0;i<=vf.nfields.value;i++) {
3154: tw=eval('vf.f'+i+'.selectedIndex');
3155: if (i==0 && tw!=0) { foundname=1; }
3156: if (i==1 && tw!=0) { foundtype=1; }
3157: if (i==2 && tw!=0) { foundstat=1; }
3158: if (i==3 && tw!=0) { foundend=1; }
3159: }
3160: if (foundstart==0 && foundend==0 && foundtype==0 && foundname==0) {
3161: alert('$error1');
3162: return;
3163: }
3164: vf.submit();
3165: }
3166: function flip(vf,tf) {
3167: }
3168: ENDPICK
3169: }
3170:
3171: sub csvupload_javascript_forward_associate {
1.120 bisitz 3172: my $error1=&mt('You need to specify the name, start time, end time and a type.');
1.14 albertel 3173: return(<<ENDPICK);
3174: function verify(vf) {
3175: var foundstart=0;
3176: var foundend=0;
3177: var foundname=0;
3178: var foundtype=0;
3179: for (i=0;i<=vf.nfields.value;i++) {
3180: tw=eval('vf.f'+i+'.selectedIndex');
3181: if (tw==1) { foundname=1; }
3182: if (tw==2) { foundtype=1; }
3183: if (tw==3) { foundstat=1; }
3184: if (tw==4) { foundend=1; }
3185: }
3186: if (foundstart==0 && foundend==0 && foundtype==0 && foundname==0) {
3187: alert('$error1');
3188: return;
3189: }
3190: vf.submit();
3191: }
3192: function flip(vf,tf) {
3193: }
3194: ENDPICK
3195: }
3196:
3197: sub csv_upload_map {
1.19 albertel 3198: my ($r)= @_;
1.14 albertel 3199:
3200: my $datatoken;
3201: if (!$env{'form.datatoken'}) {
3202: $datatoken=&Apache::loncommon::upfile_store($r);
3203: } else {
1.135 raeburn 3204: $datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'});
3205: if ($datatoken ne '') {
3206: &Apache::loncommon::load_tmp_file($r,$datatoken);
3207: }
1.14 albertel 3208: }
3209: my @records=&Apache::loncommon::upfile_record_sep();
3210: if ($env{'form.noFirstLine'}) { shift(@records); }
1.19 albertel 3211: &csvuploadmap_header($r,$datatoken,$#records+1);
1.14 albertel 3212: my ($i,$keyfields);
3213: if (@records) {
3214: my @fields=&csvupload_fields();
3215:
3216: if ($env{'form.upfile_associate'} eq 'reverse') {
3217: &Apache::loncommon::csv_print_samples($r,\@records);
3218: $i=&Apache::loncommon::csv_print_select_table($r,\@records,
3219: \@fields);
3220: foreach (@fields) { $keyfields.=$_->[0].','; }
3221: chop($keyfields);
3222: } else {
3223: unshift(@fields,['none','']);
3224: $i=&Apache::loncommon::csv_samples_select_table($r,\@records,
3225: \@fields);
3226: my %sone=&Apache::loncommon::record_sep($records[0]);
3227: $keyfields=join(',',sort(keys(%sone)));
3228: }
3229: }
3230: &csvuploadmap_footer($r,$i,$keyfields);
3231:
3232: return '';
3233: }
3234:
3235: sub csvupload_fields {
3236: return (['name','Slot name'],
3237: ['type','Type of slot'],
3238: ['starttime','Start Time of slot'],
3239: ['endtime','End Time of slot'],
1.15 albertel 3240: ['startreserve','Reservation Start Time'],
1.111 raeburn 3241: ['endreserve','Reservation End Time'],
1.109 raeburn 3242: ['reservationmsg','Message when reservation changed'],
1.14 albertel 3243: ['ip','IP or DNS restriction'],
1.131 raeburn 3244: ['iptied','Unique IP each student'],
1.14 albertel 3245: ['proctor','List of proctor ids'],
3246: ['description','Slot Description'],
3247: ['maxspace','Maximum number of reservations'],
1.130 raeburn 3248: ['symb','Resource(s)/Map(s) Restriction'],
1.14 albertel 3249: ['uniqueperiod','Date range of slot exclusion'],
1.49 albertel 3250: ['secret','Secret word proctor uses to validate'],
3251: ['allowedsections','Sections slot is restricted to'],
3252: ['allowedusers','Users slot is restricted to'],
3253: );
1.14 albertel 3254: }
3255:
3256: sub csv_upload_assign {
1.19 albertel 3257: my ($r,$mgr)= @_;
1.135 raeburn 3258: my $datatoken = &Apache::loncommon::valid_datatoken($env{'form.datatoken'});
3259: if ($datatoken ne '') {
3260: &Apache::loncommon::load_tmp_file($r,$datatoken);
3261: }
1.14 albertel 3262: my @slotdata = &Apache::loncommon::upfile_record_sep();
3263: if ($env{'form.noFirstLine'}) { shift(@slotdata); }
3264: my %fields=&Apache::grades::get_fields();
1.87 raeburn 3265: $r->print('<h3>'.&mt('Creating Slots').'</h3>');
1.14 albertel 3266: my $cname=$env{'course.'.$env{'request.course.id'}.'.num'};
3267: my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
3268: my $countdone=0;
1.31 albertel 3269: my @errors;
1.14 albertel 3270: foreach my $slot (@slotdata) {
3271: my %slot;
3272: my %entries=&Apache::loncommon::record_sep($slot);
3273: my $domain;
3274: my $name=$entries{$fields{'name'}};
1.31 albertel 3275: if ($name=~/^\s*$/) {
3276: push(@errors,"Did not create slot with no name");
3277: next;
3278: }
3279: if ($name=~/\s/) {
3280: push(@errors,"$name not created -- Name must not contain spaces");
3281: next;
3282: }
3283: if ($name=~/\W/) {
3284: push(@errors,"$name not created -- Name must contain only letters, numbers and _");
3285: next;
3286: }
1.14 albertel 3287: if ($entries{$fields{'type'}}) {
3288: $slot{'type'}=$entries{$fields{'type'}};
3289: } else {
3290: $slot{'type'}='preassigned';
3291: }
1.31 albertel 3292: if ($slot{'type'} ne 'preassigned' &&
3293: $slot{'type'} ne 'schedulable_student') {
3294: push(@errors,"$name not created -- invalid type ($slot{'type'}) must be either preassigned or schedulable_student");
3295: next;
3296: }
1.14 albertel 3297: if ($entries{$fields{'starttime'}}) {
3298: $slot{'starttime'}=&UnixDate($entries{$fields{'starttime'}},"%s");
3299: }
3300: if ($entries{$fields{'endtime'}}) {
1.16 albertel 3301: $slot{'endtime'}=&UnixDate($entries{$fields{'endtime'}},"%s");
1.14 albertel 3302: }
1.58 albertel 3303:
3304: # start/endtime must be defined and greater than zero
3305: if (!$slot{'starttime'}) {
3306: push(@errors,"$name not created -- Invalid start time");
3307: next;
3308: }
3309: if (!$slot{'endtime'}) {
3310: push(@errors,"$name not created -- Invalid end time");
3311: next;
3312: }
3313: if ($slot{'starttime'} > $slot{'endtime'}) {
3314: push(@errors,"$name not created -- Slot starts after it ends");
3315: next;
3316: }
3317:
1.23 albertel 3318: if ($entries{$fields{'startreserve'}}) {
1.132 raeburn 3319: my $date = &UnixDate($entries{$fields{'startreserve'}},"%s");
3320: if ($date eq '') {
3321: push(@errors,"$name -- No reservation start time set for slot -- value provided had invalid format");
3322: } else {
3323: $slot{'startreserve'} = $date;
3324: }
1.23 albertel 3325: }
1.58 albertel 3326: if (defined($slot{'startreserve'})
3327: && $slot{'startreserve'} > $slot{'starttime'}) {
3328: push(@errors,"$name not created -- Slot's reservation start time is after the slot's start time.");
3329: next;
3330: }
3331:
1.111 raeburn 3332: if ($entries{$fields{'endreserve'}}) {
1.132 raeburn 3333: my $date = &UnixDate($entries{$fields{'endreserve'}},"%s");
3334: if ($date eq '') {
3335: push(@errors,"$name -- No reservation end time set for slot -- value provided had invalid format");
3336: } else {
3337: $slot{'endreserve'} = $date;
3338: }
1.111 raeburn 3339: }
3340: if (defined($slot{'endreserve'})
3341: && $slot{'endreserve'} > $slot{'starttime'}) {
3342: push(@errors,"$name not created -- Slot's reservation end time is after the slot's start time.");
3343: next;
3344: }
3345:
1.109 raeburn 3346: if ($slot{'type'} eq 'schedulable_student') {
3347: if ($entries{$fields{'reservationmsg'}}) {
3348: if (($entries{$fields{'reservationmsg'}} eq 'only_student') ||
3349: ($entries{$fields{'reservationmsg'}} eq 'student_and_user_notes_screen')) {
3350: $slot{'reservationmsg'}=$entries{$fields{'reservationmsg'}};
3351: } else {
3352: unless (($entries{$fields{'reservationmsg'}} eq 'none') ||
3353: ($entries{$fields{'reservationmsg'}} eq '')) {
3354: push(@errors,"$name -- Slot's reservationmsg setting ignored - not one of: 'only_student', 'student_and_user_notes_screen', 'none' or ''");
3355: }
3356: }
3357: }
3358: }
3359:
1.14 albertel 3360: foreach my $key ('ip','proctor','description','maxspace',
3361: 'secret','symb') {
3362: if ($entries{$fields{$key}}) {
3363: $slot{$key}=$entries{$fields{$key}};
1.143 raeburn 3364: if ($key eq 'maxspace') {
3365: $slot{$key} =~ s/\D+//g;
3366: }
1.14 albertel 3367: }
3368: }
1.131 raeburn 3369: if ($entries{$fields{'iptied'}} =~ /^\s*(yes|1)\s*$/i) {
3370: $slot{'iptied'}='yes';
3371: } elsif ($entries{$fields{'iptied'}} =~ /^\s*answer\s*$/i) {
3372: $slot{'iptied'}='answer';
3373: }
1.124 raeburn 3374: if ($entries{$fields{'allowedusers'}}) {
3375: $entries{$fields{'allowedusers'}} =~ s/^\s+//;
3376: $entries{$fields{'allowedusers'}} =~ s/\s+$//;
3377: my @allowedusers;
3378: foreach my $poss (split(/\s*,\s*/,$entries{$fields{'allowedusers'}})) {
3379: my ($possuname,$possudom) = split(/:/,$poss);
3380: if (($possuname =~ /^$match_username$/) && ($possudom =~ /^$match_domain$/)) {
3381: unless (grep(/^\Q$poss\E$/,@allowedusers)) {
3382: push(@allowedusers,$poss);
3383: }
3384: }
3385: }
3386: if (@allowedusers > 0) {
3387: $slot{'allowedusers'} = join(',',@allowedusers);
3388: }
3389: }
3390: if ($entries{$fields{'allowedsections'}}) {
3391: $entries{$fields{'allowedsections'}} =~ s/^\s+//;
3392: $entries{$fields{'allowedsections'}} =~ s/\s+$//;
3393: my @allowedsections;
3394: foreach my $poss (split(/\s*,\s*/,$entries{$fields{'allowedsections'}})) {
3395: if (($poss !~ /\W/) && ($poss ne 'none')) {
3396: unless (grep(/^\Q$poss\E$/,@allowedsections)) {
3397: push(@allowedsections,$poss);
3398: }
3399: }
3400: }
3401: if (@allowedsections > 0) {
3402: $slot{'allowedsections'} = join(',',@allowedsections);
3403: }
3404: }
1.14 albertel 3405: if ($entries{$fields{'uniqueperiod'}}) {
1.132 raeburn 3406: my ($start,$end)= map { &UnixDate($_,"%s"); } split(',',$entries{$fields{'uniqueperiod'}});
3407: if (($start ne '') && ($end ne '')) {
3408: $slot{'uniqueperiod'}=[$start,$end];
3409: } else {
3410: push(@errors,"$name -- Slot's unique period ignored -- one or both of the comma separated values for start and end had an invalid format");
3411: }
1.14 albertel 3412: }
1.132 raeburn 3413: if (ref($slot{'uniqueperiod'}) eq 'ARRAY'
1.58 albertel 3414: && $slot{'uniqueperiod'}[0] > $slot{'uniqueperiod'}[1]) {
3415: push(@errors,"$name not created -- Slot's unique period start time is later than the unique period's end time.");
3416: next;
3417: }
1.14 albertel 3418:
3419: &Apache::lonnet::cput('slots',{$name=>\%slot},$cdom,$cname);
3420: $r->print('.');
3421: $r->rflush();
3422: $countdone++;
3423: }
1.112 raeburn 3424: if ($countdone) {
3425: &Apache::lonnet::devalidate_slots_cache($cname,$cdom);
3426: }
1.87 raeburn 3427: $r->print('<p>'.&mt('Created [quant,_1,slot]',$countdone)."\n".'</p>');
1.31 albertel 3428: foreach my $error (@errors) {
1.87 raeburn 3429: $r->print('<p><span class="LC_warning">'.$error.'</span></p>'."\n");
1.31 albertel 3430: }
1.19 albertel 3431: &show_table($r,$mgr);
1.14 albertel 3432: return '';
3433: }
3434:
1.91 raeburn 3435: sub slot_command_titles {
3436: my %titles = (
3437: slotlog => 'Reservation Logs',
3438: showslots => 'Manage Slots',
3439: showresv => 'Reservation History',
3440: manageresv => 'Manage Reservations',
3441: uploadstart => 'Upload Slots File',
3442: csvuploadmap => 'Upload Slots File',
3443: csvuploadassign => 'Upload Slots File',
3444: delete => 'Slot Deletion',
3445: release => 'Reservation Result',
3446: remove_reservation => 'Remove Registration',
3447: get_reservation => 'Request Reservation',
3448: );
3449: return %titles;
3450: }
3451:
1.109 raeburn 3452: sub slot_reservationmsg_options {
3453: my %options = &Apache::lonlocal::texthash (
3454: only_student => 'Sent to student',
3455: student_and_user_notes_screen => 'Sent to student and added to user notes',
3456: none => 'None sent and no record in user notes',
3457: );
3458: return %options;
3459: }
3460:
1.151 ! raeburn 3461: sub get_user_breadcrumbs {
! 3462: my ($symb) = @_;
! 3463: my ($mapurl, $rid, $resurl) = &Apache::lonnet::decode_symb($symb);
! 3464: return [] unless (&Apache::lonnet::symbverify($symb,$resurl));
! 3465: my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
! 3466: my $maptitle = &Apache::lonnet::gettitle($mapurl);
! 3467: my $restitle = &Apache::lonnet::gettitle($symb);
! 3468: my $crstype = &Apache::loncommon::course_type();
! 3469: my ($ltiscope,$ltiuri);
! 3470: my (@crumbs,@mapcrumbs);
! 3471: if (($env{'request.course.id'}) && ($env{'request.lti.login'})) {
! 3472: ($ltiscope,$ltiuri) =
! 3473: &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},
! 3474: $env{'course.'.$env{'request.course.id'}.'.domain'},
! 3475: $env{'course.'.$env{'request.course.id'}.'.num'});
! 3476: }
! 3477: if (($resurl ne '/adm/navmaps') && ($mapurl ne '') &&
! 3478: (!(($crstype eq 'Placement') && !$env{'request.role.adv'}))) {
! 3479: unless ($ltiscope eq 'resource') {
! 3480: if (($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) &&
! 3481: !(($ltiscope eq 'map') && (&Apache::lonnet::clutter($resurl) eq $ltiuri))) {
! 3482: my $navmap = Apache::lonnavmaps::navmap->new();
! 3483: if (ref($navmap)) {
! 3484: @mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle);
! 3485: }
! 3486: }
! 3487: }
! 3488: }
! 3489: unless ((($crstype eq 'Placement') && (!$env{'request.role.adv'})) ||
! 3490: ($ltiscope eq 'map') || ($ltiscope eq 'resource')) {
! 3491: @crumbs = ({text => $crstype.' Contents',
! 3492: href => "javascript:gopost('/adm/navmaps','')"});
! 3493: }
! 3494: if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
! 3495: if (@mapcrumbs) {
! 3496: push(@crumbs,@mapcrumbs);
! 3497: } elsif (!(($crstype eq 'Placement') && (!$env{'request.role.adv'})) &&
! 3498: ($ltiscope ne 'map') && ($ltiscope ne 'resource')) {
! 3499: push(@crumbs, {text => '...',
! 3500: no_mt => 1});
! 3501: }
! 3502: }
! 3503: unless ((($crstype eq 'Placement') && (!$env{'request.role.adv'})) || (@mapcrumbs) ||
! 3504: (!$maptitle) || ($maptitle eq 'default.sequence') ||
! 3505: ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) ||
! 3506: ($ltiscope eq 'resource')) {
! 3507: push(@crumbs, {text => $maptitle, no_mt => 1,
! 3508: href => &Apache::lonnet::clutter($mapurl).'?navmap=1'});
! 3509: }
! 3510: if ($restitle && !@mapcrumbs) {
! 3511: push(@crumbs,{text => $restitle, no_mt => 1});
! 3512: }
! 3513: return \@crumbs;
! 3514: }
! 3515:
1.1 albertel 3516: sub handler {
3517: my $r=shift;
3518:
1.30 albertel 3519: &Apache::loncommon::content_type($r,'text/html');
3520: &Apache::loncommon::no_cache($r);
3521: if ($r->header_only()) {
3522: $r->send_http_header();
3523: return OK;
3524: }
3525:
1.8 albertel 3526: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
1.91 raeburn 3527:
3528: my %crumb_titles = &slot_command_titles();
1.151 ! raeburn 3529: my ($symb,$brcrum,$bread_crumbs_component);
1.91 raeburn 3530:
1.12 albertel 3531: my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
1.14 albertel 3532: my $mgr=&Apache::lonnet::allowed('mgr',$env{'request.course.id'});
1.122 raeburn 3533: my (%slots,$consumed_uniqueperiods);
1.91 raeburn 3534: if ($env{'form.command'} eq 'showslots') {
3535: if (($vgr ne 'F') && ($mgr ne 'F')) {
3536: $env{'form.command'} = 'manageresv';
3537: }
3538: } elsif ($env{'form.command'} eq 'manageresv') {
3539: if (($vgr eq 'F') || ($mgr eq 'F')) {
3540: $env{'form.command'} = 'showslots';
3541: }
3542: }
1.28 albertel 3543: my $title='Requesting Another Worktime';
1.91 raeburn 3544: if ($env{'form.command'} eq 'showresv') {
3545: $title = 'Reservation History';
3546: if ($env{'form.origin'} eq 'aboutme') {
3547: $brcrum =[{href=>"/adm/$env{'form.udom'}/$env{'form.uname'}/aboutme",text=>'Personal Information Page'}];
3548: } else {
3549: $brcrum =[{href=>"/adm/slotrequest?command=manageresv",text=>'Manage Reservations'}];
3550: }
3551: if (ref($brcrum) eq 'ARRAY') {
3552: push(@{$brcrum},{href=>"/adm/slotrequest?command=showresv",text=>$title});
3553: }
1.147 raeburn 3554: } elsif (($env{'form.requestattempt'}) || ($env{'form.command'} eq 'manageresv')) {
1.122 raeburn 3555: if ($env{'form.command'} eq 'manageresv') {
3556: $title = 'Manage Reservations';
3557: $brcrum =[{href=>"/adm/slotrequest?command=manageresv",text=>$title}];
3558: }
1.151 ! raeburn 3559: if ($env{'form.requestattempt'}) {
! 3560: $symb=&unescape($env{'form.symb'});
! 3561: if ($symb) {
! 3562: $brcrum = &get_user_breadcrumbs($symb);
! 3563: }
! 3564: }
1.122 raeburn 3565: my ($cnum,$cdom)=&get_course();
3566: %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
3567: $consumed_uniqueperiods = &get_consumed_uniqueperiods(\%slots);
1.91 raeburn 3568: } elsif ($vgr eq 'F') {
3569: if ($env{'form.command'} =~ /^(slotlog|showslots|uploadstart|csvuploadmap|csvuploadassign|delete|release|remove_registration)$/) {
3570: $brcrum =[{href=>"/adm/slotrequest?command=showslots",
1.143 raeburn 3571: text=>$crumb_titles{'showslots'},
3572: help=>'Slot_Use'}];
1.91 raeburn 3573: $title = 'Managing Slots';
1.143 raeburn 3574: $bread_crumbs_component = 'Slots';
1.91 raeburn 3575: unless ($env{'form.command'} eq 'showslots') {
3576: if (ref($brcrum) eq 'ARRAY') {
3577: push(@{$brcrum},{href=>"/adm/slotrequest?command=$env{'form.command'}",text=>$crumb_titles{$env{'form.command'}}});
3578: }
3579: }
3580: }
3581: } elsif ($env{'form.command'} eq 'release') {
3582: if ($env{'form.context'} eq 'usermanage') {
3583: $brcrum =[{href=>"/adm/slotrequest?command=manageresv",
1.151 ! raeburn 3584: text=>$crumb_titles{'manageresv'}}];
1.91 raeburn 3585: $title = 'Manage Reservations';
3586: if (ref($brcrum) eq 'ARRAY') {
3587: push(@{$brcrum},{href=>"/adm/slotrequest?command=$env{'form.command'}",text=>$crumb_titles{$env{'form.command'}}});
3588: }
1.151 ! raeburn 3589: } elsif ($env{'form.context'} eq 'user') {
! 3590: if ($env{'form.symb'}) {
! 3591: $symb=&unescape($env{'form.symb'});
! 3592: $brcrum = &get_user_breadcrumbs($symb);
! 3593: } else {
! 3594: $brcrum =[];
! 3595: }
! 3596: }
! 3597: } elsif (($env{'form.command'} eq 'get') && ($env{'form.context'} eq 'user')) {
! 3598: if ($env{'form.symb'}) {
! 3599: $symb=&unescape($env{'form.symb'});
! 3600: $brcrum = &get_user_breadcrumbs($symb);
! 3601: } else {
! 3602: $brcrum =[];
1.91 raeburn 3603: }
1.113 raeburn 3604: } else {
3605: $brcrum =[];
1.28 albertel 3606: }
1.151 ! raeburn 3607: my ($js,$available,$allavailable,$got_slots);
1.122 raeburn 3608: $available = [];
3609: if ($env{'form.requestattempt'}) {
3610: @{$got_slots}=&check_for_reservation($symb,'allslots');
3611: }
3612: if (($env{'form.requestattempt'}) || ($env{'form.command'} eq 'manageresv')) {
3613: $js = &reservation_js(\%slots,$consumed_uniqueperiods,$available,$got_slots,$symb);
3614: }
1.145 raeburn 3615: &start_page($r,$title,$brcrum,$bread_crumbs_component,$js,$mgr);
1.149 raeburn 3616: $r->print('<div class="LC_landmark" role="main">'."\n");
1.28 albertel 3617:
1.91 raeburn 3618: if ($env{'form.command'} eq 'manageresv') {
1.122 raeburn 3619: $allavailable = $available;
3620: undef($available);
3621: undef($got_slots);
1.91 raeburn 3622: my $crstype = &Apache::loncommon::course_type();
1.122 raeburn 3623: &manage_reservations($r,$crstype,\%slots,$consumed_uniqueperiods,$allavailable);
1.91 raeburn 3624: } elsif ($env{'form.command'} eq 'showresv') {
3625: &show_reservations($r,$env{'form.uname'},$env{'form.udom'});
3626: } elsif ($env{'form.command'} eq 'showslots' && $vgr eq 'F') {
1.19 albertel 3627: &show_table($r,$mgr);
1.33 albertel 3628: } elsif ($env{'form.command'} eq 'remove_registration' && $mgr eq 'F') {
3629: &remove_registration($r);
3630: } elsif ($env{'form.command'} eq 'release' && $mgr eq 'F') {
1.55 albertel 3631: if ($env{'form.entry'} eq 'remove all') {
3632: &release_all_slot($r,$mgr);
3633: } else {
3634: &release_slot($r,undef,undef,undef,$mgr);
3635: }
1.34 albertel 3636: } elsif ($env{'form.command'} eq 'delete' && $mgr eq 'F') {
3637: &delete_slot($r);
1.14 albertel 3638: } elsif ($env{'form.command'} eq 'uploadstart' && $mgr eq 'F') {
1.19 albertel 3639: &upload_start($r);
1.14 albertel 3640: } elsif ($env{'form.command'} eq 'csvuploadmap' && $mgr eq 'F') {
1.19 albertel 3641: &csv_upload_map($r);
1.14 albertel 3642: } elsif ($env{'form.command'} eq 'csvuploadassign' && $mgr eq 'F') {
3643: if ($env{'form.associate'} ne 'Reverse Association') {
1.19 albertel 3644: &csv_upload_assign($r,$mgr);
1.14 albertel 3645: } else {
3646: if ( $env{'form.upfile_associate'} ne 'reverse' ) {
3647: $env{'form.upfile_associate'} = 'reverse';
3648: } else {
3649: $env{'form.upfile_associate'} = 'forward';
3650: }
1.19 albertel 3651: &csv_upload_map($r);
1.14 albertel 3652: }
1.133 raeburn 3653: } elsif (($env{'form.command'} eq 'slotlog') && ($vgr eq 'F')) {
1.91 raeburn 3654: &show_reservations_log($r);
1.8 albertel 3655: } else {
1.151 ! raeburn 3656: $symb = &unescape($env{'form.symb'});
1.61 albertel 3657: if (!defined($symb)) {
3658: &fail($r,'not_valid');
3659: return OK;
3660: }
1.19 albertel 3661: my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);
1.36 albertel 3662: my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
1.66 albertel 3663: if ($useslots ne 'resource'
3664: && $useslots ne 'map'
3665: && $useslots ne 'map_map') {
1.61 albertel 3666: &fail($r,'not_available');
1.19 albertel 3667: return OK;
3668: }
3669: $env{'request.symb'}=$symb;
1.36 albertel 3670: my $type = ($res =~ /\.task$/) ? 'Task'
3671: : 'problem';
3672: my ($status) = &Apache::lonhomework::check_slot_access('0',$type);
1.11 albertel 3673: if ($status eq 'CAN_ANSWER' ||
3674: $status eq 'NEEDS_CHECKIN' ||
1.131 raeburn 3675: $status eq 'WAITING_FOR_GRADE' ||
3676: $status eq 'NEED_DIFFERENT_IP') {
1.11 albertel 3677: &fail($r,'not_allowed');
3678: return OK;
3679: }
3680: if ($env{'form.requestattempt'}) {
1.151 ! raeburn 3681: $r->print('<div class="LC_left_float">'.
! 3682: &show_choices($symb,undef,0,undef,\%slots,$consumed_uniqueperiods,$available,$got_slots).
! 3683: '</div><div style="padding:0;clear:both;margin:0;border:0"></div>');
1.11 albertel 3684: } elsif ($env{'form.command'} eq 'release') {
3685: &release_slot($r,$symb);
3686: } elsif ($env{'form.command'} eq 'get') {
3687: &get_slot($r,$symb);
3688: } elsif ($env{'form.command'} eq 'change') {
1.110 raeburn 3689: if ($env{'form.nochange'}) {
3690: my $slot_name = $env{'form.releaseslot'};
3691: my @slots = &check_for_reservation($symb,'allslots');
3692: my $msg;
3693: if (($slot_name ne '') && (grep(/^\Q$slot_name\E/,@slots))) {
3694: my %slot=&Apache::lonnet::get_slot($env{'form.releaseslot'});
3695: my $description=&get_description($slot_name,\%slot);
3696: $msg = '<span style="font-weight: bold;">'.
3697: &mt('Unchanged reservation: [_1]',$description).'</span><br /><br />';
3698: my $person =
3699: &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
3700: my $subject = &mt('Reservation unchanged: [_1]',$description);
3701: my $msgbody = &mt('No change to existing registration by [_1] for [_2].',$person,$description);
3702: $msg .= &slot_change_messaging($slot{'reservationmsg'},$subject,$msgbody,'nochange');
3703: } else {
3704: $msg = '<span class="LC_warning">'.&mt('Reservation no longer reported as available.').'</span>';
3705: }
3706: $r->print($msg);
3707: &return_link($r);
3708: } elsif (&get_slot($r,$symb,$env{'form.releaseslot'},1)) {
1.75 albertel 3709: &release_slot($r,$symb,$env{'form.releaseslot'});
1.39 albertel 3710: }
1.11 albertel 3711: } else {
1.87 raeburn 3712: $r->print('<p>'.&mt('Unknown command: [_1]',$env{'form.command'}).'</p>');
1.11 albertel 3713: }
1.2 albertel 3714: }
1.1 albertel 3715: &end_page($r);
3716: return OK;
3717: }
1.3 albertel 3718:
3719: 1;
3720: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to slotrequest.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface