Cleaning up FileUrl macro
This commit is contained in:
parent
2eaea55041
commit
cfea8f573a
1 changed files with 4 additions and 6 deletions
|
|
@ -21,9 +21,11 @@ Package WebGUI::Macro::FileUrl
|
||||||
|
|
||||||
=head1 DESCRIPTION
|
=head1 DESCRIPTION
|
||||||
|
|
||||||
Macro for displaying returning the file system URL to a File, Image or Snippet Asset,
|
Macro for returning the file system URL to a File or Image Asset,
|
||||||
identified by it's asset URL.
|
identified by it's asset URL.
|
||||||
|
|
||||||
|
#-------------------------------------------------------------------
|
||||||
|
|
||||||
=head2 process ( url )
|
=head2 process ( url )
|
||||||
|
|
||||||
returns the file system URL if url is the URL for an Asset in the
|
returns the file system URL if url is the URL for an Asset in the
|
||||||
|
|
@ -37,8 +39,6 @@ The URL to the Asset.
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub process {
|
sub process {
|
||||||
my $session = shift;
|
my $session = shift;
|
||||||
my $url = shift;
|
my $url = shift;
|
||||||
|
|
@ -59,10 +59,8 @@ sub process {
|
||||||
return $i18n->get('no filename');
|
return $i18n->get('no filename');
|
||||||
}
|
}
|
||||||
my $storage = WebGUI::Storage->get($session,$storageId);
|
my $storage = WebGUI::Storage->get($session,$storageId);
|
||||||
return $storage->getUrl($asset->get("filename"));
|
return $storage->getUrl($filename);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue