diff options
| author | dakkar <dakkar@luxion> | 2006-01-27 08:30:42 +0000 |
|---|---|---|
| committer | dakkar <dakkar@luxion> | 2006-01-27 08:30:42 +0000 |
| commit | c196b1437850e60430c7420f61a8878fb1ae7e1d (patch) | |
| tree | bb47a5ed1a913286726500b8e75641ca1f05007e | |
| parent | nuovi script per Catalyst 5.63 (diff) | |
| download | Bookmarks-c196b1437850e60430c7420f61a8878fb1ae7e1d.tar.gz Bookmarks-c196b1437850e60430c7420f61a8878fb1ae7e1d.tar.bz2 Bookmarks-c196b1437850e60430c7420f61a8878fb1ae7e1d.zip | |
| -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); |