#!/usr/bin/perl

use DBI();
use HTML::Entities;

require ('/www-uni/dtt-cgi/dtt2016.var');
require ('/www-uni/dtt-cgi/include/connect_admin.pl');

$abstracts = $dbh->prepare("SELECT Abstracts.ID AS ID, Surname, Abstracts.Code AS Code FROM tropentag$dtt_year_only.Abstracts LEFT JOIN tropentag$dtt_year_only.Persons ON Contact_Person = Persons.ID WHERE Assessment = 'rejected' OR Assessment = 'withdrawn' " );

#$abstracts = $dbh->prepare("SELECT Abstracts.ID AS ID, Surname, Abstracts.Code AS Code FROM tropentag$dtt_year_only.Abstracts LEFT JOIN tropentag$dtt_year_only.Persons ON Contact_Person = Persons.ID WHERE Abstracts.ID= 1135" );


$abstracts->execute();

while($abstractrow = $abstracts->fetchrow_hashref()) {

    $PDFID= $abstractrow->{'ID'} . ".pdf";
    $PDFIDINACTIVE= $PDFID . ".inactive";

   print "Disabling abstract " . $abstractrow->{'ID'}. "\n"; 

   system ("cp $PDFID $PDFIDINACTIVE");
   system ("mv -f $PDFIDINACTIVE $PDFID");
   system ("chmod go-rw $PDFID");
}