view release on metacpan or  search on metacpan

lib/Template/PSP/autoform.psp  view on Meta::CPAN

  
    print '/' unless $part eq 'year';
  }
}
else
{
  my $fname = $name . $diff;
  
  # display a text box with a date javascript
  print qq{<nobr><input type="text" name="$fname" size="10" maxlength="10" value="$value" /> };
  print qq{<a href="javascript:show_calendar('$form.$fname');" } .
        qq{onmouseover="window.status='Date Picker';return true;" } .
        qq{onmouseout="window.status='';return true;">};
  print qq{<img src="/images/calendar.gif" /></a></nobr>\n};
}

</perl>
</tag>

<tag name="autofilltest" accepts="nothing">
<perl>
my $result =
{
  'field' =>