$lex{Error}: $DBI::errstr
\n}; print qq{$lex{Contact}:$adminname [ }; print qq{$adminemail ]

\n}; print qq{

\n}; print qq{$lex{'Tab Key'}=$lex{'Next Field'}\n}; print qq{$lex{'Shift+Tab'}=$lex{'Previous Field'}\n}; print qq{$lex{'Space Bar'}=$lex{'Select'}\n}; print qq{

\n}; # Start Form print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; if ( $arr{waitlist} ) { print qq{

\n}; } elsif ( $arr{prereg} ) { print qq{

\n}; } else { print qq{

\n}; } print qq{

\n}; print qq{$lex{Enrollment} $lex{Date}\n}; print qq{\n}; print qq{}; print qq{[ $lex{Bold} = $lex{'Required Field'} ]

\n}; print qq{\n}; # Read in Template unless (open ( FH,"<../../template/student.tpl")) { print qq{$lex{'Cannot open'} $lex{Template}: $!\n}; die "$lex{'Cannot open'} $lex{Template}: $!\n"; } my $formtext; { local $/; $formtext = ; close FH;} # Create meta hash - %fields fieldid => fieldname my $sth = $dbh->prepare("select fieldid, fieldname, required from meta where tableid = 'student'"); # order doesn't matter. $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my %fieldnames; while ( my ( $fieldid, $fieldname, $required ) = $sth->fetchrow ) { if ( $required ) { # has any value $fieldname = qq{$fieldname}; } $fieldnames{$fieldid} = $fieldname; } # Now put replacement fieldnames back in. $formtext =~ s{\<\*(.*?)\*\>} { exists( $fieldnames{$1} ) ? $fieldnames{$1} : $1 }gsex; # Find all fields , so we only wrap forms around them (typically # faster than doing all fields in the table ) my @fields; while ( $formtext =~ m/\<\@(.*)\@\>/g){ push @fields, $1; } # Now find the table to pull values out of, if cloning. my %rec; if ( $arr{clonestudnum} ) { # get the table to clone foreach my $tab ('student','studentwd','prereg') { $sth = $dbh->prepare("select * from $tab where studnum = ?"); $sth->execute( $arr{clonestudnum} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $hashref = $sth->fetchrow_hashref; if ( $hashref ) { %rec = %$hashref; last } } $rec{studnum} = ''; $rec{password} = ''; $rec{healthid} = ''; } # Put in passed values. $rec{treaty} = $arr{treaty}; $rec{provnum} = $arr{provnum}; $rec{lastname} = $arr{lastname}; $rec{firstname} = $arr{firstname}; $rec{birthdate} = $arr{birthdate}; # we now have any field values in %rec hash. # Now set password using config values at top of script, and admin.conf my $pwd = word( $g_studentpwd_minlen, $g_studentpwd_maxlen, $g_studentpwd_lang, $g_studentpwd_signs, $g_studentpwd_caps, $g_studentpwd_minfreq, $g_studentpwd_avgfreq ); $rec{password} = $pwd; # get replacement values for fields, %rec holds values my %values; foreach my $fieldid ( @fields ) { $values{$fieldid} = metaInputField( 'student', $fieldid, $rec{ $fieldid }, $dbh,'' ); } # now put field values back into $text variable... $formtext =~ s{ \<\@(.*?)\@\> } { exists($values{$1}) ? $values{$1} : "$values{$1}-$1" }gsex; print $formtext, qq{\n}; # Add Medical Options here....extract these fields before saving print qq{\n}; print qq{\n}; foreach my $medcount (1..3) { print qq{\n}; } # Close medical table print qq{

Medical Information
}; # Show Category print qq{ $medcount. Medical Category \n}; print qq{\n}; # New Category print qq{ $lex{or} New Category }; print qq{ \n}; # Get Description print qq{ Description \n}; print qq{}; print qq{$description

