AnonSec Shell
Server IP : 133.18.244.157  /  Your IP : 216.73.217.20
Web Server : Apache
System : Linux o4022v-135.kagoya.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64
User : main2 ( 81069)
PHP Version : 5.6.34
Disable Function : NONE
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /install/page/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME ]     

Current File : /install/page/CustomerHistory.html
' $System.Access WorkSpace
' If $WMV
'  Set $BP = $Command.Personal.SetBackPage $WMV "MailView"
'  $BP.Args.BS = $BID
'  $BP.Args.mid = $BMID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.type = $BType
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WCV
'  Set $BP = $Command.Personal.SetBackPage $WCV "CustomerView"
'  $BP.Args.cid = $CID
'  $BP.Args.dbid = $DBID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' EndIf
' If $Mode = "View"
'  If $Detail
'   $Personal.HideItem = ""
'  Else
'   $Personal.HideItem = 1
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryNavigation.html"-->
' Set $c = $CIndex.Cards.$CID
' $CompanyID = $c.CompanyID
' If $CompanyID
'  $CType = "customer"
'  $CName = "顧客"
' Else
'  $CType = "company"
'  $CName = "会社"
' EndIf
' $System.SetParameter CaptionTitle "$CName$の履歴一覧"
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' $BPPage = $BP.Page
' If $BPPage = "MailView"
'  $CaptionBackPage = "メールの詳細へ"
'  $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&vid=$VID$$BP.Param"
'  $System.SetParameter URLCustomerView "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID"
' Else
'  $System.SetParameter CaptionBackPage "$CName$の詳細へ"
'  If $BP
'   $System.SetParameter BackURL "$Server?page=CustomerView&wid=$WID&vid=$VID$$BP.Param"
'  Else
'   $System.SetParameter BackURL "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID"
'  EndIf
'  $URLCustomerView = $BackURL
' EndIf
' Call cmHead $CaptionTitle
</head>
<body>
' If ! $c
'  Call cmHeader $CaptionTitle
'  Sub errColumn
'  If $VID
<p>指定されたアドレスデータの履歴は存在しません。</p>
'   Call cmChildFooter
'  Else
<p>このアドレスデータは既に削除されています。</p>
'   Call cmFooter $BackURL $CaptionBackPage
'  EndIf
'  EndSub
'  Call layout_msg "" "" 0 errColumn
'  If $VID
'   Call cmChildFooter
'  Else
'   Call cmFooter $BackURL $CaptionBackPage
'  EndIf
</body>
</html>
'  Exit
' EndIf
' $DBID = $c.DBID
' $CompanyID = $c.CompanyID
' If $CompanyID
'  $PersonName = $c.Name
'  Set $cmp = $CIndex.Cards.$CompanyID
'  $CompanyName = $cmp.Name
' Else
'  $CompanyName = $c.Name
'  Set $Company = $Command.Customer.GetCustomer $WID $CID 0 $DBID
'  For Each $p in $Company.Persons
'   $PID = $p.CID
'   Set $cp = $CIndex.Cards.$PID
'   If $cp
'    $ViewIndex.AddPersonID $PID
'    $System.SetParameter "P$PID" $cp.Name
'   EndIf
'  Next
' EndIf
' $Command.Customer.CloseDatabase
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID&vid=$VID"
' If $WorkSpace.Customer.Disable
'  If $BPPage = "MailView"
'   Call cmHeader $CaptionTitle $BackURL "メールの詳細"
'  Else
'   Call cmHeader $CaptionTitle
'  EndIf
' Else
'  Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $URLCustomerView "$CName$の詳細"
' EndIf
''
' Sub commonColumn
<form method="post" action="$Server?" onSubmit="if( ! Text.value ){ return false; }">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerSearchIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
'  Call menuColumn
</form>
' EndSub
''
' Sub menuColumn
<table class="menuColumn"><tr>\\
' If $CompanyID
'  Call tbCreateMail 0 "&cid=$CID&dbid=$DBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wch=$Login.ID"
' EndIf
' Call tbCreateForms "&cid=$CID&dbid=$DBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wch=$Login.ID&ctype=$CType"
<td align="right" nowrap>\\
' Call tbSearchCustomer
</td></tr></table>
' EndSub
''
' If $BID
'  Init $CAID = $BID
' EndIf
' If $BMID
'  Init $COID = $BMID
' Elif $BRID
'  Init $COID = $BRID
' EndIf
' $Rows = 20
' $ViewIndex.WID = $WID
' If $CompanyID
'  $ViewIndex.CID = $CID
' EndIf
' $ViewIndex.SetHistoryView $CID $DBID $AID $Rows $Head $HAID $HID
' If $AID
'  If $AID = $CAID
'   $CurID = $COID
'  EndIf
' EndIf
' If $WorkSpace.Mails.$AID
<!--#include file="PartsMailIndex.html"-->
'  Set $MailProfile = $Command.Mail.GetMailTop $AID
' Elif $WorkSpace.Forms.$AID
<!--#include file="PartsFormIndex.html"-->
'  Set $FormProfile = $Command.Form.GetFormTop $AID
' EndIf
''
' Sub mainColumn
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active">
<td nowrap>\\
' $Count = $ViewIndex.HistoryCount
' If $CompanyID
'  If $CompanyName
'   Call cmImage "company20.png"
$CompanyName
'  EndIf
'  Call cmImage "person20.png"
<b>$PersonName</b>
さん\\
' Else
'  Call cmImage "company20.png"
<b>$CompanyName</b>
' EndIf
の履歴情報 ($Count件)</td>
</tr>
</table>
'  Call operation
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call titleRow
''
'' <!---------------------メールの絞込表示----------------------------->
' If $WorkSpace.Mails.$AID
'  Call viewMailIndex $AID $MailProfile $ViewIndex -4 "&bcid=$CID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&wch=$Login.ID&bpt=$BPT" $CurID
'' <!---------------------履歴アプリの絞込表示----------------------------->
' Elif $WorkSpace.Forms.$AID
'  Call viewFormIndex $AID $FormProfile $ViewIndex "&bpage=$Page&bcid=$CID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&wch=$Login.ID&bpt=$BPT" $CurID
'' <!---------------------一斉配信の絞込表示----------------------------->
' Elif $AID = -1
'  $RowNum = 0
'  For Each $h in $ViewIndex
'   If ! $h.Init
'    Continue
'   EndIf
'   Inc $RowNum
'   If ( $h.AID = $CAID ) and ( $h.OID = $COID )
'    $RowClass = "currentRow"
'   Else
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
'   EndIf
<tr class="$RowClass overline">
'   Call timeCell $Date $h.Key 1
<td valign="top" nowrap><font size="-1">\\
'   $UID = $h.UID
'   Set $u = $Users.$UID
'   If $u
$u.Name
'   Else
$h.UserName
'   EndIf
</font><br></td>
<td valign="top"><font size="-1">\\
'   Call cmLink $h.Subject "postmail20.png" "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$h.OID&bpage=$Page&bcid=$CID&bdbid=DBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wch=$Login.ID"
</font></td>
<td valign="top" nowrap><font size="-1">
'   Call cmLink "配信済み( $h.Count件/$h.TargetCount件 )" "" "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$h.OID&tab=to&bpage=$Page&bcid=$CID&bdbid=DBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wch=$Login.ID"
</font></td>
</tr>
'   Call commentRow $h.Comments 2 2
'  Next
'' <!---------------------全て----------------------------->
' Else
'  Sub SetItemView
'   If ! $ViewItem
<tr class="$RowClass"><td colspan="2"><br></td>
'    If $CompanyID
<td colspan="5">
'    Else
<td colspan="6">
'    EndIf
'    $ViewItem = 1
'   EndIf
'  EndSub
'  $RowNum = 0
'  For Each $h in $ViewIndex
'   If ! $h.Init
'    Continue
'   EndIf
'   Inc $RowNum
'   If ( $h.AID = $CAID ) and ( $h.OID = $COID )
'    $RowClass = "currentRow"
'   Else
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
'   EndIf
'   $ID = $h.AID
'   If $WorkSpace.Forms.$ID
'    Set $FormProfile = $Command.Form.GetFormTop $ID
'    $Type = $FormProfile.DateTime.Type
'   Else
'    $Type = 2
'   EndIf
<tr class="$RowClass overline">
'   Call timeCell $Date $h.Key $Type
'' <!---------------------メールの表示----------------------------->
'   If $WorkSpace.Mails.$ID
'    Set $MailProfile = $Command.Mail.GetMailTop $ID
<td valign="top" nowrap>
'    $Quick = $h.Quick
'    If $Quick = 1
<span class="label hurry">至急</span>\\
'    Elif $Quick = 2
<span class="label urgent">大至急</span>\\
'    EndIf
'    $STID = $h.Status
'    If $h.Type = "Sent"
'     $STColor = $MailProfile.ColorStatusSent
'     $STName = "(送信済み)"
'    Elif $STID = -1
'     $STColor = $MailProfile.ColorStatusWorking
'     $STName = "(処理中)"
'    Elif $STID = -2
'     $STColor = $MailProfile.ColorStatusFinished
'     $STName = "(処理済み)"
'    Elif $STID = -5
'     $STColor = $MailProfile.ColorStatusWaiting
'     $STName = "(送信待ち)"
'    Else
'     Set $Status = $MailProfile.Status.$STID
'     If $Status
'      $STColor = $Status.Color
'      $STName = $Status.Name
'     Else
'      $STColor = $MailProfile.ColorStatusToDo
'      $STName = "(未処理)"
'     EndIf
'    EndIf
'    If $STColor
<span class="label color$STColor">\\
'    Else
<span class="label color1">\\
'    EndIf
$STName</span>\\
'    If $h.ModifyUID
'     $MUID = $h.ModifyUID
'     If $Users.$MUID
'      If $STColor
<span class="editor color$STColor">*</span>\\
'      Else
<span class="editor color1">*</span>\\
'      EndIf
'     EndIf
'    EndIf
'   $NextUID = $h.NextUID
'   $NextUser = $Users.$NextUID.Name
'   If $NextUser
'    If $STColor
<span class="nextuser color$STColor">$NextUser</span>\\
'    Else
<span class="nextuser color1">$NextUser</span>\\
'    EndIf
'   EndIf
</td>
<td valign="top" nowrap><font size="-1">
'    $UID = $h.UID
'    Set $u = $Users.$UID
'    If $u
$u.Name
'    Else
$h.UserName
'    EndIf
</font><br></td>
<td valign="top" align="right">
'    If $h.Type = "Received"
'     If $h.ReplyTime
'      Call cmImage "reply.png"
'     Elif $h.Forward
'      Call cmImage "forward.png"
'     EndIf
'    EndIf
<br></td>
<td valign="top" align="right">
'    If $h.Type = "Received"
'     $val = $Command.String.MakeLower $h.MIME
'     If $val = "multipart/mixed"
''     If $h.MIME = "multipart/mixed"
'      Call cmImage "clip.png"
'     EndIf
'    Else
'     If $h.Files.Count
'      Call cmImage "clip.png"
'     EndIf
'    EndIf
<br></td>
'    If $h.Type = "Received"
'     $Image = "mail20.png"
'    Elif $h.Type = "Sent"
'     $Image = "mail_sent20.png"
'    Else
'     $Image = "mail_write20.png"
'    EndIf
<td valign="top" nowrap><font size="-1">
'    $Subject = $h.Subject
'    $SubjectLength = $MailProfile.Subject.Length
'    If $SubjectLength
'     $Subject = $Command.String.StrHead $Subject $SubjectLength
'    EndIf
'    Call cmLink $Subject $Image "$Server?page=MailView&wid=$WID&bs=$ID&vid=$VID&mid=$h.OID&dbid=$h.DBID&type=$h.Type&bcid=$CID&bdbid=DBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wch=$Login.ID"
</font>
'    If $h.Type = "Draft"
<font size="-1" color="#008800">(作成中)</font>
'    EndIf
</td>
'    If ! $CompanyID
<td valign="top">
'     If $h.Type = "Received"
'      $Name = $System.GetParameter "P$h.CID"
'      If $Name
'       Call cmImage "person20.png"
<font size="-1">$Name</font>
'      EndIf
'     Else
'      $FirstPerson = 1
'      For Each $mc in $h.Customers
'       $Name = $System.GetParameter "P$mc.CID"
'       If $Name
'        If $FirstPerson
'         $FirstPerson = 0
'        Else
,
'        EndIf
'        Call cmImage "person20.png"
<font size="-1">$Name</font>
'       EndIf
'      Next
'     EndIf
<br></td>
'    EndIf
<td valign="top"><font size="-1">$WorkSpace.Mails.$ID.Name</font></td>
</tr>
'    If ! $Personal.HideItem
'     $ViewItem = 0
'     $AccountID = $h.Account
'     Set $Account = $MailProfile.Accounts.$AccountID
'     If ( $MailProfile.Accounts.Count > 1 ) and ( ! $MailProfile.AccountView.Hidden ) and $Account
'      Call SetItemView
'      Call cmImage "item16.png"
<font size="-1">アカウント : $Account.Name
</font>
'     EndIf
'     For Each $Item in $MailProfile.Items
'      If ! $Item.Hidden
'       $IID = $Item.ID
'       $FirstItem = 1
'       Set $Values = $h.Items.$IID
'       For Each $Value in $Values
'        Call SetItemView
'        If $FirstItem
'         $FirstItem = 0
'         Call cmImage "item16.png"
<font size="-1">$Item.Name :
'        Else
,
'        EndIf
$Value
'       Next
'       If ! $FirstItem
</font>
'       EndIf
'      EndIf
'     Next
'     If $ViewItem
</td></tr>
'     EndIf
'    EndIf
'    Set $Comments = $h.Comments
'' <!---------------------履歴の表示----------------------------->
'   Elif $WorkSpace.Forms.$ID
'    Set $FormProfile = $Command.Form.GetFormTop $ID
<td><br></td>
<td valign="top" nowrap><font size="-1">
'    $UID = $h.UID
'    Set $u = $Users.$UID
'    If $u
$u.Name
'    Else
$h.Creator
'    EndIf
</font><br></td>
'    If $FormProfile.Image
'     $Image = $FormProfile.Image
'    Else
'     $Image = "browse20.png"
'    EndIf
<td><br></td><td><br></td><td valign="top" nowrap><font size="-1">
'    $Subject = $h.Subject
'    $SubjectLength = $FormProfile.Subject.Length
'    If $SubjectLength
'     $Subject = $Command.String.StrHead $Subject $SubjectLength
'    EndIf
'    Call cmLink $Subject $Image "$Server?page=FormDocView&wid=$WID&bs=$ID&vid=$VID&rid=$h.OID&dbid=$h.DBID&bcid=$CID&bdbid=DBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wch=$Login.ID&ctype=$CType"
</font></td>
'    If ! $CompanyID
<td valign="top">
'     For Each $fc in $h.Customers
'      If $fc.CID = $CID
'       $FirstPerson = 1
'       For Each $fp in $fc.Persons
'        If $FirstPerson
'         $FirstPerson = 0
'        Else
,
'        EndIf
'        Call cmImage "person20.png"
<font size="-1">$fp.Name</font>
'       Next
'       Exit
'      EndIf
'     Next
<br></td>
'    EndIf
<td valign="top" nowrap><font size="-1">$WorkSpace.Forms.$ID.Name</font><br></td>
</tr>
'    If ! $Personal.HideItem
'     $ViewItem = 0
'     For Each $Item in $FormProfile.Items
'      If $Item.Hidden
'       Continue
'      EndIf
'      $IID = $Item.ID
'      Set $Values = $h.Items.$IID
'      If $Values.Count
'       Call SetItemView
'      EndIf
'      $Type = $Item.Type
'      If $Type = "Date"
'       For Each $Value in $Values
'        Call cmImage "item16.png"
<font size="-1">$Item.Name :
$Value.Year/$Value.Month/$Value.Day($Value.WDay)</font>
'        Exit
'       Next
'      Elif $Type = "User"
'       $FirstItem = 1
'       For Each $Value in $Values
'        Set $u = $Users.$Value
'        If ! $u
'         Continue
'        EndIf
'        If $FirstItem
'         $FirstItem = 0
'         Call cmImage "item16.png"
<font size="-1">$Item.Name :</font>
'        Else
,
'        EndIf
<font size="-1">$u.Name</font>
'        If ! $Item.Multiple
'         Exit
'        EndIf
'       Next
'      Elif $Type = "Select"
'       $FirstItem = 1
'       For Each $Value in $Values
'        If $FirstItem
'         $FirstItem = 0
'         Call cmImage "item16.png"
<font size="-1">$Item.Name :</font>
'        Else
,
'        EndIf
<font size="-1">$Value</font>
'        If ! $Item.Multiple
'         Exit
'        EndIf
'       Next
'      Else
'       For Each $Value in $Values
'        If ( $Item.Type = "Text" ) and $Item.Length
'         $Value = $Command.String.StrHead $Value $Item.Length
'        EndIf
'        Call cmImage "item16.png"
<font size="-1">$Item.Name :</font>
'        View $Value 1
'        Exit
'       Next
'      EndIf
'     Next
'     If $ViewItem
</td></tr>
'     EndIf
'    EndIf
'    Set $Comments = $h.Comments
'' <!---------------------一斉配信の表示----------------------------->
'   Elif $ID = -1
'    $PCID = $h.OID
<td valign="top" nowrap><font size="-1">\\
'    If $h.Sent
'     $Image = "postmail20.png"
<span class="label">配信済み</span>\\
'    Else
'     $Image = "postmail_write20.png"
<font color="#008800">(作成中)</font>\\
'    EndIf
</font></td>
<td valign="top" nowrap><font size="-1">
'    $UID = $h.UID
'    Set $u = $Users.$UID
'    If $u
$u.Name
'    Else
$h.UserName
'    EndIf
</font><br></td>
<td><br></td><td><br></td><td valign="top" nowrap><font size="-1">
'    Call cmLink $h.Subject $Image "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$PCID&bpage=$Page&bcid=$CID&bdbid=DBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wch=$Login.ID"
</font></td>
'    If ! $CompanyID
<td valign="top">
'     $FirstPerson = 1
'     For Each $p in $h.Customers
'      If $FirstPerson
'       $FirstPerson = 0
'      Else
,
'      EndIf
'      Call cmImage "person20.png"
<font size="-1">$p</font>
'     Next
<br></td>
'    EndIf
<td valign="top" nowrap><font size="-1">$WorkSpace.Post.Name</font><br></td>
</tr>
'    Set $Comments = $h.Comments
'   EndIf
'   If ( ! $Personal.HideItem ) and ( $Comments.Count )
'    $CommentCols = 3
'    If $CompanyID
'     Inc $CommentCols 2
'    Else
'     Inc $CommentCols 3
'    EndIf
'    Call commentRow $Comments 2 $CommentCols
'   EndIf
'  Next
' EndIf
'  Call titleRow
</table>
' Call operation
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
' If $VID
'  Call cmChildFooter $BackURL $CaptionBackPage
' Else
'  $BS = -2
'  Call cmFooter $BackURL $CaptionBackPage
' EndIf
</body>
</html>
''
' Sub operation
<form method="get" action="$Server">
<input type="hidden" name="Page" value="CustomerHistory">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="CID" value="$CID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="CAID" value="$CAID">
<input type="hidden" name="COID" value="$COID">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="active">
'  Call operationInner
'  Call showBackNavigation
'  Call Navigation $ViewIndex "&cid=$CID&aid=$AID&caid=$CAID&coid=$COID&bpt=$BPT" $Rows
</tr></table>
</form>
' EndSub
''
' Sub showBackNavigation
'  If $Storages.Count and ( ! $VID )
<!--#include file="LibraryBackNavigation.html"-->
<td width="1%" nowrap>\\
'   Call cmImage menu_sep.png "" "" "" "" "" "" "menusep"
</td>
<td width="1%" nowrap>\\
'   Call backNavigation "&cid=$CID&aid=$AID"
</td>
'  EndIf
' EndSub
''
' Sub operationInner
<td width="1%" nowrap>種別\\
<select name="AID" onChange="this.form.submit();">
<option value="">(全て)
' For Each $m in $WorkSpace.Mails
'  If $m.ID = $AID
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="$m.ID" $Sel>$m.Name
' Next
' For Each $f in $WorkSpace.Forms
'  If $f.ID = $AID
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="$f.ID" $Sel>$f.Name
' Next
' If ! $WorkSpace.Post.Disable
'  If $AID = -1
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="-1" $Sel>$WorkSpace.Post.Name
' EndIf
</select>
</td>
' If ! $AID
<td width="1%" nowrap>
<div class="toggleview">
 <span class="toggleview-desc">表示:</span>
 <font color="#008800">
