#! /usr/bin/perl

#

# Copyright (C) 2012-2021 Alexis Bienvenüe <paamc@passoire.fr>

#

# This file is part of Auto-Multiple-Choice

#

# Auto-Multiple-Choice is free software: you can redistribute it

# and/or modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation, either version 2 of

# the License, or (at your option) any later version.

#

# Auto-Multiple-Choice is distributed in the hope that it will be

# useful, but WITHOUT ANY WARRANTY; without even the implied warranty

# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

# General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Auto-Multiple-Choice.  If not, see

# <http://www.gnu.org/licenses/>.

use warnings;

use 5.012;

package AMC::Substitute;

use AMC::Basic;

# A RAJOUTER 1 sur 3

use utf8;

# FIN A RAJOUTER 1 sur 3

sub new {

    my (%o) = @_;

    my $self = {

        names   => '',

        scoring => '',

        assoc   => '',

        name    => '',

        chsign  => 4,

        lk      => '',

    };

    for ( keys %o ) {

        $self->{$_} = $o{$_} if ( defined( $self->{$_} ) );

    }

    bless $self;

    return ($self);

}

sub format_note {

    my ( $self, $mark ) = @_;

    if ( $self->{chsign} ) {

        $mark = sprintf( "%.*g", $self->{chsign}, $mark );

    }

    return ($mark);

}

#

## A RAJOUTER 2 sur 3

#

# Affiche le niveau acquis pour chaque compétence entrée comme groupe

# <30%: élémentaire - <70%: apprenti - <100%: confirmé - =100%: expert

sub format_skills {

  my ($self,$student,$copy)=@_;

  my $sth = $self->{scoring}->statement('studentSkillLevel');

  $sth->execute($student, $copy);

  my $stext = "";

  while(my @row=$sth->fetchrow_array) { # retrieve one row

    if (scalar(split '',$stext) > 6) {$stext = $stext . "  —  ";}

    $stext = $stext . @row[0] . " : ";

     if (@row[1]>1) {

      $stext = $stext . "Compétence non évaluée ";

    } elsif (@row[1]>=0.75) {

      $stext = $stext . "Très bonne maîtrise 😄";

    } elsif (@row[1]>=0.5) {

      $stext = $stext . "Maîtrise satisfaisante 😊";

    } elsif (@row[1]>=0.25) {

      $stext = $stext . "Maîtrise fragile 😕";

    } else {

      $stext = $stext . "Maîtrise insuffisante 😟";

    }

  }

  return($stext);

}

# Affiche les pourcentages de réussite par groupe, arrondi à l'entier, le minimum étant fixé à zéro

sub format_knowledge {

  my ($self,$student,$copy)=@_;

  my $sth = $self->{scoring}->statement('studentSkillLevel');

  $sth->execute($student, $copy);

  my $stext = "\n";

  while(my @row=$sth->fetchrow_array) { # retrieve one row

    if (scalar(split '',$stext) > 6) {$stext = $stext . "  —  ";}

    my $knowledge=int(@row[1]*100+.5);

    $stext = $stext . @row[0] . " : " . (0, $knowledge)[$knowledge>0] . " %";

  }

  return($stext);

}

# Affiche  le niveau acquis et le pourcentage de réussite pour chaque compétence entrée comme groupe

sub format_skills_knowledge {

  my ($self,$student,$copy)=@_;

  my $sth = $self->{scoring}->statement('studentSkillLevel');

  $sth->execute($student, $copy);

  my $stext = "\t\t\t\t\t\t\t\t\t";

  while(my @row=$sth->fetchrow_array) { # retrieve one row

    if (scalar(split '',$stext) > 6) {$stext = $stext . "\n";}

    $stext = $stext . "     ";

    $stext = $stext . @row[0] . " : ";

    if (@row[1]>1) {

      my $knowledge=int(@row[1]*100+.5);

      $stext = $stext . "Compétence non évaluée ";

    } elsif (@row[1]>=0.75) {

      my $knowledge=int(@row[1]*100+.5);

      $stext = $stext . (0, $knowledge)[$knowledge>0] . "% - ";

      $stext = $stext . "Très bonne maîtrise 😄";

   } elsif (@row[1]>=0.5) {

      my $knowledge=int(@row[1]*100+.5);

      $stext = $stext . (0, $knowledge)[$knowledge>0] . "% - ";

      $stext = $stext . "Maîtrise satisfaisante 😊";

      } elsif (@row[1]>=0.25) {

      my $knowledge=int(@row[1]*100+.5);

      $stext = $stext . (0, $knowledge)[$knowledge>0] . "% - ";

      $stext = $stext . "Maîtrise fragile 😕";

    } else {

      my $knowledge=int(@row[1]*100+.5);

      $stext = $stext . (0, $knowledge)[$knowledge>0] . "% - ";

      $stext = $stext . "Maîtrise insuffisante 😟";

    }

  }

  return($stext);

}

#

## FIN A RAJOUTER 2 sur 3

#

sub substitute {

    my ( $self, $text, $student, $copy ) = @_;

    if ( $self->{scoring} ) {

        my $student_mark = $self->{scoring}->student_global( $student, $copy );

        if ($student_mark) {

            $text =~ s/\%[S]/$self->format_note($student_mark->{total})/ge;

            $text =~ s/\%[M]/$self->format_note($student_mark->{max})/ge;

            $text =~ s/\%[s]/$self->format_note($student_mark->{mark})/ge;

            $text =~

s/\%[m]/$self->format_note($self->{scoring}->variable('mark_max'))/ge;

# A RAJOUTER 3 sur 3

      $text =~ s/\%[C]/$self->format_skills($student, $copy)/ge;

      $text =~ s/\%[c]/$self->format_knowledge($student, $copy)/ge;

      $text =~ s/\%[Z]/$self->format_skills_knowledge($student, $copy)/ge;

# FIN A RAJOUTER 3 sur 3

 } else {

            debug "No marks found ! Copy="

              . studentids_string( $student, $copy );

        }

    }

    $text =~ s/\%[n]/$self->{name}/ge;

    if ( $self->{assoc} && $self->{names} ) {

        $self->{lk} = $self->{assoc}->variable('key_in_list')

          if ( !$self->{lk} );

        my $i = $self->{assoc}->get_real( $student, $copy );

        my $n;

        if ( defined($i) ) {

            debug "Association -> ID=$i";

            ($n) = $self->{names}->data( $self->{lk}, $i, test_numeric => 1 );

            if ($n) {

                $text = $self->{names}->substitute( $n, $text, prefix => '%' );

            }

        } else {

            debug "Not associated";

        }

    }

    return ($text);

}

1;