#! /usr/bin/perl

use AMC::Data;

my $data=AMC::Data->new("/home/alexis/Projets-QCM/test-ensemble/data");

my $layout=$data->module("layout");

my $student_number=4;

$layout->begin_read_transaction('pages');

@all_pages=$layout->query_row('subjectpageForStudent',$student_number);

@enter_pages=$layout->query_row('subjectpageForStudentA',$student_number);

$layout->end_transaction('pages');

print "All sheet pages for student $student_number: $all_pages[0] - $all_pages[1]\n";

print "Pages where there is something to write, for student $student_number: $enter_pages[0] - $enter_pages[1]\n";