version 1.159, 2003/05/08 18:41:16
|
version 1.165, 2003/05/13 20:42:39
|
Line 1380 ENDPART
|
Line 1380 ENDPART
|
$moreenv{'form.textwidth'}=$LaTeXwidth; |
$moreenv{'form.textwidth'}=$LaTeXwidth; |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
my $texversion=&Apache::lonnet::ssi($currentURL); |
my $texversion=&Apache::lonnet::ssi($currentURL); |
&Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter'); |
&Apache::lonnet::delenv('form.grade_target'); |
|
&Apache::lonnet::delenv('form.textwidth'); |
|
&Apache::lonnet::delenv('form.counter'); |
|
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
|
$moreenv{'form.grade_target'}='answer'; |
|
$moreenv{'form.print_answer'}='yes'; |
|
&Apache::lonnet::appenv(%moreenv); |
|
my $answer=&Apache::lonnet::ssi($currentURL); |
|
&Apache::lonnet::delenv('form.grade_target'); |
|
&Apache::lonnet::delenv('form.print_answer'); |
|
# $r->print('<pre>'.$answer.'</pre>'); return OK; |
|
$texversion=~s/(\\end{document})/$answer$1/; |
|
} |
$result .= $texversion; |
$result .= $texversion; |
if ($currentURL=~m/\.page\s*$/) { |
if ($currentURL=~m/\.page\s*$/) { |
($result,$number_of_columns) = &page_cleanup($result); |
($result,$number_of_columns) = &page_cleanup($result); |
Line 1417 ENDPART
|
Line 1429 ENDPART
|
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); |
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); |
my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$master_seq[$i])); |
my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$master_seq[$i])); |
&Apache::lonnet::delenv('form.grade_target','form.textwidth'); |
&Apache::lonnet::delenv('form.grade_target'); |
|
&Apache::lonnet::delenv('form.textwidth'); |
if ($urlp=~/\.page$/) { |
if ($urlp=~/\.page$/) { |
($texversion,my $number_of_columns_page) = &page_cleanup($texversion); |
($texversion,my $number_of_columns_page) = &page_cleanup($texversion); |
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
Line 1504 ENDPART
|
Line 1517 ENDPART
|
$urlp =~ s|^/home/httpd/html||; |
$urlp =~ s|^/home/httpd/html||; |
} |
} |
my $texversion=&Apache::lonnet::ssi($urlp); |
my $texversion=&Apache::lonnet::ssi($urlp); |
&Apache::lonnet::delenv('form.grade_target','form.textwidth'); |
&Apache::lonnet::delenv('form.grade_target'); |
|
&Apache::lonnet::delenv('form.textwidth'); |
#this chunck is responsible for printing the path to problem |
#this chunck is responsible for printing the path to problem |
my $newurlp = ''; |
my $newurlp = ''; |
my $HowMany = length($urlp)*2; |
my $HowMany = length($urlp)*2; |
Line 1582 sub handler {
|
Line 1596 sub handler {
|
$helper = $result; |
$helper = $result; |
|
|
|
|
# my $key; |
|
# foreach $key (keys %{$helper->{'VARS'}}) { |
my $key; |
# $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />'); |
foreach $key (keys %{$helper->{'VARS'}}) { |
# } |
$r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />'); |
|
} |
# return OK; |
# return OK; |
|
|
|
|
Line 1749 sub printHelper {
|
Line 1764 sub printHelper {
|
|
|
# "Delete everything after the last slash." |
# "Delete everything after the last slash." |
$subdir =~ s|/[^/]+$||; |
$subdir =~ s|/[^/]+$||; |
if (not defined $helper->{VARS}->{'construction'}) { |
if (not $helper->{VARS}->{'construction'}) { |
$subdir = '/home/httpd/html/res'.$subdir; |
$subdir='/home/httpd/html/res/'.$subdir; |
} else { |
|
$helper->{VARS}->{'construction'}=~/^([^\/]+)\/\/([^\/]+)(.*)\/[^\/]*$/; |
|
$subdir = $3; |
|
$subdir=~/\/~([^\/]+)\/(.*)$/; |
|
$subdir = '/home/'.$1.'/public_html/'.$2; |
|
} |
} |
#### $r->print('Dir: '.$subdir.' '); |
|
#### return OK; |
|
|
|
|
|
# What can be printed is a very dynamic decision based on |
# What can be printed is a very dynamic decision based on |
Line 1890 CHOOSE_FROM_SUBDIR
|
Line 1898 CHOOSE_FROM_SUBDIR
|
$helper->declareVar('PRINT_TYPE'); |
$helper->declareVar('PRINT_TYPE'); |
$paramHash->{CHOICES} = $printChoices; |
$paramHash->{CHOICES} = $printChoices; |
Apache::lonhelper::choices->new(); |
Apache::lonhelper::choices->new(); |
|
|
|
if ($ENV{'request.role.adv'}) { |
|
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />"; |
|
Apache::lonhelper::message->new(); |
|
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{'variable'} = 'ANSWER_TYPE'; |
|
$helper->declareVar('ANSWER_TYPE'); |
|
$paramHash->{CHOICES} = [ |
|
['Print without answer', 'yes'], |
|
['Print with answers', 'no'] ]; |
|
Apache::lonhelper::choices->new(); |
|
} |
|
|
Apache::lonprintout::page_format_state->new("FORMAT"); |
Apache::lonprintout::page_format_state->new("FORMAT"); |
|
|
# Generate the PAGESIZE state which will offer the user the margin |
# Generate the PAGESIZE state which will offer the user the margin |