' $System.Access Mail
' $Command.Mail.AccessModify $BS
' If $OpenFID
'  $Command.Mail.OpenFolder $BS $OpenFID
' Elif $CloseFID
'  $Command.Mail.CloseFolder $BS $CloseFID
' EndIf
' Set $MailSystem = $WorkSpace.Mails.$BS
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' $System.SetParameter FirstFID "FirstFID$BS"
' Init $FID = $Login.$FirstFID
' If ( ! $FID ) and ( $FID != 0 )
'  $FID = -4
' Elif $FID >= 0
'  Set $Folder = $Command.Mail.GetFolder $BS $FID
'  If ( ! $Folder ) or $MailProfile.Folder.Disable
'   $FID = -4
'  EndIf
' EndIf
' Set $PersonalMail = $Command.Mail.GetPersonalMail $BS
' If $SetView = $Login.ID
'  $PersonalMail.View = $View
' Elif ( $FID > 0 ) or ( ! $FID )
'  Init $View = $PersonalMail.View
' EndIf
' Set $MIndex = $Command.Mail.GetMailIndex $BS
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryNavigation.html"-->
' Call cmHtmlHead
' $CaptionTitle = "スレッドの修復"
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmChildHeader $CaptionTitle
<form method="get" action="$Server?">
<input type="hidden" name="Page" value="MailRefSelect">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="RMID" value="$RMID">
<input type="hidden" name="FID" value="$FID">
<input type="hidden" name="SetView" value="">
''
' Sub commonColumn
'  Call menuColumn
' EndSub
''
' Sub menuColumn
<table class="menuColumn"><tr>\\
<td nowrap>\\
' Call cmLinkButton "メールを検索する" "btn_search20.png" "$Server?page=MailRefSearch&wid=$WID&bs=$BS&fid=$FID&rmid=$RMID"
</td><td nowrap>\\
' Call cmLinkButton "親メールを設定しない" "btn_stop20.png" "$Server?page=MailRefChange&wid=$WID&bs=$BS&fid=$FID&rmid=$RMID"
</td></tr></table>
' EndSub
''
' Sub sideColumn
<table id="foldertree">
<tr class="noHoverStyle"><td><br></td></tr>
<tr class="noHoverStyle"><td><hr></td></tr>
'   If $FID = -4
<tr class="selected">\\
'   Else
<tr>\\
'   EndIf
<td nowrap>\\
'   Call cmLink "処理メール" "mail_write20.png" "$Server?page=$Page&wid=$WID&bs=$BS&rmid=$RMID&fid=-4"
'   $Count = $MWIndex.Inbox.Count
'   Init $Count = 0
'   If $Count
<span class="label subtext">$Count</span>\\
'   EndIf
</td></tr>
'    If $FID = -5
 <tr class="selected">\\
'    Else
 <tr>\\
'    EndIf
<td nowrap>\\
'    Call cmLink "受信メール" "mail20.png" "$Server?page=$Page&wid=$WID&bs=$BS&rmid=$RMID&fid=-5"
</td></tr>
'    If $FID = -6
    <tr class="selected">\\
'    Else
    <tr>\\
'    EndIf
<td nowrap>\\
'   Call cmLink "送信メール" "mail_sent20.png" "$Server?page=$Page&wid=$WID&bs=$BS&rmid=$RMID&fid=-6"
</td></tr>
    <tr class="noHoverStyle"><td><hr></td></tr>
'  $FolderView = $Command.Mail.GetFolderView $WID $BS $FID "&rmid=$RMID&view=$View"
$_FolderView
    <tr class="noHoverStyle"><td><hr></td></tr>
    <tr class="noHoverStyle"><td><br></td></tr>
 </table>
