#
#	A couple of routines for supporting photos
#

use Image::Size;


###
###	Photo2
###
###	Put out a photo.
###
###	Put in a break before the image unless the last value is "no".
###
sub Photo2
    {
    my($args) = @_;
    my($fname, $dir, $break);

    ($fname, $dir, $break) = split(/\s+/, $args);

    print OUT "<br clear=right> <br clear=left>\n"
    		unless (defined($break) && $break eq "no");
    print OUT "<a href=\"$fname.jpg\">
    	       <img src=\"$fname.t.jpg\" align=$dir hspace=10 vspace=10></a>";
    }


###
###	Name
###
###	Shorten a full name to just a first name and last initial.
###
sub Name
    {
    my($name) = @_;

    $name =~ s/(\S)\S*$/$1/;
    return $name;
    }

1;