144 | | |
---|
145 | | $query = " |
---|
146 | | insert into foltia_subtitle |
---|
147 | | values ( '$insertpid','0','$recstid', |
---|
148 | | '$nextcno','$pname','$startdatetime','$enddatetime','0' ,'$lengthmin')"; |
---|
149 | | |
---|
150 | | $rs = m_query($con, $query, "DBクエリに失敗しました"); |
---|
151 | | |
---|
152 | | //addatq.pl |
---|
153 | | //キュー入れプログラムをキック |
---|
154 | | //引数 TID チャンネルID |
---|
155 | | //echo("$toolpath/perl/addatq.pl $tid $station"); |
---|
156 | | |
---|
157 | | $oserr = system("$toolpath/perl/addatq.pl 0 0"); |
---|
158 | | |
---|
| 144 | $userclass = getuserclass($con); |
---|
| 145 | if ( $userclass <= 2){ |
---|
| 146 | $memberid = getmymemberid($con); |
---|
| 147 | |
---|
| 148 | $query = " |
---|
| 149 | insert into foltia_subtitle (pid ,tid ,stationid , countno ,subtitle , |
---|
| 150 | startdatetime ,enddatetime ,startoffset , lengthmin , epgaddedby ) |
---|
| 151 | values ( '$insertpid','0','$recstid', |
---|
| 152 | '$nextcno','$pname','$startdatetime','$enddatetime','0' ,'$lengthmin', '$memberid')"; |
---|
| 153 | |
---|
| 154 | $rs = m_query($con, $query, "DBクエリに失敗しました"); |
---|
| 155 | |
---|
| 156 | //addatq.pl |
---|
| 157 | //キュー入れプログラムをキック |
---|
| 158 | //引数 TID チャンネルID |
---|
| 159 | //echo("$toolpath/perl/addatq.pl $tid $station"); |
---|
| 160 | |
---|
| 161 | $oserr = system("$toolpath/perl/addatq.pl 0 0"); |
---|
| 162 | }else{ |
---|
| 163 | print "EPG予約を行う権限がありません。"; |
---|
| 164 | }// end if $userclass <= 2 |
---|