\n\n}; if ( $arr{waitlist} ) { print qq{
\n}; print qq{\n}; } elsif ( $arr{prereg} ) { print qq{
\n}; print qq{\n}; } else { print qq{
\n}; print qq{\n}; } print qq{\n}; print qq{\n}; print qq{\n}; exit; } # end of newStudent #------------------- sub showCloneResults { #------------------- my $student = shift; my @tables = qw( student studentwd prereg ); my @students = (); my $sth; foreach my $table ( @tables ) { # Setup the Search if ($student =~ /\d+/) { # we have a student number $sth = $dbh->prepare("select studnum, lastname, firstname from $table where studnum = ?"); $sth->execute( $student ); } else { # we have words hopefully with a comma ($lastname,$firstname) = split(/\,/, $student); $firstname =~ s/^\s*//; $lastname =~ s/^\s*//; if ($lastname and $firstname){ # both entered. $sth = $dbh->prepare("select studnum, lastname, firstname from $table where lastname = ? and firstname = ?"); $sth->execute( $lastname, $firstname ); } elsif ( $lastname and not $firstname ){ # only lastname (no comma) if (length($lastname) == 2){ # search by initials: fi, li. $fi = substr($lastname,0,1). '%'; $li = substr($lastname,1,1). '%'; $sth = $dbh->prepare("select studnum, lastname, firstname from $table where lastname $sql{like} ? and firstname $sql{like} ?"); $sth->execute( $li, $fi ); } else { $sth = $dbh->prepare("select studnum, lastname, firstname from $table where lastname = ? order by firstname"); $sth->execute( $lastname ); } } } # End of Words while ( my ( $studnum, $lastname, $firstname ) = $sth->fetchrow ) { if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } push @students, "$studnum:$table"; } } # next table. if ( not @students ) { print qq{

$lex{'No Student(s) Found'}

\n}; # No closing body since this goes right on to input form. return; } delete $arr{clone}; # remove so will correctly load on looping... print qq{\n}; # Loop through and display all records. for my $rec ( @students ) { my ( $studnum, $table ) = split(/:/, $rec ); $sth = $dbh->prepare("select lastname, firstname from $table where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth->fetchrow; print qq{\n}; } # End of Loop print qq{

}; print qq{

\n}; exit; } # end of showCloneResults #--------------- sub enrolStudent { #--------------- # called by page == 3, in withdrawal table at some school (or here). # Previously enrolled. # a) check transfer for existing transfer on this same day error. # b) check for duplicate student number and use next available one. # c) Check that enrollment date is not on a weekend. # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Check for weekend enrollment date, and fail if so. use Time::JulianDay; my $jd = julian_day( split('-', $arr{date})); my $dow = day_of_week($jd); if ( $dow == 0 or $dow == 6 ) { # Sunday=0, Sat=6, Error print qq{

Enrollment on a weekend not allowed!

\n}; print qq{\n}; exit; } # Check for closed date. my $sth = $dbh->prepare("select * from dates where date = ?"); $sth->execute( $arr{date} ); my $ref = $sth->fetchrow_hashref; my %d = %$ref; if ( $d{dayfraction} > 0.99 ) { print qq{

Enrollment on a closed date not allowed!

