version 1.568.2.3, 2010/03/30 10:40:35
|
version 1.568.4.3, 2010/12/05 17:25:10
|
Line 1309 sub page_format_transformation {
|
Line 1309 sub page_format_transformation {
|
$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /; |
$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /; |
} |
} |
if ($papersize eq 'a4') { |
if ($papersize eq 'a4') { |
$text =~ s/(\\begin{document})/$1\\\\special\{papersize=210mm,297mm\}/; |
$text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/; |
} |
} |
} |
} |
if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;} |
if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;} |
Line 1581 sub print_page_in_course {
|
Line 1581 sub print_page_in_course {
|
|
|
$form{'grade_target'} = 'tex'; |
$form{'grade_target'} = 'tex'; |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
$form{'pdfFormFields'} = 'no'; |
$form{'pdfFormFiels'} = $pdfFormFields; # |
$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'}; |
$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'}; |
|
|
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
Line 1890 sub print_construction_sequence {
|
Line 1890 sub print_construction_sequence {
|
} |
} |
|
|
sub output_data { |
sub output_data { |
my ($r,$helper,$rparmhash) = @_; |
my ($r,$helper,$rparmhash,$is_custom) = @_; |
my %parmhash = %$rparmhash; |
my %parmhash = %$rparmhash; |
$ssi_error = 0; # This will be set nonzero by failing ssi's. |
$ssi_error = 0; # This will be set nonzero by failing ssi's. |
$resources_printed = ''; |
$resources_printed = ''; |
Line 1931 ENDPART
|
Line 1931 ENDPART
|
{'href' => '', |
{'href' => '', |
'text' => 'Preparing Printout'}]; |
'text' => 'Preparing Printout'}]; |
|
|
|
if ($is_custom) { |
|
$brcrum = [{'href' => '', |
|
'text' => 'Preparing Printout'}]; |
|
} |
|
|
my $start_page = &Apache::loncommon::start_page('Preparing Printout', |
my $start_page = &Apache::loncommon::start_page('Preparing Printout', |
$js, |
$js, |
{'bread_crumbs' => $brcrum,}); |
{'bread_crumbs' => $brcrum,}); |
Line 1972 ENDPART
|
Line 1977 ENDPART
|
my %form; |
my %form; |
$form{'grade_target'} = 'tex'; |
$form{'grade_target'} = 'tex'; |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
$form{'pdfFormFields'} = 'no'; |
$form{'pdfFormFields'} = $pdfFormFields; |
|
|
# If form.showallfoils is set, then request all foils be shown: |
# If form.showallfoils is set, then request all foils be shown: |
# privilege will be enforced both by not allowing the |
# privilege will be enforced both by not allowing the |
Line 1992 ENDPART
|
Line 1997 ENDPART
|
&Apache::lonnet::delenv('construct.style'); |
&Apache::lonnet::delenv('construct.style'); |
} |
} |
|
|
|
|
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { |
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { |
#-- single document - problem, page, html, xml, ... |
#-- single document - problem, page, html, xml, ... |
my ($currentURL,$cleanURL); |
my ($currentURL,$cleanURL); |
Line 2938 sub handler {
|
Line 2942 sub handler {
|
|
|
&init_perm(); |
&init_perm(); |
|
|
|
my ($helper,$is_custom); |
|
if ((&Apache::loncommon::needs_gci_custom()) && |
|
($env{'request.role.domain'} =~ /^\w+citest$/)) { |
|
if ($r->header_only) { |
|
if ($env{'browser.mathml'}) { |
|
&Apache::loncommon::content_type($r,'text/xml'); |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
} |
|
$r->send_http_header; |
|
return OK; |
|
} |
|
# Send header, nocache |
|
if ($env{'browser.mathml'}) { |
|
&Apache::loncommon::content_type($r,'text/xml'); |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
} |
|
&Apache::loncommon::no_cache($r); |
|
$r->send_http_header; |
|
$r->rflush(); |
|
|
|
my ($navmap_error,$resources,@master_seq); |
my $helper = printHelper($r); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
if (!ref($helper)) { |
if (!defined($navmap)) { |
return $helper; |
my $brcrum = [{'href' => '', |
|
'text' => 'Preparing Printout'}]; |
|
|
|
my $start_page = |
|
&Apache::loncommon::start_page('Preparing Printout','', |
|
{'bread_crumbs' => $brcrum,}); |
|
my $endpage = &Apache::loncommon::end_page(); |
|
|
|
my $navmap_error = '<span class="LC_error">'.&mt('An error occurred retrieving information about the course.').'<br />'.&mt('It is recommended that you re-select the concept test by clicking on the "Review Questions" tab and then clicking on the "Manage Tests" tab again.').'</span>'; |
|
$r->print($start_page.$navmap_error.$endpage); |
|
return OK; |
|
} else { |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $sequence = &Apache::loncommon::get_citest_map($cdom); |
|
my @allres; |
|
if ($sequence) { |
|
@allres=$navmap->retrieveResources('/uploaded/'.$cdom.'/'.$cnum.'/'.$sequence); |
|
foreach my $resource (@allres) { |
|
next if ($resource->is_map()); |
|
my $symb = $resource->symb(); |
|
push(@master_seq,$symb); |
|
} |
|
$resources = join('|||',@master_seq); |
|
my ($sequence,$middle_thingy,$urlp) = |
|
&Apache::lonnet::decode_symb($master_seq[0]); |
|
|
|
my $assignment = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); |
|
|
|
$helper = { |
|
VARS => { |
|
ANON_CODE_STORAGE_NAME => '', |
|
ANSWER_TYPE => 'yes', |
|
CODE_OPTION => '', |
|
EMPTY_PAGES => '', |
|
FINISHPAGE => '', |
|
FORMAT => 'P|1|letter|no', |
|
LATEX_TYPE => 'batchmode', |
|
NUMBER_TO_PRINT_TOTAL => '', |
|
PRINT_ANNOTATIONS => 'no', |
|
PRINT_DISCUSSIONS => 'no', |
|
PRINT_TYPE => 'map_problems', |
|
RESOURCES => $resources, |
|
REUSE_OLD_CODES => '', |
|
SEQUENCE => '', |
|
SINGLE_CODE => '', |
|
SPLIT_PDFS => '', |
|
STUDENTS => '', |
|
TABLE_CONTENTS => 'no', |
|
TABLE_INDEX => 'no', |
|
assignment => $assignment, |
|
construction => '', |
|
curseed => '', |
|
filename => '', |
|
fontsize => 'normalsize', |
|
pagesize => '', |
|
'pagesize.height' => '9.8', |
|
'pagesize.heightunit' => 'in', |
|
'pagesize.lmargin' => '-0.57', |
|
'pagesize.lmarginunit' => 'in', |
|
'pagesize.width' => '7.1', |
|
'pagesize.widthunit' => 'in', |
|
postdata => $urlp, |
|
probstatus => '', |
|
showallfoils => '', |
|
student_sort => '', |
|
style_file => '', |
|
symb => $master_seq[0], |
|
} |
|
}; |
|
$env{'form.assignment'} = $assignment; |
|
$is_custom = 1; |
|
} |
|
} else { |
|
$helper = printHelper($r); |
|
if (!ref($helper)) { |
|
return $helper; |
|
} |
} |
} |
|
|
|
|
%parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'}); |
%parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'}); |
|
|
|
|
|
|
|
|
# If a figure conversion queue file exists for this user.domain |
# If a figure conversion queue file exists for this user.domain |
Line 2957 sub handler {
|
Line 3056 sub handler {
|
|
|
my $conversion_queuefile = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat"; |
my $conversion_queuefile = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat"; |
if(-e $conversion_queuefile) { |
if(-e $conversion_queuefile) { |
unlink $conversion_queuefile; |
unlink $conversion_queuefile; |
} |
} |
|
|
|
|
&output_data($r,$helper,\%parmhash); |
|
|
&output_data($r,$helper,\%parmhash,$is_custom); |
return OK; |
return OK; |
} |
} |
|
|
use Apache::lonhelper; |
use Apache::lonhelper; |
|
|
Line 4030 sub render {
|
Line 4129 sub render {
|
my $PaperType=&mt('Paper type'); |
my $PaperType=&mt('Paper type'); |
my $landscape=&mt('Landscape'); |
my $landscape=&mt('Landscape'); |
my $portrait=&mt('Portrait'); |
my $portrait=&mt('Portrait'); |
|
my $pdfFormLabel=&mt('PDF-Formfields'); |
|
my $with=&mt('with Formfields'); |
|
my $without=&mt('without Formfields'); |
|
|
|
|
$result.='<h3>'.&mt('Layout Options').'</h3>' |
$result.='<h3>'.&mt('Layout Options').'</h3>' |
Line 4038 sub render {
|
Line 4140 sub render {
|
.'<th>'.$PageLayout.'</th>' |
.'<th>'.$PageLayout.'</th>' |
.'<th>'.$NumberOfColumns.'</th>' |
.'<th>'.$NumberOfColumns.'</th>' |
.'<th>'.$PaperType.'</th>' |
.'<th>'.$PaperType.'</th>' |
|
.'<th>'.$pdfFormLabel.'</th>' |
.&Apache::loncommon::end_data_table_header_row() |
.&Apache::loncommon::end_data_table_header_row() |
.&Apache::loncommon::start_data_table_row() |
.&Apache::loncommon::start_data_table_row() |
.'<td>' |
.'<td>' |
Line 4077 sub render {
|
Line 4180 sub render {
|
} |
} |
$result .= <<HTML; |
$result .= <<HTML; |
</select> |
</select> |
<hidden name="${var}.pdfFormFields" value="no" /> |
</td> |
|
<td align='center'> |
|
<select name='${var}.pdfFormFields'> |
|
<option selected="selected" value="no">$without</option> |
|
<option value="yes">$with</option> |
|
</select> |
</td> |
</td> |
HTML |
HTML |
$result.=&Apache::loncommon::end_data_table_row() |
$result.=&Apache::loncommon::end_data_table_row() |