| 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 : |
' If ! $incLibraryCommon
' $incLibraryCommon = 1
''--------------------------------------------------------------------
' Sub cmRegisterScriptComponent $argComponent
' If ! $libraryGlobalLoadedScript
' Set $libraryGlobalLoadedScript = $System.CreateObject Items Session
' EndIf
' $libraryGlobalLoadedScript.Add $argComponent
' EndSub
''
' Sub cmIsRegisteredScriptComponent $argComponent $argResultParam
' If ! $libraryGlobalLoadedScript
' $System.SetParameter $argResultParam ""
' Exit
' EndIf
' var $localResult = $libraryGlobalLoadedScript.Contains $argComponent
' If $localResult
' $System.SetParameter $argResultParam "1"
' Else
' $System.SetParameter $argResultParam ""
' EndIf
' EndSub
''
' Sub cmRegisterCSSComponent $argComponent
' If ! $libraryGlobalLoadedCSS
' Set $libraryGlobalLoadedCSS = $System.CreateObject Items Session
' EndIf
' $libraryGlobalLoadedCSS.Add $argComponent
' EndSub
''
' Sub cmIsRegisteredCSSComponent $argComponent $argResultParam
' If ! $libraryGlobalLoadedCSS
' $System.SetParameter $argResultParam ""
' Exit
' EndIf
' var $localResult = $libraryGlobalLoadedCSS.Contains $argComponent
' If $localResult
' $System.SetParameter $argResultParam "1"
' Else
' $System.SetParameter $argResultParam ""
' EndIf
' EndSub
''
' Sub cmResetComponentRegistry
' If $libraryGlobalLoadedScript
' $libraryGlobalLoadedScript.RemoveAll
' EndIf
' If $libraryGlobalLoadedCSS
' $libraryGlobalLoadedCSS.RemoveAll
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' 画像の表示
'' 構文：Call cmImage <イメージ> <alt> <onClick時の動作> <横幅> <縦幅> <スタイル> <ID> <class>
''------------------------------------------------------------------->
' Sub cmImage $cmImage $cmAlt $cmOnClick $cmWidth $cmHeight $cmStyle $cmID $cmClass
<img src="$IMG_PATH/$cmImage"\\
' If $Env.IsMSIE
align="absmiddle"\\
' EndIf
' If $cmAlt
alt="$cmAlt" title="$cmAlt"\\
' EndIf
' If $cmWidth
width="$cmWidth"\\
' EndIf
' If $cmHeight
height="$cmHeight"\\
' EndIf
' If $cmID
id="$cmID"\\
' EndIf
' If $cmClass
class="$cmClass"\\
' EndIf
' If $cmStyle
style="$cmStyle"\\
' EndIf
' If $cmOnClick
onClick="$cmOnClick"\\
' EndIf
>\\
' EndSub
''
''<!------------------------------------------------------------------
'' 画像＋文字列
'' 構文：Call cmImageText <イメージ> <文字列> <alt> <onClick時の動作>
'' <画像の横幅> <画像の縦幅> <画像のスタイル> <画像のclass>
'' <文字列のスタイル> <文字列のclass>
''------------------------------------------------------------------->
' Sub cmImageText $cmImage $cmName $cmAlt $cmOnClick $cmWidth $cmHeight $cmImageStyle $cmImageClass $cmTextStyle $cmTextClass
<span\\
' If $cmAlt
alt="$cmAlt" title="$cmAlt"\\
' EndIf
' If $cmOnClick
onClick="$cmOnClick"\\
' EndIf
>\\
' Call cmImage $cmImage "" "" $cmWidth $cmHeight $cmImageStyle "" $cmImageClass
<span\\
' If $cmTextStyle
style="$cmTextStyle"\\
' EndIf
' If $cmTextClass
class="$cmTextClass"\\
' EndIf
>\\
$cmName</span>\\
</span>
' EndSub
''
''<!------------------------------------------------------------------
'' 会社ロゴを出力する
'' 構文：Call cmLogo <会社ロゴ>
''------------------------------------------------------------------->
' Sub cmLogo $cmImagePath
<img src="$cmImagePath">\\
' EndSub
''
''<!------------------------------------------------------------------
'' cmLoadJavaScript
'' jsファイルのロード
''@param $argPath ロードするファイル名（拡張子は省略可能）
''------------------------------------------------------------------->
' Sub cmLoadJavaScript $argPath
' var $localSuffix = $Command.String.StrFind $argPath ".js"
' If ! $localSuffix
' $System.SetParameter argPath "$argPath$.js"
' EndIf
' Call cmIsRegisteredScriptComponent $argPath localLoaded
' If ! $localLoaded
' Call cmRegisterScriptComponent $argPath
<script type="text/javascript" src="$JS_PATH/$argPath?_v=$BuildVersion$.js"></script>
' If $argPath = "std.js"
''サーバー変数をJavaScriptへ渡す
<script language="JavaScript" type="text/javascript"><!--
mw.PAGE = "$Page";
mw.SERVER = "$Server?";
mw.HTM_PATH = "$HTM_PATH";
mw.IMG_PATH = "$IMG_PATH";
mw.FORM_KEY = "$MakeCSRFKey";
mw.LOGIN_ID = "$Login.id";
mw.WID = "$WID";
//--></script>
' EndIf
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' cmLoadStyleSheet
'' cssファイルのロード
''@param $argPath ロードするファイル名（拡張子は省略可能）
''------------------------------------------------------------------->
' Sub cmLoadStyleSheet $argPath $argMedia
' $localSuffix = $Command.String.StrFind $argPath ".css"
' If ! $localSuffix
' $System.SetParameter argPath "$argPath$.css"
' EndIf
' Call cmIsRegisteredCSSComponent $argPath localLoaded
' If ! $localLoaded
' Call cmRegisterCSSComponent $argPath
' If $argMedia
<link rel="stylesheet" type="text/css" media="$argMedia" href="$CSS_PATH/$argPath?_v=$BuildVersion$.css" />
' Else
<link rel="stylesheet" type="text/css" href="$CSS_PATH/$argPath?_v=$BuildVersion$.css" />
' EndIf
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' cmLink
'' アイコン付きリンク
'' 構文：Call cmLink <タイトル> <イメージ> <URL> <グレイアウトするなら1> <新窓で開く> <alt> <文字色> <onclick> <class>
'' 注意：グレイアウトが指定されている場合は文字色は無視される
''------------------------------------------------------------------->
' Sub cmLink $argName $argImage $argURL $argDisabled $argNewWindow $argAlt $argColor $argOnClick $argClass
' If $argDisabled
<span\\
' If $argClass
class="fontDisable $argClass">\\
' Else
class="fontDisable">\\
' EndIf
' If $argImage
' Call cmImage $argImage
' EndIf
$argName</span>\\
' Else
' If $argOnClick
<a href="javascript:void(0);" onClick="$argOnClick"\\
' Else
<a href="$argURL"\\
' EndIf
' If $argClass
class="$argClass"\\
' EndIf
' If $argAlt
alt="$argAlt" title="$argAlt"\\
' EndIf
' If $argNewWindow
target="_blank"\\
' EndIf
>\\
' If $argImage
' Call cmImage $argImage
' EndIf
' If $argColor
<span style="color:$argColor;">$argName</span></a>\\
' Else
$argName</a>\\
' EndIf
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' アイコン付きボタン型リンク
'' 構文：Call cmLink <タイトル> <イメージ> <URL> <使用不可なら1> <新窓で開くなら1> <画像位置が文字の右なら1> <alt> <onClick> <class> <id>
'' 注意：グレイアウトが指定されている場合は文字色は無視される
''------------------------------------------------------------------->
' Sub cmLinkButton $argName $argImage $argURL $argDisabled $argNewWindow $argImagePosRight $argAlt $argOnClick $argClass $argID
' If $argDisabled
<span\\
' If $argID
id="$argID"\\
' EndIf
' If $argClass
class="button-standard button-disable $argClass"\\
' Else
class="button-standard button-disable"\\
' EndIf
>\\
' If $argImage and ! $argImagePosRight
' Call cmImage $argImage "" "" "" "" "" "" "button-image-left"
' EndIf
$argName\\
' If $argImage and $argImagePosRight
' Call cmImage $argImage "" "" "" "" "" "" "button-image-right"
' EndIf
</span>\\
' Else
' If $argOnClick
<a href="javascript:void(0)" onClick="$argOnClick"\\
' Else
<a href="$argURL"\\
' EndIf
' If $argID
id="$argID"\\
' EndIf
' If $argAlt
alt="$argAlt" title="$argAlt"\\
' EndIf
' If $argNewWindow
target="_blank"\\
' EndIf
' If $argClass
class="button-standard $argClass"\\
' Else
class="button-standard"\\
' EndIf
>\\
' If $argImage and ! $argImagePosRight
' Call cmImage $argImage "" "" "" "" "" "" "button-image-left"
' EndIf
$argName\\
' If $argImage and $argImagePosRight
' Call cmImage $argImage "" "" "" "" "" "" "button-image-right"
' EndIf
</a>\\
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' cmOpenWindow
'' 新しいウィンドウを開く
'' 構文：Call cmOpenWindow <タイトル> <イメージ> <URL> <Windowの名前>
''------------------------------------------------------------------->
' Sub cmOpenWindow $cmName $cmImage $cmURL $cmWindowName
<a href="$_localSacmURL" onClick="window.open( '$cmURL', '$cmWindowName', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' ).focus();return false;">\\
' If $cmImage
<img src="$IMG_PATH/$cmImage"\\
' If $Env.IsMSIE
align="absmiddle"\\
' EndIf
>\\
' EndIf
$cmName</a>
' EndSub
''
''<!------------------------------------------------------------------
'' ボタン
'' 構文：Call cmButton <タイトル> <onClick時の動作> <イメージ> <スタイル> <name> <CSSクラス> <id> <type>
''------------------------------------------------------------------->
' Sub cmButton $cmCaption $cmOnClick $cmImage $cmStyle $cmName $cmClass $cmID $cmType
' If ! $cmCaption and ! $cmImage
' Exit
' EndIf
' If $cmCaption and $cmImage
<button\\
' If $cmOnClick
onClick="$cmOnClick"\\
' EndIf
' If $cmClass
class="$cmClass"\\
' Else
class="inputButton"\\
' EndIf
' If $cmStyle
style="$cmStyle"\\
' EndIf
' If $cmID
id="$cmID"\\
' EndIf
' If $cmType
type="$cmType"\\
' Else
type="button"\\
' EndIf
>\\
' Call cmImage $cmImage "" "" "" "" "" "" "inputButton-image"
$cmCaption</button>\\
' Exit
' ElIf $cmCaption and ! $cmImage
<input type="button" value="$cmCaption"\\
' ElIf ! $cmCaption and $cmImage
<input type="image" src="$IMG_PATH/$cmImage"\\
' EndIf
' If $cmID
id="$cmID"\\
' EndIf
' If $cmClass
class="$cmClass"\\
' Else
class="inputButton"\\
' EndIf
' If $cmName
name="$cmName"\\
' EndIf
' If $cmStyle
style="$cmStyle"\\
' EndIf
' If $cmOnClick
onClick="$cmOnClick"\\
' EndIf
>\\
' EndSub
''
''<!------------------------------------------------------------------
'' 画像ボタン
'' 構文：Call cmImageButton <onClick時の動作> <画像ファイル名> <name属性値>
''------------------------------------------------------------------->
' Sub cmImageButton $cmOnClick $cmImage $cmName
' Call cmButton "" $cmOnClick $cmImage "" $cmName "inputImageButton"
' EndSub
''
''<!------------------------------------------------------------------
'' cmHead
'' ブラウザのタイトル、および HEAD タグ内の共通的な記述
'' 構文：
'' <html>
'' <head>
'' Call cmHead <画面タイトル> <ログインなしフラグ>
'' </head>
'' <body>
''------------------------------------------------------------------->
' Sub cmHead $cmName $cmNoLogin
<meta charset="utf-8">
<title>$cmName - サイボウズ(R) メールワイズ(R)</title>
' Call cmLoadStyleSheet "jquery-ui/jquery-ui-1.8.17.custom.css"
' Call cmLoadStyleSheet "jquery-ui.css"
' Call cmLoadStyleSheet "std"
' If $cmNoLogin
' Call cmLoadStyleSheet "base"
' ElIf $VID
' Call cmLoadStyleSheet "past"
' ElIf $IsAdminPage
' Call cmLoadStyleSheet "admin"
' Else
' $System.SetParameter cmColor "Color$WID"
' $System.SetParameter cmColor "$Login.$cmColor"
' If $cmColor
' Call cmLoadStyleSheet "theme_$cmColor"
' Else
' Call cmLoadStyleSheet "base"
' EndIf
' EndIf
' If $System.IsCloud
' If $Office.ImageFileHash
' $System.SetParameter Logo "/api/company/logo.do/-/logo.png?hash=$Office.ImageFileHash$&.png"
' Else
' $System.SetParameter Logo "$IMG_PATH/comHeader_logo_hd.png"
' EndIf
' Else
' $System.SetParameter Logo "$IMG_PATH/logo_mw.png"
' EndIf
' Call cmLoadStyleSheet "header"
<link rel="shortcut icon" href="$IMG_PATH/mailwise.ico">
' Call cmLoadJavaScript "jquery-1.7.1.min"
' Call cmLoadJavaScript "jquery-ui-1.8.17.custom.min"
' Call cmLoadJavaScript "std"
<script>
$(function(){
if( ! $('#mainColumn').length )
{
$('.content').css('padding','0 8px');
}
});
</script>
' EndSub
''
''<!------------------------------------------------------------------
'' cmHtmlHead
'' Headタグの挿入
'' 構文：
'' Call cmHtmlHead
''------------------------------------------------------------------->
' Sub cmHtmlHead
<!DOCTYPE html>
<!--[if lt IE 7]> <html class="ie lt-ie9 lt-ie8 lt-ie7" lang="ja"> <![endif]-->
<!--[if IE 7]> <html class="ie lt-ie9 lt-ie8" lang="ja"> <![endif]-->
<!--[if IE 8]> <html class="ie lt-ie9" lang="ja"> <![endif]-->
<!--[if gt IE 8]> <html class="ie" lang="ja"> <![endif]-->
<!--[if !IE]><!--> <html class="" lang="ja"> <!--<![endif]-->
<head>
' EndSub
''
''<!------------------------------------------------------------------
'' アプリケーションアイコンヘッダの表示
'' 構文：Call cmHeaderMenu
'' (!)このサブルーチンを使う場合の注意事項
'' - cmHead を先に呼ぶ必要がある。
''------------------------------------------------------------------->
' Sub cmHeaderMenu
<script>
jQuery(function($){
var skipEvent = false; // for ctrl + click on firefox
function HideSubMenu()
{
var menu = $('#header-menulist > li > .header-submenu');
if (menu.is(':visible')) menu.hide();
}
$(document).click(function(event){
if (skipEvent) {
skipEvent = false;
return;
}
if ($.browser.mozilla && event.which != 1) return;
HideSubMenu();
});
$('#header-menulist > li.header-menu-item').click(function(event){
var v = $(this).children('.header-submenu');
var show = v.is(':hidden');
HideSubMenu();
if( show )
{
v.children('ul:not(.header-submenu-item-hidden)').removeClass('last-menu').last().addClass('last-menu');
v.show();
}
if (skipEvent) return;
event.stopPropagation();
});
$('.header-submenu-item > a').click(function(event){
skipEvent = true;
});
});
''
$(window).load(function(){
' If $Env.IsMSIE50 or $Env.IsMSIE6
'' TODO：本当は「IE7以上かその他のブラウザ」もしくは「IE6以下」で分岐させるようしたい
'' ブラウザ分岐のコードをOfficeと合わせ、精査すべき
''
'' IE6以下は固定ヘッダがきかないのでそれなりの表示にする
var warningHeight = 0;
var warnings = $('.warning');
var len = warnings.length;
for( var i = 0; i < len; i++ )
{
warningHeight += $(warnings[i]).height();
}
var height = warningHeight;
height += $('#header-wrapper').height();
$(".header-submenu").css( "top", height );
' Else
'' 警告系メッセージをC++でbody直下に出してるのでこっちはだめ
'' $('#content-wrapper').css('margin-top', $('#header-wrapper').height())
'' .css('margin-bottom', $('#footer-wrapper').height());
$('body').css({ 'padding-bottom': '0',
'margin-top': $('#header-wrapper').height(),
'margin-bottom': $('#footer-wrapper').height()
});
$('.header-submenu').each(function(i,el){
var height = Math.floor( $(window).height() * 0.8 );
$(el).css( 'max-height', height );
});
' EndIf
});
</script>
<!--#include file="LibraryHeaderMenu.html"-->
<div id="header-wrapper">
<table id="header" class="headerTable" border="0" width="100%" cellspacing="0" cellpadding="0">
<colgroup width="1">
<colgroup width="1%">
<colgroup width="">
<tr>
<td class="header-logo" nowrap>\\
' var $localURL = ""
' If $System.IsCloud
' $localURL = $Office.URL
' If ! $localURL
' $localURL = "/"
' EndIf
' Else
' $System.SetParameter localURL "$Server?wid=$WID&vid=$VID"
' EndIf
<a href="$localURL">\\
' Call cmLogo $Logo
</a></td>\\
<td class="header-notifier clearfix" nowrap>\\
' Call headerNotifier
</td>\\
<td class="header-menulist clearfix" align="right">\\
' Call headerMenu
</td>\\
</tr>
</table>
</div>
' $IsHeader = 1
' EndSub
''
''<!------------------------------------------------------------------
'' アプリケーションアイコンセルを表示
'' 構文：Call cmAppMenuIcon
''------------------------------------------------------------------->
' Sub cmAppMenuIcon $argAppName $argAppURL $argAppIcon $argHideIcon
' var $localsaURL = $Command.String.HtmlEscape $argAppURL
' var $localsaIcon = $Command.String.HtmlEscape $argAppIcon
' var $localsaName = $Command.String.HtmlEscape $argAppName
<td class="appmenuTD" nowrap>
<a href="$_localsaURL">\\
' If ! $argHideIcon and $argAppIcon
<img src="$_localsaIcon" width="32" height="32"><br>\\
' EndIf
<span class="fontSmall">$_localsaName</span>\\
</a></td>
' EndSub
''
''<!------------------------------------------------------------------
'' アプリケーションアイコン行を表示
'' 構文：Call cmAppMenuIcon
''------------------------------------------------------------------->
' Sub cmAppMenu
' If $IsAdminPage
' Exit
' EndIf
' $System.SetParameter cmWSView "View$WID"
' var Set $cmView = $Login.$cmWSView
<div id="appmenu-wrapper">
' If $cmView.HideAppmenu
' var $appmenuFrameStyle = "display:none;"
' EndIf
<div id="appIconMenuFrame" class="appmenuShadow" style="$appmenuFrameStyle">
' If $cmView.Icon
<table class="appmenuTable hideIcon">
' Else
<table class="appmenuTable">
<tr><td width="100%">
<table class="appmenuInnerTable">
' EndIf
''
' var $cmLine = 0
''
'' メールアプリ
' For Each $cmMS in $WorkSpace.Mails
' $cmContains = $cmView.Mails.Contains $cmMS.ID
' If $cmContains
' Continue
' EndIf
' If $cmLine = 0
<tr>
' EndIf
' If $cmMS.IconType = "URL"
' $cmImage = $cmMS.IconURL
' Elif $cmMS.Icon
' $System.SetParameter cmImage "$IMG_PATH/icon_mail$cmMS.Icon$_32.png"
' Else
' $System.SetParameter cmImage "$IMG_PATH/icon_mail1_32.png"
' EndIf
' $System.SetParameter localURL "$Server?page=MailIndex&wid=$WID&bs=$cmMS.ID&vid=$VID"
' Call cmAppMenuIcon $cmMS.Name $localURL $cmImage $cmView.Icon
' Inc $cmLine
' If $cmView.Line and ( $cmView.Line = $cmLine )
</tr>
' $cmLine = 0
' EndIf
' Next
''
'' 履歴アプリ
' For Each $cmFS in $WorkSpace.Forms
' $cmContains = $cmView.Forms.Contains $cmFS.ID
' If $cmContains
' Continue
' EndIf
' If $cmLine = 0
<tr>
' EndIf
' If $cmFS.Icon
' $System.SetParameter cmImage "$IMG_PATH/$cmFS.Icon"
' Else
' $System.SetParameter cmImage "$IMG_PATH/icon_contact32.png"
' EndIf
' $System.SetParameter localURL "$Server?page=FormIndex&wid=$WID&bs=$cmFS.ID&vid=$VID"
' Call cmAppMenuIcon $cmFS.Name $localURL $cmImage $cmView.Icon
' Inc $cmLine
' If $cmView.Line and ( $cmView.Line = $cmLine )
</tr>
' $cmLine = 0
' EndIf
' Next
''
'' アドレス帳
' If ( ! $WorkSpace.Customer.Disable ) and ( ! $cmView.Customer )
' If $cmLine = 0
<tr>
' EndIf
' $System.SetParameter cmImage "$IMG_PATH/icon_address32.png"
' $System.SetParameter localURL "$Server?page=CustomerIndex&wid=$WID&vid=$VID"
' Call cmAppMenuIcon $WorkSpace.Customer.Name $localURL $cmImage $cmView.Icon
' Inc $cmLine
' If $cmView.Line and ( $cmView.Line = $cmLine )
</tr>
' $cmLine = 0
' EndIf
' EndIf
''
'' テンプレート
' If ( ! $WorkSpace.Template.Disable ) and ( ! $cmView.Template ) and ( ! $VID )
' If $cmLine = 0
<tr>
' EndIf
' $System.SetParameter cmImage "$IMG_PATH/icon_template32.png"
' $System.SetParameter localURL "$Server?page=TemplateIndex&wid=$WID"
' Call cmAppMenuIcon $WorkSpace.Template.Name $localURL $cmImage $cmView.Icon
' Inc $cmLine
' If $cmView.Line and ( $cmView.Line = $cmLine )
</tr>
' $cmLine = 0
' EndIf
' EndIf
''
'' 一斉配信
' If ( ! $WorkSpace.Post.Disable ) and ( ! $cmView.Post )
' If $cmLine = 0
<tr>
' EndIf
' $System.SetParameter cmImage "$IMG_PATH/icon_send32.png"
' $System.SetParameter localURL "$Server?page=PostIndex&wid=$WID&vid=$VID"
' Call cmAppMenuIcon $WorkSpace.Post.Name $localURL $cmImage $cmView.Icon
' Inc $cmLine
' If $cmView.Line and ( $cmView.Line = $cmLine )
</tr>
' $cmLine = 0
' EndIf
' EndIf
''
'' 集計
' If ( ! $WorkSpace.Report.Disable ) and ( ! $cmView.Report )
' If $cmLine = 0
<tr>
' EndIf
' $System.SetParameter cmImage "$IMG_PATH/icon_report32.png"
' $System.SetParameter localURL "$Server?page=ReportIndex&wid=$WID&vid=$VID"
' Call cmAppMenuIcon $WorkSpace.Report.Name $localURL $cmImage $cmView.Icon
' Inc $cmLine
' If $cmView.Line and ( $cmView.Line = $cmLine )
</tr>
' $cmLine = 0
' EndIf
' EndIf
''
'' ユーザー名簿
' If ( ! $WorkSpace.User.Disable ) and ( ! $cmView.User ) and ( ! $VID )
' If $cmLine = 0
<tr>
' EndIf
' $System.SetParameter cmImage "$IMG_PATH/icon_user32.png"
' $System.SetParameter localURL "$Server?page=UserIndex&wid=$WID"
' Call cmAppMenuIcon $WorkSpace.User.Name $localURL $cmImage $cmView.Icon
' Inc $cmLine
' If $cmView.Line and ( $cmView.Line = $cmLine )
</tr>
' $cmLine = 0
' EndIf
' EndIf
' If $cmView.Line and $cmLine
' $cmCols = $cmView.Line - $cmLine
<td colspan="$cmCols"><br></td>
' EndIf
</tr></table>
</td></tr>
</table>
</div>
' If $cmView.HideAppmenu
' var $appmenuClass = "appmenuCollapse"
' Else
' var $appmenuClass = "appmenuExpand"
' EndIf
<div><div id="appmenuToggler" class="$appmenuClass"><div class="appmenuToggleButton"></div></div></div>
</div>
' $IsAppMenu = 1
' EndSub
''
''<!------------------------------------------------------------------
'' cmHeaderPath
'' パスの表示
'' 構文：Call cmHeaderPath <パスのタイトル> <第1階層のURL> <第1階層のタイトル> <第2階層のURL> <第2階層のタイトル> <第3階層のURL> <第3階層のタイトル> <第4階層のURL> <第4階層のタイトル> <第5階層のURL> <第5階層のタイトル>
''------------------------------------------------------------------->
' Sub cmHeaderPath $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' Sub cmPath $argLabel $argURL
<li class="pathbar-item clearfix">
' If $argURL
' Call cmLink "$argLabel" "" "$argURL" 0 0 "" "" "" "pathbar-item-label"
<span class="pathbar-separator"></span>\\
' Else
<span class="pathbar-item-label">$argLabel</span>\\
' EndIf
</li>
' EndSub
<div id="pathbar">
<ul class="pathbar-list clearfix">
' If $WID and ( ! $IsAdminPage )
' Call cmPath "$WorkSpace.Name" "$Server?wid=$WID&vid=$VID"
' EndIf
' If $cmURL1 and $cmTitle1
' Call cmPath "$cmTitle1" "$cmURL1"
' EndIf
' If $cmURL2 and $cmTitle2
' Call cmPath "$cmTitle2" "$cmURL2"
' EndIf
' If $cmURL3 and $cmTitle3
' Call cmPath "$cmTitle3" "$cmURL3"
' EndIf
' If $cmURL4 and $cmTitle4
' Call cmPath "$cmTitle4" "$cmURL4"
' EndIf
' If $cmURL5 and $cmTitle5
' Call cmPath "$cmTitle5" "$cmURL5"
' EndIf
' Call cmPath "$cmTitle"
</ul>
</div>
' EndSub
''
''<!------------------------------------------------------------------
'' ヘッダの表示
'' 構文：Call cmHeader <パスのタイトル> <第1階層のURL> <第1階層のタイトル> <第2階層のURL> <第2階層のタイトル> <第3階層のURL> <第3階層のタイトル> <第4階層のURL> <第4階層のタイトル> <第5階層のURL> <第5階層のタイトル>
''------------------------------------------------------------------->
' Sub cmHeader $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' Call cmHeaderMenu
<div id="content-wrapper">
' Call cmAppMenu
' Call cmHeaderPath $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' If $VID
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="selected">
<td nowrap>この画面は、退避した過去のデータを表示しています。</td>
</tr>
</table>
' EndIf
<div class="content">
' $BeginContent = 1
' EndSub
''
''<!------------------------------------------------------------------
'' ログイン画面、管理系画面のヘッダ
'' 構文：Call cmHeaderView <Helpリンクを表示するか> <パスのタイトル> <第1階層のURL> <第1階層のタイトル> <第2階層のURL> <第2階層のタイトル> <第3階層のURL> <第3階層のタイトル> <第4階層のURL> <第4階層のタイトル> <第5階層のURL> <第5階層のタイトル>
'' (!)このサブルーチンを使う場合の注意事項
'' - cmHead を先に呼ぶ必要がある。
'' - bodyの閉じタグの前で cmFooter を呼ぶ必要がある。
''------------------------------------------------------------------->
' Sub cmHeaderView $cmViewHelp $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' Call cmHeaderMenu
<div id="content-wrapper">
' If $cmTitle
' Call cmHeaderPath $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' EndIf
<div class="content">
' $BeginContent = 1
' EndSub
''
''<!------------------------------------------------------------------
'' 簡易ヘッダ
'' 構文：Call cmHeaderBasic <パスのタイトル> <第1階層のURL> <第1階層のタイトル> <第2階層のURL> <第2階層のタイトル> <第3階層のURL> <第3階層のタイトル> <第4階層のURL> <第4階層のタイトル> <第5階層のURL> <第5階層のタイトル>
'' (!)このサブルーチンを使う場合の注意事項
'' - cmHead を先に呼ぶ必要がある。
'' - bodyの閉じタグの前で cmFooter を呼ぶ必要がある。
''------------------------------------------------------------------->
' Sub cmHeaderBasic $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
<div id="header-wrapper" class="nofix">
<table id="header" class="headerTable" border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td class="header-logo" nowrap>\\
' Call cmLogo $Logo
</td></tr></table>
</div>
' $IsHeader = 1
<script>
$(document).ready(function(){
$('body').css({ 'padding-bottom': '0',
'margin-top': '0',
'margin-bottom': $('#footer-wrapper').height()
});
});
</script>
<div id="content-wrapper">
' If $cmTitle
' Call cmHeaderPath $cmTitle $cmURL1 $cmTitle1 $cmURL2 $cmTitle2 $cmURL3 $cmTitle3 $cmURL4 $cmTitle4 $cmURL5 $cmTitle5
' EndIf
<div class="content">
' $BeginContent = 1
' EndSub
''
''<!------------------------------------------------------------------
'' フッタの表示
'' 構文：Call cmFooter <もどるページのURL> <もどるページのタイトル>
''------------------------------------------------------------------->
' Sub cmFooter $cmBackURL $cmBackTitle
' If $BeginContent
</div>
</div>
' EndIf
<div id="footer-wrapper">
<table id="footer"><tr>\\
' If $cmBackURL and $cmBackTitle
<td class="backlink" align="left" width="1%" nowrap>\\
' Call cmLink $cmBackTitle "backlink20.png" $cmBackURL 0 0 "" "" "" "button-footer"
</td>\\
' EndIf
<td><br></td>\\
<td class="scrollTop" align="right" nowrap>\\
' Call cmLink "" "arrow_up.png" "" 0 0 "" "" "onScrollTop();" "button-footer"
</td></tr></table>
</div>
<script>
function onScrollTop()
{
$('html, body').animate({ scrollTop : 0 }, 500, 'swing');
}
</script>
' EndSub
''
''<!------------------------------------------------------------------
'' 子ウィンドウ用ヘッダの表示
'' 構文：Call cmChildHeader
'' (!)このサブルーチンを使う場合の注意事項
'' - cmHead を先に呼ぶ必要がある。
'' - bodyの閉じタグの前で cmChildFooter、もしくは cmFooter を呼ぶ必要がある。
''------------------------------------------------------------------->
' Sub cmChildHeader
<div id="header-wrapper" class="nofix">
<table id="header" class="headerTable" border="0" width="100%" cellspacing="0" cellpadding="0">
<colgroup width="1">
<colgroup width="">
<tr>
<td class="header-logo" nowrap>\\
' Call cmLogo $Logo
</td>\\
<td align="right">\\
' Call cmLink "閉じる" "close20.png" "javascript:window.close();" 0 0 "" "#FFF"
</td></tr></table>
</div>
' $IsHeader = 1
<script>
$(document).ready(function(){
$('body').css({ 'padding-bottom': '0',
'margin-top': '0',
'margin-bottom': $('#footer-wrapper').height()
});
});
</script>
<div id="content-wrapper">
<div class="content">
' $BeginContent = 1
' EndSub
''
''<!------------------------------------------------------------------
'' 子ウィンドウ用フッタの表示
'' 構文：Call cmChildFooter <もどるページのURL> <もどるページのタイトル>
''------------------------------------------------------------------->
' Sub cmChildFooter $cmBackURL $cmBackTitle
' If $BeginContent
</div>
</div>
' EndIf
<div id="footer-wrapper">
<table id="footer"><tr>\\
' If $cmBackURL and $cmBackTitle
<td class="backlink" align="left" width="1%" nowrap>\\
' Call cmLink $cmBackTitle "backlink20.png" $cmBackURL 0 0 "" "" "" "button-footer"
</td>\\
' ElIf $System.IsAdminPage or $WorkSpace.IsAccessManage or $System.IsPersonalSetting
' Else
<td align="left">\\
' Call cmLink "閉じる" "close20.png" "javascript:window.close();"
</td>
' EndIf
<td><br></td>\\
<td class="scrollTop" align="right" nowrap>\\
' Call cmLink "" "arrow_up.png" "" 0 0 "" "" "onScrollTop();" "button-footer"
</td></tr></table>
</div>
<script>
function onScrollTop()
{
$('html, body').animate({ scrollTop : 0 }, 500, 'swing');
}
</script>
' EndSub
''
''--------------------------------------------------------------------
'' ファイルダウンロードをリクエストするURLの末尾に必ず付けるパラメータを取得する
'' MW-80 ファイルダウンロードの共通仕様対応
'' リクエストURLの末尾に拡張子を持たせたいため、一番最後のパラメータでなくてはならない
'' 構文：Call cmGetDownloadURLLastParams <返却変数名> <ファイル拡張子>
''--------------------------------------------------------------------
' Sub cmGetDownloadURLLastParams $argReturn $argExt
' If $argExt and ( $argExt != 0 )
'' まず「.」で始まる拡張子に直す
' var $localHead = $Command.String.StrMid $argExt 0 1 0
' If $localHead != "."
' $System.SetParameter argExt ".$argExt"
' EndIf
'' 「.」付き拡張子をパラメータにのせる
' $System.SetParameter localParams "$localParams&ext=$argExt"
' EndIf
' $System.SetParameter $argReturn "$localParams"
' EndSub
''
''<!------------------------------------------------------------------
'' レイアウト - 一覧
'' 構文：Call layout_list <mainColumnに当てるClass> <mainColumnの横幅> <mainColumnを折り返さないなら1> <mainColumnの関数名>
'' <sideColumnに当てるClass> <sideColumnの横幅> <sideColumnを折り返さないなら1> <sideColumnの関数名>
'' <一般要素の関数名> <タブ表示用関数名> <スクリプト出力用関数名>
''------------------------------------------------------------------->
' Sub layout_list $mainClass $mainWidth $mainNoWrap $mainCallBack $sideClass $sideWidth $sideNoWrap $sideCallBack $commonCallBack1 $commonCallBack2 $tabCallBack $scriptCallBack
' If $commonCallBack1
<div id="commonColumnTop">
' Call $commonCallBack1
</div>
' EndIf
<div class="shadowBottom"></div>
' If $tabCallBack
' Call $tabCallBack
' EndIf
<table id="contentColumn" class="layoutListTable">
<tr class="layoutListTR">
<td id="sideColumn"\\
' If ! $sideCallBack
style="display:none;"\\
' EndIf
' If $sideWidth
width="$sideWidth"\\
' Else
width="10%"\\
' EndIf
' If $sideClass
class="layoutListTD $sideClass"\\
' Else
class="layoutListTD"\\
' EndIf
' If $sideNoWrap
nowrap\\
' EndIf
valign="top">\\
' Call $sideCallBack
</td>
<td id="mainColumn"\\
' If ! $sideCallBack
width="100%"\\
' ElIf $mainWidth
width="$mainWidth"\\
' Else
width="90%"\\
' EndIf
' If $mainClass
class="layoutListTD $mainClass"\\
' Else
class="layoutListTD"\\
' EndIf
' If $mainNoWrap
nowrap\\
' EndIf
valign="top">
' Call $mainCallBack
</td>
</tr>
</table>
' If $commonCallBack2
<div class="shadowTop"></div>
<div id="commonColumnBottom">
' Call $commonCallBack2
</div>
' EndIf
' If $scriptCallBack
' Call $scriptCallBack
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' レイアウト - メッセージ
'' 確認を求める場合や、説明のみを表示する画面でつかう。
'' 構文：Call layout_msg <mainColumnに当てるClass> <mainColumnの横幅> <mainColumnを折り返さないなら1> <mainColumnの関数名>
'' <一般要素の関数名> <操作部用関数名> <タブ表示用関数名> <スクリプト出力用関数名>
''------------------------------------------------------------------->
' Sub layout_msg $mainClass $mainWidth $mainNoWrap $mainCallBack $commonCallBack1 $commonCallBack2 $commitCallBack $tabCallBack $scriptCallBack
' If $commonCallBack1
<div id="commonColumnTop">
' Call $commonCallBack1
</div>
' EndIf
<div class="shadowBottom"></div>
' If $tabCallBack
' Call $tabCallBack
' EndIf
<table id="contentColumn" class="layoutMsgTable">
<tr class="layoutMsgTR">
<td id="mainColumn"\\
' If $mainWidth
width="$mainWidth"\\
' Else
width="100%"\\
' EndIf
' If $mainClass
class="layoutMsgTD $mainClass"\\
' Else
class="layoutMsgTD"\\
' EndIf
' If $mainNoWrap
nowrap\\
' EndIf
valign="top">
' Call $mainCallBack
</td>
</tr>
' If $commitCallBack
<tr class="layoutMsgTR">
<td id="commitColumn" class="layoutMsgTD">\\
' Call $commitCallBack
</td></tr>
' EndIf
</table>
' If $commonCallBack2
<div class="shadowTop"></div>
<div id="commonColumnBottom">
' Call $commonCallBack2
</div>
' EndIf
' If $scriptCallBack
' Call $scriptCallBack
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' レイアウト - 詳細、編集
'' 構文：Call layout_view <mainColumnに当てるClass> <mainColumnの横幅> <mainColumnを折り返さないなら1> <mainColumnの関数名>
'' <一般要素の関数名> <操作部用関数名> <タブ表示用関数名> <スクリプト出力用関数名>
''------------------------------------------------------------------->
' Sub layout_view $mainClass $mainWidth $mainNoWrap $mainCallBack $commonCallBack1 $commonCallBack2 $commitCallBack $tabCallBack $scriptCallBack
' If $commonCallBack1
<div id="commonColumnTop">
' Call $commonCallBack1
</div>
' EndIf
<div class="shadowBottom"></div>
' If $tabCallBack
' Call $tabCallBack
' EndIf
<table id="contentColumn" class="layoutViewTable">
<tr class="layoutViewTR">
<td id="mainColumn"\\
' If $mainWidth
width="$mainWidth"\\
' Else
width="100%"\\
' EndIf
' If $mainClass
class="layoutViewTD $mainClass"\\
' Else
class="layoutViewTD"\\
' EndIf
' If $mainNoWrap
nowrap\\
' EndIf
valign="top">
' Call $mainCallBack
</td>
</tr>
' If $commitCallBack
<tr class="layoutViewTR">
<td id="commitColumn" class="layoutViewTD">\\
' Call $commitCallBack
</td></tr>
' EndIf
</table>
' If $commonCallBack2
<div class="shadowTop"></div>
<div id="commonColumnBottom">
' Call $commonCallBack2
</div>
' EndIf
' If $scriptCallBack
' Call $scriptCallBack
' EndIf
' EndSub
''
''<!------------------------------------------------------------------
'' ツリービュー、カテゴリ表示で使用する共通関数
'' 構文：
'' <table class="category">
'' <tr><td><div class="category-item selected"><a href="url">label</a></div></td></tr>
'' <tr><td><div class="category-item"><a href="url">label</a></div></td></tr>
'' <table>
'' Call categoryJS
''------------------------------------------------------------------->
' Sub categoryJS
<script>
$(function(){
$('.category-item').each(function(i,el){
$(el).click(function(event){
event.preventDefault();
var href = $(this).children('a').get(0);
if( ! href ) return;
if( event.which == 2 )
{
window.open().location.href = href;
}
else
{
location.href = href;
}
});
});
});
</script>
' EndSub
''
' EndIf