From 4e380e6e3fb55cdb63e2399614184a85e4475e30 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 20 Oct 2005 13:41:27 +0000
Subject: ora gestisce le icone, ma devo tenerle in un TEXT, base64, causa bug
 in DBD::SQLite

---
 lib/Bookmarks/C/Main.pm     |  4 ++--
 lib/Bookmarks/M/DB/Links.pm | 13 ++++++++++---
 2 files changed, 12 insertions(+), 5 deletions(-)

(limited to 'lib')

diff --git a/lib/Bookmarks/C/Main.pm b/lib/Bookmarks/C/Main.pm
index 89c985d..b25ef9a 100644
--- a/lib/Bookmarks/C/Main.pm
+++ b/lib/Bookmarks/C/Main.pm
@@ -50,9 +50,9 @@ sub icon : Global {
     my ( $self, $c ) = @_;
 
     my $link=Bookmarks::M::DB::Links->retrieve($c->req->param('link'));
-    if ($link->icon()) {
+    if ($link->get_icon()) {
         $c->res->content_type('image/x-icon');
-        $c->res->body($link->icon());
+        $c->res->body($link->get_icon());
     }
     else {
         $c->res->status(404);
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
 
-- 
cgit v1.2.3