view release on metacpan or  search on metacpan

lib/App/MaMGal/Formatter.pm  view on Meta::CPAN

	if ($img) {
		sprintf("<img src='%s'/>", encode_entities_numeric(URI::file->new($img)->as_string));
	} else {
		# TRANSLATORS: This text will appear literally where no thumbnail is avaialable
		# for a given object.
		# Please use &nbsp; for whitespace, to avoid line breaks.
		gettext('[no&nbsp;icon]');
	}
}

sub MAYBE_EMBED
{
	my $self = shift;
	my $film = shift;
	if ($film) {
		sprintf("<embed src='%s'/>", encode_entities_numeric(URI::file->new($film)->as_string));
	} else {
		# TRANSLATORS: This text will appear literally where no path is
		# avaialable for a given film.
		# Please use &nbsp; for whitespace, to avoid line breaks.
		gettext('[no&nbsp;film]');

lib/App/MaMGal/Formatter.pm  view on Meta::CPAN

	$r .= "<p>\n";
	if ($pic->description) {
		$r .= sprintf('<span class="slide_desc">%s</span>', $pic->description);
	} else {
		$r .= sprintf('[<span class="slide_filename">%s</span>]', $pic->name);
	}
	$r .= "</p>\n";

	if ($pic->isa('App::MaMGal::Entry::Picture::Film')) {
		$r .= $self->MAYBE_EMBED('../'.$pic->name);
		$r .= '<br>';
		$r .= $self->LINK('../'.$pic->name, gettext('Download'));
	} else {
		$r .= $self->LINK('../'.$pic->name, $self->MAYBE_IMG('../'.$pic->medium_dir.'/'.$pic->name));
	}
	my $time = $pic->creation_time();
	$r .= sprintf('<br><span class="date">%s</span> <span class="time">%s</span><br>', $self->{locale_env}->format_date($time), $self->{locale_env}->format_time($time));
	$r .= $self->FOOTER;
	return $r;
}