|
version 1.141, 2003/05/02 13:39:04
|
version 1.142, 2003/05/02 14:17:57
|
|
Line 1417 ENDPART
|
Line 1417 ENDPART
|
| } |
} |
| |
|
| |
|
| } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') { |
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or |
| |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or |
| |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')) { |
| #-- produce an output string |
#-- produce an output string |
| my $flag_latex_header_remove = 'NO'; |
my $flag_latex_header_remove = 'NO'; |
| my $flag_page_in_sequence = 'NO'; |
my $flag_page_in_sequence = 'NO'; |
|
Line 1432 ENDPART
|
Line 1434 ENDPART
|
| $master_seq[$i]=~/___\d+___(.*)$/; |
$master_seq[$i]=~/___\d+___(.*)$/; |
| my $urlp='/res/'.$1; |
my $urlp='/res/'.$1; |
| if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') { |
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') { |
| $selectionmade = 2; |
$selectionmade = 2; |
| # } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') { |
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') { |
| # $selectionmade = 3; |
$selectionmade = 3; |
| |
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') { |
| |
$selectionmade = 4; |
| } |
} |
| my %moreenv; |
my %moreenv; |
| $moreenv{'form.grade_target'}='tex'; |
$moreenv{'form.grade_target'}='tex'; |
|
Line 1659 sub handler {
|
Line 1663 sub handler {
|
| $helper = $result; |
$helper = $result; |
| |
|
| |
|
| my $key; |
# my $key; |
| # foreach $key (keys %{$helper->{'VARS'}}) { |
# foreach $key (keys %{$helper->{'VARS'}}) { |
| # $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<br />'); |
# $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<br />'); |
| # } |
# } |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface