Help for this page

Select Code to Download


  1. or download this
    sub self_or_default {
    return @_ if defined($_[0]) && (!ref($_[0])) &&($_[0] eq 'CGI');
...
    }
    return wantarray ? @_ : $Q;     # <---- Line 472 of CGI.pm v4.36
}
  2. or download this
       print $cgi->textfield(-name=>"end_date",
                         -default=>substr($pa->get_end_date(),0,10));