loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.50, 2003/09/25 14:05:44	version 1.51, 2003/10/16 19:23:58
Line 120 sub start_randomlabel {	Line 120 sub start_randomlabel {
$temp_file = Apache::File->new('>>'.$filename);	$temp_file = Apache::File->new('>>'.$filename);
$newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//;	$newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//;
print $temp_file "$newbgimg\n";	print $temp_file "$newbgimg\n";
$bgimg =~ m/\/([^\/]+)$/;	$bgimg=~s/\/home\/httpd\/html\/res/\/home\/httpd\/prtspool/; }
$bgimg = '/home/httpd/prtspool/'.$1;
}
}	}
}	}
$bgimg=~s/\/$//;	$bgimg=~s/\/$//;