#!/usr/local/bin/perl $DEBUG = 0; require 5.004; use CGI qw / -no_debug :all -oldstyle_urls /; use CGI::Carp 'fatalsToBrowser'; use File::Copy; $CGI::POST_MAX = 1024 * 100; $CGI::DISABLE_UPLOADS = 1; use CGI; $query = new CGI; use Fcntl; use FileHandle; use DB_File; use Time::localtime; sub LOCK_SH { 1 } sub LOCK_EX { 2 } sub LOCK_NB { 4 } sub LOCK_UN { 8 } $top_url = "http://www.languagehouse.pl/panel"; $exec_dir = "/cgi-local/panel"; # /home/lhsc/ftp/ # /home/home/public_html/ $PLIK_NEWS_WWW_DLA_UCZNIOW = '../../obsluga/dane/news_panel_www_uczniowie.txt'; $PLIK_NEWS_WWW_DLA_NAUCZYCIELI = '../../obsluga/dane/news_panel_www_nauczyciele.txt'; $PLIK_NAUCZYCIELE = '../../obsluga/dane/nauczyciele.txt'; # setup environment $ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin"; $ENV{'LC_ALL'} = "pl_PL.ISO8859-2"; # setlocale use POSIX qw/locale_h/; setlocale(LC_CTYPE, "pl_PL"); setlocale(LC_COLLATE, "pl_PL"); use locale; print "Content-type: text/html\n\n"; ######################## MAIN %in = (); #&ReadParse(*in); $REMOTE_ADDR = $ENV{'REMOTE_ADDR'}; foreach $key ( keys %in) { $in{$key} = &clean_str($in{$key}); # $in{$key} = &escape_HTML($in{$key}); } $USER_ID = $in{'uid'} || &generuj_id(); # start HTML STDOUT->autoflush(0); if ( $DEBUG ) { foreach $key ( keys %in) { print "$key=$in{$key}
"; } } # ====== $status_hasla ="NO"; #hasło OK lub NO $kom =$query->param(kom); $id_tmp =$query->param(id_tmp); #$id =$query->param(id); $login =$query->param(login); $password =$query->param(password); $rodzaj =$query->param(rodzaj); $id_nauczyciela =$query->param(id_nauczyciela); $status_hasla =$query->param(status_hasla); # ====== #print $kom; if ($kom eq "zmien_haslo_panel") { $id =$query->param(id_ucznia); &zmien_haslo_panel($id); exit; } if ($kom eq "kontakt") { $id =$query->param(id_ucznia); &kontakt; exit; } #if ($kom eq "pogotowie") { # $id =$query->param(id); # &pogotowie(); #exit; #} if ($kom eq "wyslij") { $id =$query->param(id); $opis_problemu =$query->param(opis_problemu); $temat =$query->param(temat); &wyslij; exit; } # ---- if (!$login) { &password(); &druk_end_html; exit; } # ---- #--- czytaj czy hasło OK --- if ($login) { # tu zapisz do LOGU $PLIK_LOGOW = '/obsluga/raporty/raport_panel_studenta.txt'; open (FILE, ">>$PLIK_LOGOW"); flock FILE, LOCK_EX; my $dzisiaj = &get_datestr(time) . " " . &get_timestr(time); print FILE "$dzisiaj#$login#$password#\n"; close FILE; # --- open (HASLO, "/obsluga/dane/passwords.txt"); flock HASLO, LOCK_EX; @haslo=; close HASLO; if ($login =~ / / ) { &koniec;} if ($login =~ / / ) { &koniec;} if ($login =~ /\\/ ) { &koniec;} if ($login =~ /\'/ ) { &koniec;} if ($login =~ /\"/ ) { &koniec;} if ($login =~ /\(/ ) { &koniec;} if ($login =~ /\)/ ) { &koniec;} if ($login =~ /\{/ ) { &koniec;} if ($login =~ /\}/ ) { &koniec;} if ($login =~ /\]/ ) { &koniec;} if ($login =~ /\[/ ) { &koniec;} if ($login =~ / / ) { &koniec;} # unless ($login =~ /^[a-z]{1}.[a-z-]+$/ ) { &koniec;} #to jak była pierwsza litera + . foreach $x (@haslo) { @pole=split("\#",$x); my $id_osoby =$pole[1]; my $login_osoby =$pole[2]; my $haslo_osoby =$pole[3]; my $imie_osoby =$pole[4]; my $nazwisko_osoby =$pole[5]; my $rodzaj_osoby =$pole[6]; #kurs/nauczyciel/indywidualne if ($login eq "$login_osoby") { if ($password eq "$haslo_osoby") { $id =$id_osoby; $rodzaj =$rodzaj_osoby; $status_hasla ="OK"; #hasło OK } } } if ($status_hasla ne "OK") { &koniec; } } # ---- sub wyslij { if ($temat eq "Wpisz temat zapytania") { print " WYSŁANO "; print "
"; print "Podaj temat zapytania - cofnij."; print ""; print ""; exit; } if ($opis_problemu eq "Tu opisz problem...") { print " WYSŁANO "; print "
"; print "Opisz problem - cofnij."; print ""; print ""; exit; } $SENDMAIL="/usr/sbin/sendmail"; $from ="biuro\@languagehouse.pl"; $to ="rabramek\@poczta.fm"; $subject="Pogotowie językowe - $temat"; $body ="Temat: \n"; $body .="$temat \n"; $body .="-------------------------- \n"; $body .="Opis problemu: \n"; $body .="$opis_problemu \n"; $body .="-------------------------- \n"; $body .="ID Studenta: $id \n"; &wyslij_plain($from, $to, $subject, $body); &wyslij_plain($from, "biuro\@languagehouse.pl", $subject, $body); print " WYSŁANO "; print "
"; print "POGOTOWIE JĘZYKOWE"; print ""; print ""; print ""; print ""; print ""; print ""; print "
 
Twoja wiadomość została wysłana.
Odpowiedź otrzymasz niebeawem na stronach panelu studenta w sekcji \"pogotowie językowe\".
Dziękujemy.
"; print ""; print ""; } # ---- sub wyslij_plain { my ( $from, $to, $subject, $body ) = @_; unless( open( MAIL, "|$SENDMAIL -t -f $from $to" ) ) { return 0; } print MAIL "From: $from\n"; print MAIL "To: $to\n"; print MAIL "Errors-To: $from\n"; print MAIL "Return-Path: $from\n"; print MAIL "Replay-To: $from\n"; print MAIL "X-Priority: 1\n"; print MAIL "Subject: $subject\n"; print MAIL "Content-Type: text/plain; charset=ISO-8859-2\n"; print MAIL "Content-Transfer-Encoding: 8bit\n"; print MAIL "\n\n$body\n"; close MAIL; return 1; } #-- sub kontakt { print " KONTAKT "; print "
"; print "KONTAKT"; print ""; print ""; #print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
$info
 
LanguageHouse Szkoła Języków Obcych
34-400 Nowy Targ, ul. Krzywa 18D,
DH Krokus, II piętro
tel./faks 018 264 88 68, kom. 0510 40 50 70
 
email: biuro\@languagehouse.pl
 
Skype: languagehouse
 
"; print ""; print ""; } # --------- sub zmien_haslo_panel { my ( $id ) = @_ ; #$rodzaj =$query->param(rodzaj); $stare_haslo =$query->param(stare_haslo); $nowe_haslo_1 =$query->param(nowe_haslo_1); $nowe_haslo_2 =$query->param(nowe_haslo_2); #print "$id"; open (HASLO, "/obsluga/dane/passwords.txt"); flock HASLO, LOCK_EX; @haslo=; close HASLO; if ($nowe_haslo_1 ne $nowe_haslo_2) {&info("Wpisano różne hasła."); exit;} if (!$nowe_haslo_1) {&info("Złe hasło"); exit;} if (!$nowe_haslo_2) {&info("Złe hasło"); exit;} if ($nowe_haslo_1 =~ /\#/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} if ($nowe_haslo_1 =~ /\*/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} if ($nowe_haslo_1 =~ /\"/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} if ($nowe_haslo_1 =~ /\'/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} if ($nowe_haslo_1 =~ /\~/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} if ($nowe_haslo_1 =~ /\`/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} if ($nowe_haslo_1 =~ /\@/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} unless ($nowe_haslo_1 =~ /^[a-zA-Z0-9]*$/) {&info("Niedozwolony znak w haśle. Hasło nie zostało zmienione.", "Hasło powinno zawierać tylko znaki alfanumeryczne a-z A-Z 0-9.
Uwaga! Małe i duże litery w haś są rozróżnialne."); exit;} sub info { my ($info, $info2)=@_; print " HASŁO"; print ""; print ""; print "
"; print "ZMIANA HASŁA"; print ""; print ""; print ""; print ""; print ""; print "
$info
 
$info2
"; print ""; } #unless ($nowe_haslo_1 =~ /[0-9A-Za-z].*/ ) { #{print "kicha4"; exit;} #} #if ($nowe_haslo_1 !=~ /[a-zA-Z0-9] /) {print "kicha4"; exit;} #unless ($nowe_haslo_1 =~ / /) {print "kicha5"; exit;} foreach $haslo (@haslo) { @pole_haslo=split("\#",$haslo); my $nr = $pole_haslo[0]; my $id_tmp = $pole_haslo[1]; my $login = $pole_haslo[2]; my $password = $pole_haslo[3]; my $imie = $pole_haslo[4]; my $nazwisko = $pole_haslo[5]; my $rodzaj = $pole_haslo[6]; if ($id_tmp eq $id) { open (HASLO, ">>/obsluga/dane/passwords.tmp"); flock HASLO, LOCK_EX; if ($stare_haslo eq $password) { print HASLO "$nr#$id_tmp#$login#$nowe_haslo_1#$imie#$nazwisko#$rodzaj#\n"; &info("Hasło zostało zmienione."); # print "Hasło zostało zmienione."; } else { &info("Złe hasło"); print HASLO "$nr#$id_tmp#$login#$password#$imie#$nazwisko#$rodzaj#\n"; } close HASLO; } else { open (HASLO, ">>/obsluga/dane/passwords.tmp"); flock HASLO, LOCK_EX; print HASLO "$nr#$id_tmp#$login#$password#$imie#$nazwisko#$rodzaj#\n"; #print "$nr#$id_tmp#$login#$password#$imie#$nazwisko#$rodzaj#\n
"; close HASLO; } #} } unlink("/obsluga/dane/passwords.txt"); $oldlocation = "/obsluga/dane/passwords.tmp"; $newlocation = "/obsluga/dane/passwords.txt"; move($oldlocation, $newlocation) or die "File cannot be movied."; } # --------- sub koniec { print " PANEL LanguageHouse "; print "
"; print "
"; print "
"; print "
PANEL LanguageHouse
"; print "
"; print ""; print "
"; print "
"; print ""; print " "; print "
Login:
Hasło:
  ZALOGUJ \<\" class=\"test2\">
"; print ""; print "
"; print ""; print "
"; print "
"; print "
"; print "

Zły login lub hasło

