チェンジセット 124: trunk/install/perl/foltialib.pl

差分発生行の前後
無視リスト:
コミット日時:
2010/10/13 21:01:58 (15 年前)
コミッタ:
sorshi
ログメッセージ:

MP4録画ライブラリでの削除機能追加

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • trunk/install/perl/foltialib.pl

    r111 r124  
    399399 
    400400 
    401  
     401sub mp4filename2tid{ 
     402#MPEG4ファイル名からTIDを得る 
     403my $mp4filename =  $_[0]; 
     404 
     405my $sth; 
     406    $sth = $dbh->prepare($stmt{'foltialib.mp4filename2tid.1'}); 
     407    $sth->execute($mp4filename); 
     408my @statusinfo = $sth->fetchrow_array; 
     409my $tid  = $statusinfo[0]; 
     410 
     411if ($tid eq ""){ 
     412        return  0 ; 
     413}else{ 
     414        return $tid; 
     415} 
     416}#end sub mp4filename2tid 
    402417 
    403418 
track feed