\n}; print qq{\n}; exit; } my ($db, $studnum ) = split(':', $arr{studkey} ); my %student; my $rows; if ( $db eq 'wd' ) { # get student from studentwd table my $sth = $dbh->prepare("select * from studentwd where studnum = ?"); $sth->execute( $studnum ); $rows = $sth->rows; my $ref = $sth->fetchrow_hashref; %student = %$ref; } else { # get student from other school database my $dsn1 = "DBI:$dbtype:dbname=$db"; my $dbh1 = DBI->connect($dsn1,$guser,$gpassword); my $sth = $dbh1->prepare("select * from studentwd where studnum = ?"); $sth->execute( $studnum ); $rows = $sth->rows; my $ref = $sth->fetchrow_hashref; %student = %$ref; } if ( $rows < 1 ) { #Error! print qq{

$lex{'No Student(s) Found'}!

\n}; print qq{\n}; exit; } delete $student{studid}; # not wanted in new table # Check for an existing student number and use next available number if found. my $currstudnum = $student{studnum}; # LOGIC: If student is currently in withdrawn, we check student # table only for duplicates (since record is IN # withdrawn). Otherwise we check for duplicates in studentall my $table = 'studentall'; if ( $db eq 'wd' ) { $table = 'student'; } $sth = $dbh->prepare("select count(*) from $table where studnum = ?"); $sth->execute( $currstudnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $studcount = $sth->fetchrow; if ( $studcount > 0 ) { # we have an existing local student number, get a new number from file. # Get Student number and update file. sysopen (SNUM, "../../etc/studentnumber", O_RDWR | O_CREAT) or die "$lex{'Cannot open'} student number file\n"; flock(SNUM,LOCK_EX); $studentnum = || 0; chomp $studentnum; seek(SNUM,0,0) or die "Cannot rewind student number file: $!\n"; truncate(SNUM,0) or die "Cannot truncate student number file'}: $!\n"; my $newstudentnum = $studentnum + 1; print SNUM $newstudentnum or die "Cannot write to student number file: $!\n"; close SNUM or die "Cannot close student number file: $! \n"; my $sth = $dbh->prepare("select count(*) from student where studnum = ?"); $sth->execute( $studentnum ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr \n";} my $count = $sth->fetchrow; if ( $count ) { # we have an existing record with this studnum print qq{

Duplicate Student Number. Contact Les Richardson

\n}; print qq{\n}; exit; } # Add new, nonduplicate number to the student hash. $student{studnum} = $studentnum; $studnum = $studentnum; # needed for transfer record } # Create @fields storing fieldid values. my @fields; $sth = $dbh->prepare("select fieldid from meta where tableid = 'student' order by arrayidx"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} while (my $fld = $sth->fetchrow){ push @fields,$fld; } my @values; my @fieldnames; foreach my $fld ( @fields ) { if ( $student{$fld} ) { # if we have a value push @fieldnames, $fld; push @values, $dbh->quote( $student{$fld} ); } } my $fields = join(',', @fieldnames ); my $values = join(',', @values ); # print qq{Insert Fields: $fields Values: $values
\n}; my $sth = $dbh->prepare("insert into student ( $fields ) values( $values )"); $sth->execute; if ( $DBI::errstr) { print qq{

$lex{Insert} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

\n}; die "$lex{Error}:$self: $DBI::errstr\n"; } print qq{

$lex{Withdrawn} $lex{Student} -> $lex{Student}

\n}; # Now remove record from withdrawn student table (if local enrollment) if ( $db eq 'wd' ) { $sth = $dbh->prepare("delete from studentwd where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr) { print qq{

$lex{Delete} $lex{Withdrawn} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

\n}; die "$lex{Delete} $lex{Withdrawn} $lex{Student} $lex{Error}:$self: $DBI::errstr\n"; } } # Now Add the Transfer Record # First, get student info from normal student table. $sth = $dbh->prepare("select * from student where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %stud = %$ref; $sth = $dbh->prepare("insert into transfer ( studnum, date, type, description, entrytype, prov, country, lastname, firstname, middlename, birthdate, provnum ) values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )"); $sth->execute( $studnum, $arr{date}, 'enrol', $arr{description}, $arr{entrytype}, $arr{prov}, $arr{country}, $stud{lastname}, $stud{firstname}, $stud{initial}, $stud{birthdate}, $stud{provnum} ); if ( $DBI::errstr ) { print qq{

$lex{Insert} $lex{Transfer} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

\n}; die "$lex{Insert} $lex{Transfer} $lex{Error}:$self: $DBI::errstr\n"; } # Get studid field from student table. # Link to Edit Student Record print qq{\n}; # Link to Main Page print qq{

[ $lex{Main} ]

