Creating new account folders, logo image

[Steve Wood]

Re: Creating new account folders, logo image

On one application I do the custom images in a database-less fashion.

If a user is logged in, that first session variable will be populated with a "company id" value from their login process. The code looks for an existing graphic name like cABC.jpg, with the 'ABC' being the company id (I really use a 32bit value for company id). If it finds the graphic, it is displayed. If not, it displays their company name. If that is missing, nothing shows. Elsewhere in the system the user can upload a logo, and it renames whatever they send to "C"+companyid + ".jpg".

IF eval_valid("session.__protected__co")
	co = alltrim(session.__protected__co)
	IF file.exists("c" + co + ".jpg")
		logofile = "c" + co + ".jpg"
		?"<img border=\"0\" src=\""+logofile+"\">"
	ELSE
		?table.external_record_content_get("[PathAlias.ADB_Path]\company","Name","","ID="+quote(co))
	END IF
END IF

By the way, why do you need to create folders for each user? You may have something special, but you should be able to use your database to isloate user information, and not need physical folders.

[NoeticCC]

Re: Creating new account folders, logo image

There are dozens of ways of doing this so there is no one tutorial...

Personally I would have a table in a database, which holds 1 row for each customer, and allows uploading images etc. that way, e.g. all the settings and so forth are held in that table, and when someone logs in a session variable is set to the customer you are browsing as (e.g. employee from Customer1 logs in -> They see everything as set by the entry for Customer 1, admin logs in and selects which customer to browse as, they see everything according to the settings in the relevant record).

[dkolbach]

Re: Creating new account folders, logo image

I use the following code to create directories for an application that handle upcoming shipments to my company. We have to be able to keep and display all kind of different document for each shipment.

ShNumber = CurrentForm.Controls.Shipment
ShGrower = CurrentForm.Controls.Grower
WorkDirectory="D:\A5Webroot\LotsSystem\Docs\\"+alltrim(ShNumber)+"\\"+alltrim(ShGrower)


'Creating subdirectory if not there

if (a5_is_path_valid(WorkDirectory)= .f.) then
dir_create_recurse(WorkDirectory)
end if

----------------
If there not that many customers you can acually create a starting page for cusmtomer when they log in. I think that will work.

[mrzogs]

Creating new account folders

I have been searching for this and I just can not find it. I want to make it when on of are employees create a new account that alpha will create the folders needed for that client. Also when the client logs in there company logo will appear in the upper corner.
Is there any tutorials for this I read somebody did it I just could not find were they got the information.


thanks