Index: Slim/Control/Jive.pm
===================================================================
--- Slim/Control/Jive.pm	(revision 17367)
+++ Slim/Control/Jive.pm	(working copy)
@@ -1003,12 +1016,12 @@
 		},
 	);
 	## here we need to figure out how to populate the remaining playlist items from saved playlists
-	push @allPlaylists, getCustomPlaylists($client);
+	push @allPlaylists, getCustomPlaylists($client,$alarm_playlist,$day);
 
 	my %return = 
 	( 
 		text => Slim::Utils::Strings::string("ALARM_SELECT_PLAYLIST"),
-		count     => 4,
+		count     => scalar @allPlaylists,
 		offset    => 0,
 		item_loop => \@allPlaylists,
 	);
@@ -1016,8 +1029,30 @@
 }
 
 sub getCustomPlaylists {
+	my ($client, $alarm_playlist, $day) = @_;
+	
 	my @return = ();
-	return \@return;
+	
+	for my $playlist (Slim::Schema->rs('Playlist')->getPlaylists) {
+		push @return,{
+			text    => Slim::Music::Info::standardTitle($client,$playlist->url),
+			radio	=> ($alarm_playlist ne '' && $alarm_playlist eq $playlist->url) + 0, # 0 is added to force the data type to number
+			
+			actions => {
+				do => {
+					player => 0,
+					cmd    => ['alarm'],
+					params => {
+						cmd         => 'update',
+						playlist_id => $playlist->url,
+						dow         => $day,
+					},
+				},
+			},
+		};
+	}
+	
+	return @return;
 }
 
 sub alarmVolumeHash {