loncom/interface/slotrequest.pm - view

File: [LON-CAPA] / loncom / interface / slotrequest.pm
Revision 1.129: download - view: text, annotated - select for diffs
Sun Sep 27 14:21:48 2015 UTC (8 years, 9 months ago) by raeburn
Branches: MAIN
CVS tags: HEAD

- Reservations screen for students.
  - Maintain alternating background colors when toggling hide/display
    for resources with slot control within folders.

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