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

#
#   L\wb_[
#
sub message_head {
	local *page = shift; # y[W

    print <<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>";
<display>
$page{'next'}
$page{'prev'}
<a label="fn" task="go" dest="#menu"><img icon="68">ƭ</a><br>
- - - - - - - -
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   L\tb^[
#
sub message_foot {
    print <<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>";
- - - - - - - -<br>
<a label="fn" task="go" dest="#menu"><img icon="68">ƭ</a><br>
</display>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   L\
#
sub all {
	local *MSG  = shift; # L

    print <<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>";
<br>
[$MSG{'no'}]$MSG{'subject'}<br>
by $MSG{'name'}<br>
[$MSG{'date'}]<br>
$MSG{'body'}
<right>
<a label="ԐM" task="go" dest="?cmd=psn;follow=$MSG{'no'};no_quot=1;id=$::FORM{'id'}">
ԐM
</a>
<a label="폜" task="go" dest="?cmd=dln;no=$MSG{'no'};tree=$MSG{'tree'};id=$::FORM{'id'}">
폜
</a>
<br>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   c[\
#
sub tree {
	local *MSG = shift; # L
	my $mode   = shift; # [h

	if ($mode) {
		print <<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>";
<line>
<a label="ǂ" task="go" dest="?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}">
$MSG{'subject'}
</a>
<br>
by $MSG{'name'}<br>
[$MSG{'date'}]<br>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
	}
	else {
		print <<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>";
<line>
<a label="ǂ" task="go" dest="?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}">
$MSG{'subject'}
</a>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
	}
}
#܂ń


#
#   gsbN\
#
sub topic {
	local *MSG = shift; # L

    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<line>
<a label="ǂ" task="go" dest="?cmd=one;no=$MSG{'no'};id=$::FORM{'id'}">
$MSG{'subject'}
</a>
<br>
<right>(:$MSG{'reply'})<br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#c[Ԃ̃Xy[X
#
sub tree_split {
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
- - - - - - - -
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   ԐM
#
sub follow {
    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
- - - - - - - -<br>
ԐMF
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Ytt@C
#
sub attach_info {
	my $r_file = shift;

    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>");
̧:<a label="" task="go" dest="$CNF::place{'file'}{'url'}/${$r_file}{'path'}">${$r_file}{'name'}</a>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Ytt@C폜ςݏ
#
sub attach_delete_info {
    return(\<<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>");
̧: 폜<br>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

1;

# $Id: msg.txt,v 1.3 2006/03/09 09:19:39 susumu Exp $;
