From c196b1437850e60430c7420f61a8878fb1ae7e1d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Fri, 27 Jan 2006 08:30:42 +0000
Subject: bugfix: con alcuni CDBI non riesce a creare oggetti vuoti

---
 lib/Bookmarks/C/Main.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/Bookmarks/C/Main.pm b/lib/Bookmarks/C/Main.pm
index 26e5a4a..8de4296 100644
--- a/lib/Bookmarks/C/Main.pm
+++ b/lib/Bookmarks/C/Main.pm
@@ -130,14 +130,13 @@ sub add : Global {
         }
         else {
             if (!defined $dblink) { # devo crearlo
-                $dblink=Bookmarks::M::DB::Links->create({});
+                $dblink=Bookmarks::M::DB::Links->create({
+                    map { $_ => $pre_link{$_} } qw(url title descr)
+                });
                 $dblink->add_date(time());
                 $dblink->access_count(0);
             }
 
-            for my $field (qw(url title descr)) {
-                $dblink->$field($pre_link{$field});
-            }
             my ($icon,$type)=Bookmarks::Utils::get_site_icon($pre_link{url});
             $dblink->set_icon($icon);
             $dblink->icon_type($type);
-- 
cgit v1.2.3