body<= \n"; $ret .= LJ::make_authas_select($remote, { 'authas' => $GET{'authas'}, 'type' => 'P' }); $ret .= "\n\n"; # header $ret .= "\n"; $ret .= "\n"; # edit form $ret .= "

\n"; $ret .= "\n"; # view type $ret .= "$ML{'.viewwhat'}\n\n"; $ret .= LJ::html_check({ 'type' => 'radio', 'name' => 'selecttype', 'id' => 'selecttype-last', 'value' => 'last', 'selected' => 1 }); $ret .= "$ML{'.recententry'}
\n"; $ret .= LJ::html_check({ 'type' => 'radio', 'name' => 'selecttype', 'id' => 'selecttype-lastn', 'value' => 'lastn' }) . " "; $ret .= LJ::html_text({ 'name' => 'howmany', 'size' => '3', 'maxlength' => '2', 'value' => '20' }) . " "; $ret .= "$ML{'.recententries'}
\n"; $ret .= LJ::html_check({ 'type' => 'radio', 'name' => 'selecttype', 'id' => 'selecttype-day', 'value' => 'day' }); $ret .= "$ML{'.certainday'}"; my @time = localtime(time); my $mday = sprintf("%02d", $time[3]); my $mon = sprintf("%02d", $time[4] + 1); my $year = $time[5] + 1900; $ret .= LJ::html_text({ 'name' => 'year', 'size' => '5', 'maxlength' => '4', 'value' => $year }) . "-"; $ret .= LJ::html_text({ 'name' => 'month', 'size' => '3', 'maxlength' => '2', 'value' => $mon }) . "-"; $ret .= LJ::html_text({ 'name' => 'day', 'size' => '3', 'maxlength' => '2', 'value' => $mday }) . "\n"; $ret .= "\n"; # use journal $ret .= "In community:\n\n"; $ret .= LJ::html_text({ 'name' => 'usejournal', 'size' => '20', 'maxlength' => '15', 'value' => $GET{'usejournal'} }) . " "; $ret .= " (optional)"; # submit button $ret .= " " . LJ::html_submit(undef, $ML{'.btn.proceed'}) . "\n"; $ret .= " standout?>\n"; $ret .= "

\n"; return $ret; } _code?> <=body page?> post: htdocs/editjournal_do.bml link: htdocs/lostinfo.bml _c?>