width size met perl

[daricky]

Heeft iemand een idee hoe ik een width size kan meegeven in onderstaande code. Uit de html opmaak van het script maak ik op dat FULLSIZE het image is. Alvast hartelijk dank voor je hulp.

Groet,

Ricardo

	my(%AD, %FILE, $template,$catlink);
	$template = &ParseCommonCodes($TEMPLATE{image});
    %AD = &RetrieveAdDB($FORM{id});
	%FILE = 

&RetrieveFilesDB($AD{$FORM{file_id}},'[VIEW_URL]');
	if($FILE{id}){	$template =~ 

s/\[FULLSIZE\]/$FILE{code}/iges;	}
	else{			$template =~ 

s/\[FULLSIZE\]//i;	}
	foreach (keys %FILE){	$template =~ 

s/\[FILE_$_\]/$FILE{$_}/ig;	}