Newer
Older
s4 / scripts / s4-basic1.case
@HIROSE Yuuji HIROSE Yuuji on 6 Apr 2019 563 bytes typo fixed
case $stage in
"home"|"")
    rowid=${2%%[!A-Z0-9a-z_]*}
    contenttype; echo
    # func   tbl-deffile	rowidForUpdation
    default_smail $formdir/memo.def
    ;;
  "edittable")
    contenttype; echo
    m4 -D_TITLE_="既存レコードの編集" $layout/html.m4.html
    edittable "$formdir/$2.def" "$2" "$3"
    ;;
  "viewtable")
    contenttype; echo
    m4 -D_TITLE_="レコードの詳細" $layout/html.m4.html
    viewtable "$formdir/$2.def" "$2" "$3"
    ;;
  "showattc")
    # $2=table_m $3=rowid $4=val
    shift
    showattc "$@"
    exit 0
   ;;
esac