From b37302c491be68acae2e4b4df14939bf2cfa8a34 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Tue, 25 Oct 2005 13:01:23 +0000
Subject:  r703@narval2:  dakkar | 2005-10-21 16:36:15 +0200  aggiunte
 dipendenze nel Build script, workaround per comportamento strano di HasMany

---
 Build.PL                 | 6 ++++++
 script/bookmarks_load.pl | 7 +++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/Build.PL b/Build.PL
index eb3376a..110246b 100644
--- a/Build.PL
+++ b/Build.PL
@@ -8,6 +8,12 @@ my $build = Catalyst::Build->new(
     requires           => {
         Catalyst => '5.10',
         YAML => 0,
+        Catalyst::Plugin::DefaultEnd => 0,
+        Class::DBI::AbstractSearch => 0,
+        Class::DBI::Plugin::DeepAbstractSearch => 0,
+        Class::DBI::Plugin::AbstractCount => 0,
+        Class::DBI::Plugin::Pager => 0,
+        DateTime => '0.2901',
         # altra roba
     },
     create_makefile_pl => 'passthrough',
diff --git a/script/bookmarks_load.pl b/script/bookmarks_load.pl
index 9862f87..2b2983d 100755
--- a/script/bookmarks_load.pl
+++ b/script/bookmarks_load.pl
@@ -32,7 +32,7 @@ for my $link (@$links) {
     });
      if (!Bookmarks::Utils::check_link($link->{href})) {
          warn "Link $link->{href} non valido, marco come tale\n";
-         $link->{title}.=' [INVALID]';
+         $link->{description}.=' [INVALID]';
      }
     $link->{created}||=time();
     $link->{modified}||=time();
@@ -46,6 +46,9 @@ for my $link (@$links) {
         my $dbtag=Bookmarks::M::DB::Tags->find_or_create({
             name => $tagname,
         });
-        $dblink->add_to_tags({ tag => $dbtag});
+        Bookmarks::M::DB::LinksTags->find_or_create({
+            tag => $dbtag->pk(),
+            link => $dblink->pk(),
+        });
     }
 }
-- 
cgit v1.2.3