1.1 --- a/s4-funcs.sh	Wed Jul 22 21:31:56 2015 +0900
     1.2 +++ b/s4-funcs.sh	Wed Jul 22 22:04:45 2015 +0900
     1.3 @@ -42,12 +42,12 @@
     1.4  グループへの一斉送信機能は付いたが表に出てない(7/6)
     1.5  ひとつのarticleをheadingにして新規ツリーを作成、あるといいかも。
     1.6  
     1.7 -7/19	設置
     1.8 +7/19	○設置
     1.9  	締切設定
    1.10 -	一斉送信
    1.11 +	○一斉送信
    1.12  	自分の提出物リスト
    1.13 -	getparfilename の tmpd の扱い
    1.14 -	やっぱりs4にしようかな
    1.15 +	○getparfilename の tmpd の扱い
    1.16 +	○やっぱりs4にしようかな
    1.17  7/18	○書込著者からホームへのリンク
    1.18  7/17	○個人blogに「レポート提出用」がついたときの挙動
    1.19  	○添付ファイル回収
    1.20 @@ -1117,6 +1117,8 @@
    1.21    query "replace into par values('$session', 'pswd', 'string', 'wasureta'),
    1.22  ('$session', 'user', 'string', '$email');"
    1.23    wasureta $email
    1.24 +  echo "<p>このアドレスに初期パスワードを送信しました。</p>"
    1.25 +  echo "<p>新着メイルを確認してログインしてください。</p>"
    1.26    addsession $1			# for removal after 1 minute
    1.27    m4 -D_SYSNAME_="Initial Login" -D_MYNAME_="$myname?userconf" \
    1.28       $layout/login.m4.html
    1.29 @@ -1163,9 +1165,9 @@
    1.30  }
    1.31  
    1.32  listgroupbytable() {
    1.33 -  # $1=deffile
    1.34 +  # $1=deffile $2...=condition
    1.35    tagline=`grep :tag: $1`; shift
    1.36 -  and="${1:+and }"
    1.37 +  and="${1:+and }" where=${1:+where }
    1.38    href="<a href=\"$myname?grp+"
    1.39    echo '<div class="listgroup">'
    1.40    NGsql="select distinct tag from\
    1.41 @@ -1179,7 +1181,7 @@
    1.42  err ListGrp: tag=$tag
    1.43      tn=${tagline%%=${tag}*}
    1.44      tn=${tn##*[ :]}
    1.45 -    sql="select rowid||':'||gname as 'グループ名',説明 from (select (select rowid from grp g where g.gname=grp_s.gname) as rowid,gname,max(case key when 'gecos' then val end) as '説明',max(case key when 'tag' then val end) as 'tag',max(case key when 'mtime' then val end) as mtime from grp_s group by gname having tag='$tag' order by mtime desc);"
    1.46 +    sql="select rowid||':'||gname as 'グループ名',説明 from (select (select rowid from grp g where g.gname=grp_s.gname) as rowid,gname,max(case key when 'gecos' then val end) as '説明',max(case key when 'tag' then val end) as 'tag',max(case key when 'mtime' then val end) as mtime from grp_s $where$* group by gname having tag='$tag' order by mtime desc);"
    1.47   err PersonalGroupList= `echo $sql`
    1.48      echo "<h2>$tn</h2>"
    1.49      echo '<table class="b listgroup">'