Bivio::Type::TimeZoneSelector
# Copyright (c) 2010 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::Type::TimeZoneSelector;
use strict;
use Bivio::Base 'Type.DisplayName';
my($_TZ) = b_use('Type.TimeZone');
sub row_tag_get {
my(undef, $req) = @_;
#TODO: Only supports implicit realm_id format
return $req->get('Model.TimeZoneList')
->display_name_for_enum($_TZ->row_tag_get($req));
}
sub row_tag_replace {
my(undef, $value, $req) = @_;
#TODO: Only supports implicit realm_id format
return $_TZ->row_tag_replace(
$req->get('Model.TimeZoneList')->enum_for_display_name($value),
$req,
);
}
1;