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

\n"; print "

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

\n"; # Start Form print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ( $arr{waitlist} ) { print "\n"; } elsif ( $arr{prereg} ) { print "\n"; } else { print "\n"; } print "\n"; print "$lex{Enrollment} $lex{Date}\n"; print "\n"; print " "; print "[ $lex{Bold} = $lex{'Required Field'} ]\n"; print "\n"; # Read in Template unless (open ( FH,"<../../template/student.tpl")) { print "$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 = "$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 qw( 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,"\n"; if ( $arr{waitlist} ) { print "\n"; } elsif ( $arr{prereg} ) { print "\n"; } else { print "\n"; } print "\n"; print "\n"; print "\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 '

'. $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 "\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 "\n"; } # End of Loop print "

"; print "

\n"; exit; } # end of showCloneResults #--------------- sub enrolStudent { # called by page == 3, in withdrawal table somewhere. #--------------- # a) check transfer for existing transfer on this same day error. # b) check for duplicate student number and use next available one. # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } 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 '

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

\n"; print "\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"; # Now check for duplicates! (in case of installation mistakes) $sth = $dbh->prepare("select count(*) from student where studnum = ?"); my $done = 0; while ( not $done ) { print "

$lex{'Duplicate Check'}: $studentnum

\n"; $sth->execute( $studentnum ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr \n";} my $count = $sth->fetchrow; if ( $count > 0 ) { $studentnum++; # try next number } else { $done = 1; } } # Add new, nonduplicate number to the student hash. $student{studnum} = $studentnum; $studnum = $studentnum; # needed for transfer record # Write next available student number into the file $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"; } # 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 "Insert Fields: $fields Values: $values
\n"; my $sth = $dbh->prepare("insert into student ( $fields ) values( $values )"); $sth->execute; if ( $DBI::errstr) { print "

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

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

$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 "

$lex{Delete} $lex{Withdrawn} $lex{Student} $lex{Error}:"; print "$lex{Contact} $adminname "; print "[ $adminemail
\n"; print "$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 "

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

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

[ $lex{Main} ]

\n"; print "\n"; exit; } # end of enrolStudent #---------------- sub showStartPage { #---------------- print "

\n"; print "\n"; print "\n"; # Lastname print "\n"; print "\n"; # Firstname print "\n"; print "\n"; # Birthdate print "\n"; print "\n"; print "\n"; # Provincial Number print "\n"; print "\n"; # Treaty Number print "\n"; print "\n"; print "\n"; print "\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 "

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

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

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

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

$lex{Missing} $lex{Birthdate}

\n"; print "\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 "$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 "$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 "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 "

$lex{Current} $lex{Students}

\n"; if ( %currstudents ) { # print table header. print "

$lex{Student} $lex{Last} $lex{Name}
$lex{Student} $lex{First} $lex{Name}
$lex{Student} $lex{Birthdate}
	$lex{yymmdd} $lex{or} $lex{'yyyy-mm-dd'}
$lex{Provincial} $lex{Education} $lex{Number} ($lex{Optional})
$lex{Treaty} $lex{Number} ($lex{Optional})

\n"; print "\n"; print "\n"; print "\n"; } else { print "

$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 "\n"; print "\n"; print "\n"; print "\n"; } # close tables, and stop if found if ( %currstudents ) { print "

$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 "\n"; exit; # stop here for current students } print "

\n"; # Withdrawn Students Section print "

$lex{Withdrawn} $lex{Students}

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

$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 "\n"; print "\n"; print "\n"; print "\n"; } my $wdfound; # found withdrawn students flag; if ( %wdstudents ) { print "

$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 " \n"; print "\n"; print "\n"; print " \n"; print "

\n"; $wdfound = 1; } print "

\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 ) { 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 and $provnum ){ $sth->execute( $provnum ); } elsif ( $idx == 5 and $treaty ){ $sth->execute( $treaty ); } while ( my $studnum = $sth->fetchrow ) { $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; # print "$firstname $lastname ( $studnum ) Select:$select[$idx]
\n"; $otherstudents{"$lastname$firstname$database$studnum"} = "$database:$studnum"; } } } # end of database loop print "

$lex{Other} $lex{School}

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

$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 "\n"; print "\n"; print "\n"; } # Table footer. my $otherfound; if ( %otherstudents ) { # other students found print "

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

\n"; $otherfound = 1; } print "

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

$lex{'New Student'}

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

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

\n"; print "\n"; exit; } #--------------- sub confirmEnrol { # called by page == 2 #--------------- # foreach my $key (keys %arr ) { print "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 "Mode:wd
\n"; } else { # a different school $db = $mode; $mode = 'other'; # print "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 "

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

$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; } print "\n"; print "\n"; print "\n"; if ( $mode ne 'new' ) { # then we have this data too. print "\n"; print "\n"; } # Start Form print "\n"; print "\n"; my $page; if ( $mode eq 'new' ) { $page = 4; # new Student Entry page (also prereg/clone) print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } else { $page = 3; # enrolStudent (ie. Done!) } print "\n"; # Enrol Date print "\n\n"; # Enrol Reason print "\n"; print "\n"; print ""; print "\n"; print "\n"; print "\n"; print "\n\n"; if ( $mode eq 'new' ) { # add in preregistration or clone option. print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; print "

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

\n"; print "\n"; print "\n"; exit; } # end of confirmEnrol

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

$lex{Enrol} $lex{Student}

$lex{Error} $lex{'Student Number'} $lex{Exists}: $studentnum "; # print "$lex{Contact}: $adminname

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

=> $lex{'Pre-Registration'}

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

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

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

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

$lex{Insert} $lex{Transfer} $lex{Error}:"; print "$lex{Contact} $adminname "; print "[ $adminemail
\n"; print "$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'}

$lex{Other} $lex{School}

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

$lex{'New Student'}

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

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

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

$lex{Enrol} $lex{Student}

$lex{Error} $lex{'Student Number'} $lex{Exists}: $studentnum "; # print "$lex{Contact}: $adminname

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

=> $lex{'Pre-Registration'}

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

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

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

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

$lex{Insert} $lex{Transfer} $lex{Error}:"; print "$lex{Contact} $adminname "; print "[ $adminemail\n"; print "$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'}

$lex{Other} $lex{School}

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

$lex{'New Student'}

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

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

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

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

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