*倉庫データ [#q0c359b0]
-ページ: [[罪罰改造板2]]
-投稿者: [[ゴクウ]]
-優先順位: 普通
-状態: 提案
-カテゴリー: 設置できません
-投稿日: 2005-12-18 (日) 02:37:02
-バージョン:
**内容 [#ve23af68]
倉庫データを管理画面から操作できるようにしたいのですが、なかなか出来ません。編集画面で、テキストボックスに表示するところまでは出来たのですが、書き込むとすべて消えてしまいます。おしえてください。
----
まず、表示部分
# 書き換え画面
my @line = split(/_/,$soko);#倉庫スクリプトのsoko_readです
foreach(0..$#line){
my ($item_type,$item_no,$cnt,$item_lv) = split(/<>/,$line[$_]);
$soko_lst[$_]=$item_no;
$soko_cnt[$_]=$cnt;
$soko_typ[$_]=$item_type;
$soko_lv[$_]=$item_lv;
foreach(0 .. $#soko_lst){#編集の画面です。これは表示されました。
if($soko_lst>0 && $soko_cnt>0 || true){
print <<"EOM";
<tr></td>
<td nowrap><input type="text" name="soko_typ[$_]" value="$soko_typ[$_]" style="width:80px">
<td nowrap><input type="text" name="soko_lst[$_]" value="$soko_lst[$_]" style="width:80px">
<td nowrap><input type="text" name="soko_cnt[$_]" value="$soko_cnt[$_]" style="width:80px">
<td nowrap><input type="text" name="soko_lv[$_]" value="$soko_lv[$_]" style="width:80px">
EOM
}
# 書き換え処理&結果
sub usr_regist2{
$sokol="$in{'soko_typ_t'}<>$in{'soko_lst_t'}<>$in{'soko_cnt_t'}<>$in{'soko_lv_t'}_";
foreach(0 .. $#soko_lst){
if($soko_lst[$_]>0 && $soko_cnt[$_]>0 || true){
$sokol .= "$in{'soko_typ[$_]'}<>$in{'soko_lst[$_]'}<>$in{'soko_cnt[$_]'}<>$in{'soko_lv[$_]'}_";
}}
soko;$sokol#---追加
-これだと、usrfileの$sokoのところが、なくなってしまいます。 -- [[ゴクウ]] &new{2005-12-18 (日) 02:47:39};
#comment