if (dbmopen(DBDIR, '/wwwroot/test/groupweb/data/techExch/' . notesDir, undef))
{
  foreach $notesDate (sort(keys (%DBDIR)))
  {
    $notesInfo = $DBDIR{$notesDate}; 
    @notesInfo = split(/\|/, $notesInfo); 
    @notesInfo[0] =~ s/([0-9]+)[\/](.*)/\2\/\1/;
  }
}

##</code><code>##

use NDBM_File;

##</code><code>##

use SDBM_File;

##</code><code>##

use SDBM_File;