version 1.12, 2005/09/06 21:31:03
|
version 1.15, 2005/09/13 07:31:08
|
Line 34 use Apache::Constants qw(:common :http :
|
Line 34 use Apache::Constants qw(:common :http :
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Date::Manip; |
|
|
sub fail { |
sub fail { |
my ($r,$code)=@_; |
my ($r,$code)=@_; |
Line 57 sub start_page {
|
Line 58 sub start_page {
|
$r->print($html.'<head><title>'. |
$r->print($html.'<head><title>'. |
&mt('Request another Worktime').'</title></head>'); |
&mt('Request another Worktime').'</title></head>'); |
$r->print(&Apache::loncommon::bodytag('Requesting another Worktime')); |
$r->print(&Apache::loncommon::bodytag('Requesting another Worktime')); |
|
$r->print('<p>'.$env{'form.command'}.'</p>'); |
} |
} |
|
|
sub end_page { |
sub end_page { |
Line 451 STUFF
|
Line 453 STUFF
|
} |
} |
|
|
sub show_table { |
sub show_table { |
my ($r,$symb)=@_; |
my ($r,$symb,$mgr)=@_; |
|
|
my ($cnum,$cdom)=&get_course(); |
my ($cnum,$cdom)=&get_course(); |
my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum); |
my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum); |
my $available; |
my $available; |
|
if ($mgr eq 'F') { |
|
$r->print('<form method="POST" action="/adm/slotrequest"> |
|
<input type="hidden" name="command" value="uploadstart" /> |
|
<input type="hidden" name="symb" value="'.$env{'form.symb'}.'" /> |
|
<input type="submit" name="start" value="'.&mt('Upload Slot List').'" /> |
|
</form>'); |
|
} |
$r->print('<table border="1"> |
$r->print('<table border="1"> |
<tr> |
<tr> |
<th>Slot name</th> |
<th>Slot name</th> |
Line 473 sub show_table {
|
Line 482 sub show_table {
|
(keys(%slots))) { |
(keys(%slots))) { |
if (defined($slots{$slot}->{'type'}) |
if (defined($slots{$slot}->{'type'}) |
&& $slots{$slot}->{'type'} ne 'schedulable_student') { |
&& $slots{$slot}->{'type'} ne 'schedulable_student') { |
next; |
#next; |
} |
} |
my $description=&get_description($slot,$slots{$slot}); |
my $description=&get_description($slot,$slots{$slot}); |
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum, |
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum, |
Line 485 sub show_table {
|
Line 494 sub show_table {
|
} |
} |
my $start=localtime($slots{$slot}->{'starttime'}); |
my $start=localtime($slots{$slot}->{'starttime'}); |
my $end=localtime($slots{$slot}->{'endtime'}); |
my $end=localtime($slots{$slot}->{'endtime'}); |
|
my $unique; |
|
if (ref($slots{$slot}{'uniqueperiod'})) { |
|
$unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','. |
|
localtime($slots{$slot}{'uniqueperiod'}[1]); |
|
} |
|
|
$r->print(<<STUFF); |
$r->print(<<STUFF); |
<tr> |
<tr> |
<td>$slot</td> |
<td>$slot</td> |
Line 495 sub show_table {
|
Line 510 sub show_table {
|
<td>$slots{$slot}->{'maxspace'}</td> |
<td>$slots{$slot}->{'maxspace'}</td> |
<td>$ids</td> |
<td>$ids</td> |
<td>$slots{$slot}->{'proctor'}</td> |
<td>$slots{$slot}->{'proctor'}</td> |
<td>$slots{$slot}->{'uniqueperiod'}</td> |
<td>$unique</td> |
</tr> |
</tr> |
STUFF |
STUFF |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
} |
} |
|
|
|
sub upload_start { |
|
my ($r,$symb)=@_; |
|
$r->print(&Apache::grades::checkforfile_js()); |
|
my $result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n"; |
|
$result.=' <b>'. |
|
&mt('Specify a file containing the slot definitions.'). |
|
'</b></td></tr>'."\n"; |
|
$result.='<tr bgcolor=#ffffe6><td>'."\n"; |
|
my $upfile_select=&Apache::loncommon::upfile_select_html(); |
|
my $ignore=&mt('Ignore First Line'); |
|
$result.=<<ENDUPFORM; |
|
<form method="post" enctype="multipart/form-data" action="/adm/slotrequest" name="slotupload"> |
|
<input type="hidden" name="symb" value="$symb" /> |
|
<input type="hidden" name="command" value="csvuploadmap" /> |
|
$upfile_select |
|
<br /><input type="button" onClick="javascript:checkUpload(this.form);" value="Upload Data" /> |
|
<label><input type="checkbox" name="noFirstLine" />$ignore</label> |
|
</form> |
|
ENDUPFORM |
|
$result.='</td></tr></table>'."\n"; |
|
$result.='</td></tr></table>'."\n"; |
|
$r->print($result); |
|
} |
|
|
|
sub csvuploadmap_header { |
|
my ($r,$symb,$datatoken,$distotal)= @_; |
|
my $javascript; |
|
if ($env{'form.upfile_associate'} eq 'reverse') { |
|
$javascript=&csvupload_javascript_reverse_associate(); |
|
} else { |
|
$javascript=&csvupload_javascript_forward_associate(); |
|
} |
|
|
|
my $checked=(($env{'form.noFirstLine'})?' checked="checked"':''); |
|
my $ignore=&mt('Ignore First Line'); |
|
$r->print(<<ENDPICK); |
|
<form method="post" enctype="multipart/form-data" action="/adm/slotrequest" name="slotupload"> |
|
<h3>Identify fields</h3> |
|
Total number of records found in file: $distotal <hr /> |
|
Enter as many fields as you can. The system will inform you and bring you back |
|
to this page if the data selected is insufficient to create the slots.<hr /> |
|
<input type="button" value="Reverse Association" onClick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" /> |
|
<label><input type="checkbox" name="noFirstLine" $checked />$ignore</label> |
|
<input type="hidden" name="associate" value="" /> |
|
<input type="hidden" name="datatoken" value="$datatoken" /> |
|
<input type="hidden" name="fileupload" value="$env{'form.fileupload'}" /> |
|
<input type="hidden" name="upfiletype" value="$env{'form.upfiletype'}" /> |
|
<input type="hidden" name="upfile_associate" |
|
value="$env{'form.upfile_associate'}" /> |
|
<input type="hidden" name="symb" value="$symb" /> |
|
<input type="hidden" name="command" value="csvuploadassign" /> |
|
<hr /> |
|
<script type="text/javascript" language="Javascript"> |
|
$javascript |
|
</script> |
|
ENDPICK |
|
return ''; |
|
|
|
} |
|
|
|
sub csvuploadmap_footer { |
|
my ($request,$i,$keyfields) =@_; |
|
$request->print(<<ENDPICK); |
|
</table> |
|
<input type="hidden" name="nfields" value="$i" /> |
|
<input type="hidden" name="keyfields" value="$keyfields" /> |
|
<input type="button" onClick="javascript:verify(this.form)" value="Create Slots" /><br /> |
|
</form> |
|
ENDPICK |
|
} |
|
|
|
sub csvupload_javascript_reverse_associate { |
|
my $error1=&mt('You need to specify the name, starttime, endtime and a type'); |
|
return(<<ENDPICK); |
|
function verify(vf) { |
|
var foundstart=0; |
|
var foundend=0; |
|
var foundname=0; |
|
var foundtype=0; |
|
for (i=0;i<=vf.nfields.value;i++) { |
|
tw=eval('vf.f'+i+'.selectedIndex'); |
|
if (i==0 && tw!=0) { foundname=1; } |
|
if (i==1 && tw!=0) { foundtype=1; } |
|
if (i==2 && tw!=0) { foundstat=1; } |
|
if (i==3 && tw!=0) { foundend=1; } |
|
} |
|
if (foundstart==0 && foundend==0 && foundtype==0 && foundname==0) { |
|
alert('$error1'); |
|
return; |
|
} |
|
vf.submit(); |
|
} |
|
function flip(vf,tf) { |
|
} |
|
ENDPICK |
|
} |
|
|
|
sub csvupload_javascript_forward_associate { |
|
my $error1=&mt('You need to specify the name, starttime, endtime and a type'); |
|
return(<<ENDPICK); |
|
function verify(vf) { |
|
var foundstart=0; |
|
var foundend=0; |
|
var foundname=0; |
|
var foundtype=0; |
|
for (i=0;i<=vf.nfields.value;i++) { |
|
tw=eval('vf.f'+i+'.selectedIndex'); |
|
if (tw==1) { foundname=1; } |
|
if (tw==2) { foundtype=1; } |
|
if (tw==3) { foundstat=1; } |
|
if (tw==4) { foundend=1; } |
|
} |
|
if (foundstart==0 && foundend==0 && foundtype==0 && foundname==0) { |
|
alert('$error1'); |
|
return; |
|
} |
|
vf.submit(); |
|
} |
|
function flip(vf,tf) { |
|
} |
|
ENDPICK |
|
} |
|
|
|
sub csv_upload_map { |
|
my ($r,$symb)= @_; |
|
|
|
my $datatoken; |
|
if (!$env{'form.datatoken'}) { |
|
$datatoken=&Apache::loncommon::upfile_store($r); |
|
} else { |
|
$datatoken=$env{'form.datatoken'}; |
|
&Apache::loncommon::load_tmp_file($r); |
|
} |
|
my @records=&Apache::loncommon::upfile_record_sep(); |
|
if ($env{'form.noFirstLine'}) { shift(@records); } |
|
&csvuploadmap_header($r,$symb,$datatoken,$#records+1); |
|
my ($i,$keyfields); |
|
if (@records) { |
|
my @fields=&csvupload_fields(); |
|
|
|
if ($env{'form.upfile_associate'} eq 'reverse') { |
|
&Apache::loncommon::csv_print_samples($r,\@records); |
|
$i=&Apache::loncommon::csv_print_select_table($r,\@records, |
|
\@fields); |
|
foreach (@fields) { $keyfields.=$_->[0].','; } |
|
chop($keyfields); |
|
} else { |
|
unshift(@fields,['none','']); |
|
$i=&Apache::loncommon::csv_samples_select_table($r,\@records, |
|
\@fields); |
|
my %sone=&Apache::loncommon::record_sep($records[0]); |
|
$keyfields=join(',',sort(keys(%sone))); |
|
} |
|
} |
|
&csvuploadmap_footer($r,$i,$keyfields); |
|
|
|
return ''; |
|
} |
|
|
|
sub csvupload_fields { |
|
return (['name','Slot name'], |
|
['type','Type of slot'], |
|
['starttime','Start Time of slot'], |
|
['endtime','End Time of slot'], |
|
['startreserve','Reservation Start Time'], |
|
['ip','IP or DNS restriction'], |
|
['proctor','List of proctor ids'], |
|
['description','Slot Description'], |
|
['maxspace','Maximum number of reservations'], |
|
['symb','Resource Restriction'], |
|
['uniqueperiod','Date range of slot exclusion'], |
|
['secret','Secret word proctor uses to validate']); |
|
} |
|
|
|
sub csv_upload_assign { |
|
my ($r,$symb)= @_; |
|
&Apache::loncommon::load_tmp_file($r); |
|
my @slotdata = &Apache::loncommon::upfile_record_sep(); |
|
if ($env{'form.noFirstLine'}) { shift(@slotdata); } |
|
my %fields=&Apache::grades::get_fields(); |
|
$r->print('<h3>Creating Slots</h3>'); |
|
my $cname=$env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $countdone=0; |
|
foreach my $slot (@slotdata) { |
|
my %slot; |
|
my %entries=&Apache::loncommon::record_sep($slot); |
|
my $domain; |
|
my $name=$entries{$fields{'name'}}; |
|
if ($entries{$fields{'type'}}) { |
|
$slot{'type'}=$entries{$fields{'type'}}; |
|
} else { |
|
$slot{'type'}='preassigned'; |
|
} |
|
if ($entries{$fields{'starttime'}}) { |
|
$slot{'starttime'}=&UnixDate($entries{$fields{'starttime'}},"%s"); |
|
} |
|
if ($entries{$fields{'endtime'}}) { |
|
$slot{'endtime'}=&UnixDate($entries{$fields{'starttime'}},"%s"); |
|
} |
|
foreach my $key ('ip','proctor','description','maxspace', |
|
'secret','symb') { |
|
if ($entries{$fields{$key}}) { |
|
$slot{$key}=$entries{$fields{$key}}; |
|
} |
|
} |
|
if ($entries{$fields{'uniqueperiod'}}) { |
|
my ($start,$end)=split(',',$entries{$fields{'uniqueperiod'}}); |
|
my @times=(&UnixDate($start,"%s"), |
|
&UnixDate($end,"%s")); |
|
$slot{'uniqueperiod'}=\@times; |
|
} |
|
|
|
&Apache::lonnet::cput('slots',{$name=>\%slot},$cdom,$cname); |
|
$r->print('.'); |
|
$r->rflush(); |
|
$countdone++; |
|
} |
|
$r->print("<br />Created $countdone slots\n"); |
|
$r->print("<br />\n"); |
|
&show_table($r,$symb); |
|
return ''; |
|
} |
|
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
|
|
Line 515 sub handler {
|
Line 754 sub handler {
|
} |
} |
$env{'request.symb'}=$symb; |
$env{'request.symb'}=$symb; |
my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'}); |
my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'}); |
|
my $mgr=&Apache::lonnet::allowed('mgr',$env{'request.course.id'}); |
if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') { |
if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') { |
&show_table($r,$symb); |
&show_table($r,$symb,$mgr); |
|
} elsif ($env{'form.command'} eq 'uploadstart' && $mgr eq 'F') { |
|
&upload_start($r,$symb); |
|
} elsif ($env{'form.command'} eq 'csvuploadmap' && $mgr eq 'F') { |
|
&csv_upload_map($r,$symb); |
|
} elsif ($env{'form.command'} eq 'csvuploadassign' && $mgr eq 'F') { |
|
if ($env{'form.associate'} ne 'Reverse Association') { |
|
&csv_upload_assign($r,$symb); |
|
} else { |
|
if ( $env{'form.upfile_associate'} ne 'reverse' ) { |
|
$env{'form.upfile_associate'} = 'reverse'; |
|
} else { |
|
$env{'form.upfile_associate'} = 'forward'; |
|
} |
|
&csv_upload_map($r,$symb); |
|
} |
} else { |
} else { |
my ($status) = &Apache::lonhomework::check_task_access('0'); |
my ($status) = &Apache::lonhomework::check_task_access('0'); |
if ($status eq 'CAN_ANSWER' || |
if ($status eq 'CAN_ANSWER' || |