- return "<img src=\"$file_uri\" alt=\"$alt\" title=\"$alt\" ".img_size($width,$height)
- .(!$attrs ? "" : " ".$attrs)." />";
+ my $content="<img src=\"$file_uri\" alt=\"$alt\" title=\"$alt\" ".img_size($width,$height)
+ .(!$attr{"attr"} ? "" : " ".$attr{"attr"})." />";
+ return a_href img_src($attr{"a_href_img"}),$content if $attr{"a_href_img"};
+ return a_href $attr{"a_href"},$content if $attr{"a_href"};
+ return $content;
+}
+
+sub centerimg
+{
+ my $r.="";
+ $r.='<table border="0" width="100%"><tr>'."\n";
+ @_=( [@_] ) if !ref $_[0];
+ for (@_) {
+ $r.="\t".'<td align="center">'.&{\&img}(@$_).'</td>'."\n";
+ }
+ $r.='</tr></table>'."\n";
+ return $r;
+}
+
+sub rightimg
+{
+my($text,@args_img)=@_;
+
+ # Workaround bug of 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)':
+ return <<"HERE";
+<table border="0" width="100%">
+ <col width="@{[ (!$W->{"browser"}->ie() ? "1*" : "90%" ) ]}" />
+ <col width="@{[ (!$W->{"browser"}->ie() ? "0*" : "10%" ) ]}" />
+ <tr>
+ <td align="left">
+ @{[ $text ]}
+ </td>
+ <td align="right">
+ @{[ &{\&img}(@args_img) ]}
+ </td>
+ </tr>
+</table>
+HERE