\n}; print qq{\n}; exit; } # end of enrolStudent (previously enrolled here or another school). #---------------- sub showStartPage { #---------------- print qq{\n}; exit; } # end of showStartPage #-------------- sub findStudent { # called by page == 1 #-------------- my $studnum; if ( $arr{lastname} =~ m/^\d+$/ ) { # it matches digits only $studnum = $arr{lastname}; # Search Local Withdrawn only my $sth = $dbh->prepare("select lastname, firstname, birthdate from studentwd where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $birthdate ) = $sth->fetchrow; $arr{lastname} = $lastname; $arr{firstname} = $firstname; $arr{birthdate} = $birthdate; } # Check for filled in values if ( not $arr{lastname} ) { print qq{

$lex{Missing} $lex{Last} $lex{Name}

\n}; print qq{\n}; exit; } elsif ( not $arr{firstname} ) { print qq{

$lex{Missing} $lex{First} $lex{Name}

\n}; print qq{\n}; exit; } elsif ( not $arr{birthdate} ) { print qq{

$lex{Missing} $lex{Birthdate}

\n}; print qq{\n}; exit; } # Parse birthdate my $birthdate; if ( length( $arr{birthdate} ) == 6 ) { #yymmdd format. my $yr = substr( $arr{birthdate},0,2); if ( $yr > 50 ) { $yr = '19'. $yr; } else { $year = '20' .$yr;} my $mo = substr( $arr{birthdate},2,2); my $da = substr( $arr{birthdate},4,2); $birthdate = "$yr-$mo-$da"; #print qq{$arr{birthdate} - Y:$yr M:$mo D:$da
\n}; } else { my ( $yr, $mo, $da ) = split(/-/, $arr{birthdate}); if ( length($yr) == 2 ) { #fix it if ( $yr > 50 ) { $yr = '19'. $yr; } else { $year = '20' .$yr; } } $birthdate = "$yr-$mo-$da"; #print qq{$arr{birthdate} - Y:$yr M:$mo D:$da
\n}; } my $firstname = $arr{firstname}; my $lastname = $arr{lastname}; my $provnum = $arr{provnum}; my $treaty = $arr{treaty}; # print qq{LN:$lastname FN:$firstname BD:$birthdate
\n}; # Setup the selects my @select; $select[1] = 'where lastname = ? and firstname = ?'; $select[2] = 'where lastname = ? and birthdate = ?'; $select[3] = 'where firstname = ? and birthdate = ?'; $select[4] = 'where provnum = ?'; $select[5] = 'where treaty = ?'; # Prepare Name, etc. search my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); # Check the current and withdrawn student table my %wdstudents; my %currstudents; for my $idx ( 1 .. 5 ) { my $sth = $dbh->prepare("select studnum from studentwd $select[$idx] "); my $sth2 = $dbh->prepare("select studnum from student $select[$idx] "); if ( $idx == 1 ){ $sth->execute( $lastname, $firstname ); $sth2->execute( $lastname, $firstname ); } elsif ( $idx == 2 ){ $sth->execute( $lastname, $birthdate ); $sth2->execute( $lastname, $birthdate ); } elsif ( $idx == 3 ){ $sth->execute( $firstname, $birthdate ); $sth2->execute( $firstname, $birthdate ); } elsif ( $idx == 4 ){ if ( not $provnum ) { next; } $sth->execute( $provnum ); $sth2->execute( $provnum ); } elsif ( $idx == 5 ){ if ( not $treaty ) { next; } $sth->execute( $treaty ); $sth2->execute( $treaty ); } # Withdrawn Students while ( my $studnum = $sth->fetchrow ) { $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; $wdstudents{"$lastname$firstname$studnum"} = $studnum; } # Current Students while ( my $studnum = $sth2->fetchrow ) { $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; $currstudents{"$lastname$firstname$studnum"} = $studnum; } } # reset this for more fields. $sth1 = $dbh->prepare("select lastname, firstname, birthdate, provnum, treaty, grade, homeroom from studentall where studnum = ?"); # Print Current Students, if any print qq{

$lex{Current} $lex{Students}

\n}; if ( %currstudents ) { # print table header. print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } else { print qq{

$lex{'No Student(s) Found'}

\n}; } # Print Current Students Found. foreach my $key ( sort keys %currstudents ) { my $studnum = $currstudents{ $key }; $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $birthdate, $provnum, $treaty, $grade, $homeroom ) = $sth1->fetchrow; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } # close tables, and stop if found if ( %currstudents ) { print qq{

