more asset stuff

This commit is contained in:
JT Smith 2004-12-23 04:28:54 +00:00
parent 4149d8eb5c
commit 30234369ab
5 changed files with 31 additions and 7 deletions

View file

@ -159,6 +159,19 @@ sub purge {
sub view {
my $self = shift;
my $storage = WebGUI::Storage->get($self->get("storageId"));
use WebGUI::Utility;
if (isIn($storage->getFileExtension($self->get("filename")),qw("jpg","png","gif"))) {
return '<a href="'.$storage->getUrl($self->get("filename")).'"><img src="'.$storage->getUrl($self->get("filename")).'" alt="test" border="0" /></a>';
} else {
return '<a href="'.$storage->getUrl($self->get("filename")).'"><img src="'.$storage->getFileIconUrl($self->get("filename")).'" alt="test" border="0" />'.$self->get("filename").'</a>';
}
}
sub view2 {
my $self = shift;
if ($session{var}{adminOn}) {
return $self->www_edit;