#
#(rr)b|an`qcev[g
#
#폜pX[h͉ʂ̐ݒt@CłB
#ʏ̂gslkƓoŕҏW邱Ƃo܂B
#ȂArɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#

package DESIGN;

#
#   폜pX[h͉
#
sub delete {
    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
[<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">߂</a>]
${&line}
<form action="$CNF::place{'this'}{'path'}" method="post">
߽ܰ<br>
<input type=password name="key" value="" size=8 istyle=3><br>
<input type=hidden name="no" value="$::FORM{'no'}">
<input type=hidden name="tree" value="$::FORM{'tree'}">
<input type=hidden name="id" value="$::FORM{'id'}">
<input type=hidden name="cmd" value="dlm">
<input type=submit value="폜">
</form>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

1;

# $Id: dln.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;
