version 1.14, 2005/09/12 20:27:25
|
version 1.18, 2005/09/13 08:12:03
|
Line 58 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 681 sub csvupload_fields {
|
Line 680 sub csvupload_fields {
|
['type','Type of slot'], |
['type','Type of slot'], |
['starttime','Start Time of slot'], |
['starttime','Start Time of slot'], |
['endtime','End Time of slot'], |
['endtime','End Time of slot'], |
|
['startreserve','Reservation Start Time'], |
['ip','IP or DNS restriction'], |
['ip','IP or DNS restriction'], |
['proctor','List of proctor ids'], |
['proctor','List of proctor ids'], |
['description','Slot Description'], |
['description','Slot Description'], |
Line 691 sub csvupload_fields {
|
Line 691 sub csvupload_fields {
|
} |
} |
|
|
sub csv_upload_assign { |
sub csv_upload_assign { |
my ($r,$symb)= @_; |
my ($r,$symb,$mgr)= @_; |
&Apache::loncommon::load_tmp_file($r); |
&Apache::loncommon::load_tmp_file($r); |
my @slotdata = &Apache::loncommon::upfile_record_sep(); |
my @slotdata = &Apache::loncommon::upfile_record_sep(); |
if ($env{'form.noFirstLine'}) { shift(@slotdata); } |
if ($env{'form.noFirstLine'}) { shift(@slotdata); } |
Line 714 sub csv_upload_assign {
|
Line 714 sub csv_upload_assign {
|
$slot{'starttime'}=&UnixDate($entries{$fields{'starttime'}},"%s"); |
$slot{'starttime'}=&UnixDate($entries{$fields{'starttime'}},"%s"); |
} |
} |
if ($entries{$fields{'endtime'}}) { |
if ($entries{$fields{'endtime'}}) { |
$slot{'endtime'}=&UnixDate($entries{$fields{'starttime'}},"%s"); |
$slot{'endtime'}=&UnixDate($entries{$fields{'endtime'}},"%s"); |
} |
} |
foreach my $key ('ip','proctor','description','maxspace', |
foreach my $key ('ip','proctor','description','maxspace', |
'secret','symb') { |
'secret','symb') { |
Line 736 sub csv_upload_assign {
|
Line 736 sub csv_upload_assign {
|
} |
} |
$r->print("<br />Created $countdone slots\n"); |
$r->print("<br />Created $countdone slots\n"); |
$r->print("<br />\n"); |
$r->print("<br />\n"); |
&show_table($r,$symb); |
&show_table($r,$symb,$mgr); |
return ''; |
return ''; |
} |
} |
|
|
Line 762 sub handler {
|
Line 762 sub handler {
|
&csv_upload_map($r,$symb); |
&csv_upload_map($r,$symb); |
} elsif ($env{'form.command'} eq 'csvuploadassign' && $mgr eq 'F') { |
} elsif ($env{'form.command'} eq 'csvuploadassign' && $mgr eq 'F') { |
if ($env{'form.associate'} ne 'Reverse Association') { |
if ($env{'form.associate'} ne 'Reverse Association') { |
&csv_upload_assign($r,$symb); |
&csv_upload_assign($r,$symb,$mgr); |
} else { |
} else { |
if ( $env{'form.upfile_associate'} ne 'reverse' ) { |
if ( $env{'form.upfile_associate'} ne 'reverse' ) { |
$env{'form.upfile_associate'} = 'reverse'; |
$env{'form.upfile_associate'} = 'reverse'; |