|
version 1.55, 2004/01/08 20:28:20
|
version 1.56, 2004/01/09 00:53:19
|
|
Line 107 sub start_randomlabel {
|
Line 107 sub start_randomlabel {
|
| my $newbgimg = $bgimg; |
my $newbgimg = $bgimg; |
| $bgimg=~s/\.(gif|jpg|png|jpeg)$/\.eps/i; |
$bgimg=~s/\.(gif|jpg|png|jpeg)$/\.eps/i; |
| $bgimg= &Apache::lonnet::filelocation($bgimg); |
$bgimg= &Apache::lonnet::filelocation($bgimg); |
| $bgimg=~s|http:/[^/]*//home/httpd/html|; |
$bgimg=~s|http:/[^/]*|/home/httpd/html|; |
| $bgimg=~s|/$||; |
$bgimg=~s|/$||; |
| #if no eps file try to replicate it |
#if no eps file try to replicate it |
| if (not-e $bgimg) { |
if (not-e $bgimg) { |
![[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