|
version 1.482, 2006/08/22 14:44:39
|
version 1.502, 2007/07/04 14:17:36
|
|
Line 23
|
Line 23
|
| # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| # |
# |
| # /home/httpd/html/adm/gpl.txt |
# /home/httpd/html/adm/gpl.txt |
| # |
|
| # http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
| # |
# |
| # |
# |
|
Line 39 use Apache::grades;
|
Line 38 use Apache::grades;
|
| use Apache::edit; |
use Apache::edit; |
| use Apache::File(); |
use Apache::File(); |
| use Apache::lonnavmaps; |
use Apache::lonnavmaps; |
| use Apache::lonratedt; |
use LONCAPA::map(); |
| use POSIX qw(strftime); |
use POSIX qw(strftime); |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use Carp; |
use Carp; |
| use lib '/home/httpd/lib/perl/'; |
|
| use LONCAPA; |
use LONCAPA; |
| |
|
| my %perm; |
my %perm; |
| my %parmhash; |
my %parmhash; |
| my $resources_printed; |
my $resources_printed; |
| |
|
| |
# Fetch the contents of a resource, uninterpreted. |
| |
# This is used here to fetch a latex file to be included |
| |
# verbatim into the printout< |
| |
# NOTE: Ask Guy if there is a lonnet function similar to this? |
| |
# |
| |
# Parameters: |
| |
# URL of the file |
| |
# |
| |
sub fetch_raw_resource { |
| |
my ($url) = @_; |
| |
|
| |
my $filename = &Apache::lonnet::filelocation("", $url); |
| |
my $contents = &Apache::lonnet::getfile($filename); |
| |
|
| |
if ($contents == -1) { |
| |
return "File open failed for $filename"; # This will bomb the print. |
| |
} |
| |
return $contents; |
| |
|
| |
|
| |
} |
| |
|
| |
# |
| |
# printf_style_subst item format_string repl |
| |
# |
| |
# Does printf style substitution for a format string that |
| |
# can have %[n]item in it.. wherever, %[n]item occurs, |
| |
# rep is substituted in format_string. Note that |
| |
# [n] is an optional integer length. If provided, |
| |
# repl is truncated to at most [n] characters prior to |
| |
# substitution. |
| |
# |
| |
sub printf_style_subst { |
| |
my ($item, $format_string, $repl) = @_; |
| |
my $result = ""; |
| |
while ($format_string =~ /(%)(\d*)\Q$item\E/g ) { |
| |
my $fmt = $1; |
| |
my $size = $2; |
| |
my $subst = $repl; |
| |
if ($size ne "") { |
| |
$subst = substr($subst, 0, $size); |
| |
|
| |
# Here's a nice edge case.. supose the end of the |
| |
# substring is a \. In that case may have just |
| |
# chopped off a TeX escape... in that case, we append |
| |
# " " for the trailing character, and let the field |
| |
# spill over a bit (sigh). |
| |
# We don't just chop off the last character in order to deal |
| |
# with one last pathology, and that would be if substr had |
| |
# trimmed us to e.g. \\\ |
| |
|
| |
|
| |
if ($subst =~ /\\$/) { |
| |
$subst .= " "; |
| |
} |
| |
} |
| |
my $item_pos = pos($format_string); |
| |
$result .= substr($format_string, 0, $item_pos - length($size) -2) . $subst; |
| |
$format_string = substr($format_string, pos($format_string)); |
| |
} |
| |
|
| |
# Put the residual format string into the result: |
| |
|
| |
$result .= $format_string; |
| |
|
| |
return $result; |
| |
} |
| |
|
| |
|
| # Format a header according to a format. |
# Format a header according to a format. |
| # |
# |
|
Line 60 my $resources_printed;
|
Line 126 my $resources_printed;
|
| # %n - Student name. |
# %n - Student name. |
| # |
# |
| sub format_page_header { |
sub format_page_header { |
| my ($format, $assignment, $course, $student) = @_; |
my ($width, $format, $assignment, $course, $student) = @_; |
| |
|
| |
$width = &recalcto_mm($width); # Get width in mm. |
| # Default format? |
# Default format? |
| |
|
| if ($format eq '') { |
if ($format eq '') { |
| |
# For the default format, we may need to truncate |
| |
# elements.. To do this we need to get the page width. |
| |
# we assume that each character is about 2mm in width. |
| |
# (correct for the header text size??). We ignore |
| |
# any formatting (e.g. boldfacing in this). |
| |
# |
| |
# - Allow the student/course to be one line. |
| |
# but only truncate the course. |
| |
# - Allow the assignment to be 2 lines (wrapped). |
| |
# |
| |
my $chars_per_line = $width/2; # Character/textline. |
| |
|
| |
|
| |
my $firstline = "$student $course"; |
| |
if (length($firstline) > $chars_per_line) { |
| |
my $lastchar = $chars_per_line - length($student) - 1; |
| |
if ($lastchar > 0) { |
| |
$course = substr($course, 0, $lastchar); |
| |
} else { # Nothing left of course: |
| |
$course = ''; |
| |
} |
| |
} |
| |
if (length($assignment) > $chars_per_line) { |
| |
$assignment = substr($assignment, 0, $chars_per_line); |
| |
} |
| |
|
| $format = "\\textbf{$student} $course \\hfill \\thepage \\\\ \\textit{$assignment}"; |
$format = "\\textbf{$student} $course \\hfill \\thepage \\\\ \\textit{$assignment}"; |
| |
|
| } else { |
} else { |
| $format =~ s/%a/$assignment/g; |
# An open question is how to handle long user formatted page headers... |
| $format =~ s/%c/$course/g; |
# A possible future is to support e.g. %na so that the user can control |
| $format =~ s/%n/$student/g; |
# the truncation of the elements that can appear in the header. |
| |
# |
| |
$format = &printf_style_subst("a", $format, $assignment); |
| |
$format = &printf_style_subst("c", $format, $course); |
| |
$format = &printf_style_subst("n", $format, $student); |
| |
|
| |
# If the user put %'s in the format string, they must be escaped |
| |
# to \% else LaTeX will think they are comments and terminate |
| |
# the line.. which is bad!!! |
| |
|
| |
|
| } |
} |
| |
|
| |
|
|
Line 94 sub num_to_letters {
|
Line 197 sub num_to_letters {
|
| sub letters_to_num { |
sub letters_to_num { |
| my ($letters) = @_; |
my ($letters) = @_; |
| my @letters = split('', uc($letters)); |
my @letters = split('', uc($letters)); |
| my %substitution; |
my %substitution; |
| my $digit = 0; |
my $digit = 0; |
| foreach my $letter ('A'..'J') { |
foreach my $letter ('A'..'J') { |
| $substitution{$letter} = $digit; |
$substitution{$letter} = $digit; |
|
Line 409 sub character_chart {
|
Line 512 sub character_chart {
|
| $result =~ s/&\#147;/\`\`/g; |
$result =~ s/&\#147;/\`\`/g; |
| $result =~ s/&\#148;/\'\'/g; |
$result =~ s/&\#148;/\'\'/g; |
| $result =~ s/&\#149;/\\ensuremath\{\\bullet\}/g; |
$result =~ s/&\#149;/\\ensuremath\{\\bullet\}/g; |
| $result =~ s/&\#150;/--/g; |
$result =~ s/&(\#150|\#8211);/--/g; |
| $result =~ s/&\#151;/---/g; |
$result =~ s/&\#151;/---/g; |
| $result =~ s/&\#152;/\\ensuremath\{\\sim\}/g; |
$result =~ s/&\#152;/\\ensuremath\{\\sim\}/g; |
| $result =~ s/&\#153;/\\texttrademark /g; |
$result =~ s/&\#153;/\\texttrademark /g; |
|
Line 616 sub character_chart {
|
Line 719 sub character_chart {
|
| $result =~ s/&(clubs|\#9827);/\\ensuremath\{\\clubsuit\}/g; |
$result =~ s/&(clubs|\#9827);/\\ensuremath\{\\clubsuit\}/g; |
| $result =~ s/&(hearts|\#9829);/\\ensuremath\{\\heartsuit\}/g; |
$result =~ s/&(hearts|\#9829);/\\ensuremath\{\\heartsuit\}/g; |
| $result =~ s/&(diams|\#9830);/\\ensuremath\{\\diamondsuit\}/g; |
$result =~ s/&(diams|\#9830);/\\ensuremath\{\\diamondsuit\}/g; |
| |
# Chemically useful 'things' contributed by Hon Kie (bug 4652). |
| |
$result =~ s/&\#8636;/\\ensuremath\{\\leftharpoonup\}/g; |
| |
$result =~ s/&\#8637;/\\ensuremath\{\\leftharpoondown\}/g; |
| |
$result =~ s/&\#8640;/\\ensuremath\{\\rightharpoonup\}/g; |
| |
$result =~ s/&\#8641;/\\ensuremath\{\\rightharpoondown\}/g; |
| |
$result =~ s/&\#8652;/\\ensuremath\{\\rightleftharpoons\}/g; |
| |
$result =~ s/&\#8605;/\\ensuremath\{\\leadsto\}/g; |
| |
$result =~ s/&\#8617;/\\ensuremath\{\\hookleftarrow\}/g; |
| |
$result =~ s/&\#8618;/\\ensuremath\{\\hookrightarrow\}/g; |
| |
$result =~ s/&\#8614;/\\ensuremath\{\\mapsto\}/g; |
| |
$result =~ s/&\#8599;/\\ensuremath\{\\nearrow\}/g; |
| |
$result =~ s/&\#8600;/\\ensuremath\{\\searrow\}/g; |
| |
$result =~ s/&\#8601;/\\ensuremath\{\\swarrow\}/g; |
| |
$result =~ s/&\#8598;/\\ensuremath\{\\nwarrow\}/g; |
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 624 sub character_chart {
|
Line 741 sub character_chart {
|
| my %page_formats= |
my %page_formats= |
| ('letter' => { |
('letter' => { |
| 'book' => { |
'book' => { |
| '1' => [ '7.1 in','9.8 in', '-0.57 in','-0.57 in','0.7 cm'], |
'1' => [ '7.1 in','9.8 in', '-0.57 in','-0.57 in','0.275 in'], |
| '2' => ['3.66 in','9.8 in', '-0.57 in','-0.57 in','0.7 cm'] |
'2' => ['3.66 in','9.8 in', '-0.57 in','-0.57 in','0.275 in'] |
| }, |
}, |
| 'album' => { |
'album' => { |
| '1' => [ '8.8 in', '6.8 in','-0.55 in', '-0.83 in','1 cm'], |
'1' => [ '8.8 in', '6.8 in','-0.55 in', '-0.55 in','0.394 in'], |
| '2' => [ '4.4 in', '6.8 in','-0.5 in', '-1.5 in','3.5 in'] |
'2' => [ '4.8 in', '6.8 in','-0.5 in', '-1.0 in','3.5 in'] |
| }, |
}, |
| }, |
}, |
| 'legal' => { |
'legal' => { |
|
Line 684 my %page_formats=
|
Line 801 my %page_formats=
|
| }, |
}, |
| 'a4' => { |
'a4' => { |
| 'book' => { |
'book' => { |
| '1' => ['17.6 cm','27.2 cm','-0.55 in','-0.83 in','-0.5 in'], |
'1' => ['17.6 cm','27.2 cm','-1.397 cm','-2.11 cm','-1.27 cm'], |
| '2' => [ '9.1 cm','27.2 cm','-0.55 in','-0.83 in','-0.5 in'] |
'2' => [ '9.1 cm','27.2 cm','-1.397 cm','-2.11 cm','-1.27 cm'] |
| }, |
}, |
| 'album' => { |
'album' => { |
| '1' => ['8.5 in','7.7 in','-0.55 in','-0.83 in','0 in'], |
'1' => ['21.59 cm','19.558 cm','-1.397cm','-2.11 cm','0 cm'], |
| '2' => ['3.9 in','7.7 in','-0.55 in','-0.83 in','0 in'] |
'2' => ['9.91 cm','19.558 cm','-1.397 cm','-2.11 cm','0 cm'] |
| }, |
}, |
| }, |
}, |
| 'a5' => { |
'a5' => { |
|
Line 750 sub page_format_transformation {
|
Line 867 sub page_format_transformation {
|
| my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin); |
my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin); |
| |
|
| if ($selectionmade eq '4') { |
if ($selectionmade eq '4') { |
| $assignment='Problems from the Whole Course'; |
if ($choice eq 'all_problems') { |
| |
$assignment='Problems from the Whole Course'; |
| |
} else { |
| |
$assignment='Resources from the Whole Course'; |
| |
} |
| } else { |
} else { |
| $assignment=&Apache::lonxml::latex_special_symbols($assignment,'header'); |
$assignment=&Apache::lonxml::latex_special_symbols($assignment,'header'); |
| } |
} |
|
Line 761 sub page_format_transformation {
|
Line 882 sub page_format_transformation {
|
| my $courseidinfo = &get_course(); |
my $courseidinfo = &get_course(); |
| if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } |
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } |
| my $header_text = $parmhash{'print_header_format'}; |
my $header_text = $parmhash{'print_header_format'}; |
| $header_text = &format_page_header($header_text, $assignment, |
$header_text = &format_page_header($textwidth, $header_text, $assignment, |
| $courseidinfo, $name); |
$courseidinfo, $name); |
| my $topmargintoinsert = ''; |
my $topmargintoinsert = ''; |
| if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';} |
if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';} |
|
Line 1084 sub print_construction_sequence {
|
Line 1205 sub print_construction_sequence {
|
| if ($helper->{'VARS'}->{'curseed'}) { |
if ($helper->{'VARS'}->{'curseed'}) { |
| $rndseed=$helper->{'VARS'}->{'curseed'}; |
$rndseed=$helper->{'VARS'}->{'curseed'}; |
| } |
} |
| my $errtext=&Apache::lonratedt::mapread($currentURL); |
my $errtext=&LONCAPA::map::mapread($currentURL); |
| # |
# |
| # These make this all support recursing for subsequences. |
# These make this all support recursing for subsequences. |
| # |
# |
| my @order = @Apache::lonratedt::order; |
my @order = @LONCAPA::map::order; |
| my @resources = @Apache::lonratedt::resources; |
my @resources = @LONCAPA::map::resources; |
| for (my $member=0;$member<=$#order;$member++) { |
for (my $member=0;$member<=$#order;$member++) { |
| $resources[$order[$member]]=~/^([^:]*):([^:]*):/; |
$resources[$order[$member]]=~/^([^:]*):([^:]*):/; |
| my $urlp=$2; |
my $urlp=$2; |
|
Line 1170 sub output_data {
|
Line 1291 sub output_data {
|
| my ($r,$helper,$rparmhash) = @_; |
my ($r,$helper,$rparmhash) = @_; |
| my %parmhash = %$rparmhash; |
my %parmhash = %$rparmhash; |
| $resources_printed = ''; |
$resources_printed = ''; |
| |
my $do_postprocessing = 1; |
| my $js = <<ENDPART; |
my $js = <<ENDPART; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| var editbrowser; |
var editbrowser; |
|
Line 1360 ENDPART
|
Line 1482 ENDPART
|
| $resources_printed .= $currentURL.':'; |
$resources_printed .= $currentURL.':'; |
| my $texversion=&Apache::lonnet::ssi($currentURL,%form); |
my $texversion=&Apache::lonnet::ssi($currentURL,%form); |
| $result .= $texversion; |
$result .= $texversion; |
| |
} elsif ($cleanURL =~/.tex$/) { |
| |
# For this sort of print of a single LaTeX file, |
| |
# We can just print the LaTeX file as it is uninterpreted in any way: |
| |
# |
| |
|
| |
$result = &fetch_raw_resource($currentURL); |
| |
$do_postprocessing = 0; # Don't massage the result. |
| |
|
| } else { |
} else { |
| $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'}, |
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'}, |
| $helper->{'VARS'}->{'symb'}); |
$helper->{'VARS'}->{'symb'}); |
|
Line 1467 ENDPART
|
Line 1597 ENDPART
|
| if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } |
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } |
| $prevassignment=$assignment; |
$prevassignment=$assignment; |
| my $header_text = $parmhash{'print_header_format'}; |
my $header_text = $parmhash{'print_header_format'}; |
| $header_text = &format_page_header($header_text, |
$header_text = &format_page_header($textwidth, $header_text, |
| $assignment, |
$assignment, |
| $courseidinfo, |
$courseidinfo, |
| $name); |
$name); |
|
Line 1764 ENDPART
|
Line 1894 ENDPART
|
| $result .= '\end{document}'; |
$result .= '\end{document}'; |
| } |
} |
| #-------------------------------------------------------- corrections for the different page formats |
#-------------------------------------------------------- corrections for the different page formats |
| $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'},$selectionmade); |
|
| $result = &latex_corrections($number_of_columns,$result,$selectionmade, |
# Only post process if that has not been turned off e.g. by a raw latex resource. |
| $helper->{'VARS'}->{'ANSWER_TYPE'}); |
|
| #if ($numberofcolumns == 1) { |
if ($do_postprocessing) { |
| |
$result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'},$selectionmade); |
| |
$result = &latex_corrections($number_of_columns,$result,$selectionmade, |
| |
$helper->{'VARS'}->{'ANSWER_TYPE'}); |
| |
#if ($numberofcolumns == 1) { |
| $result =~ s/\\textwidth\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /; |
$result =~ s/\\textwidth\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /; |
| $result =~ s/\\textheight\s*=?\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /; |
$result =~ s/\\textheight\s*=?\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /; |
| $result =~ s/\\evensidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
$result =~ s/\\evensidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
| $result =~ s/\\oddsidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
$result =~ s/\\oddsidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
| #} |
#} |
| |
} |
| |
|
| #-- writing .tex file in prtspool |
#-- writing .tex file in prtspool |
| my $temp_file; |
my $temp_file; |
|
Line 1898 sub print_resources {
|
Line 2033 sub print_resources {
|
| my $printed = ''; |
my $printed = ''; |
| my ($username,$userdomain,$usersection) = split /:/,$person; |
my ($username,$userdomain,$usersection) = split /:/,$person; |
| my $fullname = &get_name($username,$userdomain); |
my $fullname = &get_name($username,$userdomain); |
| my $namepostfix; |
my $namepostfix = "\\\\"; # Both anon and not anon should get the same vspace. |
| if ($person =~ 'anon') { |
if ($person =~ 'anon') { |
| $namepostfix="\\\\Name: "; |
$namepostfix .="Name: "; |
| $fullname = "CODE - ".$moreenv->{'CODE'}; |
$fullname = "CODE - ".$moreenv->{'CODE'}; |
| } |
} |
| # Fullname may have special latex characters that need \ prefixing: |
# Fullname may have special latex characters that need \ prefixing: |
|
Line 2005 sub print_resources {
|
Line 2140 sub print_resources {
|
| if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection} |
if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection} |
| my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header'); |
my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header'); |
| my $header_line = |
my $header_line = |
| &format_page_header($parmhash{'print_header_format'}, |
&format_page_header($LaTeXwidth, $parmhash{'print_header_format'}, |
| $currentassignment, $courseidinfo, $fullname); |
$currentassignment, $courseidinfo, $fullname); |
| my $header_start = ($columns_in_format == 1) ? '\lhead' |
my $header_start = ($columns_in_format == 1) ? '\lhead' |
| : '\fancyhead[LO]'; |
: '\fancyhead[LO]'; |
|
Line 2126 sub printHelper {
|
Line 2261 sub printHelper {
|
| $helper->declareVar('FINISHPAGE'); |
$helper->declareVar('FINISHPAGE'); |
| $helper->declareVar('PRINT_TYPE'); |
$helper->declareVar('PRINT_TYPE'); |
| $helper->declareVar("showallfoils"); |
$helper->declareVar("showallfoils"); |
| |
$helper->declareVar("STUDENTS"); |
| |
|
| # The page breaks can get loaded initially from the course environment: |
# The page breaks can get loaded initially from the course environment: |
| # But we only do this in the initial state so that they are allowed to change. |
# But we only do this in the initial state so that they are allowed to change. |
|
Line 2137 sub printHelper {
|
Line 2273 sub printHelper {
|
| {'pagebreaks' => 'scalar', |
{'pagebreaks' => 'scalar', |
| 'lastprinttype' => 'scalar'}); |
'lastprinttype' => 'scalar'}); |
| |
|
| |
# This will persistently load in the data we want from the |
| |
# very first screen. |
| |
|
| if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) { |
if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) { |
| if (!defined ($env{"form.CURRENT_STATE"})) { |
if (!defined ($env{"form.CURRENT_STATE"})) { |
|
Line 2151 sub printHelper {
|
Line 2289 sub printHelper {
|
| |
|
| } |
} |
| |
|
| |
|
| # This will persistently load in the data we want from the |
|
| # very first screen. |
|
| # Detect whether we're coming from construction space |
# Detect whether we're coming from construction space |
| if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { |
if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { |
| $helper->{VARS}->{'filename'} = "~$1/$2"; |
$helper->{VARS}->{'filename'} = "~$1/$2"; |
|
Line 2191 sub printHelper {
|
Line 2327 sub printHelper {
|
| my $symb = $helper->{VARS}->{'symb'}; |
my $symb = $helper->{VARS}->{'symb'}; |
| my ($map, $id, $url); |
my ($map, $id, $url); |
| my $subdir; |
my $subdir; |
| |
my $is_published=0; # True when printing from resource space. |
| |
|
| # Get the resource name from construction space |
# Get the resource name from construction space |
| if ($helper->{VARS}->{'construction'}) { |
if ($helper->{VARS}->{'construction'}) { |
|
Line 2205 sub printHelper {
|
Line 2342 sub printHelper {
|
| &Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url)); |
&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url)); |
| } else { |
} else { |
| $url = $helper->{VARS}->{'postdata'}; |
$url = $helper->{VARS}->{'postdata'}; |
| |
$is_published=1; # From resource space. |
| } |
} |
| $url = &Apache::lonnet::clutter($url); |
$url = &Apache::lonnet::clutter($url); |
| |
|
|
Line 2267 sub printHelper {
|
Line 2405 sub printHelper {
|
| "' variable='FINISHPAGE' />"; |
"' variable='FINISHPAGE' />"; |
| } |
} |
| |
|
| if (($helper->{'VARS'}->{'construction'} ne '1') && |
if (($helper->{'VARS'}->{'construction'} ne '1' ) && |
| |
|
| $helper->{VARS}->{'postdata'} && |
$helper->{VARS}->{'postdata'} && |
| $helper->{VARS}->{'assignment'}) { |
$helper->{VARS}->{'assignment'}) { |
|
Line 2305 HELPERFRAGMENT
|
Line 2443 HELPERFRAGMENT
|
| |
|
| # If the user has pfo (print for otheres) allow them to print all |
# If the user has pfo (print for otheres) allow them to print all |
| # problems and resources in the entier course, optionally for selected students |
# problems and resources in the entier course, optionally for selected students |
| if ($perm{'pfo'} && |
if ($perm{'pfo'} && !$is_published && |
| ($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
| |
|
| push @{$printChoices}, ['Selected <b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS']; |
push @{$printChoices}, ['Selected <b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS']; |
|
Line 2333 HELPERFRAGMENT
|
Line 2471 HELPERFRAGMENT
|
| ALL_PROBLEMS |
ALL_PROBLEMS |
| |
|
| if ($helper->{VARS}->{'assignment'}) { |
if ($helper->{VARS}->{'assignment'}) { |
| push @{$printChoices}, [&mt("Selected <b>Problems</b> from folder <b><i>[_1]</i></b> for <b>selected students</b>",$sequenceTitle), 'problems_for_students', 'CHOOSE_STUDENTS']; |
push @{$printChoices}, [&mt("Selected <b>Problems</b> from folder <b><i>[_1]</i></b> for <b>selected people</b>",$sequenceTitle), 'problems_for_students', 'CHOOSE_STUDENTS']; |
| push @{$printChoices}, [&mt("Selected <b>Problems</b> from folder <b><i>[_1]</i></b> for <b>CODEd assignments</b>",$sequenceTitle), 'problems_for_anon', 'CHOOSE_ANON1']; |
push @{$printChoices}, [&mt("Selected <b>Problems</b> from folder <b><i>[_1]</i></b> for <b>CODEd assignments</b>",$sequenceTitle), 'problems_for_anon', 'CHOOSE_ANON1']; |
| } |
} |
| |
|
|
Line 2380 RESOURCE_SELECTOR
|
Line 2518 RESOURCE_SELECTOR
|
| |
|
| &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS); |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS); |
| <state name="CHOOSE_STUDENTS" title="Select Students and Resources"> |
<state name="CHOOSE_STUDENTS" title="Select Students and Resources"> |
| <message><b>Select sort order</b> </message> |
<message><b>Select sorting order of printout</b> </message> |
| <choices variable='student_sort'> |
<choices variable='student_sort'> |
| <choice computer='0'>Sort by section then student</choice> |
<choice computer='0'>Sort by section then student</choice> |
| <choice computer='1'>Sort by students across sections.</choice> |
<choice computer='1'>Sort by students across sections.</choice> |
|
Line 2467 CHOOSE_STUDENTS
|
Line 2605 CHOOSE_STUDENTS
|
| </validator> |
</validator> |
| </string> |
</string> |
| <message></td></tr><tr><td></message> |
<message></td></tr><tr><td></message> |
| <message><b>Names to store the CODEs under for later:</b></message> |
<message><b>Names to save the CODEs under for later:</b></message> |
| <message></td><td></message> |
<message></td><td></message> |
| <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> |
<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> |
| <message></td></tr><tr><td></message> |
<message></td></tr><tr><td></message> |
|
Line 2508 CHOOSE_ANON1
|
Line 2646 CHOOSE_ANON1
|
| |
|
| |
|
| if ($helper->{VARS}->{'assignment'}) { |
if ($helper->{VARS}->{'assignment'}) { |
| push @{$printChoices}, [&mt("Selected <b>Resources</b> from folder <b><i>[_1]</i></b> for <b>selected students</b>",$sequenceTitle), 'resources_for_students', 'CHOOSE_STUDENTS1']; |
push @{$printChoices}, [&mt("Selected <b>Resources</b> from folder <b><i>[_1]</i></b> for <b>selected people</b>",$sequenceTitle), 'resources_for_students', 'CHOOSE_STUDENTS1']; |
| push @{$printChoices}, [&mt("Selected <b>Resources</b> from folder <b><i>[_1]</i></b> for <b>CODEd assignments</b>",$sequenceTitle), 'resources_for_anon', 'CHOOSE_ANON2']; |
push @{$printChoices}, [&mt("Selected <b>Resources</b> from folder <b><i>[_1]</i></b> for <b>CODEd assignments</b>",$sequenceTitle), 'resources_for_anon', 'CHOOSE_ANON2']; |
| } |
} |
| |
|
|
Line 2578 CHOOSE_STUDENTS1
|
Line 2716 CHOOSE_STUDENTS1
|
| </validator> |
</validator> |
| </string> |
</string> |
| <message></td></tr><tr><td></message> |
<message></td></tr><tr><td></message> |
| <message><b>Names to store the CODEs under for later:</b></message> |
<message><b>Names to save the CODEs under for later:</b></message> |
| <message></td><td></message> |
<message></td><td></message> |
| <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> |
<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> |
| <message></td></tr><tr><td></message> |
<message></td></tr><tr><td></message> |
|
Line 2618 CHOOSE_ANON2
|
Line 2756 CHOOSE_ANON2
|
| } |
} |
| |
|
| # FIXME: That RE should come from a library somewhere. |
# FIXME: That RE should come from a library somewhere. |
| if ($perm{'pav'} |
if (($perm{'pav'} |
| && $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/' |
&& $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/' |
| && (defined($helper->{'VARS'}->{'construction'}) |
&& (defined($helper->{'VARS'}->{'construction'}) |
| || |
|| |
| (&Apache::lonnet::allowed('bre',$subdir) eq 'F' |
(&Apache::lonnet::allowed('bre',$subdir) eq 'F' |
| && |
&& |
| $helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/) |
$helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/) |
| ) |
)) |
| |
&& $helper->{VARS}->{'assignment'} eq "" |
| ) { |
) { |
| |
|
| my $pretty_dir = &Apache::lonnet::hreflocation($subdir); |
my $pretty_dir = &Apache::lonnet::hreflocation($subdir); |
|
Line 2652 CHOOSE_FROM_SUBDIR
|
Line 2791 CHOOSE_FROM_SUBDIR
|
| |
|
| # Allow the user to select any sequence in the course, feed it to |
# Allow the user to select any sequence in the course, feed it to |
| # another resource selector for that sequence |
# another resource selector for that sequence |
| if (!$helper->{VARS}->{'construction'}) { |
if (!$helper->{VARS}->{'construction'} && !$is_published) { |
| push @$printChoices, ["Selected <b>Resources</b> from <b>selected folder</b> in course", |
push @$printChoices, ["Selected <b>Resources</b> from <b>selected folder</b> in course", |
| 'select_sequences', 'CHOOSE_SEQUENCE']; |
'select_sequences', 'CHOOSE_SEQUENCE']; |
| my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; |
my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; |
|
Line 2699 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2838 CHOOSE_FROM_ANY_SEQUENCE
|
| |
|
| if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or |
if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or |
| ($helper->{VARS}->{'construction'} eq '1')) { |
($helper->{VARS}->{'construction'} eq '1')) { |
| addMessage("<hr width='33%' /><table><tr><td align='right'>Print: </td><td>"); |
addMessage("<hr width='33%' /><table><tr><td align='right'>". |
| |
'<label for="ANSWER_TYPE_forminput">'. |
| |
&mt('Print'). |
| |
"</label>: </td><td>"); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'ANSWER_TYPE'; |
$paramHash->{'variable'} = 'ANSWER_TYPE'; |
| $helper->declareVar('ANSWER_TYPE'); |
$helper->declareVar('ANSWER_TYPE'); |
|
Line 2715 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2857 CHOOSE_FROM_ANY_SEQUENCE
|
| |
|
| if ($perm{'pav'}) { |
if ($perm{'pav'}) { |
| if (!$startedTable) { |
if (!$startedTable) { |
| addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>"); |
addMessage("<hr width='33%' /><table><tr><td align='right'>". |
| |
'<label for="LATEX_TYPE_forminput">'. |
| |
&mt('LaTeX mode'). |
| |
"</label>: </td><td>"); |
| $startedTable = 1; |
$startedTable = 1; |
| } else { |
} else { |
| addMessage("<tr><td align='right'>LaTeX mode: </td><td>"); |
addMessage("<tr><td align='right'>". |
| |
'<label for="LATEX_TYPE_forminput">'. |
| |
&mt('LaTeX mode'). |
| |
"</label>: </td><td>"); |
| } |
} |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'LATEX_TYPE'; |
$paramHash->{'variable'} = 'LATEX_TYPE'; |
|
Line 2734 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2882 CHOOSE_FROM_ANY_SEQUENCE
|
| } |
} |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| |
|
| addMessage("</td></tr><tr><td align='right'>Print Table of Contents: </td><td>"); |
addMessage("</td></tr><tr><td align='right'>". |
| |
'<label="TABLE_CONTENTS_forminput">'. |
| |
&mt('Print Table of Contents'). |
| |
"</label>: </td><td>"); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'TABLE_CONTENTS'; |
$paramHash->{'variable'} = 'TABLE_CONTENTS'; |
| $helper->declareVar('TABLE_CONTENTS'); |
$helper->declareVar('TABLE_CONTENTS'); |
|
Line 2745 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2896 CHOOSE_FROM_ANY_SEQUENCE
|
| addMessage("</td></tr>"); |
addMessage("</td></tr>"); |
| |
|
| if (not $helper->{VARS}->{'construction'}) { |
if (not $helper->{VARS}->{'construction'}) { |
| addMessage("<tr><td align='right'>Print Index: </td><td>"); |
addMessage("<tr><td align='right'>". |
| |
'<label for="TABLE_INDEX_forminput">'. |
| |
&mt('Print Index'). |
| |
"</label>: </td><td>"); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'TABLE_INDEX'; |
$paramHash->{'variable'} = 'TABLE_INDEX'; |
| $helper->declareVar('TABLE_INDEX'); |
$helper->declareVar('TABLE_INDEX'); |
|
Line 2754 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2908 CHOOSE_FROM_ANY_SEQUENCE
|
| ['Yes', 'yes'] ]; |
['Yes', 'yes'] ]; |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| addMessage("</td></tr>"); |
addMessage("</td></tr>"); |
| addMessage("<tr><td align='right'>Print Discussions: </td><td>"); |
addMessage("<tr><td align='right'>". |
| |
'<label for="PRINT_DISCUSSIONS_forminput">'. |
| |
&mt('Print Discussions'). |
| |
"</label>: </td><td>"); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'PRINT_DISCUSSIONS'; |
$paramHash->{'variable'} = 'PRINT_DISCUSSIONS'; |
| $helper->declareVar('PRINT_DISCUSSIONS'); |
$helper->declareVar('PRINT_DISCUSSIONS'); |
|
Line 2776 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2933 CHOOSE_FROM_ANY_SEQUENCE
|
| |
|
| if ($helper->{'VARS'}->{'construction'}) { |
if ($helper->{'VARS'}->{'construction'}) { |
| my $stylevalue=$env{'construct.style'}; |
my $stylevalue=$env{'construct.style'}; |
| |
my $randseedtext=&mt("Use random seed"); |
| |
my $stylefiletext=&mt("Use style file"); |
| |
|
| my $xmlfrag .= <<"RNDSEED"; |
my $xmlfrag .= <<"RNDSEED"; |
| <message><tr><td align='right'>Use random seed: </td><td></message> |
<message><tr><td align='right'> |
| |
<label for="curseed_forminput">$randseedtext</label>: |
| |
</td><td></message> |
| <string variable="curseed" size="15" maxlength="15"> |
<string variable="curseed" size="15" maxlength="15"> |
| <defaultvalue> |
<defaultvalue> |
| return $helper->{VARS}->{'curseed'}; |
return $helper->{VARS}->{'curseed'}; |
| </defaultvalue> |
</defaultvalue> |
| </string> |
</string> |
| <message></td></tr><tr><td align="right">Use style file:</td><td></message> |
<message></td></tr><tr><td align="right"> |
| |
<label for="style_file_value">$stylefiletext</label>: |
| |
</td><td></message> |
| <message><input type="text" size="40" name="style_file_value" value="$stylevalue" /> <a href="javascript:openbrowser('helpform','style_file_value','sty')">Select style file</a> </td><tr><td></message> |
<message><input type="text" size="40" name="style_file_value" value="$stylevalue" /> <a href="javascript:openbrowser('helpform','style_file_value','sty')">Select style file</a> </td><tr><td></message> |
| <choices allowempty="1" multichoice="true" variable="showallfoils"> |
<choices allowempty="1" multichoice="true" variable="showallfoils"> |
| <choice computer="1">Show all foils?</choice> |
<choice computer="1">Show all foils?</choice> |
![[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