[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[albertel]

albertel		Thu Dec 11 19:20:09 2003 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - BUG#2486, lond changed it's error message handling to return the numeric vaules GDBM errors, (Iguess so that we wouldn't be tripped up by changes in wording), however the place that cheacked for GDBM errors by wording wasn't updated. Once again ignoring error condition 2 (No such file)
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.458 loncom/lonnet/perl/lonnet.pm:1.459
--- loncom/lonnet/perl/lonnet.pm:1.458	Tue Dec  9 11:22:06 2003
+++ loncom/lonnet/perl/lonnet.pm	Thu Dec 11 19:20:08 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.458 2003/12/09 16:22:06 matthew Exp $
+# $Id: lonnet.pm,v 1.459 2003/12/12 00:20:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3703,12 +3703,13 @@
 		    if ($$result{$courselevel}) {
 			return $$result{$courselevel}; }
 		} else {
-		    if ($tmp!~/No such file/) {
+		    #error 2 occurs when the .db doesn't exist
+		    if ($tmp!~/error: 2 /) {
 			&logthis("<font color=blue>WARNING:".
 				 " Trying to get resource data for ".
 				 $uname." at ".$udom.": ".
 				 $tmp."</font>");
-		    } elsif ($tmp=~/error:No such file/) {
+		    } elsif ($tmp=~/error: 2 /) {
                         &EXT_cache_set($udom,$uname);
 		    } elsif ($tmp =~ /^(con_lost|no_such_host)/) {
 			return $tmp;