'' ' Sub cmImage $cmImage $cmAlt $cmOnClick $cmAlt\\ ' EndSub '' '' ' Sub cmLink $cmName $cmImage $cmURL $cmDisabled $cmNewWindow $cmAlt $cmColor ' If $cmDisabled \\ ' If $cmImage \\ ' EndIf $cmName ' Else ' $sacmURL = $Command.String.StrSanitize $cmURL \\ ' If $cmImage $cmAlt\\ ' EndIf ' If $cmColor $cmName ' Else $cmName ' EndIf ' EndIf ' EndSub '' '' ' Sub cmOpenWindow $cmName $cmImage $cmURL $cmWindowName ' $sacmURL = $Command.String.StrSanitize $cmURL \\ ' If $cmImage \\ ' EndIf $cmName ' EndSub '' '' ' Sub cmButton $cmName $cmOnClick $cmImage $cmStyle ' $sacmOnClick = $Command.String.StrSanitize $cmOnClick ' If $Env.IsMSIE and $cmImage ' If $cmStyle ' Else ' EndIf ' Else ' If $cmStyle ' Else ' EndIf ' EndIf ' EndSub '' '' ' Sub cmImageButton $cmOnClick $cmImage ' $sacmOnClick = $Command.String.StrSanitize $cmOnClick ' If $cmImage ' Else ' EndIf ' EndSub '' '' ' Sub cmHead $cmName $cmNoLogin $cmName - サイボウズ(R) メールワイズ(R) ' If $cmNoLogin ' $System.SetParameter Logo "logo_mw.gif" ' Elif $VID ' Elif $IsAdminPage ' Else ' $System.SetParameter cmColor "Color$WID" ' EndIf ' EndSub '' '' ' Sub cmHeaderMenu ' If $Env.IsMSIE ' Else ' EndIf ' If $VID
この画面は、退避した過去のデータを表示しています。
' $Logo = "logo_mwsave.gif" ' Elif $IsAdminPage ' $Logo = "logo_mwadmin.gif" ' Else ' $System.SetParameter cmColor "Color$WID" ' $System.SetParameter Logo "logo_mw$Login.$cmColor$.gif" ' EndIf ' $saURL = $Command.String.StrSanitize "$Server?wid=$WID&vid=$VID" ' If ! $IsAdminPage ' EndIf
' If $Login ' $cmTime = $System.TimeStamp $Login.Name さん ($cmTime.Hour時$cmTime.Minute00分更新) ' Else
' EndIf ' $System.SetParameter cmWSView "View$WID" ' Set $cmView = $Login.$cmWSView ' If ! $VID
' Set $cmWS = $mw.WorkSpaces.$WID ' If $Env.IsMSIE ' If $cmWS ' If $WSCount > 1 ' EndIf ' EndIf ' If $Login ' EndIf
' Else ' If $cmWS   ' If $WSCount > 1 ' EndIf ' EndIf ' If $Login ' EndIf ' EndIf
' EndIf
' Call cmOpenWindow "ヘルプ" "help.gif" "$Server?page=HelpIndex" "Help"
' $cmLine = 0 ' If $cmView.Icon ' $cmBG = " bgcolor='#E7E7E7'" ' EndIf ' For Each $cmMS in $WorkSpace.Mails ' $cmContains = $cmView.Mails.Contains $cmMS.ID ' If $cmContains ' Continue ' EndIf ' If $cmLine = 0 ' EndIf ' Inc $cmLine ' If $cmView.Line and ( $cmView.Line = $cmLine ) ' $cmLine = 0 ' EndIf ' Next ' For Each $cmFS in $WorkSpace.Forms ' $cmContains = $cmView.Forms.Contains $cmFS.ID ' If $cmContains ' Continue ' EndIf ' If $cmLine = 0 ' EndIf ' Inc $cmLine ' If $cmView.Line and ( $cmView.Line = $cmLine ) ' $cmLine = 0 ' EndIf ' Next ' If ( ! $WorkSpace.Customer.Disable ) and ( ! $cmView.Customer ) ' If $cmLine = 0 ' EndIf ' Inc $cmLine ' If $cmView.Line and ( $cmView.Line = $cmLine ) ' $cmLine = 0 ' EndIf ' EndIf ' If ( ! $WorkSpace.Template.Disable ) and ( ! $cmView.Template ) and ( ! $VID ) ' If $cmLine = 0 ' EndIf ' Inc $cmLine ' If $cmView.Line and ( $cmView.Line = $cmLine ) ' $cmLine = 0 ' EndIf ' EndIf ' If ( ! $WorkSpace.Post.Disable ) and ( ! $cmView.Post ) ' If $cmLine = 0 ' EndIf ' Inc $cmLine ' If $cmView.Line and ( $cmView.Line = $cmLine ) ' $cmLine = 0 ' EndIf ' EndIf ' If ( ! $WorkSpace.Report.Disable ) and ( ! $cmView.Report ) ' If $cmLine = 0 ' EndIf ' Inc $cmLine ' If $cmView.Line and ( $cmView.Line = $cmLine ) ' $cmLine = 0 ' EndIf ' EndIf ' If ( ! $WorkSpace.User.Disable ) and ( ! $cmView.User ) and ( ! $VID ) ' If $cmLine = 0 ' EndIf ' Inc $cmLine ' If $cmView.Line and ( $cmView.Line = $cmLine ) ' $cmLine = 0 ' EndIf ' EndIf ' If $cmView.Line and $cmLine ' $cmCols = $cmView.Line - $cmLine ' EndIf
\\ ' If ! $cmView.Icon ' If $cmMS.IconType = "URL" ' $cmImage = $cmMS.IconURL ' Elif $cmMS.IconType = "File" ' $System.SetParameter cmImage "/$IMG/icon/$cmMS.IconFile" ' Elif $cmMS.Icon ' $System.SetParameter cmImage "/$IMG/$cmMS.Icon" ' Else ' $System.SetParameter cmImage "/$IMG/icon_mail.gif" ' EndIf
\\ ' EndIf $cmMS.Name
\\ ' If ! $cmView.Icon ' If $cmFS.Icon ' $cmImage = $cmFS.Icon ' Else ' $cmImage = "icon_contact.gif" ' EndIf
\\ ' EndIf $cmFS.Name
\\ ' If ! $cmView.Icon
\\ ' EndIf $WorkSpace.Customer.Name
\\ ' If ! $cmView.Icon
\\ ' EndIf $WorkSpace.Template.Name
\\ ' If ! $cmView.Icon
\\ ' EndIf $WorkSpace.Post.Name
\\ ' If ! $cmView.Icon
\\ ' EndIf $WorkSpace.Report.Name
\\ ' If ! $cmView.Icon
\\ ' EndIf $WorkSpace.User.Name