Jeżeli nie znasz loginu lub hasła zadzwoń: 018 264 88 68
"; print "
"; print "
"; print " "; } #---- if ($rodzaj eq "kurs") { &generuj_zmiana_hasla_html(); &generuj_pogotowie_html(); &generuj_panel_index_html(); &generuj_panel_left_html(); &generuj_panel_main_html(); &generuj_panel_top_html(); &generuj_dane_html(); #&generuj_slownik_html(); &generuj_biblioteka_html(); &generuj_frekwencja_html(); &generuj_zadania_html(); &generuj_platnosci_html(); &generuj_raport_html(); &generuj_matura_html(); if ($id) { open (FILE, "/panel/panel_index_$id_tmp.html") or die "Nie mogę otworzyć pliku"; #: $! ../../panel/panel_index_$id_tmp.html"; flock FILE, LOCK_EX; @dane=; close FILE; foreach $x (@dane) { print "$x"; } exit; } &druk_end_html; exit 0; } #---- if ($rodzaj eq "indywidualne") { &generuj_zmiana_hasla_html(); &generuj_pogotowie_html(); &generuj_panel_index_html(); &generuj_panel_left_html(); &generuj_panel_main_html(); &generuj_panel_top_html(); &generuj_dane_html(); #&generuj_slownik_html(); &generuj_biblioteka_html(); &generuj_frekwencja_html(); &generuj_zadania_html(); &generuj_platnosci_html(); &generuj_raport_html(); &generuj_matura_html(); if ($id) { open (FILE, "/panel/panel_index_$id_tmp.html") or die "Nie mogę otworzyć pliku"; #: $! ../../panel/panel_index_$id_tmp.html"; flock FILE, LOCK_EX; @dane=; close FILE; foreach $x (@dane) { print "$x"; } exit; } &druk_end_html; exit 0; } #---- if ($rodzaj eq "nauczyciel") { if ($kom eq "zapisz") { &zapisz_do_pliku_raporty(); } if ($kom eq "akceptacja") { &akceptacja_raportow(); } &generuj_panel_index_nauczyciel_html(); &generuj_panel_left_nauczyciel_html(); &generuj_panel_main_nauczyciel_html(); &generuj_panel_top_nauczyciel_html(); &generuj_raporty_nauczyciel_html(); if ($id) { open (FILE, "/panel/panel_index_nauczyciel_$id_tmp.html") or die "Nie mogę otworzyć pliku: $! ../../panel/panel_index_nauczyciel_$id_tmp.html"; flock FILE, LOCK_EX; @dane=; close FILE; foreach $x (@dane) { print "$x"; } exit; } &druk_end_html; exit 0; } exit; ############## ############## PANEL UCZNIOWIE #################################### ############## # ------- # ------ sub generuj_pogotowie_html { open (FILE, ">../../panel/pogotowie_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/pogotowie_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " POGOTOWIE JĘZYKOWE "; print FILE "
"; print FILE "POGOTOWIE JĘZYKOWE"; print FILE ""; print FILE ""; #print ""; print FILE ""; print FILE ""; print FILE ""; print FILE " "; print FILE ""; print FILE "
$info
 
Jeżeli masz problem językowy, z którym nie możesz sobie poradzić...
Napisz do naszych lektorów!
WYŚLIJ \<\" class=\"test2\">
"; print FILE ""; print FILE ""; close FILE; } sub generuj_zmiana_hasla_html { open (FILE, ">../../panel/zmiana_hasla_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/zmiana_hasla_$id_tmp.html"; flock FILE, LOCK_EX; #&akceptacja_raportow # $id_ucznia =$query->param(id_ucznia); # $id_nauczyciela =$query->param(id_nauczyciela); print FILE " PANEL LanguageHouse "; print FILE "
"; print FILE "ZMIANA HASŁA"; #print FILE ""; $liczba_obecnosci=$liczba_obecnosci+$liczba_godzin; } else { if ($liczba_godzin == 0) { # zajęcia odwołane $do_pliku .= ""; } else { $do_pliku .= ""; } } $do_pliku .= ""; } $do_pliku .= "
"; print FILE "
"; print FILE ""; print FILE ""; print FILE " "; print FILE "
Stare hasło:
Nowe hasło:
Powtórz nowe hasło:
  ZMIEŃ \<\" class=\"test2\">
"; print FILE "
"; print FILE "
"; print FILE "
"; open (HASLO, "/obsluga/dane/passwords.txt"); flock HASLO, LOCK_EX; @haslo=; close HASLO; # if ($login =~ / / ) { &koniec;} # if ($login =~ / / ) { &koniec;} # if ($login =~ /\\/ ) { &koniec;} # if ($login =~ /\'/ ) { &koniec;} # if ($login =~ /\"/ ) { &koniec;} # if ($login =~ /\(/ ) { &koniec;} # if ($login =~ /\)/ ) { &koniec;} # if ($login =~ /\{/ ) { &koniec;} # if ($login =~ /\}/ ) { &koniec;} # if ($login =~ /\]/ ) { &koniec;} # if ($login =~ /\[/ ) { &koniec;} # if ($login =~ / / ) { &koniec;} # unless ($login =~ /^[a-z]{1}.[a-z-]+$/ ) { &koniec;} # foreach $x (@haslo) { # @pole=split("\#",$x); # # my $id_osoby =$pole[1]; # my $login_osoby =$pole[2]; # my $haslo_osoby =$pole[3]; # my $imie_osoby =$pole[4]; # my $nazwisko_osoby =$pole[5]; # my $rodzaj_osoby =$pole[6]; #kurs/nauczyciel/indywidualne # if ($login eq "$login_osoby") { # if ($password eq "$haslo_osoby") { # $id =$id_osoby; # $rodzaj =$rodzaj_osoby; # $status_hasla ="OK"; #hasło OK # } # } # } close FILE; } # ------- # -------------------------- sub generuj_raport_html { #&generuj_menu(); #$id =$query->param(id); open (FILE, ">../../panel/raport_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/raport_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " RAPORT "; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia : $id
"; if ($id_ucznia eq "$id") { # print FILE ""; # print FILE ""; # print FILE "
"; # print FILE "$imie_ucznia $nazwisko_ucznia"; # print FILE "
"; $uczen = "$nazwisko_ucznia $imie_ucznia"; $id_ucznia2 = $id_ucznia; } } close FILE1; print FILE "
"; print FILE "RAPORT SEMESTRALNY"; # czytam treść raportu open (RAPORT, "../../panel/raporty_semestralne/raporty_2021.txt") or die "Nie mogę otworzyć pliku: ../../panel/raporty_semestralne/raporty_2021.txt"; flock RAPORT, LOCK_EX; @raporty=; close RAPORT; foreach $x2 (@raporty) { @rap=split("\#",$x2); $id = $rap[1]; # print FILE "$pole1[1] : $id
"; #print FILE ""; #print FILE ""; if ($id_ucznia2 eq $rap[1]) { # if ($pole[6] eq "$id") { print FILE "
"; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE "
Gramatyka$rap[4]
Słownictwo$rap[5]
Wymowa$rap[6]
Motywacja$rap[7]
Zadania domowe$rap[8]
"; print FILE "
"; print FILE ""; # print FILE ""; print FILE ""; print FILE ""; open (FILE2, "$PLIK_NAUCZYCIELE") or die "Nie mogę otworzyć pliku: $PLIK_NAUCZYCIELE"; flock FILE2, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id =$pole1[0]; if ($id eq $rap[0]) { $imie_nauczyciel =$pole1[2]; $nazwisko_nauczyciel =$pole1[1]; } } close FILE2; print FILE ""; print FILE "
Komentarz
$rap[9]
Lektor: $imie_nauczyciel $nazwisko_nauczyciel
"; } } print FILE ""; print FILE ""; print FILE "
Skala ocen: A (bardzo dobry), B (dobry), C (mogłoby być lepiej), D (trzeba popracować), ZW (zadania zawsze wykonywane), NW (zadania nie zawsze wykonywane), RZ (zadania rzadko wykonywane).
"; close FILE; if ($rodzaj eq "indywidualne") { unlink "../../panel/raport_$id_tmp.html"; open (FILE, ">../../panel/raport_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/raport_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " RAPORT "; print FILE "
"; print FILE "RAPORT SEMESTRALNY"; print FILE "
W przypadku zajęć w trybie indywidualnym raport semestralny nie jest wykonywany.
"; print FILE "Wszelkie informacje odnośnie postępów w nauce można uzyskać u lektora prowadzącego.
"; close FILE; } } # -------------------------- sub generuj_matura_html { #&generuj_menu(); #$id =$query->param(id); open (FILE, ">../../panel/matura_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/matura_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " MATURA 2008 "; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia : $id
"; if ($id_ucznia eq "$id") { # print FILE ""; # print FILE ""; # print FILE "
"; # print FILE "$imie_ucznia $nazwisko_ucznia"; # print FILE "
"; $uczen = "$nazwisko_ucznia $imie_ucznia"; $id_ucznia2 = $id_ucznia; } } close FILE1; print FILE "
"; print FILE "MATURA 2008"; } # -------------------------- sub generuj_platnosci_html { #&generuj_menu(); #$id =$query->param(id); open (FILE, ">../../panel/platnosci_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/platnosci_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " PŁATNOŚCI "; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia : $id
"; if ($id_ucznia eq "$id") { # print FILE ""; # print FILE ""; # print FILE "
"; # print FILE "$imie_ucznia $nazwisko_ucznia"; # print FILE "
"; $uczen = "$nazwisko_ucznia $imie_ucznia"; } } close FILE1; print FILE "
"; print FILE "ZESTAWIENIE PŁATNOŚCI"; open (FILE1, "../../obsluga/dane/przychody.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/przychody.txt"; flock FILE1, LOCK_EX; @dane=; close FILE1; print FILE ""; print FILE ""; foreach $x (@dane) { @pole=split("\#",$x); # if ($uczen eq $pole[6]) { #print FILE "$id $uczen
"; # if ($pole[6] =~ /"$id_ucznia"/) { if ($pole[6] eq "$id $uczen") { $data =$pole[3]; my $rok=$pole[12]; my $miesiac=$pole[13]; unless (($rok >= 2008 && $miesiac >= 8) || ($rok >= 2009 && $miesiac <= 9)) { #jezeli data powyzej wrzesnia 2006 i poniżej wrzesnia 2007 next; } $fv =$pole[8]; $kwota =$pole[5]; $suma_kwot =sprintf("%.2f", $suma_kwot+$kwota); $rodzaj_platnosci =$pole[11]; #wplyw_kasa print FILE ""; if ($rodzaj eq "indywidualne") { print FILE ""; } else { print FILE ""; } print FILE ""; if ($rodzaj_platnosci eq "wplyw_kasa") { print FILE ""; } if ($rodzaj_platnosci eq "wplyw_mbank") { print FILE ""; } } } print FILE ""; print FILE " "; print FILE "
Data płatności
 Nr faktury
 Kwota
  
$data$fvFV $fv$kwotagotówkaprzelew
  Razem: $suma_kwot  
"; # ------------- open (FILE2, "../../obsluga/dane/raty.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/raty.txt"; flock FILE2, LOCK_EX; @dane2=; close FILE2; foreach $x2 (@dane2) { @pole3=split("\#",$x2); my $id_ucznia_tmp =$pole3[0]; if ($pole3[0] eq $id) { $rata_1 =$pole3[3]; $rata_2 =$pole3[4]; $rata_3 =$pole3[5]; $rata_4 =$pole3[6]; $rata_5 =$pole3[7]; $rata_6 =$pole3[8]; $rata_7 =$pole3[9]; $rata_8 =$pole3[10]; $suma =$pole3[11]; $rabat =$pole3[12]; $data_1 =$pole3[13]; $data_2 =$pole3[14]; $data_3 =$pole3[15]; $data_4 =$pole3[16]; $data_5 =$pole3[17]; $data_6 =$pole3[18]; $data_7 =$pole3[19]; $data_8 =$pole3[20]; #13 data_1 print FILE "
"; print FILE "ZESTAWIENIE RAT"; print FILE ""; print FILE " "; print FILE " "; print FILE " "; print FILE " "; print FILE " "; print FILE " "; print FILE " "; print FILE " "; print FILE " "; print FILE " "; $razem=sprintf("%.2f", $suma-$rabat); print FILE " "; $pozostalo=sprintf("%.2f", $razem-$suma_kwot); #print FILE " # # # # #"; print FILE "
Rata
 Termin płatności
 Kwota
  
RATA I $data_1 $rata_1  
RATA II $data_2 $rata_2  
RATA III $data_3 $rata_3  
RATA IV $data_4 $rata_4  
RATA V $data_5 $rata_5  
RATA VI $data_6 $rata_6  
RATA VII $data_7 $rata_7  
RATA VIII $data_8 $rata_8  
Rabat: $rabat  
Razem: $razem  
 Do zapłaty pozostało:$pozostalo 
"; print FILE ""; print FILE " "; print FILE " "; print FILE "
  Do zapłaty pozostało: $pozostalo  
"; print FILE ""; print FILE ""; print FILE ""; } } #print FILE ""; } # ============= # -------------------------- # -------------------------- sub generuj_zadania_html { #&generuj_menu(); #$id =$query->param(id); open (FILE, ">../../panel/zadania_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/zadania_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " ZADANIA "; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia : $id
"; if ($id_ucznia eq "$id") { # print FILE "
 
