--- loncom/xml/londefdef.pm 2005/03/01 03:21:58 1.259 +++ loncom/xml/londefdef.pm 2005/03/02 22:26:36 1.260 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.259 2005/03/01 03:21:58 albertel Exp $ +# $Id: londefdef.pm,v 1.260 2005/03/02 22:26:36 raeburn Exp $ # # # Copyright Michigan State University Board of Trustees @@ -3749,7 +3749,7 @@ sub image_replication { $pssrc =~ s/\.(gif|jpg|jpeg|png)$/.ps/i; if (not -e $epssrc && not -e $pssrc) { my $result=&Apache::lonnet::repcopy($epssrc); - if ($result ne OK) { &Apache::lonnet::repcopy($pssrc); } + if ($result ne 'OK') { &Apache::lonnet::repcopy($pssrc); } } return ''; } @@ -3815,12 +3815,12 @@ sub get_eps_image { $src=~s/\.(gif|png|jpg|jpeg)$/\.eps/i; $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); if (! -e $src) { - if (&Apache::lonnet::repcopy($src) ne OK ) { + if (&Apache::lonnet::repcopy($src) ne 'OK' ) { #if replication failed try to find ps file $src=~s/\.eps$/\.ps/; #if no ps file try to replicate it if (not -e $src && - &Apache::lonnet::repcopy($src) ne OK) { + &Apache::lonnet::repcopy($src) ne 'OK') { #if replication failed try to produce eps file dynamically $src=~s/\.ps$/\.eps/; my $temp_file;