Need help with alt tags in Perl

armadacomputers · #1 (**permalink**) 08-20-2005, 02:25 PM

Hi.

We had this code written for us and we want to do some small alterations.

$tmp_alt="";
$tmp_alt=qq| alt=$INSERT{name}| if $row[7];
$INSERT{image} = qq|[img]$image_dir/$row[6][/img]| if $row[6];
$INSERT{image} ="<a href=\"$row[7]\" target=_blank>$INSERT{image}</a>" if $row[7] && $INSERT{image};
$INSERT{id} = "$row[0]";
for(1..$row[9]){$INSERT{rating}.="<img src=\"$img3\" border=0 align=top>";}
$row[12]=~s/,/<option>/ig;
$INSERT{options} = "<font class=price>Option:</font> <select name=options_$row[0]><option>".$row[12]."</select>" if $row[12];

Basically we want the name of the product to appear as the alt tag to the image unfortunetly with the code above only the first word of the name appears rather than the complete description.

We have not been able to work out why this happens so any help would be apprecitated. We are also looking at how we can make a defualt image appear if the image the code points to is not valid any help with this would be appreciated.

**brian.mark** · #2 (**permalink**) 08-21-2005, 06:31 PM

Not enough information here to really tell you. The variable must have had a value assigned (incorrectly) before the code you showed us.

If you want to PM me a bigger snip, I could probably get an answer to you pretty quickly.

Brian.

armadacomputers · #3 (**permalink**) 08-22-2005, 03:03 AM

Thanks but I managed to sort it out, all I need to do was put "'s around alt=$INSERT{name} so it became alt="$INSERT{name}".

armadacomputers · #4 (**permalink**) 08-22-2005, 03:05 AM

Heres a bit more of the code, what would I need to add/alter on this to put standard pic if path to image is invalid or missing.

$INSERT{price} = $row[3];
$INSERT{trade_price} =sprintf("%.2F",($row[3]*$coef_trade));
$INSERT{customer_price} =sprintf("%.2F",($row[3]*$coef_web));
if ($row[13]){$INSERT{vat_price} = sprintf("%.2F",($row[3]*$coef_web));}
else{$INSERT{vat_price} = sprintf("%.2F",($row[3]*$coef_web*$coef_vat));}
$INSERT{name} = $row[2];
$INSERT{description} = $row[8];
$INSERT{text} = $row[10];
$INSERT{weight} = $row[11];
$row[16] = sprintf("%.2F",($row[15] - $INSERT{customer_price}));
$INSERT{RRP} = "
<font class=price2>Save £ $row[16]</font> <font class=\"cost\">on RRP of £ $row[15]

</font>" if $row[15];

$tmp_alt="";
$tmp_alt=qq| alt="$INSERT{name}"| if $row[7];
$INSERT{image} = qq|[img]$image_dir/$row[6][/img]| if $row[6];
$INSERT{image} ="<a href=\"$row[7]\" target=_blank>$INSERT{image}</a>" if $row[7] && $INSERT{image};
$INSERT{id} = "$row[0]";
for(1..$row[9]){$INSERT{rating}.="<img src=\"$img3\" border=0 align=top>";}
$row[12]=~s/,/<option>/ig;
$INSERT{options} = "<font class=price>Option:</font> <select name=options_$row[0]><option>".$row[12]."</select>" if $row[12];

#$p = substr(addslashes($INSERT{name}), 0, 10);
#$INSERT{hash}=md5_hex($secret_key . $p . $INSERT{customer_price} . $INSERT{weight});
$INSERT{free_delivery} = "<img src=\"$imgFree\" border=0 alt=\"FREE DELIVERY WITH THIS PRODUCT!\">" unless $INSERT{weight};
$INSERT{WEB} = qq~[img]$imgWeb[/img]~ if $row[7];

$INSERT{menu} = mmenu($FORM{cat});
$text.=get_record($template);
$INSERT{title} = $INSERT{name};
$INSERT{title} =~s/ /\/g;

**brian.mark** · #5 (**permalink**) 08-22-2005, 03:45 AM

That'd be easy enough.

After this line:

$INSERT{image} = qq|[img]$image_dir/$row[6][/img]| if $row[6];

Add these:

my $path = qq|/base/path/to/image/dir/|;
$INSERT{image} = qq|[img]$image_dir/coming_soon.gif[/img]| unless (-e "$path/$image_dir/$row[6]");

Before this:

$INSERT{image} ="<a href=\"$row[7]\" target=_blank>$INSERT{image}</a>" if $row[7] && $INSERT{image};

Just set the path correct and you should get a coming soon or whatever image you code in if the image doesn't exist. The path could be absolute (/home/www/site.com/html/) or relative from the script's directory (../html/). Either should work for you.

Brian.

armadacomputers · #6 (**permalink**) 08-22-2005, 04:49 AM

Have also triued to alter this similar code but now all images report as missing, I know I have made a schoolboy error but where

$INSERT{name} = $row[2];
$INSERT{description} = $row[8];
$INSERT{weight} = $row[10];
$INSERT{enlarge} = "
<table align=right><tr><td>enlarge</td></tr></table>" if $row[12];
$INSERT{price_down} = qq|<table width=100%><tr><td align=right>[img]$button_dir/price_reduction.gif[/img]</td></tr></table>\n| if $price_down{$row[0]};
$INSERT{thumbnail} = qq|[img]$image_dir/$row[6][/img]| if $row[6];
$INSERT{thumbnail} = qq|

| unless (-e "$path/$image_dir/$row[6]");
$INSERT{thumbnail} ="<a href=\"$PROG_NAME?product=$row[0]&cat=$FORM{cat}\">$INSERT{thumbnail}</a>" if $INSERT{thumbnail};