/*************************************************************************/
/* Autor      : RTA                                                      */
/* Computer   : Amiga                                                    */
/* Sprache    : Ansi C                                                   */
/* Compiler   : SAS C-Compiler Version 5.1a                              */
/* Dateiname  : getfile.c                                                */
/* Projekt    : OnlineHelp                                               */
/* Erstellt am: 24 Aug 1991,14:10                                        */
/* Letzte Veränderung: 10 Nov 1991 von RTA                               */
/* Rückgabewert verändert. Der/die Dateiname(n) werden nicht mehr direkt */
/* zurückgegeben, sondern direkt in die Suchliste eingetragen.				 */
/*************************************************************************/

#include "online.h"

BOOL getfile()
{
   BYTE title[]="Bitte wählen Sie eine Datei",
        dir[DSIZE+1]="DOC:",
        *fname;
   struct ESStructure *c;

   if(!(fname=(BYTE *)calloc(DSIZE+FCHARS+3,BYTE_LEN)))
      {
      SimpleRequest("%s",errortext.nomem);
      return(FALSE);
      }

   fr.Flags=FRQLOADINGM+FRQEXTSELECTM;
   fr.Title=title;
   fr.Dir=dir;
   fr.PathName=fname;
   strcpy(fr.Show,"*.doc");
   fr.Window=IntuitionBase->ActiveWindow;
   if(!FileRequester(&fr))return(FALSE);

if(!fr.ExtendedSelect) {if(!additem(fname))return(FALSE);}
else for(c=fr.ExtendedSelect;c!=NULL;c=c->NextFile)
		{
		sprintf(fname,"%s%s",fr.Dir,c->thefilename);
   	if(!additem(fname))return(FALSE);
		}
 return(TRUE);
}