version 1.60, 2002/09/11 18:07:35
|
version 1.61, 2002/09/11 20:18:08
|
Line 366 ENDPART
|
Line 366 ENDPART
|
#-- open and analyses the primary sequence |
#-- open and analyses the primary sequence |
my $sequence_file=&Apache::lonnet::filelocation("",$primary_sequence); |
my $sequence_file=&Apache::lonnet::filelocation("",$primary_sequence); |
my $sequencefilecontents=&Apache::lonnet::getfile($sequence_file); |
my $sequencefilecontents=&Apache::lonnet::getfile($sequence_file); |
my @master_seq = &content_map($sequencefilecontents); |
my @master_seq = &coming_from_hash($primary_sequence); |
#-- produce an output string |
#-- produce an output string |
for (my $i=0;$i<=$#master_seq;$i++) { |
for (my $i=0;$i<=$#master_seq;$i++) { |
$_ = $master_seq[$i]; |
my $urlp = $master_seq[$i]; |
m/\"(.*)\"/; |
|
$_ = $1; |
|
my $urlp = $1; |
|
if ($choice eq 'Standard LaTeX output for the primary sequence') { |
if ($choice eq 'Standard LaTeX output for the primary sequence') { |
$selectionmade = 2; |
$selectionmade = 2; |
if ($urlp =~ m/\.(problem|exam|quiz|assess|survey|form|library)/) { |
if ($urlp =~ m/\.(problem|exam|quiz|assess|survey|form|library)/) { |
my %moreenv; |
my %moreenv; |
$moreenv{'form.grade_target'}='tex'; |
$moreenv{'form.grade_target'}='tex'; |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
Line 474 ENDPART
|
Line 471 ENDPART
|
my $sequence_file=&Apache::lonnet::filelocation("",$primary_sequence); |
my $sequence_file=&Apache::lonnet::filelocation("",$primary_sequence); |
my $sequencefilecontents=&Apache::lonnet::getfile($sequence_file); |
my $sequencefilecontents=&Apache::lonnet::getfile($sequence_file); |
my @master_seq = &content_map($sequencefilecontents); |
my @master_seq = &content_map($sequencefilecontents); |
#loop over students |
#loop over students |
foreach my $person (@students) { |
foreach my $person (@students) { |
my $current_output = ''; |
my $current_output = ''; |
my ($usersection,$username,$userdomain) = split /:/,$person; |
my ($usersection,$username,$userdomain) = split /:/,$person; |
Line 595 $r->print(<<FINALEND);
|
Line 592 $r->print(<<FINALEND);
|
FINALEND |
FINALEND |
} |
} |
|
|
|
|
|
sub coming_from_hash { |
|
|
|
my $mainsequence = shift; |
|
my @resourcelist = (); |
|
my $mapstart = $hash{'map_start_'.$mainsequence}; |
|
my $mapfinish = $hash{'map_finish_'.$mainsequence}; |
|
my $current_resource = $mapstart; |
|
while ($current_resource ne $mapfinish) { |
|
if (not $hash{'src_'.$current_resource}=~/\.sequence$/) { |
|
push @resourcelist,$hash{'src_'.$current_resource}; |
|
} else { |
|
push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource}); |
|
} |
|
$current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}}; |
|
} |
|
return @resourcelist; |
|
} |
|
|
|
|
sub character_chart { |
sub character_chart { |
my $result = shift; |
my $result = shift; |
$result =~ s/�?0?7;//g; |
$result =~ s/�?0?7;//g; |