--- loncom/interface/londocs.pm	2005/02/21 00:32:45	1.168
+++ loncom/interface/londocs.pm	2005/03/02 22:26:36	1.169
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.168 2005/02/21 00:32:45 www Exp $
+# $Id: londocs.pm,v 1.169 2005/03/02 22:26:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1489,7 +1489,7 @@ sub checkonthis {
        if ($url=~/^\/res\//) {
 	  my $result=&Apache::lonnet::repcopy(
                               &Apache::lonnet::filelocation('',$url));
-          if ($result==OK) {
+          if ($result eq 'OK') {
              $r->print('<font color="green">'.&mt('ok').'</font>');
              $r->rflush();
              &Apache::lonnet::countacc($url);
@@ -1532,9 +1532,9 @@ sub checkonthis {
                     &checkonthis($r,$_,$level+1);
                  }
              }
-          } elsif ($result==HTTP_SERVICE_UNAVAILABLE) {
+          } elsif ($result eq 'HTTP_SERVICE_UNAVAILABLE') {
              $r->print('<font color="red"><b>'.&mt('connection down').'</b></font>');
-          } elsif ($result==HTTP_NOT_FOUND) {
+          } elsif ($result eq 'HTTP_NOT_FOUND') {
 	      unless ($url=~/\$/) {
 		  $r->print('<font color="red"><b>'.&mt('not found').'</b></font>');
 	      } else {