"module avail" bugfixes....

[Eric B. (F. <er...@ee...>]

  (New to modules and mailing-list; pardons if already discussed).

  Under 3.0Beta1, the "avail" command has a couple of problems (was the
first thing I noticed so far before getting any deeper into the package).
  It wouldn't display all the modules in the MODULEPATH location and
wouldn't display anything if a path was supplied. I tracked down the
problems and offer the resulting patch (below).

  Are there any newer versions available with this and any other bugfixes ?
Should I instead work with an earlier version for deployment at our site ?


*** ModuleCmd_Avail.c.orig	Thu Oct  3 15:28:55 1996
--- ModuleCmd_Avail.c	Thu Nov  7 14:57:54 1996
***************
*** 238,247 ****
  
  	while( argc--) {
  
! 	    if( !check_dir( *argv))
  		if( OK != ErrorLogger( ERR_PARAM, LOC, NULL)) {
  		    Result = TCL_ERROR;	/** --- EXIT PROCEDURE (FAILURE) --> **/
  		}
  	    else
  		print_dir( interp, *argv, NULL);
  
--- 238,248 ----
  
  	while( argc--) {
  
! 	    if( !check_dir( *argv)) {
  		if( OK != ErrorLogger( ERR_PARAM, LOC, NULL)) {
  		    Result = TCL_ERROR;	/** --- EXIT PROCEDURE (FAILURE) --> **/
  		}
+ 	    }
  	    else
  		print_dir( interp, *argv, NULL);
  
***************
*** 1707,1713 ****
  
  	for( row_ndx = 0; row_ndx <= rows; row_ndx++) {
  	    for( col_ndx = 0; col_ndx < columns; col_ndx++) {
! 		if( module = _pick_file_list( row_ndx + col_ndx * columns))
  		    print_spaced_file( module, len, 1, numbered);
  	    }
  	    fprintf( stderr, "\n");
--- 1708,1714 ----
  
  	for( row_ndx = 0; row_ndx <= rows; row_ndx++) {
  	    for( col_ndx = 0; col_ndx < columns; col_ndx++) {
! 		if( module = _pick_file_list( row_ndx * columns + col_ndx))
  		    print_spaced_file( module, len, 1, numbered);
  	    }
  	    fprintf( stderr, "\n");


regards,
-eric