|
version 1.90, 2007/10/17 22:11:55
|
version 1.91.2.1, 2008/12/21 15:10:12
|
|
Line 130 sub start_randomlabel {
|
Line 130 sub start_randomlabel {
|
| $label_xscale = 1.0; # Assume image size not overridden. |
$label_xscale = 1.0; # Assume image size not overridden. |
| $label_yscale = 1.0; |
$label_yscale = 1.0; |
| my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
| if ( defined($bgimg) && $bgimg !~ /^http:/ ) { |
if ( defined($bgimg) && $bgimg !~ /^https?\:/ ) { |
| $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 178 sub end_randomlabel {
|
Line 178 sub end_randomlabel {
|
| $count = $Apache::randomlabel::obj_cnt; |
$count = $Apache::randomlabel::obj_cnt; |
| if( $count != 0) { $args{"cgi.$cgi_id.OBJCOUNT"}=$count; } |
if( $count != 0) { $args{"cgi.$cgi_id.OBJCOUNT"}=$count; } |
| $result.='<img src="/adm/randomlabel.png?token='.$cgi_id.'" /><br />'."\n"; |
$result.='<img src="/adm/randomlabel.png?token='.$cgi_id.'" /><br />'."\n"; |
| &Apache::lonnet::appenv(%args); |
&Apache::lonnet::appenv(\%args); |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| $result='\end{picture}\\\\'; |
$result='\end{picture}\\\\'; |
| $result.= ' \vskip -'.$height_param.' mm } \\\\ '; |
$result.= ' \vskip -'.$height_param.' mm } \\\\ '; |
![[BACK]](/icons/back.gif){kind=icon}
Return to randomlabel.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework