--- loncom/homework/randomlabel.pm 2002/08/07 21:49:35 1.34 +++ loncom/homework/randomlabel.pm 2002/08/27 15:40:07 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # random labelling tool # -# $Id: randomlabel.pm,v 1.34 2002/08/07 21:49:35 sakharuk Exp $ +# $Id: randomlabel.pm,v 1.35 2002/08/27 15:40:07 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -110,9 +110,12 @@ sub start_randomlabel { $bgimg= &Apache::lonnet::filelocation($bgimg); if (not $ENV{'request.role'}=~/^au\./) { $bgimg=~s/http:\/[^\/]*/\/home\/httpd\/html/; + $bgimg=~s/\/$//; + if (not-e $bgimg) { + my $response = &Apache::lonnet::repcopy($bgimg); + } } else { $bgimg=~s/http:\/[^\/]*\/~([^\/]+)/\/home\/$1\/public_html/; - } $bgimg=~s/\/$//; my $dirtywidth=$texwidth+5;