added completed mark

2 files changed, 17 insertions, 1 deletions

diff --git a/local/db.pm b/local/db.pm
index 344b5a8..94c5941 100644
--- a/local/db.pm
+++ b/local/db.pm
@@ -5,9 +5,10 @@ local::db::dbi->connection('dbi:SQLite:/srv/nzbget/datenbank.sqlite', '', '');
 package local::db::download;
 use base 'local::db::dbi';
 local::db::download->table('download');
-local::db::download->columns(All => qw/download_id owner size time category name description/);
+local::db::download->columns(All => qw/download_id owner size time category name description completed/);
 local::db::download->has_a(owner => 'local::db::owner');
 local::db::download->has_a(category => 'local::db::category');
+local::db::download->has_many(seen => 'local::db::seen');
 
 package local::db::category;
 use base 'local::db::dbi';
@@ -20,3 +21,11 @@ use base 'local::db::dbi';
 local::db::owner->table('owner');
 local::db::owner->columns(All => qw/owner_id name quoata quota_used/);
 local::db::owner->has_many(download => 'local::db::download');
+local::db::owner->has_many(seen => 'local::db::seen');
+
+package local::db::seen;
+use base 'local::db::dbi';
+local::db::seen->table('seen');
+local::db::seen->columns(All => qw/seen_id download user/);
+local::db::seen->has_a(download => 'local::db::download');
+local::db::seen->has_a(user => 'local::db::owner');
diff --git a/local/user.pm b/local/user.pm
index 8e134a8..5b727ba 100644
--- a/local/user.pm
+++ b/local/user.pm
@@ -21,6 +21,13 @@ sub new
   return $self;
 }
 
+sub obj
+{
+  my $self = shift;
+  return local::db::owner->retrieve($self->{id});
+}
+
+
 sub get_name
 {
   my $self = shift;