unless (@errors) {
my $shift = $self->retrieve($args->{'id'});
print "DEBUG(before update): ",Dumper($shift),"
\n";
$shift->caption($args->{'caption'});
$shift->starts($args->{'starts'});
$shift->ends($args->{'ends'});
$shift->monday($args->{'monday'});
$shift->tuesday($args->{'tuesday'});
$shift->wednesday($args->{'wednesday'});
$shift->thursday($args->{'thursday'});
$shift->friday($args->{'friday'});
$shift->saturday($args->{'saturday'});
$shift->sunday($args->{'sunday'});
$shift->holiday($args->{'holiday'});
print "DEBUG(while update): ",Dumper($shift),"
\n";
$shift->update;
print "DEBUG(after update): ",Dumper($shift),"
\n";
}