' $IsHeader = 1 ' EndSub '' '' ' Sub cmHeaderPath $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' If $WID and ( ! $IsAdminPage ) '' Call cmImage "workspace.gif" $WorkSpace.Name > ' EndIf ' If $cmURL1 and $cmTitle1 ' $sacmURL1 = $Command.String.StrSanitize $cmURL1 $cmTitle1 > ' EndIf ' If $cmURL2 and $cmTitle2 ' $sacmURL2 = $Command.String.StrSanitize $cmURL2 $cmTitle2 > ' EndIf ' If $cmURL3 and $cmTitle3 ' $sacmURL3 = $Command.String.StrSanitize $cmURL3 $cmTitle3 > ' EndIf ' If $cmURL4 and $cmTitle4 ' $sacmURL4 = $Command.String.StrSanitize $cmURL4 $cmTitle4 > ' EndIf ' If $cmURL5 and $cmTitle5 ' $sacmURL5 = $Command.String.StrSanitize $cmURL5 $cmTitle5 > ' EndIf $cmTitle
' EndSub '' '' ' Sub cmHeader $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' Call cmHeaderMenu ' Call cmHeaderPath $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' EndSub '' '' ' Sub cmHeaderView $cmViewHelp $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5 ' If $VID ' $Logo = "logo_mwsave.gif" ' Elif $IsAdminPage ' $Logo = "logo_mwadmin.gif" ' Elif ! $Logo ' $System.SetParameter cmColor "Color$WID" ' $System.SetParameter Logo "logo_mw$Login.$cmColor$.gif" ' EndIf ' $saURL = $Command.String.StrSanitize "$Server?wid=$WID&vid=$VID" ' If $cmViewHelp ' EndIf
' Call cmOpenWindow "ヘルプ" "help.gif" "$Server?page=HelpIndex" "Help"
' If $cmTitle ' Call cmHeaderPath $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5 ' EndIf ' $IsHeader = 1 ' EndSub '' '' ' Sub cmFooter $cmBackURL $cmBackTitle ' If $cmBackURL and $cmBackTitle ' EndIf
' Call cmLink $cmBackTitle "backlink.gif" $cmBackURL ' If $WID ' If $WorkSpace.IsAccessManage ' EndIf ' EndIf ' If $Profile.IsAccessAdmin ' EndIf
' Call cmOpenWindow "サポート" "support.gif" "$Server?page=MWSupport" "Support" ' Call cmOpenWindow "個人設定" "personaladmin.gif" "$Server?page=PersonalAdmin" "PersonalSetting" ' Call cmOpenWindow "共通設定" "adminbasic.gif" "$Server?page=ManageAdmin&wid=$WID&id=$BS" "CommonSetting" ' Call cmOpenWindow "システム設定" "systemadmin.gif" "$Server?page=SystemAdmin" "SystemSetting"
' EndSub '' '' ' Sub cmChildHeader ' If $VID ' $Logo = "logo_mwsave.gif" ' Elif $IsAdminPage ' $Logo = "logo_mwadmin.gif" ' Else ' $System.SetParameter cmColor "Color$WID" ' $System.SetParameter Logo "logo_mw$Login.$cmColor$.gif" ' EndIf
' Call cmLink "閉じる" "close.gif" "javascript:window.close();"
' EndSub '' '' ' Sub cmChildFooter $cmBackURL $cmBackTitle $cmNoSupport
' If $cmBackURL and $cmBackTitle ' Call cmLink $cmBackTitle "backlink.gif" $cmBackURL ' Else ' Call cmLink "閉じる" "close.gif" "javascript:window.close();" ' EndIf ' If ! $cmNoSupport ' Call cmOpenWindow "サポート" "support.gif" "$Server?page=MWSupport" "Support" ' EndIf ' Call cmLink "閉じる" "close.gif" "javascript:window.close();"
' EndSub