34a35,37
> #### split_record start ####
> $rcddir = './record/'; # マイレコードを格納するフォルダ
> #### split_record end ####
523a527,530
> #### split_record start ####
> 	&writedat("${rcddir}r$id.dat", '');
> 	chmod(0666, "${rcddir}r$id.dat");
> #### split_record end ####
873c880,883
< 	@items = @bag; &joinitem(i); $fg = ''; &userout;
---
> #	@items = @bag; &joinitem(i); $fg = ''; &userout;
> #### split_record start ####
> 	@items = @bag; &joinitem('i'); $fg = ''; &userout;
> #### split_record end ####
1820c1830,1833
< 	push (@msg,"本当に削除しても宜しいですか？")
---
> #	push (@msg,"本当に削除しても宜しいですか？")
> #### split_record start ####
> 	push (@msg,"本当に削除しても宜しいですか？");
> #### split_record end ####
1833a1847,1849
> #### split_record start ####
> 		unlink("${rcddir}r$id.dat");
> #### split_record end ####
1876a1893,1895
> #### split_record start ####
> 		@prclines = &opendat("${rcddir}r$pid.dat");
> #### split_record end ####
1879a1899,1901
> #### split_record start ####
> 		&writedat("${rcddir}r$pid.dat", @prclines);
> #### split_record end ####
1985c2007,2010
< 	if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
---
> #	if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
> #### split_record start ####
> 	if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat"); unlink("${rcddir}r$id.dat"); }
> #### split_record end ####
1997a2023,2025
> #### split_record start ####
> 	@rcdlines = &opendat("${rcddir}r$id.dat");
> #### split_record end ####
2144c2172,2175
< 	@_ = <IN>;
---
> #	@_ = <IN>;
> #### split_record start ####
> 	$userline = <IN>;
> #### split_record end ####
2146c2177,2181
< 	if (!@_) { &error("読みこみエラー") }
---
> #	if (!@_) { &error("読みこみエラー") }
> #	($id,$nm,$ps,$jb,$ig,$sp,$bp,$bn,$ak,$dd,$hp,$xp,$ab,$db,
> #	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$_[0]);
> #### split_record start ####
> 	&error("読みこみエラー") if($userline eq '');
2148c2183,2184
< 	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/,$_[0]);
---
> 	$av,$wn,$lz,$dt,$mn,$bg,$xi,$tm,$lf,$fe,$cm,$is,$ht,$fg,$rw,$kl) = split(/<>/, $userline);	
> #### split_record end ####
2150c2186,2188
< 	$userline = shift(@_);
---
> #	$userline = shift(@_);
> #### split_record start ####
> #### split_record end ####
2152c2190,2193
< 	return @_;
---
> #	return @_;
> #### split_record start ####
> 	return @rcdlines; # 必要ないけれど念の為
> #### split_record end ####
2159c2200,2203
< 	@_ = <IN>;
---
> #	@_ = <IN>;
> #### split_record start ####
> 	$puserline = <IN>;
> #### split_record end ####
2161c2205,2210
< 	if (!@_) { &error("読みこみエラー") }
---
> #	if (!@_) { &error("読みこみエラー") }
> #	($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
> #	$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl) = split(/<>/,$_[0]);
> #	shift(@_);
> #### split_record start ####
> 	&error("読みこみエラー") if($puserline eq '');
2163,2164c2212,2213
< 	$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl) = split(/<>/,$_[0]);
< 	shift(@_);
---
> 	$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl) = split(/<>/, $puserline);
> #### split_record end ####
2166c2215,2218
< 	return @_;
---
> #	return @_;
> #### split_record start ####
> 	return @prclines; # 必要ないけれど念の為
> #### split_record end ####
2174,2175c2226,2230
< 	unshift (@rcdlines,$line);
< 	&writedat("$usrdir$id\.dat",@rcdlines);
---
> #	unshift (@rcdlines,$line);
> #	&writedat("$usrdir$id\.dat",@rcdlines);
> #### split_record start ####
> 	&writedat("$usrdir$id\.dat", $line);
> #### split_record end ####
2182,2183c2237,2241
< 	unshift (@prclines,$pline);
< 	&writedat("$usrdir$pid\.dat",@prclines);
---
> #	unshift (@prclines,$pline);
> #	&writedat("$usrdir$pid\.dat",@prclines);
> #### split_record start ####
> 	&writedat("$usrdir$pid\.dat", $pline);
> #### split_record end ####