version 1.264, 2003/11/11 16:53:48
|
version 1.270, 2004/01/15 21:23:22
|
Line 515 sub page_cleanup {
|
Line 515 sub page_cleanup {
|
|
|
sub details_for_menu { |
sub details_for_menu { |
|
|
my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}}; |
my $name_of_resourse = &Apache::lonnet::gettitle($ENV{'form.postdata'}); |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic); |
$map=&Apache::lonnet::clutter($map); |
$map=&Apache::lonnet::clutter($map); |
my $name_of_sequence; |
my $name_of_sequence = &Apache::lonnet::gettitle($map); |
$name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}}; |
|
if ($name_of_sequence =~ /^\s*$/) { |
if ($name_of_sequence =~ /^\s*$/) { |
$map =~ m|([^/]+)$|; |
$map =~ m|([^/]+)$|; |
$name_of_sequence = $1; |
$name_of_sequence = $1; |
} |
} |
my $name_of_map = $hash{'title_'.$hash{'ids_'.&Apache::lonnet::clutter($ENV{'request.course.uri'})}}; |
my $name_of_map = &Apache::lonnet::gettitle($ENV{'request.course.uri'}); |
if ($name_of_map =~ /^\s*$/) { |
if ($name_of_map =~ /^\s*$/) { |
$ENV{'request.course.uri'} =~ m|([^/]+)$|; |
$ENV{'request.course.uri'} =~ m|([^/]+)$|; |
$name_of_map = $1; |
$name_of_map = $1; |
Line 725 ENDPART
|
Line 724 ENDPART
|
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') { |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') { |
my %moreenv; |
my %moreenv; |
$moreenv{'request.filename'}=$currentURL; |
$moreenv{'request.filename'}=$currentURL; |
if ($helper->{'VARS'}->{'style_file'}=~/\w/) {$moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'};} |
if ($helper->{'VARS'}->{'style_file'}=~/\w/) { |
|
$moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'}; |
|
my $dom = $ENV{'user.domain'}; |
|
my $user = $ENV{'user.name'}; |
|
my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user); |
|
} |
my %form; |
my %form; |
$form{'grade_target'}='tex'; |
$form{'grade_target'}='tex'; |
$form{'textwidth'}=$LaTeXwidth; |
$form{'textwidth'}=$LaTeXwidth; |
Line 868 ENDPART
|
Line 872 ENDPART
|
my $flag_page_in_sequence = 'NO'; |
my $flag_page_in_sequence = 'NO'; |
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
my $prevassignment=''; |
my $prevassignment=''; |
|
&Apache::lonnet::delenv('form.counter'); |
&Apache::lonxml::init_counter(); |
&Apache::lonxml::init_counter(); |
for (my $i=0;$i<=$#master_seq;$i++) { |
for (my $i=0;$i<=$#master_seq;$i++) { |
my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]); |
my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]); |
Line 884 ENDPART
|
Line 889 ENDPART
|
$form{'symb'}=$master_seq[$i]; |
$form{'symb'}=$master_seq[$i]; |
my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]); |
my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]); |
my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem |
my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem |
|
if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;} |
if ($i==0) {$prevassignment=$assignment;} |
if ($i==0) {$prevassignment=$assignment;} |
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); |
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); |
my $texversion.=&Apache::lonnet::ssi($urlp,%form); |
my $texversion.=&Apache::lonnet::ssi($urlp,%form); |
Line 1554 CHOOSE_FROM_ANY_SEQUENCE
|
Line 1560 CHOOSE_FROM_ANY_SEQUENCE
|
} |
} |
|
|
if ($helper->{'VARS'}->{'construction'}) { |
if ($helper->{'VARS'}->{'construction'}) { |
my $xmlfrag .= <<'RNDSEED'; |
my $stylevalue=$ENV{'construct.style'}; |
|
my $xmlfrag .= <<"RNDSEED"; |
<message><tr><td align='right'>Use random seed: </td><td></message> |
<message><tr><td align='right'>Use random seed: </td><td></message> |
<string variable="curseed" size="15" maxlength="15"> |
<string variable="curseed" size="15" maxlength="15"> |
<defaultvalue> |
<defaultvalue> |
Line 1562 CHOOSE_FROM_ANY_SEQUENCE
|
Line 1569 CHOOSE_FROM_ANY_SEQUENCE
|
</defaultvalue> |
</defaultvalue> |
</string> |
</string> |
<message></td></tr><tr><td align="right">Use style file:</td><td></message> |
<message></td></tr><tr><td align="right">Use style file:</td><td></message> |
<message><input type="text" size="40" name="style_file_value" value="" /><a href="javascript:openbrowser('helpform','style_file','sty')"> Select style file</a> </td><td></message> |
<message><input type="text" size="40" name="style_file_value" value="$stylevalue" /> <a href="javascript:openbrowser('helpform','style_file','sty')">Select style file</a> </td><td></message> |
<message></td></tr></message> |
<message></td></tr></message> |
RNDSEED |
RNDSEED |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
Line 1635 use Apache::lonhelper;
|
Line 1642 use Apache::lonhelper;
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; |
|
|
my $maxColumns = 2; |
my $maxColumns = 2; |
my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", |
my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", |
Line 1662 sub render {
|
Line 1670 sub render {
|
my $helper = Apache::lonhelper::getHelper(); |
my $helper = Apache::lonhelper::getHelper(); |
my $result = ''; |
my $result = ''; |
my $var = $self->{'variable'}; |
my $var = $self->{'variable'}; |
|
my $PageLayout=&mt('Page layout'); |
|
my $NumberOfColumns=&mt('Number of columns'); |
|
my $PaperType=&mt('Paper type'); |
$result .= <<STATEHTML; |
$result .= <<STATEHTML; |
|
|
<hr width="33%" /> |
<hr width="33%" /> |
<table cellpadding="3"> |
<table cellpadding="3"> |
<tr> |
<tr> |
<td align="center"><b>Page layout</b></td> |
<td align="center"><b>$PageLayout</b></td> |
<td align="center"><b>Number of columns</b></td> |
<td align="center"><b>$NumberOfColumns</b></td> |
<td align="center"><b>Paper type</b></td> |
<td align="center"><b>$PaperType</b></td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td> |
<td> |