projects
/
id3fs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fix artist + album
[id3fs.git]
/
lib
/
ID3FS
/
PathElement
/
Album.pm
1
package ID3FS::PathElement::Album;
2
3
use strict;
4
use warnings;
5
6
sub new
7
{
8
my $proto=shift;
9
my $class=ref($proto) || $proto;
10
my $self={};
11
bless($self,$class);
12
13
$self->{db}=shift;
14
$self->{name}=shift;
15
$self->{id}=($self->{db}->id("albums", $self->{name}));
16
return(undef) unless(defined($self->{id}));
17
print "Artist ID: $self->{id}\n";
18
19
return $self;
20
}
21
22
sub type { return "album"; }
23
24
1;