[mb-commits] r9765 - in mb_server/branches/ReleaseTrack: cgi-bin/MusicBrainz/Server t

[root at musicbrainz.org]

Author: luks
Date: 2008-03-11 13:26:42 +0000 (Tue, 11 Mar 2008)
New Revision: 9765

Added:
   mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/ReleaseTrack.pm
   mb_server/branches/ReleaseTrack/t/release-track.t
Modified:
   mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Release.pm
   mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Track.pm
Log:
Add MusicBrainz::Server::ReleaseTrack, not used anywhere for now

Modified: mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Release.pm
===================================================================
--- mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Release.pm	2008-03-11 11:36:30 UTC (rev 9764)
+++ mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Release.pm	2008-03-11 13:26:42 UTC (rev 9765)
@@ -20,7 +20,7 @@
 #   along with this program; if not, write to the Free Software
 #   Foundatiog, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #
-#   $Id$
+#   $Id: Release.pm 9758 2008-03-10 18:04:18Z luks $
 #
 # 	The function LoadTracks and LoadTracksFromMultipleArtistAlbum
 # 	has been merged to allow the determination of various artists
@@ -1552,5 +1552,28 @@
 	\%h;
 }
 
+sub LoadFromRow {
+	my ($self, $row, $prefix) = @_;
+
+	$prefix ||= '';
+	$self->SetId($row->{"${prefix}id"});
+	$self->SetMBId($row->{"${prefix}gid"});
+	$self->SetName($row->{"${prefix}name"});
+	$self->SetArtist($row->{"${prefix}artist"});
+	$self->{attrs} = [ $row->{"${prefix}attributes"} =~ /(\d+)/g ];
+	$self->SetModPending($row->{"${prefix}modpending"});
+	$self->SetLanguageId($row->{"${prefix}language"});
+	$self->SetScriptId($row->{"${prefix}script"});
+	$self->SetLanguageModPending($row->{"${prefix}modpending_lang"});
+	$self->SetQuality($row->{"${prefix}quality"});
+	$self->SetQualityModPending($row->{"${prefix}modpending_qual"});
+}
+
+# Returns reference to a list of ReleaseTrack objects
+sub FindTracks
+{
+	require MusicBrainz::Server::ReleaseTrack;
+	return MusicBrainz::Server::ReleaseTrack->FindByReleaseId($self->GetId);
+}
 1;
-# eof Album.pm
+# eof Release.pm

Added: mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/ReleaseTrack.pm


Property changes on: mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/ReleaseTrack.pm
___________________________________________________________________
Name: svn:mime-type
   + text/x-perl
Name: svn:eol-style
   + native

Modified: mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Track.pm
===================================================================
--- mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Track.pm	2008-03-11 11:36:30 UTC (rev 9764)
+++ mb_server/branches/ReleaseTrack/cgi-bin/MusicBrainz/Server/Track.pm	2008-03-11 13:26:42 UTC (rev 9765)
@@ -607,5 +607,24 @@
 
 }
 
+sub LoadFromRow {
+	my ($self, $row, $prefix) = @_;
+
+	$prefix ||= '';
+	$self->SetId($row->{"${prefix}id"});
+	$self->SetMBId($row->{"${prefix}gid"});
+	$self->SetName($row->{"${prefix}name"});
+	$self->SetArtist($row->{"${prefix}artist"});
+	$self->SetLength($row->{"${prefix}length"});
+	$self->SetModPending($row->{"${prefix}modpending"});
+}
+
+# Returns reference to a list of ReleaseTrack objects
+sub FindReleases
+{
+	require MusicBrainz::Server::ReleaseTrack;
+	return MusicBrainz::Server::ReleaseTrack->FindByTrackId($self->GetId);
+}
+
 1;
 # eof Track.pm

Added: mb_server/branches/ReleaseTrack/t/release-track.t


Property changes on: mb_server/branches/ReleaseTrack/t/release-track.t
___________________________________________________________________
Name: svn:mime-type
   + text/x-perl
Name: svn:eol-style
   + native