Płatności można dokonać osobiście w siedzibie Szkoły
lub przelewem na konto nr: mBank 50 1140 2004 0000 3902 3890 3329
"; # print FILE ""; # print FILE "
"; # print FILE "$imie_ucznia $nazwisko_ucznia"; # print FILE "
"; $uczen = "$nazwisko_ucznia $imie_ucznia"; $id_ucznia_2 = $id; } } close FILE1; print FILE "
"; print FILE "ZADANIA WYKONANE"; # ---- przeniesione ze szkola.pl # w której jest grupie open (FILE8, "../../obsluga/dane/kursy.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/kursy.txt"; flock FILE8, LOCK_EX; @dane8=; close FILE8; foreach $x8 (@dane8) { @pole=split("\#",$x8); my $grupa =$pole[4]; my $numer_grupy =$pole[22]; if (!-e "../../obsluga/dane/$grupa.txt") {next;} open (FILE10, "../../obsluga/dane/$grupa.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/$grupa.txt"; flock FILE10, LOCK_EX; @dane10=; close FILE10; foreach $x10 (@dane10) { @pole10=split("\#",$x10); if ($id eq $pole10[0]) { # print FILE "$grupa"; $nazwa_grupy_ucznia ="$grupa"; } } } open (FILE9, "../../obsluga/dane/zadania.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/zadania.txt"; flock FILE9, LOCK_EX; @dane=; close FILE9; foreach $x (@dane) { @pole=split("\#",$x); my $id =$pole[0]; #ID zadania my $nazwa_podrecznika =$pole[1]; my $nr_testu =$pole[2]; my $jezyk_testu =$pole[3]; my $data_rozdania =$pole[4]; my $sprawnosc_1_nazwa =$pole[5]; my $sprawnosc_1_ilosc_punktow =$pole[6]; my $sprawnosc_2_nazwa =$pole[7]; my $sprawnosc_2_ilosc_punktow =$pole[8]; my $sprawnosc_3_nazwa =$pole[9]; my $sprawnosc_3_ilosc_punktow =$pole[10]; my $sprawnosc_4_nazwa =$pole[11]; my $sprawnosc_4_ilosc_punktow =$pole[12]; my $sprawnosc_5_nazwa =$pole[13]; my $sprawnosc_5_ilosc_punktow =$pole[14]; my $sprawnosc_6_nazwa =$pole[15]; my $sprawnosc_6_ilosc_punktow =$pole[16]; my $nr_grupy =$pole[17]; my $nazwa_grupy =$pole[18]; if ($nazwa_grupy_ucznia eq $nazwa_grupy) { $grupa = $nazwa_grupy_ucznia; $lp2=0; open (FILE1, "../../obsluga/dane/$grupa.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/$grupa.txt"; flock FILE1, LOCK_EX; @dane1=; close FILE1; foreach $x1 (@dane1) { @pole1=split("\#",$x1); #sprawdż czy już wykonał open (FILE2, "../../obsluga/dane/$grupa\_zadania.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/$grupa\_zadania.txt"; flock FILE2, LOCK_EX; @dane2=; close FILE2; foreach $x2 (@dane2) { @pole2=split("\#",$x2); if ($id eq $pole2[0] && $pole1[0] eq $pole2[6]) { $status_zadania="OK"; # jeżeli zrobił już to zadania last; } else {$status_zadania="NO";} } if ($status_zadania ne "OK") { my $id_ucznia=$pole1[0]; open (FILE3, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE3, LOCK_EX; @dane3=; close FILE3; foreach $x3 (@dane3) { @pole3=split("\#",$x3); if ($id_ucznia eq $pole3[0]) { $status=$pole3[17]; } } if ($status eq "aktywny") { $lp2=$lp2+1; } } } } } # print FILE "
Zadania wykonane
 
"; # print FILE ""; #print "$id_ucznia_2
"; #print "$id"; print FILE "
"; print FILE ""; # print FILE ""; # print FILE ""; if (-e "../../obsluga/dane/$grupa\_zadania.txt") { open (FILE1, "../../obsluga/dane/$grupa\_zadania.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/$grupa\_zadania.txt"; flock FILE1, LOCK_EX; @dane1=; close FILE1; my $liczba_godzin=0; foreach $x1 (@dane1) { @pole1=split("\#",$x1); $lp=$lp+1; if ($id_ucznia_2 eq $pole1[6]) { print FILE ""; print FILE ""; $procent =sprintf("%0d", $pole1[11]*100/$pole1[12]); $dopelnienie =100-$procent; print FILE ""; $procent =sprintf("%0d", $pole1[14]*100/$pole1[15]); $dopelnienie =100-$procent; print FILE ""; $procent =sprintf("%0d", $pole1[17]*100/$pole1[18]); $dopelnienie =100-$procent; print FILE ""; $procent =sprintf("%0d", $pole1[20]*100/$pole1[21]); $dopelnienie =100-$procent; print FILE ""; $procent =sprintf("%0d", $pole1[23]*100/$pole1[24]); $dopelnienie =100-$procent; print FILE ""; $procent =sprintf("%0d", $pole1[26]*100/$pole1[27]); $dopelnienie =100-$procent; print FILE ""; } $liczba_godzin=$liczba_godzin+$pole1[4]; } print FILE "
$pole1[7] $pole1[8]
UczeńZadanieData zwrotuWyniki
$pole1[7]$pole1[8]
  
$pole1[10]$pole1[11]/$pole1[12] $procent\%
$pole1[13]$pole1[14]/$pole1[15] $procent\%
$pole1[16]$pole1[17]/$pole1[18] $procent\%
$pole1[19]$pole1[20]/$pole1[21] $procent\%
$pole1[22]$pole1[23]/$pole1[24] $procent\%
$pole1[25]$pole1[26]/$pole1[27] $procent\%
"; } close FILE; if ($rodzaj eq "indywidualne") { unlink "../../panel/zadania_$id_tmp.html"; open (FILE, ">../../panel/zadania_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/zadania_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " ZADANIA "; print FILE "
"; print FILE "ZADANIA"; print FILE "
W przypadku zajęć w trybie indywidualnym wykonywanie zadań nie jest monitorowane.
"; # print FILE "Wszelkie informacje odnośnie postępów w nauce można uzyskać u lektora prowadzącego.
"; close FILE; } } # -------------------------- # -------------------------- sub generuj_frekwencja_html { #&generuj_menu(); #$id =$query->param(id); $do_pliku =""; $do_pliku_1 =""; $do_pliku_2 =""; unlink "../../panel/frekwencja_$id_tmp.html"; open (FILE, ">../../panel/frekwencja_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/frekwencja_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " FREKWENCJA "; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia : $id
"; if ($id_ucznia eq "$id") { # print FILE ""; # print FILE ""; # print FILE "
"; # print FILE "$imie_ucznia $nazwisko_ucznia"; # print FILE "
"; $uczen = "$nazwisko_ucznia $imie_ucznia"; } } close FILE1; if ($rodzaj eq "indywidualne") { #open (FILE, ">../../panel/frekwencja_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/frekwencja_$id_tmp.html"; #flock FILE, LOCK_EX; # open (FILE, ">../../panel/raport_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/raport_$id_tmp.html"; # flock FILE, LOCK_EX; print FILE "
"; print FILE "FREKWENCJA"; if (!-e "../../obsluga/dane/indywidualne/$id\_tematy.txt") {next;} open (FILE2, "../../obsluga/dane/indywidualne/$id\_tematy.txt") or die "Nie mogę otworzyć pliku."; flock FILE2, LOCK_EX; @dane2=; close FILE2; $do_pliku .= ""; $do_pliku .= ""; my $liczba_obecnosci=0; my $liczba_zajec=0; foreach $x2 (@dane2) { @pole2=split("\#",$x2); my $data =$pole2[1]; my $temat =$pole2[2]; my $liczba_godzin =$pole2[3]; $liczba_zajec=$liczba_zajec+$liczba_godzin; #--- # $do_pliku .= "
Data
 Temat zajęć
  
"; $do_pliku .= ""; } $do_pliku .= ""; $do_pliku .= ""; $do_pliku .= "
$data $temat $liczba_godzin\h
Liczba godzin wykonanych: $liczba_zajec\h
"; print FILE $do_pliku; } if ($rodzaj eq "kurs") { print FILE "
"; print FILE "FREKWENCJA*"; open (FILE11, "../../obsluga/dane/kursy.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/kursy.txt"; flock FILE11, LOCK_EX; @dane=; close FILE11; foreach $x (@dane) { @pole=split("\#",$x); my $grupa =$pole[4]; my $liczba_godzin =$pole[5]; my $nauczyciel_1 =$pole[6]; my $nauczyciel_2 =$pole[7]; my $nauczyciel_3 =$pole[8]; my $zajecia_1 =$pole[9]; my $godzina_1 =$pole[10]; my $zajecia_2 =$pole[12]; my $godzina_2 =$pole[13]; my $zajecia_3 =$pole[15]; my $godzina_3 =$pole[16]; my $sala_1 =$pole[18]; my $sala_2 =$pole[19]; my $sala_3 =$pole[20]; my $nr_grupy =$pole[21]; if (!-e "../../obsluga/dane/$grupa.txt") {next;} open (FILE1, "../../obsluga/dane/$grupa.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/$grupa.txt"; flock FILE1, LOCK_EX; @dane1=; close FILE1; foreach $x1 (@dane1) { @pole1=split("\#",$x1); if ($id eq $pole1[0]) { # print "$grupa
"; # print FILE "grupa $pole1[2]
 
"; if (!-e "../../obsluga/dane/$grupa\_tematy.txt") {next;} open (FILE2, "../../obsluga/dane/$grupa\_tematy.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/$grupa\_tematy.txt"; flock FILE2, LOCK_EX; @dane2=; close FILE2; $do_pliku .= ""; $do_pliku .= ""; my $liczba_obecnosci=0; my $liczba_zajec=0; foreach $x2 (@dane2) { @pole2=split("\#",$x2); my $data =$pole2[2]; my $temat =$pole2[3]; my $liczba_godzin =$pole2[4]; $liczba_zajec=$liczba_zajec+$liczba_godzin; #--- # $do_pliku .= "
Data
 Temat zajęć
  
  
"; $do_pliku .= ""; # $do_pliku .= "
$data $temat $liczba_godzin\h
"; # --- if ($id eq $pole2[5] || $id eq $pole2[6] || $id eq $pole2[7] || $id eq $pole2[8] ||$id eq $pole2[9] || $id eq $pole2[10] || $id eq $pole2[11] || $id eq $pole2[12] || $id eq $pole2[13] || $id eq $pole2[14]) { $do_pliku .= "		OBECNY NIEOBECNY
"; $do_pliku .= "
 
"; $do_pliku_1 .= ""; $do_pliku_1 .= ""; $do_pliku_1 .= ""; $do_pliku_1 .= ""; $do_pliku_1 .= ""; if ($liczba_zajec != 0 && $liczba_obecnosci != 0) { my $frekwencja= ($liczba_obecnosci*100)/$liczba_zajec; } $frekwencja = sprintf("%02d", $frekwencja); $do_pliku_1 .= ""; $do_pliku_1 .= ""; # $do_pliku_1 .= ""; # $do_pliku_1 .= ""; # $do_pliku_1 .= ""; # $do_pliku_1 .= ""; $do_pliku_1 .= "
Grupa:$grupa
Liczba godzin wykonanych: $liczba_zajec
Liczba obecności: $liczba_obecnosci
Frekwencja: $frekwencja\%
*Uwaga! Frekwencja liczona jest od łącznej liczby zajęć w danej grupie.
W przypadku zmiany grupy lub rozpoczęcia uczęszczania na zajęcia w trakcie roku szkolnego frekwencja nie uwzględnia zmian.
Kurs:
 
