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

[raeburn]

raeburn		Thu Jan 17 21:18:09 2008 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Bugs 5576, 5585.
  Check that the first element in @partgeneral is defined, instead of whether @partgeneral has any indices, otherwise essayresponses are not identified as needing handgrading, because &packages_tab_default() is never called.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.937 loncom/lonnet/perl/lonnet.pm:1.938
--- loncom/lonnet/perl/lonnet.pm:1.937	Tue Jan  1 15:27:20 2008
+++ loncom/lonnet/perl/lonnet.pm	Thu Jan 17 21:18:07 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.937 2008/01/01 20:27:20 raeburn Exp $
+# $Id: lonnet.pm,v 1.938 2008/01/18 02:18:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6717,7 +6717,7 @@
 	    if ($part eq '') { $part='0'; }
 	    my @partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest,
 				 $symbparm,$udom,$uname,$section,1);
-	    if (@partgeneral) { return &get_reply(\@partgeneral); }
+	    if (defined($partgeneral[0])) { return &get_reply(\@partgeneral); }
 	}
 	if ($recurse) { return undef; }
 	my $pack_def=&packages_tab_default($filename,$varname);