projekt kivitendo

{ # This will give you an id for identifying html tags and such.

  # It's guaranteed to be unique unless you exceed 10 mio calls per request.

  # Do not use these id's to store information across requests.

my $_id_sequence = int rand 1e7;

sub _tag_id {

  return $_id_sequence = ($_id_sequence + 1) % 1e7;

}

}

sub javascript {

  my ($self, $data) = @_;

  return $self->html_tag('script', $data, type => 'text/javascript');

}

sub date_tag {

  my ($self, $name, $value, @slurp) = @_;

  my %params   = _hashify(@slurp);

  my $name_e   = _H($name);

  my $seq      = _tag_id();

  $params{cal_align} ||= 'BR';

  $self->input_tag($name, $value,

    size   => 11,

    title  => _H($::myconfig{dateformat}),

    onBlur => 'check_right_date_format(this)',

    %params,

  ) . ((!$params{no_cal}) ?

  $self->html_tag('img', undef,

    src    => 'image/calendar.png',

    id     => "trigger$seq",

    title  => _H($::myconfig{dateformat}),

    %params,

  ) .

  $self->javascript(

    "Calendar.setup({ inputField: '$name_e', ifFormat: '$::myconfig{jsc_dateformat}', align: '$params{cal_align}', button: 'trigger$seq'  });"

  ) : '');

}

=item C<date_tag $name, $value, %attributes>

=item C<date_tag $name, $value, cal_align =E<gt> $align_code, %attributes>

Creates a date input field, with an attached javascript that will open a

calendar on click. The javascript ist by default anchoered at the bottom right

sight. This can be overridden with C<cal_align>, see Calendar documentation for

the details, usually you'll want a two letter abbreviation of the alignment.

Right + Bottom becomes C<BL>.