sub ThumbSize {
# -------------------------------------------------------------------
# This subroutine will get called whenever a tag is called in the templates.
# It will grab the URL to the file...small file that is...and return it
# Call with <%Plugins::Thumb_Images::ThumbURL($ID,FieldName)%>

my ($ID,$field,$table) = @_;

use Image::Size 'html_imgsize';

$table ||= 'Links';

# make sure a fieldname and ID are provided...
if (!$ID || !$field) { return "You need to define the ID and fieldname. Example: &lt\;%Plugins::Thumb_Images::ThumbURL(\$ID,FieldName)%&gt\;"; }

# get the actual path to where the file is/will be saved...
my $schema = $DB->table('Links')->cols;
my $path = $schema->{$field}->{'file_save_in'};
$path =~ s,/$,,; # get rid of trailing / at end of $path


# now lets grab the path to this image...from $hit->{ID}
my $col = $field; # column name where file is held
my $tbl = $DB->table( 'Links' );
my $fh = $tbl->file_info( $col, $ID ); # return a glob reference to the file that you can print <$fh> if you want

my $rel_path;
if ($fh) {
$rel_path = $fh->File_RelativePath;
}
undef $fh; # explicit close of the filehandle for good measure

# create the variable for where the small image will be held...
my @img_create = split("/",$rel_path);
my $count = $#img_create;

# create the path, and small image name...
my $rel_path_small = undef; # make sure we have this variable as an undef, otherwise we get probs...
for (my $i = 0; $i < $count; $i++) { $rel_path_small .= $img_create[$i] . "/"; }
$rel_path_small .= "small-" . $img_create[$count]; # create the small image name...

my $the_path = $path . $rel_path_small;

return html_imgsize($the_path);



}

<%set image_size_small = Plugins::Thumb_Images::ThumbSize ($ID,'Image')%>

<%image_size_small%>