$lex{Name}	$lex{Birthdate}	$lex{ProvNum}	$lex{Grade}	$lex{Homeroom}	$lex{Treaty}	$lex{Source}
$firstname $lastname ($studnum)	$birthdate	$provnum	$grade	$homeroom	$treaty	$lex{Enrolled}

\n}; print qq{\n}; exit; # stop here for current students } print qq{

\n}; # Withdrawn Students Section print qq{

$lex{Withdrawn} $lex{Students}

\n}; if ( %wdstudents ) { # Print Table Header. print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } else { print qq{

$lex{'No Student(s) Found'}

\n}; } # Print Withdrawn Students Found. foreach my $key ( sort keys %wdstudents ) { my $studnum = $wdstudents{ $key }; $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $birthdate, $provnum, $treaty, $grade, $homeroom ) = $sth1->fetchrow; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } my $wdfound; # found withdrawn students flag; if ( %wdstudents ) { print qq{

$lex{Name}	$lex{Birthdate}	$lex{ProvNum}	$lex{Grade}	$lex{Homeroom}	$lex{Treaty}	$lex{Source}
$firstname $lastname ($studnum)	$birthdate	$provnum	$grade	$homeroom	$treaty	$lex{Withdrawn}	\n}; print qq{ \n}; print qq{\n}; print qq{\n}; print qq{ \n}; print qq{

\n}; $wdfound = 1; } print qq{

\n}; # Remote Student Search my %otherstudents; foreach $database ( keys %dbase ) { #defined in global config file. if ( $database eq $dbase ) { next; } # skip current database. my $dsn1 = "DBI:$dbtype:dbname=$database"; my $dbh1 = DBI->connect($dsn1,$guser,$gpassword); my $sth1 = $dbh1->prepare("select lastname, firstname from studentall where studnum = ?"); for my $idx ( 1 .. 5 ) { # print qq{Database:$database IDX:$idx Select:$select[$idx]
\n}; my $sth = $dbh1->prepare("select studnum from studentwd $select[$idx] "); if ( $idx == 1 ){ $sth->execute( $lastname, $firstname ); } elsif ( $idx == 2 ){ $sth->execute( $lastname, $birthdate ); } elsif ( $idx == 3 ){ $sth->execute( $firstname, $birthdate ); } elsif ( $idx == 4 ){ if ( not $provnum ) { next; } $sth->execute( $provnum ); } elsif ( $idx == 5 ){ if ( not $treaty ) { next; } $sth->execute( $treaty ); } else { #error! print qq{

Error: Missing Database Execute. Contact Les Richardson\n}; print qq{IDX:$idx

\n}; print qq{\n}; exit; } while ( my $studnum = $sth->fetchrow ) { $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; # print qq{$firstname $lastname ( $studnum ) Select:$select[$idx]
\n}; $otherstudents{"$lastname$firstname$database$studnum"} = "$database:$studnum"; } } } # end of database loop print qq{

$lex{Other} $lex{School}

\n}; if ( %otherstudents ) { # print table heading print qq{\n}; print qq{\n}; print qq{\n}; } else { print qq{

$lex{'No Student(s) Found'}

\n}; } foreach my $key ( sort keys %otherstudents ) { my ($db, $studnum) = split(/:/, $otherstudents{ $key }); my $dsn1 = "DBI:$dbtype:dbname=$db"; my $dbh1 = DBI->connect($dsn1,$guser,$gpassword); my $sth1 = $dbh1->prepare("select lastname, firstname, birthdate, provnum, treaty from studentall where studnum = ?"); $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $birthdate, $provnum, $treaty ) = $sth1->fetchrow; print qq{\n}; print qq{\n}; print qq{\n}; } # Table footer. my $otherfound; if ( %otherstudents ) { # other students found print qq{

