#!/usr/local/bin/perl
=pod
=cut
$SITE::about_html = '宿題調査者 (制作: 若葉; 2001-03-07)';
$SITE::basepath = '../pl/';
require $SITE::basepath.'site.pl';
package hw;
%homeworks = (
genbun => '国語: 4/12(木)提出 『新体系 現代文の演習 グレード2』 P48〜P63',
kobun => '国語: 4/12(木)提出 『練成 古文』 P32〜P47',
kanbun => '国語: 4/12(木)提出 『新演習 漢文アチーブ2』 P12〜P25',
suugaku => '数学: 4/12(木)提出 『数学演習問題 <第4集>』',
forest => '英語: --提出無し-- 『Forest 文法テキスト』発展問題(特別授業範囲)復習',
sougoueigo => '英語: 4/12(木)提出 『総合英語』問題集 一冊',
homereader => '英語: --提出なし-- 『The Lory that was Greece』 Chapter 1,2 (pp.1〜19)',
worldhist => '世界史: (最初の授業) 『物語 世界史への旅』を読み、20テーマ中2テーマについて、それぞれレポート用紙2枚以上に考察をまとめる。',
jphist => '日本史: 4/9(月)提出 教科書の重点をノートの見開き左頁に書く。 (A: 『現代の日本史』P66〜P77; B: 『新日本史B』P6〜P35)',
chiri => '地理: (最初の授業) 教科書の重点をノートの見開き左頁に書く。 (A: 第1編第1章, 第2章; B: 第1章第1節, 第2節)',
butsuri => '物理: (最初の授業) 課題プリント(ノートに切り貼り)',
kagaku => '化学(全員): 3/23(金)提出 プリント1枚',
kagakus => '化学(選択者: 理系, 理数科): (最初の授業) プリント No.1〜4',
seibutsu => '生物(普通科): --提出なし-- 教科書P7〜39を読む。',
read => '読書: 4/9(月)提出 メッセイジ・カード 1枚以上',
);
sub error {
my $eid = shift; my $emsg;
$emsg = ($eid eq 'nouser' ? '利用者名が不正です。':
$eid eq 'add' ? '利用者を追加出来ませんでした。既に登録されているか、利用者名が不正です。':
'');
&SITE::error($emsg);
}
sub showlist {
my ($ruri, $uid) = @_;
open F, $SITE::basepath.'homework-check.dat';
my @F = ;
close F; my %data;
for (@F) {
if (/^$ruri;(.+)\n/) {
%data = split /:/, $1;
last;
}
}
print "content-type: text/html; charset=euc-jp\n\n";
print <
宿題調査者
宿題調査者