--- loncom/homework/randomlabel.pm 2003/09/25 14:05:44 1.50 +++ loncom/homework/randomlabel.pm 2003/10/16 19:23:58 1.51 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # random labelling tool # -# $Id: randomlabel.pm,v 1.50 2003/09/25 14:05:44 sakharuk Exp $ +# $Id: randomlabel.pm,v 1.51 2003/10/16 19:23:58 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -120,9 +120,7 @@ sub start_randomlabel { $temp_file = Apache::File->new('>>'.$filename); $newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//; print $temp_file "$newbgimg\n"; - $bgimg =~ m/\/([^\/]+)$/; - $bgimg = '/home/httpd/prtspool/'.$1; - } + $bgimg=~s/\/home\/httpd\/html\/res/\/home\/httpd\/prtspool/; } } } $bgimg=~s/\/$//;