$zajecia_1$godzina_1 $sala_1
$zajecia_2$godzina_2 $sala_2
$zajecia_3$godzina_3 $sala_3
"; # $do_pliku_1 .= "Grupa: $pole1[2]
"; # $do_pliku_1 .= "Liczba godzin wykonanych: $liczba_zajec
"; # $do_pliku_1 .= "Liczba obecności: $liczba_obecnosci
"; # $do_pliku_1 .= "Frekwencja: $frekwencja\%
"; # $do_pliku_1 .= "Kurs: $zajecia_1 $godzina_1
"; # $do_pliku_1 .= "$zajecia_2 $godzina_2
"; } } } print FILE $do_pliku_1; print FILE $do_pliku; close FILE; } } # -------------------------- sub generuj_biblioteka_html { #&generuj_menu(); #$id =$query->param(id); open (FILE, ">../../panel/biblioteka_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/biblioteka_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " BIBLIOTEKA "; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia : $id
"; if ($id_ucznia eq "$id") { # print FILE ""; # print FILE ""; # print FILE "
"; # print FILE "$imie_ucznia $nazwisko_ucznia"; # print FILE "
"; $uczen = "$nazwisko_ucznia $imie_ucznia"; } } close FILE1; print FILE "
"; print FILE "BIBLIOTEKA [ pozycje wypożyczone ]"; # czytaj plik biblioteka open (FILE2, "../../obsluga/dane/biblioteka.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/biblioteka.txt"; flock FILE2, LOCK_EX; @dane2=; my $trafienie=0; foreach $x2 (@dane2) { @pole2=split("\#",$x2); #my $uczen =$pole2[10]; # nazwisko + imie my $nazwisko_imie_ucznia =$pole2[10]; my $nr =$pole2[0]; my $isbn =$pole2[1]; my $autor =$pole2[3]; my $tytul =$pole2[4]; my $pozyczono =$pole2[11]; if ($uczen eq "$nazwisko_imie_ucznia") { # pole 10 = imię i nazwisko ucznia #--- $trafienie=1; #ycz ma wypożyczone 1= ma; 0 nie ma print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE "
Autor:$autor
Tytuł:$tytul
Nr biblioteczny:$nr
ISBN:$isbn
Data wypożyczenia:$pozyczono
  
"; } } if ($trafienie == 0) { print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE "
BRAK WYPOŻYCZONYCH POZYCJI
  
"; } close FILE2; print FILE $do_pliku_2; close FILE; close FILE1; } #} # -------------------------- sub generuj_dane_html { #&generuj_menu(); open (FILE, ">../../panel/dane_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/dane_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " DANE "; print FILE "
"; print FILE "TWOJE DANE"; open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia $id
"; if ($id_ucznia eq "$id") { # print FILE ""; # print FILE ""; # print FILE "
"; # print FILE "$imie_ucznia $nazwisko_ucznia"; # print FILE "
"; #---- print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; print FILE "
Słuchacz:$imie_ucznia $nazwisko_ucznia
  
Opiekun:$imie_opiekun $nazwisko_opiekun
Firma:$nazwa_firmy
Ulica, miejscowość:$ulica, $miejscowosc
Poczta:$kod_pocztowy $poczta
Telefon:$tel_dom
Tel. kom.:$tel_kom
E-mail:$e_mail
  
Kurs:$rodzaj_zajec $jezyk $rodzaj_kursu
Nazwa grupy:$grupa
Zajęcia:$zajecia
  
"; print FILE ""; print FILE ""; print FILE ""; } } close FILE1; print FILE ""; close FILE; } # ------------------------------------------------------- # ------------------------------------------------------- sub generuj_panel_top_html { &generuj_newsy_z_pliku(); # ------------------------------ # generowanie newsu sub generuj_newsy_z_pliku { $news=""; $PLIK_NEWS = '../../obsluga/dane/news_panel_uczniowie.txt'; open (FILE2, "$PLIK_NEWS") or die "Nie mogę otworzyć pliku: $PLIK_NEWS"; flock FILE2, LOCK_EX; @dane2=; $licznik=0; foreach $x2 (@dane2) { #glowna petla foreach @pole2=split("\#",$x2); # $news .="pausecontent[$licznik]='$pole2[2] $pole2[3]
$pole2[4]'\n"; $news .="pausecontent[$licznik]='$pole2[3]
$pole2[4]'\n"; $licznik=$licznik+1; } close FILE2; } # ------------------------------ open (FILE, ">../../panel/panel_top_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_top_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " TOP "; print FILE < /*Example CSS for the two demo scrollers*/ #pscroller1{ width: 100%; height: 74px; border: 0px; padding-right: 10px; padding-left: 5px; padding-top: 5px; padding-bottom: 5px; background-color: #FFFFFF; } #pscroller2{ width: 100%; height: 90px; border: 0px solid black; padding: 5px; background-color: red; color: white; } #pscroller2 a{ text-decoration: none; } KONIEC ; print FILE "\n"; print FILE "\n"; print FILE < /*********************************************** * Pausing up-down scroller- Š Dynamic Drive (www.dynamicdrive.com) * This notice MUST stay intact for legal use * Visit http://www.dynamicdrive.com/ for this script and 100s more. ***********************************************/ function pausescroller(content, divId, divClass, delay){ this.content=content //message array content this.tickerid=divId //ID of ticker div to display information this.delay=delay //Delay between msg change, in miliseconds. this.mouseoverBol=0 //Boolean to indicate whether mouse is currently over scroller (and pause it if it is) this.hiddendivpointer=1 //index of message array for hidden div document.write('
'+content[0]+'
') var scrollerinstance=this if (window.addEventListener) //run onload in DOM2 browsers window.addEventListener("load", function(){scrollerinstance.initialize()}, false) else if (window.attachEvent) //run onload in IE5.5+ window.attachEvent("onload", function(){scrollerinstance.initialize()}) else if (document.getElementById) //if legacy DOM browsers, just start scroller after 0.5 sec setTimeout(function(){scrollerinstance.initialize()}, 500) } // ------------------------------------------------------------------- // initialize()- Initialize scroller method. // -Get div objects, set initial positions, start up down animation // ------------------------------------------------------------------- pausescroller.prototype.initialize=function(){ this.tickerdiv=document.getElementById(this.tickerid) this.visiblediv=document.getElementById(this.tickerid+"1") this.hiddendiv=document.getElementById(this.tickerid+"2") this.visibledivtop=parseInt(pausescroller.getCSSpadding(this.tickerdiv)) //set width of inner DIVs to outer DIV's width minus padding (padding assumed to be top padding x 2) this.visiblediv.style.width=this.hiddendiv.style.width=this.tickerdiv.offsetWidth-(this.visibledivtop*2)+"px" this.getinline(this.visiblediv, this.hiddendiv) this.hiddendiv.style.visibility="visible" var scrollerinstance=this document.getElementById(this.tickerid).onmouseover=function(){scrollerinstance.mouseoverBol=1} document.getElementById(this.tickerid).onmouseout=function(){scrollerinstance.mouseoverBol=0} if (window.attachEvent) //Clean up loose references in IE window.attachEvent("onunload", function(){scrollerinstance.tickerdiv.onmouseover=scrollerinstance.tickerdiv.onmouseout=null}) setTimeout(function(){scrollerinstance.animateup()}, this.delay) } // ------------------------------------------------------------------- // animateup()- Move the two inner divs of the scroller up and in sync // ------------------------------------------------------------------- pausescroller.prototype.animateup=function(){ var scrollerinstance=this if (parseInt(this.hiddendiv.style.top)>(this.visibledivtop+5)){ this.visiblediv.style.top=parseInt(this.visiblediv.style.top)-5+"px" this.hiddendiv.style.top=parseInt(this.hiddendiv.style.top)-5+"px" setTimeout(function(){scrollerinstance.animateup()}, 50) } else{ this.getinline(this.hiddendiv, this.visiblediv) this.swapdivs() setTimeout(function(){scrollerinstance.setmessage()}, this.delay) } } // ------------------------------------------------------------------- // swapdivs()- Swap between which is the visible and which is the hidden div // ------------------------------------------------------------------- pausescroller.prototype.swapdivs=function(){ var tempcontainer=this.visiblediv this.visiblediv=this.hiddendiv this.hiddendiv=tempcontainer } pausescroller.prototype.getinline=function(div1, div2){ div1.style.top=this.visibledivtop+"px" div2.style.top=Math.max(div1.parentNode.offsetHeight, div1.offsetHeight)+"px" } // ------------------------------------------------------------------- // setmessage()- Populate the hidden div with the next message before it's visible // ------------------------------------------------------------------- pausescroller.prototype.setmessage=function(){ var scrollerinstance=this if (this.mouseoverBol==1) //if mouse is currently over scoller, do nothing (pause it) setTimeout(function(){scrollerinstance.setmessage()}, 100) else{ var i=this.hiddendivpointer var ceiling=this.content.length this.hiddendivpointer=(i+1>ceiling-1)? 0 : i+1 this.hiddendiv.innerHTML=this.content[this.hiddendivpointer] this.animateup() } } pausescroller.getCSSpadding=function(tickerobj){ //get CSS padding value, if any if (tickerobj.currentStyle) return tickerobj.currentStyle["paddingTop"] else if (window.getComputedStyle) //if DOM2 return window.getComputedStyle(tickerobj, "").getPropertyValue("padding-top") else return 0 } KONIEC ; print FILE " "; #print FILE <
 
Jeżeli Twoje dane są inne niż powyższe zgłoś nam
# # # #
#KONIEC #; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE "
"; #print FILE " "; #print FILE ""; print FILE ""; print FILE < //new pausescroller(name_of_message_array, CSS_ID, CSS_classname, pause_in_miliseconds) new pausescroller(pausecontent, "pscroller1", "someclass", 10000) //document.write("
") KONIEC ; #} # ----------- # ----------- print FILE "
"; print FILE " "; } # =========================== sub generuj_panel_left_html { open (FILE, ">../../panel/panel_left_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_left_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " Untitled Document "; # # jeżeli zegar if ($id) { # print FILE "Student:

$id

"; # print FILE "

$password

"; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; my $imie_opiekun =$pole1[7]; my $nazwisko_opiekun =$pole1[8]; my $nazwa_firmy =$pole1[9]; my $ulica =$pole1[10]; my $miejscowosc =$pole1[11]; my $kod_pocztowy =$pole1[12]; my $poczta =$pole1[13]; my $tel_dom =$pole1[4]; my $tel_kom =$pole1[5]; my $e_mail =$pole1[6]; my $jezyk =$pole1[14]; my $poziom =$pole1[15]; my $rodzaj_zajec =$pole1[3]; my $rodzaj_kursu =$pole1[16]; # print FILE "$id_ucznia : $id
"; if ($id_ucznia eq "$id") { print FILE ""; print FILE ""; print FILE ""; print FILE "
"; print FILE " "; print FILE "
"; print FILE " STUDENT:
 $imie_ucznia $nazwisko_ucznia"; print FILE "
"; # $uczen = "$nazwisko_ucznia $imie_ucznia"; } } close FILE1; #print FILE "
"; print FILE "
  dane
  biblioteka
     katalog on-line
     wypożyczone
  frekwencja
  płatności
  raport semestralny
  materiały dodatkowe
     język angielski
     język niemiecki
     inne języki
  zadania
  MATURA
  pogotowie językowe
  słownik
"; # koniec menu } print FILE "
\"My
"; print FILE ""; print FILE " "; print FILE "
"; print FILE " "; print FILE "
"; #print FILE ""; #print FILE " # # # #"; # #print FILE "
#
#
  logowanie
# #      zmiana loginu
#      zmiana hasła
# #
#
"; print FILE ""; print FILE " "; print FILE "
"; #print FILE ""; #print FILE ""; #print FILE ""; #print FILE "
"; #print FILE "
LanguageHouse
SZKOŁA JĘZYKÓW OBCYCH
BIURO TŁUMACZEŃ
ul. Krzywa 18D, Nowy Targ
tel./fax 18/2648868
kom. 510 40 50 70
"; #print FILE "
"; #print FILE "
Codziennie:
pn-pt 9.00-20.30
so. 9.00-12.00
"; #print FILE "
"; #print FILE ""; #print FILE ""; #print FILE "
"; print FILE " "; close FILE; } # =========================== sub generuj_panel_main_html { open (FILE, ">../../panel/panel_main_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_main_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " MAIN "; print FILE "
"; print FILE "INFORMACJE"; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE "
Dni wolne od zajęć
* Od 23 grudnia 2006 r. do 2 stycznia 2007 r. - przerwa świąteczna Świąt Bożego Narodzenia;
 
"; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE "
 
Konwersacje z angielskiego
* każdy wtorek o godz. 19.00 w sali nr 4;
 
"; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE ""; # print FILE "
 
Ferie zimowe
* Z powodu ferii kursy standardowe nie będą miały zajęć od 15 stycznia do 26 stycznia 2007.
 
"; if (-e "$PLIK_NEWS_WWW_DLA_UCZNIOW") { open (INFO, "$PLIK_NEWS_WWW_DLA_UCZNIOW") or die "Nie mogę otworzyć pliku: $PLIK_NEWS_WWW_DLA_UCZNIOW"; flock INFO, LOCK_EX; @info=; foreach $xx (@info) { @pole_info=split("\#",$xx); my $id =$pole_info[0]; my $tresc_www_uczniowie =$pole_info[1]; my $temat_www_uczniowie =$pole_info[2]; my $kto_wprowadzil =$pole_info[3]; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE ""; print FILE "
 
$temat_www_uczniowie
$tresc_www_uczniowie
 
"; } close INFO; } print " "; close FILE; } # =========================== sub generuj_panel_index_html { $id_tmp =$query->param(id_tmp); open (FILE, ">../../panel/panel_index_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_index_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " PANEL STUDENTA <body> </body> </html> "; close FILE; } # =========================== # =========================== sub password { $id_tmp = &generuj_id(); #&druk_header; #&druk_start_html; #informacje do okienka $kontakt_z_adminem ="Wszelkie sugestie dotyczące działania panelu studenta prosimy zgłaszać do Sekretariatu, korzystając z adresu email: biuro\@languagehouse.pl lub telefonicznie (18) 264 88 68."; $pierwsze_logowanie ="Co zrobić aby się zalogować..."; $zapomnialem_hasla ="Tu instrukcja co w przypadku zapomnianie hasła"; print " <html> <head> <title>Logowanie panel studenta LanguageHouse</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\"> <script> <!-- var content=new Array() //change the array below to the text associated with your links Expand or contract the array, depending on how many links you have //content[0]=\"<br /><table width=400 align=center><tr><td><b>Pierwsze logowanie</b></td></tr><tr><td>$pierwsze_logowanie</td></tr></table>\" //content[1]=\"<br /><table width=400 align=center><tr><td><b>Zapomniałem hasła</b></td></tr><tr><td>$zapomnialem_hasla</td></tr></table>\" content[2]=\"<br /><table width=400 align=center><tr><td><b>Kontakt z administratorem</b></td></tr><tr><td>$kontakt_z_adminem</td></tr></table>\" function regenerate(){ window.location.reload() } function regenerate2(){ if (document.layers){ appear() setTimeout(\"window.onresize=regenerate\",450) } } function changetext(whichcontent){ if (document.all||document.getElementById){ cross_el=document.getElementById? document.getElementById(\"descriptions\"):document.all.descriptions cross_el.innerHTML='<font face=\"Arial\"><small>'+whichcontent+'<font></small>' } else if (document.layers){ document.d1.document.d2.document.write('<font face=\"Arial\"><small>'+whichcontent+'</small></font>') document.d1.document.d2.document.close() } } function appear(){ document.d1.visibility='show' } window.onload=regenerate2 //--> </script> </head> <body> "; print "<br />"; print "<br />"; print "<br />"; print "<center><b>PANEL LanguageHouse</b></center>"; print "<br />"; print "<table border=0 align=center><tr><td width=400>"; print "<form action=\"http://www.languagehouse.pl/cgi-local/panel/panel.pl\" method=\"post\" name=\"password\">"; print "<table border=0 width=250 align=center>"; print " <tr bgcolor=\#F3F3F3> <td width=75 align=right>Login:</td> <td bgcolor=white></td> <td width=175 ><input class=\"test2\" name=\"login\" type=\"text\"></td> </tr> <tr bgcolor=\#F3F3F3> <td align=right>Hasło:</td> <td bgcolor=white></td> <td><input class=\"test2\" name=\"password\" type=\"password\"></td> </tr> <tr> <td align=right>&nbsp;</td> <td bgcolor=white></td> <td bgcolor=\#F3F3F3><input type=\"submit\" name=\"Submit\" value=\"\> ZALOGUJ \<\" class=\"test2\"><input type=\"hidden\" name=\"id_tmp\" value=\"$id_tmp\"></td> </tr> <tr> <td align=right>&nbsp;</td> <td bgcolor=white></td> <td bgcolor=\#FFFFFF valign=top align=center><a href=\"\" class=\"link\" onMouseover=\"changetext(content[2])\">Kontakt z sekretariatem</a></td> </tr> "; print "</table>"; print "</form"; print "<br />"; print "<br />"; print "<table width=250 align=center>"; print " <div id=\"scriptmenu\"> <!-- <tr bgcolor=\#F3F3F3 valign=top ><td bgcolor=\#F3F3F3 valign=top align=center><a href=\"\" class=\"link\" onMouseover=\"changetext(content[0])\"><b>Pierwsze logowanie</b></a></td></tr> --> <!-- <tr bgcolor=\#F3F3F3 valign=top ><td bgcolor=\#F3F3F3 valign=top align=center><a href=\"\" class=\"link\" onMouseover=\"changetext(content[1])\">Zapomniałem hasła</a></td></tr> --> <!-- <tr valign=top ><td bgcolor=\#FFFFFF valign=top align=center><a href=\"\" class=\"link\" onMouseover=\"changetext(content[2])\">Kontakt z sekretariatem</a></td></tr>--> </div> "; print "</table>"; print "</td><td width=400 valign=top>"; print " <ilayer id=\"d1\" width=\"200\" height=\"200\" visibility=\"hide\"> <layer id=\"d2\" width=\"200\" height=\"200\"> <div id=\"descriptions\" align=\"left\"> <br /><table width=400 align=center><tr><td> <b>Szanowni Państwo!</b></td></tr><tr><td> Wychodząc naprzeciw Państwa oczekiwaniom opracowaliśmy Indywidualne Strony Studentów LanguageHouse. <br> Aby móc z nich skorzystać, należy się zalogować. </td></tr></table> "; print " </div> </layer> </ilayer> "; print "</td></tr>"; print "</table>"; print " </body> </html> "; } ############## ############## PANEL NAUCZYCIELE #################################### ############## # -------------------------- sub generuj_raporty_nauczyciel_html { #&generuj_menu(); open (FILE, ">../../panel/raporty_nauczyciel_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/raporty_nauczyciel_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " <html> <head> <title>RAPORT</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\"> <script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/html/images_kursy/myfreetemplates.js\"></script> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\"> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\"> </head> <body> "; print FILE "<img src=\"http://www.languagehouse.pl/images/neutral.gif\" width=1 height=80><br>"; print FILE "<b>RAPORT SEMESTRALNY</b>"; $str = "<select name=\"id_ucznia\" class=\"test2\">"; open (FILE1, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE1, LOCK_EX; @dane1=<FILE1>; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_ucznia =$pole1[0]; my $nazwisko_ucznia =$pole1[1]; my $imie_ucznia =$pole1[2]; # $str .= "<option value=\"$imie_ucznia $nazwisko_ucznia\">$imie_ucznia $nazwisko_ucznia"; } #---- $PLIK_KURSY = '../../obsluga/dane/kursy.txt'; open (FILE_TMP, "$PLIK_KURSY") or die "Nie mogę otworzyć pliku: $PLIK_KURSY"; flock FILE_TMP, LOCK_EX; @dane_tmp=<FILE_TMP>; close FILE_TMP; foreach $x (@dane_tmp) { @pole=split("\#",$x); my $grupa =$pole[4]; my $numer_grupy =$pole[22]; my $lektor_grupy_1 =$pole[6]; my $lektor_grupy_2 =$pole[7]; my $lektor_grupy_3 =$pole[8]; # print "1. $grupa<br>"; if (!-e "../../obsluga/dane/$grupa.txt") {next;} #print FILE $id; if ($lektor_grupy_1 eq $id || $lektor_grupy_2 eq $id || $lektor_grupy_3 eq $id) { open (FILE1, "../../obsluga/dane/$grupa.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/$grupa.txt"; flock FILE1, LOCK_EX; @dane1=<FILE1>; close FILE1; foreach $x1 (@dane1) { # print "2. $grupa<br>"; @pole1=split("\#",$x1); $id_ucznia=$pole1[0]; $imie_nazwisko_ucznia=$pole1[1]; #if () { #czy jest już wypełniony raport # open (RAPORTY, "/panel/raporty_semestralne/raporty_2021.txt") or die "Nie mogę otworzyć pliku: /panel/raporty_semestralne/raporty_2021.txt"; # flock RAPORTY, LOCK_EX; # @raporty=<RAPORTY>; # close RAPORTY; # foreach $y (@raporty) { # @raporty_1=split("\#",$y); # if ($raporty_1[1] ne $id_ucznia) { $str .= "<option value=\"$id_ucznia\">$nazwisko_ucznia $imie_nazwisko_ucznia &nbsp;&nbsp;&nbsp;grupa nr: $numer_grupy $pole1[2]"; # } # } } } } $str .= "</select>"; $opcja=$str; print FILE "<form action=\"http://www.languagehouse.pl/cgi-local/panel/panel.pl?kom=zapisz\" method=\"post\" name=\"akceptacja\">"; print FILE "<table width=600>"; print FILE "<tr><td width=250><hr></td><td></td><td width=350><hr></td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Słuchacz:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3> $opcja </td></tr>"; print FILE "<tr><td>&nbsp;</td><td></td><td>&nbsp;</td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Kompetencje komunikacyjne:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3> <!-- <input class=\"test2\" name=\"gramatyka\" type=\"text\" maxlength=\"2\"> --> <select class=\"test2\" name=\"gramatyka\"> <option value=\"\"></option> <option value=\"bardzo dobry\">100%-90% bardzo dobry</option> <option value=\"dobry+\">89%-85% dobry+</option> <option value=\"dobry\">84%-76% dobry</option> <option value=\"dostateczny+\">75%-70% dostateczny+</option> <option value=\"dostateczny\">69%-55% dostateczny</option> <option value=\"dopuszczający\">54%-45% dopuszczający</option> <option value=\"niedostateczny\">45%-0% niedostateczny</option> </select> </td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Umiejętność czytania:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3> <!-- <input class=\"test2\" name=\"slownictwo\" type=\"text\" maxlength=\"2\"> --> <select class=\"test2\" name=\"slownictwo\"> <option value=\"\"></option> <option value=\"bardzo dobry\">100%-90% bardzo dobry</option> <option value=\"dobry+\">89%-85% dobry+</option> <option value=\"dobry\">84%-76% dobry</option> <option value=\"dostateczny+\">75%-70% dostateczny+</option> <option value=\"dostateczny\">69%-55% dostateczny</option> <option value=\"dopuszczający\">54%-45% dopuszczający</option> <option value=\"niedostateczny\">45%-0% niedostateczny</option> </select></td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Umiejętność słuchania:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3> <!-- <input class=\"test2\" name=\"wymowa\" type=\"text\" maxlength=\"2\"> --> <select class=\"test2\" name=\"wymowa\"> <option value=\"\"></option> <option value=\"bardzo dobry\">100%-90% bardzo dobry</option> <option value=\"dobry+\">89%-85% dobry+</option> <option value=\"dobry\">84%-76% dobry</option> <option value=\"dostateczny+\">75%-70% dostateczny+</option> <option value=\"dostateczny\">69%-55% dostateczny</option> <option value=\"dopuszczający\">54%-45% dopuszczający</option> <option value=\"niedostateczny\">45%-0% niedostateczny</option> </select></td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Umiejętność pisana:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3> <!-- <input class=\"test2\" name=\"motywacja\" type=\"text\" maxlength=\"2\"> --> <select class=\"test2\" name=\"motywacja\"> <option value=\"\"></option> <option value=\"bardzo dobry\">100%-90% bardzo dobry</option> <option value=\"dobry+\">89%-85% dobry+</option> <option value=\"dobry\">84%-76% dobry</option> <option value=\"dostateczny+\">75%-70% dostateczny+</option> <option value=\"dostateczny\">69%-55% dostateczny</option> <option value=\"dopuszczający\">54%-45% dopuszczający</option> <option value=\"niedostateczny\">45%-0% niedostateczny</option> </select></td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Zakres struktur gramatycznych:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3> <!-- <input class=\"test2\" name=\"struktury\" type=\"text\" maxlength=\"2\"> --> <select class=\"test2\" name=\"struktury\"> <option value=\"\"></option> <option value=\"bardzo dobry\">100%-90% bardzo dobry</option> <option value=\"dobry+\">89%-85% dobry+</option> <option value=\"dobry\">84%-76% dobry</option> <option value=\"dostateczny+\">75%-70% dostateczny+</option> <option value=\"dostateczny\">69%-55% dostateczny</option> <option value=\"dopuszczający\">54%-45% dopuszczający</option> <option value=\"niedostateczny\">45%-0% niedostateczny</option> </select></td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Zakres słownictwa:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3> <!-- <input class=\"test2\" name=\"zakres_slownictwa\" type=\"text\" maxlength=\"2\"> --> <select class=\"test2\" name=\"zakres_slownictwa\"> <option value=\"\"></option> <option value=\"bardzo dobry\">100%-90% bardzo dobry</option> <option value=\"dobry+\">89%-85% dobry+</option> <option value=\"dobry\">84%-76% dobry</option> <option value=\"dostateczny+\">75%-70% dostateczny+</option> <option value=\"dostateczny\">69%-55% dostateczny</option> <option value=\"dopuszczający\">54%-45% dopuszczający</option> <option value=\"niedostateczny\">45%-0% niedostateczny</option> </select></td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right><td>Zadania domowe:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3> <!-- <input class=\"test2\" name=\"zadania_domowe\" type=\"text\" maxlength=\"2\"> --> <select class=\"test2\" name=\"zadania_domowe\"> <option value=\"\"></option> <option value=\"wykonywane regularnie\">wykonywane regularnie</option> <option value=\"wykonywane nieregularnie\">wykonywane nieregularnie</option> <option value=\"niewykonywane\">niewykonywane</option> </select></td></tr>"; # Komentarz powinien zawierać szczegółową informację odnośnie postępów ucznia w nauce jak również wykonywanych przez niego zadań domowych. print FILE "<tr bgcolor=\#F3F3F3 align=right valign=top><td>Mocne strony:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3><textarea class=\"test2\" name=\"komentarz\" placeholder=\"\" rows=\"10\" ></textarea></td></tr>"; print FILE "<tr bgcolor=\#F3F3F3 align=right valign=top><td>Sugestie:</td><td bgcolor=white></td> <td bgcolor=\#F3F3F3><textarea class=\"test2\" name=\"sugestie\" rows=\"10\" ></textarea></td></tr>"; print FILE "<tr><td>&nbsp;</td><td></td><td>&nbsp;</td></tr>"; print FILE "<tr><td></td><td bgcolor=white></td><td bgcolor=\#F3F3F3><input class=\"test2\" type=\"submit\" value=\"> AKCEPTACJA <\"></td></tr>"; print FILE "<input type=\"hidden\" name=\"kom\" value=\"zapisz\"> "; print FILE "<input type=\"hidden\" name=\"id\" value=\"$id\"> "; print FILE "<input type=\"hidden\" name=\"login\" value=\"$login\"> "; print FILE "<input type=\"hidden\" name=\"rodzaj\" value=\"nauczyciel\"> "; print FILE "<input type=\"hidden\" name=\"id_nauczyciela\" value=\"$id\">"; print FILE "<input type=\"hidden\" name=\"status_hasla\" value=\"OK\">"; # $status_hasla ="OK"; #hasło OK print FILE "<tr><td>&nbsp;</td><td></td><td>&nbsp;</td></tr>"; print FILE "</table>"; print FILE "</form>"; print FILE "</body></html>"; close FILE; } # ------------------------------------------------------- # ------------------------------------------------------- sub generuj_panel_top_nauczyciel_html { &generuj_newsy_z_pliku_nauczyciele(); # ------------------------------ # generowanie newsu sub generuj_newsy_z_pliku_nauczyciele { $news=""; $PLIK_NEWS = '../../obsluga/dane/news_panel_nauczyciele.txt'; open (FILE2, "$PLIK_NEWS") or die "Nie mogę otworzyć pliku: $PLIK_NEWS"; flock FILE2, LOCK_EX; @dane2=<FILE2>; $licznik=0; foreach $x2 (@dane2) { #glowna petla foreach @pole2=split("\#",$x2); # $news .="pausecontent[$licznik]='$pole2[2] <b>$pole2[3]</b><br />$pole2[4]'\n"; $news .="pausecontent[$licznik]='<b>$pole2[3]</b><br />$pole2[4]'\n"; $licznik=$licznik+1; } close FILE2; } # ------------------------------ open (FILE, ">../../panel/panel_top_nauczyciel_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_top_nauczyciel_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " <html> <head> <title>TOP</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\"> <script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/html/images_kursy/myfreetemplates.js\"></script> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\"> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\"> <style> <!-- body {background-color: white; margin-bottom:1px; margin-top:1px; margin-left:1px; margin-right:1px;} --> </style> "; print FILE <<KONIEC; <style type="text/css"> /*Example CSS for the two demo scrollers*/ #pscroller1{ width: 100%; height: 74px; border: 0px solid black; padding: 5px; background-color: white; } #pscroller2{ width: 100%; height: 90px; border: 0px solid black; padding: 5px; background-color: red; color: white; } #pscroller2 a{ text-decoration: none; } .someclass{ //class to apply to your scroller(s) if desired } KONIEC ; print FILE "</style>\n"; print FILE "<script type=\"text/javascript\">\n"; #print FILE "/*Example message arrays for the two demo scrollers*/"; print FILE "var pausecontent=new Array()\n"; print FILE $news; # tu zmienne generowane przez procedurę powyżej print FILE "</script>\n"; print FILE <<KONIEC; <script type="text/javascript"> /*********************************************** * Pausing up-down scroller- Š Dynamic Drive (www.dynamicdrive.com) * This notice MUST stay intact for legal use * Visit http://www.dynamicdrive.com/ for this script and 100s more. ***********************************************/ function pausescroller(content, divId, divClass, delay){ this.content=content //message array content this.tickerid=divId //ID of ticker div to display information this.delay=delay //Delay between msg change, in miliseconds. this.mouseoverBol=0 //Boolean to indicate whether mouse is currently over scroller (and pause it if it is) this.hiddendivpointer=1 //index of message array for hidden div document.write('<div id="'+divId+'" class="'+divClass+'" style="position: relative; overflow: hidden"><div class="innerDiv" style="position: absolute; width: 100%" id="'+divId+'1">'+content[0]+'</div><div class="innerDiv" style="position: absolute; width: 100%; visibility: hidden" id="'+divId+'2">'+content[1]+'</div></div>') var scrollerinstance=this if (window.addEventListener) //run onload in DOM2 browsers window.addEventListener("load", function(){scrollerinstance.initialize()}, false) else if (window.attachEvent) //run onload in IE5.5+ window.attachEvent("onload", function(){scrollerinstance.initialize()}) else if (document.getElementById) //if legacy DOM browsers, just start scroller after 0.5 sec setTimeout(function(){scrollerinstance.initialize()}, 500) } // ------------------------------------------------------------------- // initialize()- Initialize scroller method. // -Get div objects, set initial positions, start up down animation // ------------------------------------------------------------------- pausescroller.prototype.initialize=function(){ this.tickerdiv=document.getElementById(this.tickerid) this.visiblediv=document.getElementById(this.tickerid+"1") this.hiddendiv=document.getElementById(this.tickerid+"2") this.visibledivtop=parseInt(pausescroller.getCSSpadding(this.tickerdiv)) //set width of inner DIVs to outer DIV's width minus padding (padding assumed to be top padding x 2) this.visiblediv.style.width=this.hiddendiv.style.width=this.tickerdiv.offsetWidth-(this.visibledivtop*2)+"px" this.getinline(this.visiblediv, this.hiddendiv) this.hiddendiv.style.visibility="visible" var scrollerinstance=this document.getElementById(this.tickerid).onmouseover=function(){scrollerinstance.mouseoverBol=1} document.getElementById(this.tickerid).onmouseout=function(){scrollerinstance.mouseoverBol=0} if (window.attachEvent) //Clean up loose references in IE window.attachEvent("onunload", function(){scrollerinstance.tickerdiv.onmouseover=scrollerinstance.tickerdiv.onmouseout=null}) setTimeout(function(){scrollerinstance.animateup()}, this.delay) } // ------------------------------------------------------------------- // animateup()- Move the two inner divs of the scroller up and in sync // ------------------------------------------------------------------- pausescroller.prototype.animateup=function(){ var scrollerinstance=this if (parseInt(this.hiddendiv.style.top)>(this.visibledivtop+5)){ this.visiblediv.style.top=parseInt(this.visiblediv.style.top)-5+"px" this.hiddendiv.style.top=parseInt(this.hiddendiv.style.top)-5+"px" setTimeout(function(){scrollerinstance.animateup()}, 50) } else{ this.getinline(this.hiddendiv, this.visiblediv) this.swapdivs() setTimeout(function(){scrollerinstance.setmessage()}, this.delay) } } // ------------------------------------------------------------------- // swapdivs()- Swap between which is the visible and which is the hidden div // ------------------------------------------------------------------- pausescroller.prototype.swapdivs=function(){ var tempcontainer=this.visiblediv this.visiblediv=this.hiddendiv this.hiddendiv=tempcontainer } pausescroller.prototype.getinline=function(div1, div2){ div1.style.top=this.visibledivtop+"px" div2.style.top=Math.max(div1.parentNode.offsetHeight, div1.offsetHeight)+"px" } // ------------------------------------------------------------------- // setmessage()- Populate the hidden div with the next message before it's visible // ------------------------------------------------------------------- pausescroller.prototype.setmessage=function(){ var scrollerinstance=this if (this.mouseoverBol==1) //if mouse is currently over scoller, do nothing (pause it) setTimeout(function(){scrollerinstance.setmessage()}, 100) else{ var i=this.hiddendivpointer var ceiling=this.content.length this.hiddendivpointer=(i+1>ceiling-1)? 0 : i+1 this.hiddendiv.innerHTML=this.content[this.hiddendivpointer] this.animateup() } } pausescroller.getCSSpadding=function(tickerobj){ //get CSS padding value, if any if (tickerobj.currentStyle) return tickerobj.currentStyle["paddingTop"] else if (window.getComputedStyle) //if DOM2 return window.getComputedStyle(tickerobj, "").getPropertyValue("padding-top") else return 0 } </script> KONIEC ; print FILE " </head> <body> "; #print FILE <<KONIEC; #<table width=100%><tr><td> #<script type="text/javascript"> # #//new pausescroller(name_of_message_array, CSS_ID, CSS_classname, pause_in_miliseconds) # #new pausescroller(pausecontent, "pscroller1", "someclass", 3000) #document.write("<br />") #</script> #</td><td> #<script type="text/javascript"> #new pausescroller(pausecontent2, "pscroller2", "someclass", 2000) #document.write("<br />") # #</script> #</td></tr></table> #KONIEC #; print FILE "<table width=100% border=0 cellpadding=0 cellspacing=0>"; print FILE "<tr>"; print FILE "<td width=231px align=center bgcolor=white>"; #print FILE "<img src=\"http://www.languagehouse.pl/html/images_kursy/logo_languagehouse_kursy.gif\""; print FILE " <!-- <object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab\#version=7,0,19,0\" width=\"250\" height=\"95\" title=\"panel\"> <param name=\"movie\" value=\"http://www.languagehouse.pl/images/panel_n.swf\" /> <param name=\"quality\" value=\"high\" /> <embed src=\"http://www.languagehouse.pl/images/panel_n.swf\" quality=\"high\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\" type=\"application/x-shockwave-flash\" width=\"250\" height=\"95\"></embed> </object> --> "; #print FILE "<script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/scripts/zegar.js\"></script>"; print FILE "</td>"; print FILE "<td bgcolor=white>"; print FILE <<KONIEC; <script type="text/javascript"> //new pausescroller(name_of_message_array, CSS_ID, CSS_classname, pause_in_miliseconds) new pausescroller(pausecontent, "pscroller1", "someclass", 5000) //document.write("<br />") </script> KONIEC ; #} # ----------- # ----------- print FILE "</td>"; print FILE "</tr>"; print FILE "</table>"; print FILE " </body> </html> "; } # =========================== sub generuj_panel_left_nauczyciel_html { open (FILE, ">../../panel/panel_left_nauczyciel_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_left_nauczyciel_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " <html> <head> <title>Untitled Document</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\"> <script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/html/images_kursy/myfreetemplates.js\"></script> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\"> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\"> </head> <body onLoad=\"show_clock();\"> "; #if ($id) { # print FILE "Student: <h2>$id</h2>"; # print FILE "<h1>$password</h1>"; # czytaj imię i nazwisko ucznia open (FILE1, "../../obsluga/dane/nauczyciele.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/nauczyciele.txt"; flock FILE1, LOCK_EX; @dane1=<FILE1>; foreach $x1 (@dane1) { @pole1=split("\#",$x1); my $id_nauczyciela =$pole1[0]; my $nazwisko_nauczyciela =$pole1[1]; my $imie_nauczyciela =$pole1[2]; if ($id_nauczyciela eq "$id") { print FILE "<table cellpadding=5 cellspacing=5>"; print FILE "<tr><td>"; print FILE "&nbsp;"; print FILE "</td></tr>"; print FILE "<tr><td>"; print FILE "&nbsp;LEKTOR:<br>&nbsp;<b>$imie_nauczyciela $nazwisko_nauczyciela</b>"; print FILE "</td></tr>"; print FILE "</table>"; } } close FILE1; print FILE " <table cellpadding=5> <tr> <td style=\"background-color: mediumorchid;\" class=\"style2\" width=\"221\"> <script type=\"text/javascript\" src=\"http://www.languagehouse.pl/szkola/szablony/menu.js\"></script> <!-- Keep all menus within masterdiv--> <div id=\"masterdiv\"> <div class=\"menutitle\" onClick=\"SwitchMenu('sub1')\">&nbsp;&nbsp;<a href=\"http://www.languagehouse.pl/panel/raporty_nauczyciel_$id_tmp.html\" target=\"mainFrame\" style=\"color: white;\">Wypełnij nowy raport</a></div> </div> </td> </tr> <table>"; if (-e "/panel/raporty_semestralne/raporty_2021.txt") { open (RAPORTY, "/panel/raporty_semestralne/raporty_2021.txt") or die "Nie mogę otworzyć pliku: $! /panel/raporty_semestralne/raporty_2021.txt"; flock RAPORTY, LOCK_EX; @raporty=<RAPORTY>; #print RAPORTY "$id_nauczyciela#$id_ucznia#imie # nazwisko #$gramatyka#$slownictwo#$wymowa#$motywacja#zadania_domowe#komentarz#"; close RAPORTY; print FILE " <br />&nbsp;&nbsp;&nbsp;<b>Wykonano:</b><br>"; foreach $x (@raporty) { @pole=split("\#",$x); if ($id eq $pole[0]) { print FILE "&nbsp;&nbsp;&nbsp;$pole[2] $pole[3]<br>"; } } } print FILE " <br />&nbsp;<br /> <table width=95% align=center> <tr><td></td></tr> <tr bgcolor=\"#F3F3F3\"><td> <br /> <b>Skala ocen <!-- Gramatyka, słownictwo, wymowa, motywacja--> </b>:<br> - 100%-90% bardzo dobry<br /> - &nbsp;89%-85% dobry+<br /> - &nbsp;84%-76% dobry<br /> - &nbsp;75%-70% dostateczny+<br /> - &nbsp;69%-55% dostateczny<br /> - &nbsp;54%-45% dopuszczający<br /> - &nbsp;45%-0%&nbsp; niedostateczny<br /> <!-- A (bardzo dobry),<br> B (dobry),<br> C (mogłoby być lepiej),<br> D (trzeba popracować).<br> <u>UWAGA!<br>dopuszcza się znaki \"+\" oraz \"-\"</u><br> --> <br /> <b>Zadania domowe</b>:<br> - wykonywane regularnie <br /> - wykonywane nieregularnie <br /> - niewykonywane <br /> <!-- ZW (zawsze wykonywane),<br> NW (nie zawsze wykonywane),<br> RZ (rzadko wykonywane).<br> --> <br /> <b>Komentarz</b>:<br> ocena opisowa dotyczy postępów w nauce oraz zadań domowych<br> <br /> </td></tr></table> "; print FILE " </body> </html> "; close FILE; } # =========================== sub generuj_panel_main_nauczyciel_html { open (FILE, ">../../panel/panel_main_nauczyciel_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_main_nauczyciel_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " <html> <head> <title>Untitled Document</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\"> <script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/html/images_kursy/myfreetemplates.js\"></script> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\"> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\"> </head> <body> "; print FILE "<img src=\"http://www.languagehouse.pl/images/neutral.gif\" width=1 height=80><br>"; print FILE "<b>INFORMACJE</b>"; if (-e "$PLIK_NEWS_WWW_DLA_NAUCZYCIELI") { open (INFO, "$PLIK_NEWS_WWW_DLA_NAUCZYCIELI") or die "Nie mogę otworzyć pliku: $PLIK_NEWS_WWW_DLA_NAUCZYCIELI"; flock INFO, LOCK_EX; @info=<INFO>; foreach $xx (@info) { @pole_info=split("\#",$xx); my $id =$pole_info[0]; my $tresc_www_nauczyciele =$pole_info[1]; my $temat_www_nauczyciele =$pole_info[2]; my $kto_wprowadzil =$pole_info[3]; print FILE "<table width=500>"; print FILE "<tr><td width=500>&nbsp;</td></tr>"; print FILE "<tr bgcolor=\#F3F3F3><td><b>$temat_www_nauczyciele</b></td></tr>"; print FILE "<tr><td>$tresc_www_nauczyciele</td></tr>"; print FILE "<tr><td>&nbsp;</td></tr>"; print FILE "</table>"; } close INFO; } print FILE " </body> </html> "; close FILE; } # =========================== sub generuj_panel_index_nauczyciel_html { $id_tmp =$query->param(id_tmp); open (FILE, ">../../panel/panel_index_nauczyciel_$id_tmp.html") or die "Nie mogę otworzyć pliku: ../../panel/panel_index_nauczyciel_$id_tmp.html"; flock FILE, LOCK_EX; print FILE " <html> <head> <title>PANEL NAUCZYCIELA</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\"> <script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/html/images_kursy/myfreetemplates.js\"></script> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\"> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\"> </head> <frameset rows=\"86,528*\" cols=\"*\" frameborder=\"NO\" border=\"0\" framespacing=\"0\"> <frame name=\"topFrame\" scrolling=\"NO\" noresize src=\"/panel/panel_top_nauczyciel_$id_tmp.html\" > <frameset cols=\"241,1099*\" frameborder=\"NO\" border=\"0\" framespacing=\"0\" rows=\"*\"> <frame name=\"leftFrame\" noresize scrolling=\"NO\" src=\"/panel/panel_left_nauczyciel_$id_tmp.html\"> <frame name=\"mainFrame\" src=\"/panel/panel_main_nauczyciel_$id_tmp.html\"> </frameset> </frameset> <noframes> <body> </body> </html> "; close FILE; } # =========================== sub akceptacja_raportow { $id_ucznia =$query->param(id_ucznia); $id_nauczyciela =$query->param(id_nauczyciela); open (FILE10, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE10, LOCK_EX; @dane1=<FILE10>; close FILE10; foreach $x1 (@dane1) { @pole1=split("\#",$x1); if ($id_ucznia eq $pole1[0]) { # my $id_ucznia =$pole1[0]; $nazwisko_ucznia =$pole1[1]; $imie_ucznia =$pole1[2]; #print $nazwisko_ucznia; } } # $imie_nazwisko_ucznia =$query->param(imie_nazwisko_ucznia); $gramatyka =$query->param(gramatyka); $slownictwo =$query->param(slownictwo); $wymowa =$query->param(wymowa); $motywacja =$query->param(motywacja); $struktury =$query->param(struktury); $zakres_slownictwa =$query->param(zakres_slownictwa); $zadania_domowe =$query->param(zadania_domowe); $komentarz =$query->param(komentarz); $sugestie =$query->param(sugestie); $komentarz =~ s/\012/\040/g; #podmiana LF na spacje $komentarz =~ s/\015/\040/g; #podmiana CR $sugestie =~ s/\012/\040/g; #podmiana LF na spacje $sugestie =~ s/\015/\040/g; #podmiana CR open (RAPORTY, ">>/panel/raporty_semestralne/raporty_2021.txt") or die "Nie mogę otworzyć pliku: $! /panel/raporty_semestralne/raporty_2021.txt"; flock RAPORTY, LOCK_EX; print RAPORTY "$id_nauczyciela#$id_ucznia#$imie_ucznia#$nazwisko_ucznia#$gramatyka#$slownictwo#$wymowa#$motywacja#$struktury#$zakres_slownictwa#$zadania_domowe#$komentarz#$sugestie#\n"; close RAPORTY; print " <html> <head> <title>WYNIK</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"./panel.css\"> <script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/html/images_kursy/myfreetemplates.js\"></script> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\"> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\"> </head> <body bgcolor=#EEEEEE> "; print "<b>RAPORT SEMESTRALNY:</b> <br>$imie_ucznia $nazwisko_ucznia<br>"; print "ZAPISANO<br>"; print "<br />"; print "<hr>Aby wypełnić raport dla kolejnego ucznia proszę kliknąć na menu w kolorze fioletowym po lewej stronie. Aby zobaczyć, które raporty zostały już wykonane wciśnij klawisz <b>F5</b>. Po lewej stronie pojawi się lista uczniów, dla których raporty zostały już wykonane."; print "</body></html>"; exit; } # ---------------------------------------------------------------------- #if ($kom eq "zapisz") { #&zapisz_do_pliku_raporty #} sub zapisz_do_pliku_raporty { $id_ucznia =$query->param(id_ucznia); open (FILE10, "../../obsluga/dane/uczniowie.txt") or die "Nie mogę otworzyć pliku: ../../obsluga/dane/uczniowie.txt"; flock FILE10, LOCK_EX; @dane1=<FILE10>; close FILE10; foreach $x1 (@dane1) { @pole1=split("\#",$x1); if ($id_ucznia eq $pole1[0]) { # my $id_ucznia =$pole1[0]; $nazwisko_ucznia =$pole1[1]; $imie_ucznia =$pole1[2]; #print $nazwisko_ucznia; } } # $imie_nazwisko_ucznia =$query->param(imie_nazwisko_ucznia); # $gramatyka =$query->param(gramatyka); # $slownictwo =$query->param(slownictwo); # $wymowa =$query->param(wymowa); # $motywacja =$query->param(motywacja); # $zadania_domowe =$query->param(zadania_domowe); # $komentarz =$query->param(komentarz); $gramatyka =$query->param(gramatyka); $slownictwo =$query->param(slownictwo); $wymowa =$query->param(wymowa); $motywacja =$query->param(motywacja); $struktury =$query->param(struktury); $zakres_slownictwa =$query->param(zakres_slownictwa); $zadania_domowe =$query->param(zadania_domowe); $komentarz =$query->param(komentarz); $sugestie =$query->param(sugestie); print " <html> <head> <title>WYNIK</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" > <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\"> <script language=\"JavaScript\" type=\"text/JavaScript\" src=\"http://www.languagehouse.pl/html/images_kursy/myfreetemplates.js\"></script> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\"> <link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\"> </head> <body bgcolor=#EEEEEE> "; if (-e "/panel/raporty_semestralne/raporty_2021.txt") { open (RAPORTY, "/panel/raporty_semestralne/raporty_2021.txt") or die "Nie mogę otworzyć pliku: $! /panel/raporty_semestralne/raporty_2021.txt"; flock RAPORTY, LOCK_EX; @dane=<RAPORTY>; close RAPORTY; } foreach $xx (@dane) { @rap=split("\#",$xx); if ($id_ucznia eq $rap[1] && $id_nauczyciela eq $rap[0]) { print "<img src=\"http://www.languagehouse.pl/images/neutral.gif\" width=1 height=80><br>"; print "Dla tego ucznia raport już został wypełniony!"; print " <br>&nbsp;<br>[ <span class=\"link_orange\"><a href=\"javascript:history.back()\">cofnij</a></span> ]<br>"; print "</body></html>"; exit; } } # ODZNACZ JESLI SPRAWDZAMY # i ponizej tez drugi raz #&valid($gramatyka, "gramatyka"); #&valid($slownictwo, "słownictwo"); #&valid($wymowa, "wymowa"); #&valid($motywacja, "motywacja"); #&valid($zadania_domowe, "zadania domowe"); &valid($komentarz, "Mocne strony"); &valid($sugestie, "Sugestie"); #uc - na DUŻE LIETRY #$gramatyka = uc($gramatyka); #$slownictwo = uc($slownictwo); #$wymowa = uc($wymowa); #$motywacja = uc($motywacja); #$zadania_domowe = uc($zadania_domowe); ############################################# # ODZNACZ JESLI SPRAWDZAMY #unless ($gramatyka =~ /^[+-ABCD]/ && $slownictwo =~ /^[+-ABCD]/ && $wymowa =~ /^[+-ABCD]/ && $motywacja =~ /^[+-ABCD]/) { # print "<img src=\"http://www.languagehouse.pl/images/neutral.gif\" width=1 height=80><br>"; # print "<b>Wpisano niewłaściwą ocenę</b>. <br>Dopuszczalne oceny dla [gramatyka] [słownictwo] [wymowa] [motywacja] to: A (bardzo dobry), B (dobry), C (mogłoby być lepiej), D (trzeba popracować)."; # print "<table><tr><td>"; # print " <br>&nbsp;<br>[ <span class=\"link_orange\"><a href=\"javascript:history.back()\">popraw</a></span> ]<br>"; # print "</td></tr></table>"; # print "</body></html>"; # exit; #} # #unless ($zadania_domowe =~ /^[ZNR][WZ]/ ) { # print "<img src=\"http://www.languagehouse.pl/images/neutral.gif\" width=1 height=80><br>"; # print "<b>Wpisano niewłaściwą ocenę</b>. <br>Dopuszczalne oceny dla [zadania domowe] to: ZW (zawsze wykonywane), NW (nie zawsze wykonywane), RZ (rzadko wykonywane)."; # print "<table><tr><td>"; # print " <br>&nbsp;<br>[ <span class=\"link_orange\"><a href=\"javascript:history.back()\">popraw</a></span> ]<br>"; # print "</td></tr></table>"; # print "</body></html>"; # exit; #} ############################################33 sub valid { my ($pole_valid, $opis_valid)=@_; if (!$pole_valid) { print "<img src=\"http://www.languagehouse.pl/images/neutral.gif\" width=1 height=80><br>"; print "Brak wypełnionego pola: $opis_valid."; print " <br>&nbsp;<br>[ <span class=\"link_orange\"><a href=\"javascript:history.back()\">cofnij</a></span> ]<br>"; print "</body></html>"; exit; } } print "<img src=\"http://www.languagehouse.pl/images/neutral.gif\" width=1 height=80><br>"; print "RAPORT SEMESTRALNY: <br><span style=\"font-size: 18px;\">$imie_ucznia $nazwisko_ucznia</span><br>"; print "<form action=\"http://www.languagehouse.pl/cgi-local/panel/panel.pl?kom=akceptacja\" method=\"post\" name=\"akceptacja_do_zapisu\">"; print "<table width=600>"; print "<tr><td>&nbsp;</td><td></td><td>Uwaga! Proszę o sprawdzenie czy nie wkradły się jakieś błędy. Po zaakceptowaniu danych nie można będzie już poprawić wpisów.<br>&nbsp;<br> <b>Sprawdź koniecznie</b>, czy Twój komentarz odnosi się również do wykonywanych zadań domowych.<br> Jeżeli wszystko jest w porządku, kliknij na klawisz \"AKCEPTACJA\". <br>&nbsp;<br>[ <span class=\"link_orange\"><a href=\"javascript:history.back()\">cofnij</a></span> ]<br></td></tr>"; print "<tr><td width=250><hr></td><td></td><td width=350><hr></td></tr>"; print "<tr><td align=right>Kompetencje komunikacyjne:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$gramatyka</td></tr>"; print "<tr><td align=right>Umiejętnoœć czytania:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$slownictwo</td></tr>"; print "<tr><td align=right>Umiejętnoœć słuchania:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$wymowa</td></tr>"; print "<tr><td align=right>Umiejętnoœć pisania:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$motywacja</td></tr>"; print "<tr><td align=right>Zakres struktur gramatycznych:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$struktury</td></tr>"; print "<tr><td align=right>Zakres słownictwa:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$zakres_slownictwa</td></tr>"; print "<tr><td align=right>Zadania domowe:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$zadania_domowe</td></tr>"; print "<tr><td align=right>Komentarz:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$komentarz</td></tr>"; print "<tr><td align=right>Sugestie:</td><td bgcolor=white></td><td bgcolor=\#F3F3F3>$sugestie</td></tr>"; print "<tr><td align=right>&nbsp;</td><td bgcolor=white></td><td>&nbsp;</td></tr>"; print "<tr><td></td><td bgcolor=white></td><td bgcolor=\#F3F3F3><input class=\"test2\" type=\"submit\" value=\"> AKCEPTACJA <\"></td></tr>"; print "</table>"; print "<input type=\"hidden\" name=\"kom\" value=\"akceptacja\">"; print "<input type=\"hidden\" name=\"gramatyka\" value=\"$gramatyka\">"; print "<input type=\"hidden\" name=\"slownictwo\" value=\"$slownictwo\">"; print "<input type=\"hidden\" name=\"wymowa\" value=\"$wymowa\">"; print "<input type=\"hidden\" name=\"motywacja\" value=\"$motywacja\">"; print "<input type=\"hidden\" name=\"struktury\" value=\"$struktury\">"; print "<input type=\"hidden\" name=\"zakres_slownictwa\" value=\"$zakres_slownictwa\">"; print "<input type=\"hidden\" name=\"zadania_domowe\" value=\"$zadania_domowe\">"; print "<input type=\"hidden\" name=\"komentarz\" value=\"$komentarz\">"; print "<input type=\"hidden\" name=\"sugestie\" value=\"$sugestie\">"; print "<input type=\"hidden\" name=\"id_ucznia\" value=\"$id_ucznia\">"; print "<input type=\"hidden\" name=\"id\" value=\"$id\">"; print "<input type=\"hidden\" name=\"login\" value=\"$login\">"; print "<input type=\"hidden\" name=\"rodzaj\" value=\"nauczyciel\">"; print "<input type=\"hidden\" name=\"id_nauczyciela\" value=\"$id_nauczyciela\">"; print "<input type=\"hidden\" name=\"status_hasla\" value=\"OK\">"; print "</form>"; print "</body></html>"; exit; } #### poniżej funkcje ### ################### ## FUNKCJE ################### sub druk_header { my $headers = ""; $headers .= "Content-type: text/html; charset=ISO-8859-2\n\n"; # $headers .= "Cache-Control: no-cache,must-revalidate\n"; # $headers .= "Pragma: no-cache\n"; #$headers .= "Content-type: text/html\n\n"; print $headers; } #################### sub druk_start_html { my $str = ""; $str = <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <link rel="stylesheet" href="panel.css" TYPE="text/css"> <TITLE>LanguageHouse</TITLE> </HEAD> <BODY> END print $str; } ################### sub druk_end_html { # print "</TABLE></CENTER></BODY></HTML>"; print "</BODY></HTML>"; } ##################### sub get_month { my ( $utime ) = @_; return "" if ( ! $utime =~ /^[0-9]+/ ); my $mon = localtime($utime)->mon() + 1; return sprintf("%02d", $mon); } #################### sub get_datestr { my ( $utime ) = @_; return "brak" if ( ! $utime =~ /^[0-9]+/ ); my $mday = localtime($utime)->mday(); my $mon = localtime($utime)->mon() + 1; my $year = localtime($utime)->year() + 1900; return sprintf("%02d/%02d/%d", $mday, $mon, $year); } ################### sub get_timestr { my ( $utime ) = @_; return "" if ( ! $utime =~ /^[0-9]+/ ); my $hour = localtime( $utime )->hour(); my $min = localtime( $utime )->min(); return sprintf("%02d:%02d", $hour, $min); } #################### sub generuj_id { my $word = ""; my $pass; my $salt1 = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'; my $salt = substr($salt1,rand(length($salt1)),1); $salt .= substr($salt1,rand(length($salt1)),1); $word = pack("u", time); $pass = crypt( $word, $salt ); $pass =~ s/[^0-9A-Za-z]/X/g; return $pass; } # --------- sub get_datestr { my ( $utime ) = @_; return "brak" if ( ! $utime =~ /^[0-9]+/ ); my $mday = localtime($utime)->mday(); my $mon = localtime($utime)->mon() + 1; my $year = localtime($utime)->year() + 1900; return sprintf("%02d.%02d.%d", $mday, $mon, $year); } #--------------------- sub get_timestr { my ( $utime ) = @_; return "" if ( ! $utime =~ /^[0-9]+/ ); my $hour = localtime( $utime )->hour(); my $min = localtime( $utime )->min(); return sprintf("%02d:%02d", $hour, $min); } # -------------------- sub get_today { my ( $utime ) = @_; return "brak" if ( ! $utime =~ /^[0-9]+/ ); $mday = localtime($utime)->mday(); $mon = localtime($utime)->mon() + 1; $year = localtime($utime)->year() + 1900; return sprintf("%02d%02d%d", $mday, $mon, $year); #return ($mday, $mon, $year); } # -------------------- sub get_now { my ( $utime ) = @_; return "" if ( ! $utime =~ /^[0-9]+/ ); my $hour = localtime( $utime )->hour(); my $min = localtime( $utime )->min(); my $sec = localtime( $utime )->sec(); return sprintf("%02d%02d%02d", $hour, $min, $sec); } # ------------------- #-------------------------------------------------------------------------- MAIN #-------------------------------------------- sub generuj_uid { my $tmp = ""; my $uid; $tmp = pack ("u", time); $uid = crypt( $tmp, join( '', ('_', '-', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]) ); $uid =~ s/[^0-9A-Za-z]/_/g; return $uid; } #-------------------------------------------- sub generuj_password { my $tmp = ""; my $pass; $tmp = pack ("u", time); $pass = crypt( $tmp, join( '', ('_', '-', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]) ); $pass =~ s/[^0-9A-Za-z]/_/g; return $pass; } #-------------------------------------------- sub drukuj_ostrzezenie { my ( $txt ) = @_; print "<p>&nbsp;<center><b>$txt</b></center></p><p>&nbsp;\n"; } #-------------------------------------------- sub drukuj_informacje { my ( $txt ) = @_; print "<DIV class=wait>$txt</DIV>\n"; } #-------------------------------------------- sub drukuj_naglowek { print "Content-type: text/html\n\n"; #print "<body>"; print "<html>"; print "<head>"; print "<title>Untitled Document</title>"; print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-2\"><META NAME=\"robots\" CONTENT=\"noindex, nofollow\" >"; #print "<link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/obsluga/lh.css\">"; print "<link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/cgi-local/panel/panel.css\">"; print "<link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/menu_kursy.css\">"; print "<link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/html/images_kursy/kursy_myfreetemplates.css\">"; print "<link rel=\"stylesheet\" href=\"http://www.languagehouse.pl/obsluga/dhtmlgoodies_calendar/dhtmlgoodies_calendar.css?random=20051112\" media=\"screen\"></LINK>"; print "</head>"; print "<body>"; } #-------------------------------------------- sub drukuj_koniec { print "</body>"; print "</html>"; } #-------------------