notebooks should probably be lists

perl/Gnome-Tomboy/lib/Tomboy/Directory.pm

@@ -176,7 +176,7 @@ print __LINE__, " scan_dir: quick=[$quick]\n";
   closedir (DIR);
 
 # TODO: list dropped/deleted files
-  print __LINE__, " fnm: ", Dumper (\%fnm);
+  # print __LINE__, " fnm: ", Dumper (\%fnm);
   foreach my $fp (keys %fnm)
   {
     print "DEL: ", $fp, "\n";

perl/Gnome-Tomboy/lib/Tomboy/Note/Simple.pm

@@ -549,13 +549,22 @@ sub save
 # print "tags: ", Dumper ($note->{'tags'});
   my @tags= ();
   push (@tags, 'system:template') if ($is_template);
-  if ($nb_list)
-  {
-    foreach my $nb_name (@$nb_list)
+
+print __LINE__, " nb_list=[$nb_list]\n";
+  if (scalar ($nb_list) eq 'ARRAY')
+  { # hmm... how can this be a list?
+    if ($nb_list)
     {
-      push (@tags, 'system:notebook:'. $nb_name)
+      foreach my $nb_name (@$nb_list)
+      {
+        push (@tags, 'system:notebook:'. $nb_name)
+      }
     }
   }
+  else
+  {
+    push (@tags, 'system:notebook:'. $nb_list)
+  }
 
   unless (defined ($fnm_out))
   {