# Functions:

# 1) getGradesPeriod() - returns a hash ref to gradeperiod{Grades} = period.
# 2) checkDate(date) returns 255 if error in format; 1 if outside school year; Ok returns 0
# 3) parseGradesPeriod() - passed a grades field (from dates_periods table), return the grades.

#--------------------
sub parseGradesPeriod { # passed a date, return a data struct of grades, periods (%pclosed)
#--------------------

    my ($currdate, $dbh) = @_;

    my %pmap = ( 'P3' => '0', 'PK' => '1', 'K' => '2' );
    my @pmap = ('P3','PK','K');
    
    my %pclosed; #{grade}{period};

    my $sth = $dbh->prepare("select grades,period from dates_periods where date = ?");
    $sth->execute( $currdate );
    if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
    while ( my ( $grades, $period ) = $sth->fetchrow ) {
#	print "Record - Grades: $grades Period:$period<br>\n";
	my @grades;
	my @cgroup = split(',',$grades); # split into comma groups
	foreach my $cgroup ( @cgroup ) { # run through comma separated grades.
#	    print "CGROUP:$cgroup<br>\n";
	    my @dgroup = split('-', $cgroup); # split by dash group.
	    my $start = $dgroup[0];
	    my $end = $dgroup[-1];
#	    print "Start:$start End:$end<br>\n";
		    
	    if ( exists $pmap{$start} and exists $pmap{$end} ) { # member of P3,PK,K
		my $sidx = $pmap{$start};
		my $eidx = $pmap{$end};
		for my $idx ($sidx..$eidx) {
		    push @grades, $pmap[$idx];
		}
	    } elsif ( exists $pmap{$start} ) {
		for my $idx ( $start..2 ) { # only have idx values of 0,1,2 for P3,PK,K
		    push @grades, $pmap[$idx];
		} # done entering the text values.
		my $start = 1; # reset to grade 1
		foreach my $gr ( $start..$end ) {
		    push @grades, $gr;
		}
		# end of section where it starts in text (PK, etc) and ends in numbers.
		
	    } else { # numeric only.
		foreach my $gr ( $start..$end ) {
		    push @grades, $gr;
		}
	    }
	    
	} # end of this comma separated cgroup (normally with dashes(-) inside).
	
	foreach my $gr ( @grades ) {
	    $pclosed{$gr}{$period} = 1;
	}
	
    } # record fetching loop for different ppd values and associated grades.

#    foreach my $grade ( sort keys %pclosed ) {
#	foreach my $period ( sort keys %{ $pclosed{$grade} } ) {
#	    print qq{Grade:$grade Period:$period<br>\n};
#	} }
	    
    
    return \%pclosed;

}



#------------------
sub getGradesPeriod {  # from %g_ppd value in configuration system.
#------------------
    
    # Get Attendance Periods from configuration value global hash. %g_ppd.

# For Testing.    
#    $g_ppd{K} = 5;
#    $g_ppd{8} = 4;
    
    
    my %ppdData;
    my %pmap = ( 'K' => '3', 'PK' => '2', 'P3' => '1' ); # map text grades to digits.

    
    foreach my $grade (keys %g_ppd ) {
	$grade = uc $grade; # incase of lowercase K, PK, etc.
	my $periods = $g_ppd{$grade};
	if ( $grade =~ m/^\d/ ) { 
	    $tempgr = $grade + 3;
	    $pmap{$grade} = $tempgr;
	}
	if ( $pmap{$grade} ) { $grade = $pmap{$grade}; } # convert K,PK, etc. to digits.
	$ppdData{$periods}{$grade} = 1;
    }
    my %revpmap = reverse %pmap;
    
#    foreach my $period ( sort keys %ppdData ) {
#	foreach my $grade ( sort {$a <=> $b} keys %{ $ppdData{$period} } ) {
#	    print qq{Period:$period Grade:$grade<br>\n};
#	}
#    }

    
    my %periodgroup; # grade group with minimum and max for each attendance periods.
    foreach my $p ( keys %ppdData ) {
	my @gr = sort {$a <=> $b} keys %{ $ppdData{$p} };
	
	if ( scalar @gr == 1 ) { # single element.
	    $periodgroup{$p} = $gr[0];
	    next; # $p
	}
				 
	my $val = $gr[0]; # put in first element.
	foreach my $idx (1..$#gr ) { # loop through rest of elements.
	    my $prev = $idx - 1;
	    if ( $gr[$idx] - $gr[$prev] > 1 ) { # we have a hole, put in a comma.
		$val .= qq{,$gr[$idx]};
	    } else { # we are contiguous
		$val .= qq{-$gr[$idx]};
	    }
	}
	$periodgroup{$p} = $val;
    }

    # downsize
    foreach my $p ( sort keys %periodgroup ) {
#	print "Period:$p Group:$periodgroup{$p}<br>\n";
	my @temp;
	if ( $periodgroup{$p} =~ m/\-|\,/ ) { # downsize, if we have commas or periods.
	    my @cgroup = split(',', $periodgroup{$p} );
	    foreach my $cgroup ( @cgroup ) {
		if ( $cgroup =~ m/\-/ ) { # we have hyphens, so make into A-B format.
		    my @dgroup = split('-',$cgroup);
		    if ( $revpmap{$dgroup[0]} ) { $dgroup[0] = $revpmap{$dgroup[0]}; }
		    if ( $revpmap{$dgroup[-1]} ) { $dgroup[-1] = $revpmap{$dgroup[-1]}; }
		    push @temp, qq{$dgroup[0]-$dgroup[-1]};
		    
		} else { # no hyphens, a single value.
		    if ( $revpmap{$cgroup} ) { $cgroup = $revpmap{$cgroup}; }
		    push @temp, $cgroup;
		}
	    }
	    my $newval = join(',', @temp);
	    $periodgroup{$p} = $newval;
	    
	} else {  #a single value already; convert back if PK,K, etc.
	    if ( $revpmap{$periodgroup{$p} } ) { $periodgroup{$p} = $revpmap{$periodgroup{$p}}; }
	}

    }

    # Check Data
    # foreach my $p ( sort keys %periodgroup ) { print "Periods:$p Group:$periodgroup{$p}<br>\n"; }
    
    return \%periodgroup;
    
}




#------------
sub checkDate {
#------------

    use Time::JulianDay;
    
    my $date = shift;

    my ($y,$m,$d) = split('-',$date);
    
    if ( not $d ) { return 255; }  # wrong format.
    if ( $m > 12 or $m < 1 ) { return 255; }
    if ( $d > 31 or $d < 1 ) { return 255; }

    my $datejd = julian_day( $y, $m, $d );

    my $startjd = julian_day( split('-', $schoolstart ));
    my $endjd = julian_day( split('-', $schoolend ));
    
#    print "DATE:$date - $datejd Start:$schoolstart - $startjd  End:$schoolend - $endjd<br>\n";

    if ( $datejd > $endjd  or $datejd < $startjd ) {
	return 1; # different code for date outside of current year;
    }
    
    return 0;

}

# Do Not Remove
1;