version 1.25, 2002/02/26 20:59:28
|
version 1.31, 2002/04/15 23:37:37
|
Line 273 sub get_previous_attempt {
|
Line 273 sub get_previous_attempt {
|
} |
} |
$prevattempts='<table border=2></tr><th>History</th>'; |
$prevattempts='<table border=2></tr><th>History</th>'; |
foreach (sort(keys %lasthash)) { |
foreach (sort(keys %lasthash)) { |
$prevattempts.='<th>'.$_.'</th>'; |
my ($ign,@parts) = split(/\./,$_); |
|
if (@parts) { |
|
my $data=$parts[-1]; |
|
pop(@parts); |
|
$prevattempts.='<th>Part '.join('.',@parts).'<br />'.$data.'</th>'; |
|
} else { |
|
$prevattempts.='<th>'.$ign.'</th>'; |
|
} |
} |
} |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
for ($version=1;$version<=$returnhash{'version'};$version++) { |
$prevattempts.='</tr><tr><th>Attempt '.$version.'</th>'; |
$prevattempts.='</tr><tr><th>Attempt '.$version.'</th>'; |
Line 359 sub get_student_answers {
|
Line 366 sub get_student_answers {
|
|
|
sub get_unprocessed_cgi { |
sub get_unprocessed_cgi { |
my ($query,$possible_names)= @_; |
my ($query,$possible_names)= @_; |
$Apache::lonxml::debug=1; |
# $Apache::lonxml::debug=1; |
foreach (split(/&/,$query)) { |
foreach (split(/&/,$query)) { |
my ($name, $value) = split(/=/,$_); |
my ($name, $value) = split(/=/,$_); |
$name = &Apache::lonnet::unescape($name); |
$name = &Apache::lonnet::unescape($name); |
Line 367 sub get_unprocessed_cgi {
|
Line 374 sub get_unprocessed_cgi {
|
$value =~ tr/+/ /; |
$value =~ tr/+/ /; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
&Apache::lonxml::debug("Seting :$name: to :$value:"); |
&Apache::lonxml::debug("Seting :$name: to :$value:"); |
&add_to_env('form.'.$name,$value); |
unless (defined($ENV{'form.'.$name})) { &add_to_env('form.'.$name,$value) }; |
} |
} |
} |
} |
} |
} |
Line 392 sub no_cache {
|
Line 399 sub no_cache {
|
|
|
sub add_to_env { |
sub add_to_env { |
my ($name,$value)=@_; |
my ($name,$value)=@_; |
if ($ENV{$name}) { |
if (defined($ENV{$name})) { |
if (defined(@{ $ENV{$name} })) { |
if (ref($ENV{$name})) { |
#already have multiple values |
#already have multiple values |
push(@{ $ENV{$name} },$value); |
push(@{ $ENV{$name} },$value); |
} else { |
} else { |
Line 406 sub add_to_env {
|
Line 413 sub add_to_env {
|
$ENV{$name}=$value; |
$ENV{$name}=$value; |
} |
} |
} |
} |
|
|
|
#---CSV Upload/Handling functions |
|
|
|
# ========================================================= Store uploaded file |
|
# needs $ENV{'form.upfile'} |
|
# return $datatoken to be put into hidden field |
|
|
|
sub upfile_store { |
|
my $r=shift; |
|
$ENV{'form.upfile'}=~s/\r/\n/gs; |
|
$ENV{'form.upfile'}=~s/\f/\n/gs; |
|
$ENV{'form.upfile'}=~s/\n+/\n/gs; |
|
$ENV{'form.upfile'}=~s/\n+$//gs; |
|
|
|
my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}. |
|
'_enroll_'.$ENV{'request.course.id'}.'_'.time.'_'.$$; |
|
{ |
|
my $fh=Apache::File->new('>'.$r->dir_config('lonDaemons'). |
|
'/tmp/'.$datatoken.'.tmp'); |
|
print $fh $ENV{'form.upfile'}; |
|
} |
|
return $datatoken; |
|
} |
|
|
|
# ================================================= Load uploaded file from tmp |
|
# needs $ENV{'form.datatoken'} |
|
# sets $ENV{'form.upfile'} to the contents of the file |
|
|
|
sub load_tmp_file { |
|
my $r=shift; |
|
my @studentdata=(); |
|
{ |
|
my $fh; |
|
if ($fh=Apache::File->new($r->dir_config('lonDaemons'). |
|
'/tmp/'.$ENV{'form.datatoken'}.'.tmp')) { |
|
@studentdata=<$fh>; |
|
} |
|
} |
|
$ENV{'form.upfile'}=join('',@studentdata); |
|
} |
|
|
|
# ========================================= Separate uploaded file into records |
|
# returns array of records |
|
# needs $ENV{'form.upfile'} |
|
# needs $ENV{'form.upfiletype'} |
|
|
|
sub upfile_record_sep { |
|
if ($ENV{'form.upfiletype'} eq 'xml') { |
|
} else { |
|
return split(/\n/,$ENV{'form.upfile'}); |
|
} |
|
} |
|
|
|
# =============================================== Separate a record into fields |
|
# needs $ENV{'form.upfiletype'} |
|
# takes $record as arg |
|
sub record_sep { |
|
my $record=shift; |
|
my %components=(); |
|
if ($ENV{'form.upfiletype'} eq 'xml') { |
|
} elsif ($ENV{'form.upfiletype'} eq 'space') { |
|
my $i=0; |
|
foreach (split(/\s+/,$record)) { |
|
my $field=$_; |
|
$field=~s/^(\"|\')//; |
|
$field=~s/(\"|\')$//; |
|
$components{$i}=$field; |
|
$i++; |
|
} |
|
} elsif ($ENV{'form.upfiletype'} eq 'tab') { |
|
my $i=0; |
|
foreach (split(/\t+/,$record)) { |
|
my $field=$_; |
|
$field=~s/^(\"|\')//; |
|
$field=~s/(\"|\')$//; |
|
$components{$i}=$field; |
|
$i++; |
|
} |
|
} else { |
|
my @allfields=split(/\,/,$record); |
|
my $i=0; |
|
my $j; |
|
for ($j=0;$j<=$#allfields;$j++) { |
|
my $field=$allfields[$j]; |
|
if ($field=~/^\s*(\"|\')/) { |
|
my $delimiter=$1; |
|
while (($field!~/$delimiter$/) && ($j<$#allfields)) { |
|
$j++; |
|
$field.=','.$allfields[$j]; |
|
} |
|
$field=~s/^\s*$delimiter//; |
|
$field=~s/$delimiter\s*$//; |
|
} |
|
$components{$i}=$field; |
|
$i++; |
|
} |
|
} |
|
return %components; |
|
} |
|
|
|
# =============================== HTML code to select file and specify its type |
|
sub upfile_select_html { |
|
return (<<'ENDUPFORM'); |
|
<input type="file" name="upfile" size="50"> |
|
<br />Type: <select name="upfiletype"> |
|
<option value="csv">CSV (comma separated values, spreadsheet)</option> |
|
<option value="space">Space separated</option> |
|
<option value="tab">Tabulator separated</option> |
|
<option value="xml">HTML/XML</option> |
|
</select> |
|
ENDUPFORM |
|
} |
|
|
|
# ===================Prints a table of sample values from each column uploaded |
|
# $r is an Apache Request ref |
|
# $records is an arrayref from &Apache::loncommon::upfile_record_sep |
|
sub csv_print_samples { |
|
my ($r,$records) = @_; |
|
my (%sone,%stwo,%sthree); |
|
%sone=&record_sep($$records[0]); |
|
if (defined($$records[1])) {%stwo=&record_sep($$records[1]);} |
|
if (defined($$records[2])) {%sthree=&record_sep($$records[2]);} |
|
|
|
$r->print('Samples<br /><table border="2"><tr>'); |
|
foreach (sort({$a <=> $b} keys(%sone))) { $r->print('<th>Column '.($_+1).'</th>'); } |
|
$r->print('</tr>'); |
|
foreach my $hash (\%sone,\%stwo,\%sthree) { |
|
$r->print('<tr>'); |
|
foreach (sort({$a <=> $b} keys(%sone))) { |
|
$r->print('<td>'); |
|
if (defined($$hash{$_})) { $r->print($$hash{$_}); } |
|
$r->print('</td>'); |
|
} |
|
$r->print('</tr>'); |
|
} |
|
$r->print('</tr></table><br />'."\n"); |
|
} |
|
|
|
# ======Prints a table to create associations between values and table columns |
|
# $r is an Apache Request ref |
|
# $records is an arrayref from &Apache::loncommon::upfile_record_sep |
|
# $d is an array of 2 element arrays (internal name, displayed name) |
|
sub csv_print_select_table { |
|
my ($r,$records,$d) = @_; |
|
my $i=0;my %sone; |
|
%sone=&record_sep($$records[0]); |
|
$r->print('Associate columns with student attributes.'."\n". |
|
'<table border="2"><tr><th>Attribute</th><th>Column</th></tr>'."\n"); |
|
foreach (@$d) { |
|
my ($value,$display)=@{ $_ }; |
|
$r->print('<tr><td>'.$display.'</td>'); |
|
|
|
$r->print('<td><select name=f'.$i. |
|
' onChange="flip(this.form,'.$i.');">'); |
|
$r->print('<option value="none"></option>'); |
|
foreach (sort({$a <=> $b} keys(%sone))) { |
|
$r->print('<option value="'.$_.'">Column '.($_+1).'</option>'); |
|
} |
|
$r->print('</select></td></tr>'."\n"); |
|
$i++; |
|
} |
|
$i--; |
|
return $i; |
|
} |
|
|
|
# ===================Prints a table of sample values from the upload and |
|
# can make associate samples to internal names |
|
# $r is an Apache Request ref |
|
# $records is an arrayref from &Apache::loncommon::upfile_record_sep |
|
# $d is an array of 2 element arrays (internal name, displayed name) |
|
sub csv_samples_select_table { |
|
my ($r,$records,$d) = @_; |
|
my %sone; my %stwo; my %sthree; |
|
my $i=0; |
|
|
|
$r->print('<table border=2><tr><th>Field</th><th>Samples</th></tr>'); |
|
%sone=&record_sep($$records[0]); |
|
if (defined($$records[1])) {%stwo=&record_sep($$records[1]);} |
|
if (defined($$records[2])) {%sthree=&record_sep($$records[2]);} |
|
|
|
foreach (sort keys %sone) { |
|
$r->print('<tr><td><select name=f'.$i. |
|
' onChange="flip(this.form,'.$i.');">'); |
|
foreach (@$d) { |
|
my ($value,$display)=@{ $_ }; |
|
$r->print('<option value='.$value.'>'.$display.'</option>'); |
|
} |
|
$r->print('</select></td><td>'); |
|
if (defined($sone{$_})) { $r->print($sone{$_}."</br>\n"); } |
|
if (defined($stwo{$_})) { $r->print($stwo{$_}."</br>\n"); } |
|
if (defined($sthree{$_})) { $r->print($sthree{$_}."</br>\n"); } |
|
$r->print('</td></tr>'); |
|
$i++; |
|
} |
|
$i--; |
|
return($i); |
|
} |
1; |
1; |
__END__; |
__END__; |
|
|