r703@narval2: dakkar | 2005-10-21 16:36:15 +0200

 aggiunte dipendenze nel Build script, workaround per comportamento strano di HasMany

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(),
+        });
     }
 }