' EndSub
''
' Sub mainColumn
<div class="desc">スレッドの修復をおこないます。親メールを選択してください。</div>
'  If ! $MailProfile.Folder.Disable
'   Call titleColumn
'  EndIf
'' <!---------------------メール一覧表示----------------------------->
<!--#include file="PartsMailIndex.html"-->
'  Call operation
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Call viewMailTitle $BS $MailProfile $FID 1
' Call viewMailIndex $BS $MailProfile $ViewIndex $FID "&fid=$FID&view=$View&head=$Head&hid=$HID&rmid=$RMID" "" 0 0 "MailRefChange" "" 1
' Call viewMailTitle $BS $MailProfile $FID 1
</table>
'  Call operation
' EndSub
''
' If $MailProfile.Folder.Disable
'  Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn "" tabColumn
' Else
'  Call layout_list "" "90%" 0 mainColumn "" "10%" 0 sideColumn commonColumn
' EndIf
''
</form>
' Call cmChildFooter
</body>
</html>
''
' Sub tabColumn
'  If ! $MailProfile.Folder.Disable
'   Exit
'  EndIf
<!--#include file="LibraryTabSheet.html"-->
'  Call tsBegin
'  Call ViewProcessMailTab
'  Call ViewReceiveMailTab
'  Call ViewSentMailTab
'  Call tsEnd $Page
''
'  Sub ViewProcessMailTab
'   var $localActive = 0
'   If $FID = -4
'    $localActive = 1
'   EndIf
'   var $localCount = $MWIndex.Inbox.Count
'   Init $localCount = 0
'   Call tsTab "処理メール" "mail_write20.png" "$Server?page=$Page&wid=$WID&bs=$BS&rmid=$RMID&fid=-4" $localActive "" "" $localCount
'  EndSub
'  Sub ViewReceiveMailTab
'   var $localActive = 0
'   If $FID = -5
'    $localActive = 1
'   EndIf
'   Call tsTab "受信メール" "mail20.png" "$Server?page=$Page&wid=$WID&bs=$BS&rmid=$RMID&fid=-5" $localActive
'  EndSub
'  Sub ViewSentMailTab
'   var $localActive = 0
'   If $FID = -6
'    $localActive = 1
'   EndIf
'   Call tsTab "送信メール" "mail_sent20.png" "$Server?page=$Page&wid=$WID&bs=$BS&rmid=$RMID&fid=-6" $localActive
'  EndSub
' EndSub
''
'  Sub titleColumn
'' <!---------------------タイトル表示----------------------------->
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="FID" value="$FID">
<input type="hidden" name="STS" value="$STS">
<input type="hidden" name="Reverse" value="$Selected.Reverse">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="SFID" value="">
<input type="hidden" name="SetView" value="">
   <table border="0" width="100%" cellspacing="0" cellpadding="2" class="active">
    <tr>
     <td nowrap>
'  Call SetFolderName $FID "FolderName"
$FolderName
'  If $FID >= 0
      <span style="margin-left: 5px;">
      <select name="View" onChange="SetView.value='$Login.ID';this.form.submit();">
       <option value="">(全て)</option>
'   Call optionView $View "Inbox" "処理メール"
'   Call optionView $View "Received" "受信メール"
'   Call optionView $View "Sent" "送信メール"
</select></span>
'  EndIf
     </td>
    </tr>
   </table>
</form>
'  EndSub
''
' Sub SetFolderName $argFID $argReturn
'  If $argFID = 0
'   $System.SetParameter $argReturn $MailProfile.Folder.Default.Name
'  Elif $argFID = -4
'   $System.SetParameter $argReturn "処理メール"
'  Elif $argFID = -5
'   $System.SetParameter $argReturn "受信メール"
'  Elif $argFID = -6
'   $System.SetParameter $argReturn "送信メール"
'  Elif $argFID = -7
'   $System.SetParameter $argReturn "確認メール"
'  Elif $argFID
'   $System.SetParameter $argReturn $MailProfile.Folder.FolderSet.$argFID.Name
'  EndIf
' EndSub
''
' Sub optionView $View $ViewValue $CaptionView
<option value="$ViewValue"\\
'    If $View = $ViewValue
 style="background-color:#ccffcc" Selected\\
'    EndIf
>$CaptionView</option>
'   EndSub
''
' Sub operation
   <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr class="active">
' Call mailNavigation
' Call Navigation $ViewIndex "&bs=$BS&fid=$FID&view=$View&rmid=$RMID" $Rows
    </tr>
   </table>
' EndSub
''
' Sub mailNavigation
' $Rows = $MailProfile.Rows
' Init $Rows = 50
' Set $Mails = $Command.Mail.GetIndexMails $BS $FID $View
'' $Mails.CanDeactivate = 1
' Set $rs = $Mails.RowSet
' $rs.Rows = $Rows
' If $Head
'  $rs.Head = $Head
'  $rs.HID = $HID
' EndIf
' $rs.SetReplyIDs $BS $RMID $FID
' $ViewIndex.WID = $WID
' For Each $m in $rs
'  Set $v = $ViewIndex.Add
'  $v.AID = $BS
'  If $ST
'   $v.OID = $m.OID
'  Elif ( $FID = -3 ) or ( $FID = -5 ) or ( $FID = -6 )
'   $v.OID = $m.ID
'  Else
'   $v.OID = $m.MID
'  EndIf
'  $v.DBID = $m.DBID
'  $v.Type = $m.Type
' Next
' $ViewIndex.Prev = $rs.Prev
' $ViewIndex.PID = $rs.PID
' $ViewIndex.Next = $rs.Next
' $ViewIndex.NID = $rs.NID
' $Command.Mail.CloseIndexDatabase $BS
' $Command.Mail.CloseWorkDatabase $BS
' EndSub