version 1.59, 2004/02/23 23:25:39
|
version 1.62, 2004/11/13 19:39:45
|
Line 87 sub start_randomlabel {
|
Line 87 sub start_randomlabel {
|
my $result=''; |
my $result=''; |
push (@Apache::lonxml::namespace,'randomlabel'); |
push (@Apache::lonxml::namespace,'randomlabel'); |
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
if ( $bgimg !~ /^http:/ ) { |
if ( defined($bgimg) && $bgimg !~ /^http:/ ) { |
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg); |
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg); |
if (&Apache::lonnet::repcopy($bgimg) ne OK) { |
if (&Apache::lonnet::repcopy($bgimg) ne OK) { |
$bgimg='/home/httpd/html/adm/lonKaputt/lonlogo_broken.gif'; |
$bgimg='/home/httpd/html/adm/lonKaputt/lonlogo_broken.gif'; |
Line 144 sub end_randomlabel {
|
Line 144 sub end_randomlabel {
|
my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $texwidth=&adjust_textwidth(&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1)); |
my $texwidth=&adjust_textwidth(&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1)); |
if (!$texwidth) { $texwidth=90; } |
if (!$texwidth) { $texwidth=90; } |
|
# what if width is undefined? |
my $howtoskipback = $texwidth*$height/$width; |
my $howtoskipback = $texwidth*$height/$width; |
$result.= ' \vskip -'.$howtoskipback.' mm } \\\\ '; |
$result.= ' \vskip -'.$howtoskipback.' mm } \\\\ '; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
Line 260 sub start_labelgroup {
|
Line 261 sub start_labelgroup {
|
|
|
sub add_vars { |
sub add_vars { |
my ($name,$order,$label,$labelorder,$value,$image,$safeeval) = @_; |
my ($name,$order,$label,$labelorder,$value,$image,$safeeval) = @_; |
|
if (!defined($name) || $name eq '') { return; } |
my $code = '${'.$name."}{'".($order+1)."'}='".$label."';"; |
my $code = '${'.$name."}{'".($order+1)."'}='".$label."';"; |
my $out=Apache::run::run($code,$safeeval); |
my $out=Apache::run::run($code,$safeeval); |
if ($value) { |
if ($value) { |
Line 315 sub end_labelgroup {
|
Line 317 sub end_labelgroup {
|
my $wheight=&Apache::lonxml::get_param('height',$parstack,$safeeval,-2); |
my $wheight=&Apache::lonxml::get_param('height',$parstack,$safeeval,-2); |
my $texwidth=&adjust_textwidth(&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,-2,1)); |
my $texwidth=&adjust_textwidth(&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,-2,1)); |
if (!$texwidth) { $texwidth=90; } |
if (!$texwidth) { $texwidth=90; } |
my $TX1=0; |
my $texheight=$texwidth*($wheight/$wwidth); |
my $TY1=$texwidth*($wheight/$wwidth); |
|
my $TX2=$texwidth; |
|
my $TY2=0; |
|
|
|
|
|
my $slopex=($wwidth-$WX1)/($TX2-$TX1); |
|
my $slopey=($wheight-$WY1)/($TY2-($TY1-1.0)); |
|
my $cstx=$wwidth-$slopex*($TX2); |
|
my $csty=$wheight-$slopey*($TY2); |
|
|
|
my @idx_arr = (0 .. $#Apache::randomlabel::label_arr); |
my @idx_arr = (0 .. $#Apache::randomlabel::label_arr); |
&Apache::structuretags::shuffle(\@idx_arr); |
&Apache::structuretags::shuffle(\@idx_arr); |
|
|
Line 333 sub end_labelgroup {
|
Line 326 sub end_labelgroup {
|
for(my $i=0;$i <= $#Apache::randomlabel::label_arr; $i++) { |
for(my $i=0;$i <= $#Apache::randomlabel::label_arr; $i++) { |
my $label = "$Apache::randomlabel::label_arr[ $idx_arr[$i] ]"; |
my $label = "$Apache::randomlabel::label_arr[ $idx_arr[$i] ]"; |
my $x = $Apache::randomlabel::xcoord[$i]; |
my $x = $Apache::randomlabel::xcoord[$i]; |
my $y = $Apache::randomlabel::ycoord[$i]; |
# FIXME the 3.5 here is the 'height' of the letter in TeX |
|
my $y = $Apache::randomlabel::ycoord[$i]-3.5; |
my $value = $Apache::randomlabel::value[$i]; |
my $value = $Apache::randomlabel::value[$i]; |
#x latex coordinate |
#x latex coordinate |
my $tcX=($x)*($texwidth/$wwidth); |
my $tcX=($x)*($texwidth/$wwidth); |
#y latex coordinate |
#y latex coordinate |
# my $ratio=($wwidth > 0 ? $wheight/$wwidth : 1 ); |
# my $ratio=($wwidth > 0 ? $wheight/$wwidth : 1 ); |
my $tcY=$TY1-$y*($TY1/$wheight); |
my $tcY=$texheight-$y*($texheight/$wheight); |
$tcX=sprintf('%.2f',$tcX); |
$tcX=sprintf('%.2f',$tcX); |
$tcY=sprintf('%.2f',$tcY); |
$tcY=sprintf('%.2f',$tcY); |
$result.='\put('.$tcX.','.$tcY.'){\normalsize \bf '.$label.'}'."\n"; |
$result.='\put('.$tcX.','.$tcY.'){\normalsize \bf '.$label.'}'."\n"; |
Line 451 sub end_label {
|
Line 445 sub end_label {
|
my $description = &Apache::lonxml::get_param('description', |
my $description = &Apache::lonxml::get_param('description', |
$parstack,$safeeval); |
$parstack,$safeeval); |
push(@Apache::randomlabel::description,$description); |
push(@Apache::randomlabel::description,$description); |
|
} else { |
|
$ltext=~s/[\r\n]*//gs |
} |
} |
push(@Apache::randomlabel::label_arr,$ltext); |
push(@Apache::randomlabel::label_arr,$ltext); |
} |
} |