$lex{Name}	$lex{Birthdate}	$lex{ProvNum}	$lex{Treaty}	$lex{Source}
$firstname $lastname ($studnum)	$birthdate	$provnum	$treaty	$db	\n}; print qq{ \n}; print qq{\n}; #foreach my $key ( sort keys %arr ) { # print qq{\n}; #} print qq{\n}; print qq{ \n}; print qq{

\n}; $otherfound = 1; } print qq{

\n}; # End of remote student search. # Stop here if found in withdrawn.... # if ( $otherfound or $wdfound ) { # stop if either local or other students found. if ( $wdfound ) { # stop if either local or other students found. print qq{\n}; exit; } # New Student Entry print qq{

$lex{'New Student'}

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{

$lex{Name}	$lex{Birthdate}	$lex{ProvNum}	$lex{Treaty}	$lex{Source}
$firstname $lastname	$birthdate	$provnum	$treaty	New	\n}; print qq{ \n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{ \n}; print qq{

\n}; print qq{\n}; exit; } #--------------- sub confirmEnrol { # called by page == 2 #--------------- # foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my ($mode, $studnum) = split(':', $arr{studkey}); my ($lastname, $firstname, $birthdate, $grade, $homeroom ); my $db; if ( $mode eq 'new' ) { $firstname = $arr{firstname}; $lastname = $arr{lastname}; $birthdate = $arr{birthdate}; } elsif ( $mode eq 'wd' ) { # print qq{Mode:wd
\n}; } else { # a different school $db = $mode; $mode = 'other'; # print qq{Mode:$mode
\n}; } # Get current date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = "$year-$month-$day"; # Load global codes if ( not -e "$globdir/global.conf" ) { print qq{

$lex{'Cannot open'} global.conf file!}; print qq{\n}; exit; } # Read the global enrol/withdraw reasons. eval { require "$globdir/global.conf"; }; if ( $@ ) { print qq{

$lex{'Cannot open'} global.conf:\n $@

\n}; die $lex{'Cannot open'}. " global.conf: $@\n"; } # If wd mode, read the student data. if ( $mode eq 'wd' ) { $sth = $dbh->prepare("select lastname, firstname, birthdate, grade, homeroom from studentwd where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } ($lastname, $firstname, $birthdate, $grade, $homeroom ) = $sth->fetchrow; } elsif ( $mode eq 'other' ) { my $dsn1 = "DBI:$dbtype:dbname=$db"; my $dbh1 = DBI->connect($dsn1,$guser,$gpassword); my $sth = $dbh1->prepare("select lastname, firstname, birthdate, grade, homeroom from studentwd where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } ($lastname, $firstname, $birthdate, $grade, $homeroom ) = $sth->fetchrow; } # Start Form print qq{

\n}; print qq{\n}; my $page; if ( $mode eq 'new' ) { $page = 4; # new Student Entry page (also prereg/clone) print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } else { $page = 3; # enrolStudent (ie. Done!) save previous enrolled student from wd or other school. } print qq{\n}; # Start Table print qq{\n}; print qq{\n}; print qq{\n}; if ( $mode ne 'new' ) { # then we have this data too. print qq{\n}; print qq{\n}; } # Enrol Date print qq{\n\n}; # Enrol Reason print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n\n}; if ( $mode eq 'new' ) { # add in preregistration or clone option. print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{\n}; print qq{

$lex{Name}	$firstname $lastname
$lex{Birthdate}	$birthdate
$lex{Grade}	$grade
$lex{Homeroom}	$homeroom
$lex{Enrol} $lex{Date}	}; print qq{\n}; print qq{\n}; print qq{
$lex{Enrol} $lex{Reason}
$lex{Province} $lex{Code}	}; print qq{ $lex{Transfer} -> $lex{Province}
$lex{Country} $lex{Code}	}; print qq{ $lex{Transfer} -> $lex{Country}
$lex{Description}	}; print qq{
$lex{'Pre-Registration'} $lex{Entry}
$lex{'Waiting List'} $lex{Entry}
$lex{Clone} $lex{Student}	\n}; print qq{$lex{'Last,First/Last/Initials/Studnum'} }; print qq{

\n}; print qq{\n}; print qq{\n}; exit; } # end of confirmEnrol

