チェンジセット 111: trunk/install/perl/foltialib.pl
- コミット日時:
- 2010/08/17 01:12:56 (14 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/foltialib.pl
r94 r111 381 381 }#endsub makemp4dir 382 382 383 384 385 383 sub pid2sid{ 384 #番組IDからStation IDを取得 385 my $pid = $_[0]; 386 my $sth; 387 $sth = $dbh->prepare($stmt{'foltialib.pid2sid.1'}); 388 $sth->execute($pid); 389 my @statusinfo = $sth->fetchrow_array; 390 my $sid = $statusinfo[0]; 391 392 if ($sid eq ""){ 393 return 0 ; 394 }else{ 395 return $sid; 396 } 397 398 }#end sub pid2sid 386 399 387 400