version 1.150, 2003/05/05 18:48:15
|
version 1.152, 2003/05/06 13:50:23
|
Line 1349 ENDPART
|
Line 1349 ENDPART
|
$laystyle='book'; |
$laystyle='book'; |
} |
} |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format_new($papersize,$laystyle,$numberofcolumns); |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format_new($papersize,$laystyle,$numberofcolumns); |
|
|
|
|
|
|
|
|
# my $choice = $ENV{'form.choice'}; |
|
# my $layout = $ENV{'form.layout'}; |
|
# my $numberofcolumns = $ENV{'form.numberofcolumns'}; |
|
# my $papersize = $ENV{'form.papersize'}; |
|
# my $laystyle = 'book'; |
|
my $assignment = $ENV{'form.assignment'}; |
my $assignment = $ENV{'form.assignment'}; |
# if ($choice eq 'Subdirectory print') { |
# if ($choice eq 'Subdirectory print') { |
# if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';} |
# if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';} |
Line 1482 ENDPART
|
Line 1473 ENDPART
|
my $fullname = &get_name($username,$userdomain); |
my $fullname = &get_name($username,$userdomain); |
#goes through all resources, checks if they are available for current student, and produces output |
#goes through all resources, checks if they are available for current student, and produces output |
foreach my $curresline (@master_seq) { |
foreach my $curresline (@master_seq) { |
# my ($curres,$symb) = split /&&/, $curresline; |
|
# if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) { |
|
if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
# my ($map,$id,$res_url) = split(/___/,$symb);$curresres |
|
my ($map,$id,$res_url) = split(/___/,$curresline); |
my ($map,$id,$res_url) = split(/___/,$curresline); |
if (&Apache::lonnet::allowed('bre',$res_url)) { |
if (&Apache::lonnet::allowed('bre',$res_url)) { |
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain, |
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain, |
Line 1517 ENDPART
|
Line 1505 ENDPART
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$result .= '\end{document}'; |
$result .= '\end{document}'; |
&Apache::lonnet::delenv('form.textwidth'); |
&Apache::lonnet::delenv('form.textwidth'); |
# } elsif ($choice eq 'Subdirectory print') { |
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') { |
# #prints selected problems from the subdirectory |
#prints selected problems from the subdirectory |
# $selectionmade = 6; |
$selectionmade = 6; |
# my @list_of_files = (); |
my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'}; |
# for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) { |
my $flag_latex_header_remove = 'NO'; |
# if ($ENV{'form.whattoprint'.$i}=~/^\//) { |
for (my $i=0;$i<=$#list_of_files;$i++) { |
# push @list_of_files,$ENV{'form.whattoprint'.$i}; |
my $urlp = $list_of_files[$i]; |
# } |
if ($urlp=~/\//) { |
# } |
my %moreenv; |
# my $flag_latex_header_remove = 'NO'; |
$moreenv{'form.grade_target'}='tex'; |
# for (my $i=0;$i<=$#list_of_files;$i++) { |
$moreenv{'form.textwidth'}=$LaTeXwidth; |
# my $urlp = $list_of_files[$i]; |
&Apache::lonnet::appenv(%moreenv); |
# if ($urlp=~/\//) { |
if ($urlp =~ m|/home/([^/]+)/public_html|) { |
# my %moreenv; |
$urlp =~ s|/home/([^/]*)/public_html|/~$1|; |
# $moreenv{'form.grade_target'}='tex'; |
} else { |
# $moreenv{'form.textwidth'}=$LaTeXwidth; |
$urlp =~ s|^/home/httpd/html||; |
# &Apache::lonnet::appenv(%moreenv); |
} |
# if ($urlp =~ m|/home/([^/]+)/public_html|) { |
my $texversion=&Apache::lonnet::ssi($urlp); |
# $urlp =~ s|/home/([^/]*)/public_html|/~$1|; |
&Apache::lonnet::delenv('form.grade_target','form.textwidth'); |
# } else { |
#this chunck is responsible for printing the path to problem |
# $urlp =~ s|^/home/httpd/html||; |
my $newurlp = ''; |
# } |
my $HowMany = length($urlp)*2; |
# my $texversion=&Apache::lonnet::ssi($urlp); |
if ($HowMany > $LaTeXwidth) { |
# &Apache::lonnet::delenv('form.grade_target','form.textwidth'); |
my @temporrary = split '/',$urlp; |
# #this chunck is responsible for printing the path to problem |
my $HowManyNew = 0; |
# my $newurlp = ''; |
for (my $ii=0;$ii<=$#temporrary;$ii++) { |
# my $HowMany = length($urlp)*2; |
if ($temporrary[$ii] ne '') { |
# if ($HowMany > $LaTeXwidth) { |
$HowManyNew += length($temporrary[$ii])*2; |
# my @temporrary = split '/',$urlp; |
if ($HowManyNew < $LaTeXwidth ) { |
# my $HowManyNew = 0; |
$newurlp .= '/'.$temporrary[$ii]; |
# for (my $ii=0;$ii<=$#temporrary;$ii++) { |
} else { |
# if ($temporrary[$ii] ne '') { |
$HowManyNew = 0; |
# $HowManyNew += length($temporrary[$ii])*2; |
$newurlp .= '|\vskip -1 mm \noindent \verb|'; |
# if ($HowManyNew < $LaTeXwidth ) { |
$ii--; |
# $newurlp .= '/'.$temporrary[$ii]; |
} |
# } else { |
} |
# $HowManyNew = 0; |
} |
# $newurlp .= '|\vskip -1 mm \noindent \verb|'; |
} |
# $ii--; |
$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/; |
# } |
if ($flag_latex_header_remove ne 'NO') { |
# } |
$texversion = &latex_header_footer_remove($texversion); |
# } |
} else { |
# } |
$texversion =~ s/\\end{document}//; |
# $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/; |
} |
# if ($flag_latex_header_remove ne 'NO') { |
$result .= $texversion; |
# $texversion = &latex_header_footer_remove($texversion); |
} |
# } else { |
$flag_latex_header_remove = 'YES'; |
# $texversion =~ s/\\end{document}//; |
} |
# } |
$result .= '\end{document}'; |
# $result .= $texversion; |
|
# } |
|
# $flag_latex_header_remove = 'YES'; |
|
# } |
|
# $result .= '\end{document}'; |
|
} |
} |
#-------------------------------------------------------- corrections for the different page formats |
#-------------------------------------------------------- corrections for the different page formats |
$result = &page_format_transformation_new($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'}); |
$result = &page_format_transformation_new($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'}); |
Line 1758 sub printHelper {
|
Line 1741 sub printHelper {
|
|
|
# "Delete everything after the last slash." |
# "Delete everything after the last slash." |
$subdir =~ s|/[^/]+$||; |
$subdir =~ s|/[^/]+$||; |
|
$subdir = '/home/httpd/html/res'.$subdir; #needs additional work for the construction space |
|
|
# What can be printed is a very dynamic decision based on |
# What can be printed is a very dynamic decision based on |
# lots of factors. So we need to dynamically build this list. |
# lots of factors. So we need to dynamically build this list. |