Word Study 2019

From WGVC MediaWiki
Revision as of 22:10, 15 December 2019 by GVincentCastellano (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Index to study technologies new in 2019.

http://study.wgvc.com/cgi-bin/deferred.pl

  • List the deferred questions in the zyz-bridge

http://study.wgvc.com/cgi-bin/update-deferred.pl

  • Update the deferred questions sheet from the zyz-bridge
    • Run under cron from Ubuntu account

http://study.wgvc.com/cgi-bin/check-deferred-answers.pl

  • Grade the deferred quiz questions from the GSheet.

http://study.wgvc.com/cgi-bin/check-deferred-answers.pl?2s=1

  • Grade the 2-to-make-3s from the GSheet.
  • 127 2s
  • 93 2-letter racks

http://study.wgvc.com/wrong.html

  • .js display of questions marked wrong in zyz-bridge

http://study.wgvc.com/cgi-bin/zyz-progress.pl

  • Progress against current AnyMemo deck

http://study.wgvc.com/cgi-bin/non-cb0-inserts.pl

  • Inserts from Google sheet that are already in non-zer cardboxes

#!/usr/bin/perl

use DBI;

# Query as in input, and generate HTML table output 
my $query = 'select * from data';

# 1) Connect and get DB handle
my $dbh = connect_db(); # use your own connection here

# 2) Run your query 
my $sth   = $dbh->prepare($query);
my @loh   = @{ $sth->fetchall_arrayref({}) };
my @cols  = @{ $sth->{NAME} };

# 3) Generate HTML Table 
my $thead = join('', map {"<td>$_</td>"} @cols);

my @rows = ();
for my $hr (@loh) {
    push @rows, join('', map {"<td>$_</td>"} @{$hr}{@cols});
}

my $tbody = join ('', map {"<tr>$_</tr>"} @rows);

my $html = qq|<table> $thead <thead> $thead </thead> <tbody> $tbody </tbody> </table>|;

print $html;