$lex{Last} $lex{Name}
Or local student number ONLY
$lex{First} $lex{Name}
$lex{Birthdate}
	$lex{yymmdd} $lex{or} $lex{'yyyy-mm-dd'}
$lex{Provincial} $lex{Number} ($lex{Optional})
$lex{Treaty} (IRS) $lex{Number} ($lex{Optional})

". $lex{'Cannot open'}. " global.conf:\n $@

$lex{Enrol} $lex{Student}

Duplicate Student Number. Contact Les Richardson

$lex{Error} $lex{Student} $lex{Exists}: }; print qq{$arr{firstname} $arr{lastname} ($arr{birthdate})

$lex{'Record(s) Stored'} - $lex{'Student Number'}}; print qq{ $studentnum

=> $lex{'Pre-Registration'}

Enrollment on a weekend not allowed!

Enrollment on a closed date not allowed!

$lex{'No Student(s) Found'}

Enrollment on a weekend not allowed!

Enrollment on a closed date not allowed!

$lex{'No Student(s) Found'}!

Duplicate Student Number. Contact Les Richardson

$lex{Insert} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Withdrawn} $lex{Student} -> $lex{Student}

$lex{Delete} $lex{Withdrawn} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Insert} $lex{Transfer} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Missing} $lex{Last} $lex{Name}

$lex{Missing} $lex{First} $lex{Name}

$lex{Missing} $lex{Birthdate}

$lex{Current} $lex{Students}

$lex{'No Student(s) Found'}

$lex{Withdrawn} $lex{Students}

$lex{'No Student(s) Found'}

Error: Missing Database Execute. Contact Les Richardson\n}; print qq{IDX:$idx

$lex{Other} $lex{School}

$lex{'No Student(s) Found'}

$lex{'New Student'}

$lex{'Cannot open'} global.conf file!}; print qq{\n}; exit; } # Read the global enrol/withdraw reasons. eval { require "$globdir/global.conf"; }; if ( $@ ) { print qq{

$lex{'Cannot open'} global.conf:\n $@

". $lex{'Cannot open'}. " global.conf:\n $@

$lex{Enrol} $lex{Student}

Duplicate Student Number. Contact Les Richardson

$lex{Error} $lex{Student} $lex{Exists}: }; print qq{$arr{firstname} $arr{lastname} ($arr{birthdate})

$lex{'Record(s) Stored'} - $lex{'Student Number'}}; print qq{ $studentnum

=> $lex{'Pre-Registration'}

Enrollment on a weekend not allowed!

Enrollment on a closed date not allowed!

$lex{'No Student(s) Found'}

Enrollment on a weekend not allowed!

Enrollment on a closed date not allowed!

$lex{'No Student(s) Found'}!

Duplicate Student Number. Contact Les Richardson

$lex{Insert} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Withdrawn} $lex{Student} -> $lex{Student}

$lex{Delete} $lex{Withdrawn} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Insert} $lex{Transfer} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Missing} $lex{Last} $lex{Name}

$lex{Missing} $lex{First} $lex{Name}

$lex{Missing} $lex{Birthdate}

$lex{Current} $lex{Students}

$lex{'No Student(s) Found'}

$lex{Withdrawn} $lex{Students}

$lex{'No Student(s) Found'}

Error: Missing Database Execute. Contact Les Richardson\n}; print qq{IDX:$idx

$lex{Other} $lex{School}

$lex{'No Student(s) Found'}

$lex{'New Student'}

$lex{'Cannot open'} global.conf file!}; print qq{\n}; exit; } # Read the global enrol/withdraw reasons. eval { require "$globdir/global.conf"; }; if ( $@ ) { print qq{

$lex{'Cannot open'} global.conf:\n $@

$lex{Insert} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Delete} $lex{Withdrawn} $lex{Student} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr

$lex{Insert} $lex{Transfer} $lex{Error}:}; print qq{$lex{Contact} $adminname }; print qq{[ $adminemail
\n}; print qq{$lex{Error}:$DBI::errstr