version 1.108, 2003/01/29 15:57:44
|
version 1.109, 2003/01/30 16:57:01
|
Line 240 sub problem_choice_menu {
|
Line 240 sub problem_choice_menu {
|
@content_directory = &Apache::lonnet::dirlist($subdirtoprint, |
@content_directory = &Apache::lonnet::dirlist($subdirtoprint, |
$domain, $user,''); |
$domain, $user,''); |
} else { |
} else { |
@content_directory = &Apache::lonnet::dirlist($subdirtoprint); |
#local library server res space (allows to print only from the own library server) |
|
@content_directory = &Apache::lonnet::dirlist($subdirtoprint,$ENV{'user.domain'}, $ENV{'user.name'},''); |
} |
} |
for (my $iy=0;$iy<=$#content_directory;$iy++) { |
for (my $iy=0;$iy<=$#content_directory;$iy++) { |
my @tempo_array = split(/&/,$content_directory[$iy]); |
my @tempo_array = split(/&/,$content_directory[$iy]); |
Line 469 ENDPART
|
Line 470 ENDPART
|
$LaTeXwidth = $1; |
$LaTeXwidth = $1; |
} |
} |
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; |
if ($ENV{'form.url'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { |
if ($ENV{'form.url'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { |
my %moreenv; |
my %moreenv; |
Line 646 ENDPART
|
Line 647 ENDPART
|
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
if ($urlp =~ m|/home/([^/]+)/public_html|) { |
if ($urlp =~ m|/home/([^/]+)/public_html|) { |
$urlp =~ s|/home/([^/]*)/public_html|/~$1|; |
$urlp =~ s|/home/([^/]*)/public_html|/~$1|; |
|
} else { |
|
$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','form.textwidth'); |