'  If $Personal.HideItem
'   $Detail = 0
'  Else
'   $Detail = 1
'  EndIf
'  Call formCheckBox "Detail" "詳細情報" $Detail 1 "Detail" "Mode.value='View';this.form.submit();"
 </font>
</div>
</td>
' EndIf
' EndSub
''
' Sub titleRow
' If $WorkSpace.Mails.$AID
'  Call viewMailTitle $AID $MailProfile -4 1
' Elif $WorkSpace.Forms.$AID
'  Call viewFormTitle $FormProfile
' Elif $AID = -1
<tr class="table-header"><td align="center" nowrap>日時</td><td nowrap>作成者</td><td nowrap>件名</td><td nowrap>配信状況</td></tr>
' Else
<tr class="table-header"><td align="center" nowrap>日時</td><td nowrap>状況・確認者</td><td nowrap>担当者</td><td><br></td><td><br></td><td nowrap>件名</td>
'  If ! $CompanyID
<td nowrap>顧客</td>
'  EndIf
<td nowrap>種別</td></tr>
' EndIf
' EndSub
''
'  Sub timeCell $argNowTimeStamp $argTimeStamp $argType
<td nowrap>\\
<span class="mailTime">\\
'   If $argTimeStamp.Year != $argNowTimeStamp.Year
$argTimeStamp.Year/\\
'   EndIf
$argTimeStamp.Month00/$argTimeStamp.Day00</span>
'   If $argType and ( $argType != 1 )
<span class="mailTime fontBold">\\
$argTimeStamp.Hour00:$argTimeStamp.Minute00</span>
'   EndIf
</td>
'  EndSub
''
'  Sub commentRow $argComments $argOffsetCols $argCommentCols
'   If ! $argComments.Count
'    Exit
'   EndIf
<tr class="$RowClass">
'   If $argOffsetCols > 1
<td valign="top" colspan="$argOffsetCols"><br></td>
'   Else
<td valign="top"><br></td>
'   EndIf
'   If $argCommentCols > 1
<td valign="top" colspan="$argCommentCols">\\
'   Else
<td valign="top">\\
'   EndIf
<div class="comment">\\
'    For Each $Comment in $argComments
'     var $localData = $Command.String.Trim $Comment.Data
'     var $localMultiLine = $Command.String.IsMultiLine $localData
'     If $localMultiLine
'      If $Comment.UID == $Login.ID
<div class="mycomment-block">
'      Else
<div class="comment-block">
'      EndIf
'      View $localData 1
</div>
'     Else
'      If $Comment.UID == $Login.ID
<span class="mycomment-inline">
'      Else
<span class="comment-inline">
'      EndIf
'      View $localData 1 0 1
</span>
'     EndIf
'    Next
</div></td></tr>
'  EndSub

Anon7 - 2022
AnonSec Team