version 1.104, 2003/01/13 21:20:51
|
version 1.105, 2003/01/23 20:19:38
|
Line 159 sub sequence_content_menu {
|
Line 159 sub sequence_content_menu {
|
if ($sequence[0]=~/^uploaded/) {$primary_sequence = '/'.$sequence[0];} |
if ($sequence[0]=~/^uploaded/) {$primary_sequence = '/'.$sequence[0];} |
else {$primary_sequence = '/res/'.$sequence[0];} |
else {$primary_sequence = '/res/'.$sequence[0];} |
my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]); |
my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]); |
my @master_seq_view = sort @master_seq; |
my @master_seq_view = @master_seq; |
@master_seq = sort @master_seq; |
@master_seq = @master_seq; |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
$master_seq_view[$i]=~/\/([^\/]+)$/; |
$master_seq_view[$i]=~/\/([^\/]+)$/; |
$master_seq_view[$i]=$1; |
$master_seq_view[$i]=$1; |
Line 496 ENDPART
|
Line 496 ENDPART
|
my $flag_latex_header_remove = 'NO'; |
my $flag_latex_header_remove = 'NO'; |
my $flag_page_in_sequence = 'NO'; |
my $flag_page_in_sequence = 'NO'; |
for (my $i=0;$i<=$#master_seq;$i++) { |
for (my $i=0;$i<=$#master_seq;$i++) { |
my ($urlp,$symb) = split /&&/, $master_seq[$i]; |
my ($urlp,$symb) = split /&&/, $master_seq[$i]; |
if ($choice eq 'Standard LaTeX output for the primary sequence') { |
if ($choice eq 'Standard LaTeX output for the primary sequence') { |
$selectionmade = 2; |
$selectionmade = 2; |
} elsif ($choice eq 'Standard LaTeX output for whole primary sequence') { |
} elsif ($choice eq 'Standard LaTeX output for whole primary sequence') { |
Line 529 ENDPART
|
Line 529 ENDPART
|
} elsif ($choice eq 'Standard LaTeX output for the top level sequence') { |
} elsif ($choice eq 'Standard LaTeX output for the top level sequence') { |
# where is the main sequence of the course? |
# where is the main sequence of the course? |
$selectionmade = 4; |
$selectionmade = 4; |
my $main_seq = '/res/'.$ENV{'request.course.uri'}; |
my $main_seq; |
|
if ($ENV{'request.course.uri'}=~/\/?uploaded\//) { |
|
$main_seq = $ENV{'request.course.uri'}; |
|
} else { |
|
$main_seq = '/res/'.$ENV{'request.course.uri'}; |
|
} |
my @file_seq = &coming_from_hash_whole($main_seq); |
my @file_seq = &coming_from_hash_whole($main_seq); |
my $flag_latex_header_remove = 'NO'; |
my $flag_latex_header_remove = 'NO'; |
#-- produce an output string |
#-- produce an output string |
for (my $i=0;$i<=$#file_seq;$i++) { |
for (my $i=0;$i<=$#file_seq;$i++) { |
my ($urlp,$symb) = split /&&/, $file_seq[$i]; |
if (not $file_seq[$i]=~/^&&/) { |
$urlp=~s/\/home\/httpd\/html//; |
my ($urlp,$symb) = split /&&/, $file_seq[$i]; |
if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) { |
$urlp=~s/\/home\/httpd\/html//; |
|
if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) { |
my %moreenv; |
my %moreenv; |
$moreenv{'form.grade_target'}='tex'; |
$moreenv{'form.grade_target'}='tex'; |
$moreenv{'form.textwidth'}=$LaTeXwidth; |
$moreenv{'form.textwidth'}=$LaTeXwidth; |
Line 550 ENDPART
|
Line 556 ENDPART
|
} |
} |
$result .= $texversion; |
$result .= $texversion; |
$flag_latex_header_remove = 'YES'; |
$flag_latex_header_remove = 'YES'; |
} |
} |
|
} |
} |
} |
$result .= '\end{document}'; |
$result .= '\end{document}'; |
} elsif ($choice eq 'All class print') { |
} elsif ($choice eq 'All class print') { |
Line 701 sub coming_from_hash_whole {
|
Line 708 sub coming_from_hash_whole {
|
if ($hash{'src_'.$current_resource}=~/\.sequence$/) { |
if ($hash{'src_'.$current_resource}=~/\.sequence$/) { |
push @resourcelist,&coming_from_hash_whole($hash{'src_'.$current_resource}); |
push @resourcelist,&coming_from_hash_whole($hash{'src_'.$current_resource}); |
} else { |
} else { |
$mainsequence =~ /\/res\/(.*)$/; |
my $presymb; |
my $presymb = $1; |
if ($mainsequence =~ /\/res\/(.*)$/) {$presymb = $1;} |
|
elsif ($mainsequence =~ /\/?(uploaded\/(.*))$/) {$presymb = $1;} |
my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}}; |
my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}}; |
if ($rid=~/,/) { |
if ($rid=~/,/) { |
my @rid = split /,/, $rid; |
my @rid = split /,/, $rid; |
foreach my $rid_element (@rid) { |
foreach my $rid_element (@rid) { |
if ($rid_element =~ m/^$mapid\.(\d*)/) { |
if ($rid_element =~ m/^$mapid\.(\d*)/) { |
Line 713 sub coming_from_hash_whole {
|
Line 721 sub coming_from_hash_whole {
|
} |
} |
} |
} |
} else { |
} else { |
$rid =~ m/^$mapid\.(\d*)/; |
$rid =~ m/^$mapid\.(\d*)/; |
$rid = $1; |
$rid = $1; |
} |
} |
$hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/; |
$hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/; |