diff options
Diffstat (limited to 'lib/Bookmarks/C/Main.pm')
-rw-r--r-- | lib/Bookmarks/C/Main.pm | 7 |
1 files 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); |