@@ -179,15 +179,25 @@ function deletePhysiologicalFile($physioFileID, $confirm, $printToSQL, $DB, &$ou
179179 );
180180 print_r ($ electrodes );
181181
182- echo "\nEvents \n" ;
182+ echo "\nEvents Files \n" ;
183183 echo "---------------------------- \n" ;
184- $ events = $ DB ->pselect (
184+ $ events_files = $ DB ->pselect (
185185 'SELECT DISTINCT FilePath
186- FROM physiological_task_event
186+ FROM physiological_event_file
187187 WHERE PhysiologicalFileID=:pfid ' ,
188188 ['pfid ' => $ physioFileID ]
189189 );
190- print_r ($ events );
190+ print_r ($ events_files );
191+
192+ echo "\nEvents Archives \n" ;
193+ echo "---------------------------- \n" ;
194+ $ events_archives = $ DB ->pselect (
195+ 'SELECT DISTINCT FilePath
196+ FROM physiological_event_archive
197+ WHERE PhysiologicalFileID=:pfid ' ,
198+ ['pfid ' => $ physioFileID ]
199+ );
200+ print_r ($ events_archives );
191201
192202 echo "\nAnnotations Files \n" ;
193203 echo "---------------------------- \n" ;
@@ -247,8 +257,12 @@ function deletePhysiologicalFile($physioFileID, $confirm, $printToSQL, $DB, &$ou
247257 $ files [] = $ data_path . $ electrode ['FilePath ' ];
248258 }
249259
250- foreach ($ events as $ event ) {
251- $ files [] = $ data_path . $ event ['FilePath ' ];
260+ foreach ($ events_files as $ events_file ) {
261+ $ files [] = $ data_path . $ events_file ['FilePath ' ];
262+ }
263+
264+ foreach ($ events_archives as $ events_archive ) {
265+ $ files [] = $ data_path . $ events_archive ['FilePath ' ];
252266 }
253267
254268 foreach ($ annotations_files as $ annotation_file ) {
@@ -289,6 +303,53 @@ function deletePhysiologicalFile($physioFileID, $confirm, $printToSQL, $DB, &$ou
289303 ["PhysiologicalFileID " => $ physioFileID ]
290304 );
291305
306+ // delete from the physiological_event_file table
307+ $ DB ->delete (
308+ "physiological_event_file " ,
309+ ["PhysiologicalFileID " => $ physioFileID ]
310+ );
311+
312+ // delete from the physiological_event_archive table
313+ $ DB ->delete (
314+ "physiological_event_archive " ,
315+ ["PhysiologicalFileID " => $ physioFileID ]
316+ );
317+
318+ // delete from the physiological_event_parameter_category_level table
319+ $ EventParameterIDs = $ DB ->pselect (
320+ 'SELECT EventParameterID
321+ FROM physiological_event_parameter
322+ JOIN physiological_event_file USING(EventFileID)
323+ WHERE PhysiologicalFileID=:pfid ' ,
324+ ['pfid ' => $ physioFileID ]
325+ );
326+
327+ if (!empty ($ EventParameterIDs )) {
328+ foreach ($ EventParameterIDs as $ EventParameterID ) {
329+ $ DB ->delete (
330+ "physiological_event_parameter_category_level " ,
331+ ["EventParameterID " => $ EventParameterID ]
332+ );
333+ }
334+ }
335+
336+ // delete from the physiological_event_parameter table
337+ $ EventFileIDs = $ DB ->pselect (
338+ 'SELECT EventFileID
339+ FROM physiological_event_file
340+ WHERE PhysiologicalFileID=:pfid ' ,
341+ ['pfid ' => $ physioFileID ]
342+ );
343+
344+ if (!empty ($ EventFileIDs )) {
345+ foreach ($ EventFileIDs as $ EventFileID ) {
346+ $ DB ->delete (
347+ "physiological_event_parameter " ,
348+ ["EventFileID " => $ EventFileID ]
349+ );
350+ }
351+ }
352+
292353 // delete from the physiological_annotation_instance table
293354 $ AnnotationFileIDs = $ DB ->pselect (
294355 'SELECT AnnotationFileID
0 commit comments