diff options
author | dakkar <dakkar@luxion> | 2005-11-11 11:38:54 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2005-11-11 11:38:54 +0000 |
commit | b1a91d8a59cc27623989d5d79643fb167c6d0aa9 (patch) | |
tree | c47199a917975f051fba3b5d952ea6e4530ff6a6 /lib/Bookmarks/M/DB/Links.pm | |
parent | tolte delle print inutili (e dannose sotto mod_perl) (diff) | |
download | Bookmarks-b1a91d8a59cc27623989d5d79643fb167c6d0aa9.tar.gz Bookmarks-b1a91d8a59cc27623989d5d79643fb167c6d0aa9.tar.bz2 Bookmarks-b1a91d8a59cc27623989d5d79643fb167c6d0aa9.zip |
work-around per tipi icone mal dichiarati: se non dichiarata come un'immagine, รจ un image/x-icon (ugh)
Diffstat (limited to 'lib/Bookmarks/M/DB/Links.pm')
-rw-r--r-- | lib/Bookmarks/M/DB/Links.pm | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/lib/Bookmarks/M/DB/Links.pm b/lib/Bookmarks/M/DB/Links.pm index 5103522..ebfa963 100644 --- a/lib/Bookmarks/M/DB/Links.pm +++ b/lib/Bookmarks/M/DB/Links.pm @@ -12,12 +12,26 @@ for my $col_name (qw(add_date last_access_date)) { } sub set_icon { - my ($self,$icon)=@_; + my ($self,$icon,$type)=@_; + $self->icon(encode_base64($icon||'')); + $type||=''; + if ($type !~ m{^image/}) { + $type='image/x-icon'; + } + $self->icon_type($type); + + return; } sub get_icon { my ($self)=@_; - return decode_base64($self->icon()||''); + + my $type=$self->icon_type()||''; + if ($type !~ m{^image/}) { + $type='image/x-icon'; + } + + return (decode_base64($self->icon()||''),$type); } sub search_complex { |