';
# }
# View the xmlrecs hash
#foreach my $key (keys %xmlrecs) { print qq{K:$key V:$xmlrecs{$key}
\n}; }
# show output sent to Sask Ed if set via debug mode
if ( $debug ){
$temp =~ s//>/g;
print qq{\n};
print qq{
DEBUG - Request sent to Sask Ed
\n};
print qq{
}, $temp, qq{The filesize is }, round( $filesize, 1), qq{KB (Limit: 32KB)
\n};
# Create the https post request
my $req = POST $url, [ XML=> $output->value ];
$req->content_type('application/xml;charset="utf-8"');
$req->authorization_basic($sds_userid, $sds_password);
# Issue the request and receive a response
$res = $ua->request($req);
# Check the status of the transfer... (NOT result of xml transactions)
if ($res->is_success) {
# For Debugging ....
if ($debug){
print qq{DEBUG - Sask Ed XML Response
\n};
print qq{\n};
my $temp = $res->content;
$temp =~ s//>/g;
print qq{
}, $temp, qq{Transfer Error: $err
};
print qq{} ,$res->content, qq{\n};
exit;
}
} # end of not $filemode
} # End of the Counted loop for all records.
if ( $filemode ) { # Filemode here (ie. file upload )
close FH;
# File upload stuff here.
system("mv $filename $downloaddir");
print qq{$lex{'View/Download'} $lex{'Enrollment File'}
\n};
print qq{[ };
print qq{$filename ]
\n};
}
print qq{\n};
#-------------------------
sub mySchoolEnrollmentInfo {
#-------------------------
# Needs MembershipType, EntryDate, EntryType, Grade,
# PrevProv,PrevCountry, ExitDate, ExitType,
my ( $sref ) = @_;
# print qq{HashRef: $sref \n};
#($membershipType, $entryDate, $entryType, $grade,$prevProvState,
# $prevCountry,$exitDate, $exitType) = @$SEIref;
if ($$sref{MembershipType}){
$wr->startTag('SchoolEnrollmentInfo',
'MembershipType' => $$sref{MembershipType});
} else {
$wr->startTag('SchoolEnrollmentInfo');
}
if ($$sref{EntryDate}){
$wr->dataElement('EntryDate',$$sref{EntryDate});
}
if ($$sref{EntryType}){
$wr->emptyTag('EntryType','Code' => $$sref{EntryType});
}
# Grade: Must be PK,K,01,02, etc.
if ($$sref{Grade}){
$grade = uc($$sref{Grade});
if (length($grade) == 1){ # Add a zero.
$grade = '0'.$grade;
}
$wr->emptyTag('Grade','Code' => $grade);
}
$wr->endTag('SchoolEnrollmentInfo');
}
#-----------
sub prRecord { # print student record to output
#-----------
# last ref is student record hash
my ( $provnum, $date, $code, $type, $birthdate, $ref ) = @_;
my %sr = %$ref; # populate sr hash.
if (not $birthdate) {
$birthdate = $sr{birthdate};
}
if ($provnum =~ m/^S/) { # a local student number, actually...
$studnum = $provnum;
$studnum =~ s/^S//;
$provnum = '';
}
#print qq{PN:$provnum D:$date C:$code T:$type
\n};
my $refid = $sr{studnum};
if ( not $sr{lastname} ){ $sr{lastname} = 'Not Found'; }
print qq{| $donecount:$sr{lastname}, $sr{firstname} ($sr{studnum}) | \n};
print qq{enrol | $date |
\n};
$studtrans{$refid} = 1;
$wr->startTag('SL_EventObject',
'ObjectName' => 'StudentSchoolEnrollment',
'Action' => 'Add');
$seiHashRef = {'MembershipType' => 'Base',
'EntryType' => $code,
'EntryDate' => $date,
'Grade' => $sr{grade},
'PrevProv' => '',
'PrevCountry' => '',
'ExitType' => '', 'ExitDate' => '' };
# 'ImmersionType' => "$sr{immersion_type}",
# 'TuitionType' => $sr{tuition_status},
# 'TuitionLength' => $sr{tuition_duration},
# 'TuitionCollected' => $sr{tuition_collect},
# 'TuitionExchangeProgram' => $sr{tuition_program}
# };
$refid = $sr{studnum}; # Student #
$wr->startTag('StudentSchoolEnrollment', RefId=>$refid);
mkStudentIdentification($provnum, $sr{birthdate} ); # pass provnum and bdate
# mkStudentInfo( $ref ); # ref to %sr
$wr->dataElement('SchoolId',$schoolnumber); # from admin.conf file.
mySchoolEnrollmentInfo( $seiHashRef );
# if ( not $sr{program} ){ # program field empty
# $myprog = $program; # from admin.conf
# } else {
# $myprog = $sr{program};
# }
# $wr->dataElement('DeptAssignedProgramId',$myprog);
# mkProgramEnrollmentInfo("$currdate");
$wr->endTag('StudentSchoolEnrollment');
$wr->endTag('SL_EventObject');
} # End of prRecord
#----------------
sub parseResponse {
#----------------
# parse response from Sask Ed, display errors (if any), update provnum in
# student table, print to error logs.
# Parse the response.
my $parser = XML::LibXML->new();
eval {$doc = $parser->parse_string($res->content)};
if ($@){
print qq{Sask Ed Error:\n$@
} ,$res->content, qq{
\n};
print qq{