diff options
| author | dakkar <dakkar@luxion> | 2005-10-20 13:41:27 +0000 |
|---|---|---|
| committer | dakkar <dakkar@luxion> | 2005-10-20 13:41:27 +0000 |
| commit | 4e380e6e3fb55cdb63e2399614184a85e4475e30 (patch) | |
| tree | 492643ebc1daad16e41cf958d54af53f9f6e1a5c /lib/Bookmarks/M/DB/Links.pm | |
| parent | ancora non inserisce le icone: se si fa bind_param($pos,$blob_data,DBI::SQL_B... (diff) | |
| download | Bookmarks-4e380e6e3fb55cdb63e2399614184a85e4475e30.tar.gz Bookmarks-4e380e6e3fb55cdb63e2399614184a85e4475e30.tar.bz2 Bookmarks-4e380e6e3fb55cdb63e2399614184a85e4475e30.zip | |
ora gestisce le icone, ma devo tenerle in un TEXT, base64, causa bug in DBD::SQLite
Diffstat (limited to 'lib/Bookmarks/M/DB/Links.pm')
| -rw-r--r-- | lib/Bookmarks/M/DB/Links.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lib/Bookmarks/M/DB/Links.pm b/lib/Bookmarks/M/DB/Links.pm index 92fd74b..1719770 100644 --- a/lib/Bookmarks/M/DB/Links.pm +++ b/lib/Bookmarks/M/DB/Links.pm @@ -1,6 +1,6 @@ package Bookmarks::M::DB::Links; use strict; -use DBI; +use MIME::Base64; for my $col_name (qw(add_date last_access_date)) { __PACKAGE__->has_a( $col_name => 'DateTime', @@ -9,9 +9,16 @@ for my $col_name (qw(add_date last_access_date)) { ); } -__PACKAGE__->has_many( tags => ['Bookmarks::M::DB::LinksTags' => 'tag'] ); +sub set_icon { + my ($self,$icon)=@_; + $self->icon(encode_base64($icon)); +} +sub get_icon { + my ($self)=@_; + return decode_base64($self->icon()); +} -__PACKAGE__->data_type( icon => DBI::SQL_BLOB ); +__PACKAGE__->has_many( tags => ['Bookmarks::M::DB::LinksTags' => 'tag'] ); =head1 NAME |