diff options
Diffstat (limited to 'local')
-rw-r--r-- | local/db.pm | 11 | ||||
-rw-r--r-- | local/user.pm | 7 |
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; |