loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.239, 2004/08/30 18:25:55	version 1.241, 2004/09/15 06:31:57
Line 2444 sub start_img {	Line 2444 sub start_img {
my ($file,$path)=&file_path($src);	my ($file,$path)=&file_path($src);
my $newsrc = $src;	my $newsrc = $src;
$newsrc =~ s/\.(gif\|jpg\|png)$/.eps/i;	$newsrc =~ s/\.(gif\|jpg\|png)$/.eps/i;
my $dummy_content=&Apache::lonnet::getfile($oldSRC);	&Apache::lonnet::repcopy($oldSRC);
$file=~s/\.(gif\|jpg\|png)$/.eps/i;	$file=~s/\.(gif\|jpg\|png)$/.eps/i;
#where can we find the picture?	#where can we find the picture?
if (-e $newsrc) {	if (-e $newsrc) {
Line 2672 sub start_allow {	Line 2672 sub start_allow {
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
&Apache::lonnet::clutter($src);	&Apache::lonnet::clutter($src);
&image_replication($src);	if ($target eq 'tex') { &image_replication($src); }
my $result;	my $result;
if ($target eq 'edit') {	if ($target eq 'edit') {
$result .=&Apache::edit::tag_start($target,$token);	$result .=&Apache::edit::tag_start($target,$token);