version 1.91, 2002/11/18 20:30:49
|
version 1.93, 2002/11/20 17:26:52
|
Line 107 ENDMENUOUT6
|
Line 107 ENDMENUOUT6
|
} |
} |
my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'}); |
my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'}); |
$subdirtoprint =~ s/\/[^\/]+$//; |
$subdirtoprint =~ s/\/[^\/]+$//; |
if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') { |
if ((&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') and ($ENV{'form.postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) { |
$r->print(<<ENDMENUOUT4); |
$r->print(<<ENDMENUOUT4); |
<input type="radio" name="choice" value="Subdirectory print"> Problems from current subdirectory <b>$subdir_to_print</b><br /> |
<input type="radio" name="choice" value="Subdirectory print"> Problems from current subdirectory <b>$subdir_to_print</b><br /> |
ENDMENUOUT4 |
ENDMENUOUT4 |
Line 165 sub sequence_content_menu {
|
Line 165 sub sequence_content_menu {
|
<input type="hidden" name="choice" value="$ENV{'form.choice'}"> |
<input type="hidden" name="choice" value="$ENV{'form.choice'}"> |
<input type="hidden" name="layout" value="$ENV{'form.layout'}"> |
<input type="hidden" name="layout" value="$ENV{'form.layout'}"> |
<input type="hidden" name="papersize" value="$ENV{'form.papersize'}"> |
<input type="hidden" name="papersize" value="$ENV{'form.papersize'}"> |
|
<input type="hidden" name="assignment" value="$ENV{'form.assignment'}"> |
<input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}"> |
<input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}"> |
<h1>Mark item(s) which you want to print</h1> |
<h1>Mark item(s) which you want to print</h1> |
<script> |
<script> |
Line 449 ENDPART
|
Line 450 ENDPART
|
if ($choice eq 'Standard LaTeX output for current document') { |
if ($choice eq 'Standard LaTeX output for current document') { |
#-- single document - problem, page, html, xml |
#-- single document - problem, page, html, xml |
$selectionmade = 1; |
$selectionmade = 1; |
my %moreenv; |
if ($ENV{'form.url'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { |
$moreenv{'form.grade_target'}='tex'; |
my %moreenv; |
if (&Apache::lonnet::allowed('bre',$ENV{'form.url'})) { |
$moreenv{'form.grade_target'}='tex'; |
|
if (&Apache::lonnet::allowed('bre',$ENV{'form.url'})) { |
$ENV{'form.url'}=~s/http:\/\/[^\/]+//; |
$ENV{'form.url'}=~s/http:\/\/[^\/]+//; |
} |
} |
$moreenv{'request.filename'}=$ENV{'form.url'}; |
$moreenv{'request.filename'}=$ENV{'form.url'}; |
$moreenv{'form.textwidth'}=$LaTeXwidth; |
$moreenv{'form.textwidth'}=$LaTeXwidth; |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
my $texversion=&Apache::lonnet::ssi($ENV{'form.url'}); |
my $texversion=&Apache::lonnet::ssi($ENV{'form.url'}); |
&Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter'); |
&Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter'); |
$result .= $texversion; |
$result .= $texversion; |
if ($ENV{'form.url'}=~m/\.page\s*$/) { |
if ($ENV{'form.url'}=~m/\.page\s*$/) { |
($result,$number_of_columns) = &page_cleanup($result); |
($result,$number_of_columns) = &page_cleanup($result); |
|
} |
|
} else{ |
|
$result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}You are trying to print eather sequence or something simular. Currently this option is not supported. Sorry for the inconvenience. Bye. Your current URL is '.$ENV{'form.url'}.' \end{document}' |
} |
} |
} elsif ($choice eq 'Standard LaTeX output for the primary sequence' or |
} elsif ($choice eq 'Standard LaTeX output for the primary sequence' or |
$choice eq 'Standard LaTeX output for whole primary sequence') { |
$choice eq 'Standard LaTeX output for whole primary sequence') { |
Line 1169 sub character_chart {
|
Line 1174 sub character_chart {
|
sub page_format_transformation { |
sub page_format_transformation { |
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; |
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
if ($layout eq 'CBI') { |
if ($layout eq 'CBI') { |
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill $courseidinfo} \\vskip 5 mm /; |
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill $courseidinfo} \\vskip 5 mm /; |
} elsif ($layout eq 'CAPA') { |
} elsif ($layout eq 'CAPA') { |