use EPrints;

use strict;
use warnings;

my $session = EPrints::Session->new();

my $prefs = $session->param( "prefs" );
return unless( defined $prefs );

my $user = $session->current_user;
return unless( defined $user );

my @widgets;

foreach( split(",", $prefs) )
{
	$_ =~ s/^meprints_widget_//g;
	push @widgets, $_;
}

$user->set_homepage_widgets( \@widgets );

$session->terminate;