#============================================================ # JSParams #============================================================ package JSParams; use Common; @ISA = qw(Common); #公開したいサブルーチン @EXPORT = qw(%MultiFunctionTableConfig $MultiFunctionTableJScript %MultiFunctionTableConfigByClass $MultiFunctionTableJScriptByClass %MultiFunctionTableMessage ); #@EXPORT_OK = qw(); use strict; #========================================== # 大域変数 #========================================== our $ModuleName = "JSParams"; our $ModuleExplanation = "JavaScript Parameters"; our %MultiFunctionTableConfig = ( id => 'TestTable3', class => 'tablesorter' ); our $MultiFunctionTableJScript = < EOT # our %MultiFunctionTableConfigByClass = ( # id => 'TestTable3', class => 'tablesorter' ); our $MultiFunctionTableJScriptByClass = <--> EOT our %MultiFunctionTableMessage = ( 'en' => "
Input a keyword in a textbox below for filtering ('*' is for a wild card).
" ."Click a title label to sort.
\n", 'jp' => "
下のテキストボックスにキーワードを入力すると抽出できます ('*'は任意文字にマッチします)。
" ."タイトルラベルをクリックするとソートします。
\n", ); our %AcordionConfigByClass = ( # id => 'TestTable3', class => 'accordion' ); our $AcordionJScriptByClass = < EOT #============================================================ # コンストラクタ、デストラクタ #============================================================ sub new { my ($module) = @_; my $this = {}; bless $this; # $this->SUPER::new(@_); return $this; } sub DESTROY { my $this = shift; $this->SUPER::DESTROY(@_); } #============================================================ # メンバー関数 #============================================================ sub GetJSResizableString() { my ($this, $tag) = @_; $tag = '#TextAreaText' if(!defined $tag); my $s = < EOT return $s; } sub GetTinyMCEString() { my ($this, $tag, %args) = @_; $tag = '#TextAreaText' if(!defined $tag); $args{Language} = 'jp' if($args{Language} eq ''); $args{Mode} = 'exact' if($args{Mode} eq ''); $args{Elements} = 'TextAreaText' if($args{Mode} eq ''); my $option = ''; $option .= " language : \"$args{Language}\","; $option .= " mode : \"$args{Mode}\","; $option .= " elements : \"$args{Elements}\","; $option .= " document_base_url : '$args{DocumentBaseURL}'," if($args{DocumentBaseURL}); my $s = < EOT return $s; } sub GetMultiFunctionalTableString() { my ($this, $tag, %args) = @_; $tag = '#TestTable3' if(!defined $tag); # $args{SortList} = '[[0,0], [1,0]]'; my $option1 = ''; my @array = qw(sortList); foreach my $key (@array) { if(defined $args{$key}) { if($args{$key} =~ /^\[/ or $args{$key} =~ /^\d+$/) { $option1 .= " $key: $args{$key},\n" } else { $option1 .= " $key: '$args{$key}',\n" } } } my $option2 = ''; my @array2 = qw(wildCard notCharacter caseSensitive minSearchCharacters excludeColumns alternateRowClassNames underline); foreach my $key (@array2) { if(defined $args{$key}) { if($args{$key} =~ /^\[/ or $args{$key} =~ /^\d+$/) { $option2 .= " $key: $args{$key},\n" } else { $option2 .= " $key: '$args{$key}',\n" } } } $option1 =~ s/,\n$//s; $option2 =~ s/,\n$//s; my $s = < EOT return $s; } sub GetFileListsForMultiFunctionalTable2() { my ($this) = @_; my $s = < EOT return $s; } sub GetMultiFunctionalTableString2() { my ($this, $tag, %args) = @_; $tag = '#TestTable3' if(!defined $tag); # $args{SortList} = '[[0,0], [1,0]]'; my $option1 = ''; my @array = qw(sortList); foreach my $key (@array) { if(defined $args{$key}) { if($args{$key} =~ /^\[/ or $args{$key} =~ /^\d+$/) { $option1 .= " $key: $args{$key},\n" } else { $option1 .= " $key: '$args{$key}',\n" } } } my $option2 = ''; my @array2 = qw(wildCard notCharacter caseSensitive minSearchCharacters excludeColumns alternateRowClassNames underline); foreach my $key (@array2) { if(defined $args{$key}) { if($args{$key} =~ /^\[/ or $args{$key} =~ /^\d+$/) { $option2 .= " $key: $args{$key},\n" } else { $option2 .= " $key: '$args{$key}',\n" } } } $option1 =~ s/,\n$//s; $option2 =~ s/,\n$//s; my $s = < EOT return $s; } sub GetPictureGalleryString { my ($this, $Script, %args) = @_; my ($DivClass, $HrefClass, $HrefGroup, $ImgClass, $s); if($Script eq 'polaroid') { $DivClass = 'polaroid'; $s = '' . "\n" .'' . "\n"; } elsif($Script eq 'thickbox') { $DivClass = undef; $HrefClass = 'thickbox'; $HrefGroup = 'group1'; $ImgClass = 'mini'; $s = '' . "\n" .'' . "\n"; } return ($DivClass, $HrefClass, $HrefGroup, $ImgClass, $s); } sub GetDatePickerString { my ($this, $keyYear, $keyMonth, $keyDay, $BaseURL) = @_; my $JumpString = ($BaseURL eq '')? '' : "location.href = \"$BaseURL&Year=\" + sArray[0] + \"&Month=\" + sArray[1] + \"&Day=\" + sArray[2];"; my $s = < EOT return $s; } sub GetJSChangePageString { my ($this) = @_; my $s =< // EOT return $s; } sub GetJSChangeApparatusString { my ($this, $url) = @_; my $s =< // EOT return $s; } sub GetJSChangeLanguageString { my ($this, $url) = @_; my $s =< // EOT return $s; } sub RemoveTinyMCETags { my ($this, $pHash, @keys) = @_; return if(!$pHash); foreach my $key (@keys) { #print "$key: $pHash->{$key}
\n"; $pHash->{$key} =~ s/\<\/?span[^\>]*\>//isg; $pHash->{$key} =~ s/\<\/?strong[^\>]*\>//isg; $pHash->{$key} =~ s/\<\/?p[^\>]*\>//isg; $pHash->{$key} =~ s/\<\/?b[^\>]*\>//isg; $pHash->{$key} =~ s/\<\/?u[^\>]*\>//isg; # $pHash->{$key} =~ s/^\//isg; # $pHash->{$key} =~ s/\<\/sub\>$//isg; Utils::DelSpace($pHash->{$key}); #print " => $pHash->{$key}
\n"; } } 1;