Subversion Repositories VORC

Rev

Rev 208 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 208 Rev 296
Line 18... Line 18...
18 
 
 18 
 
19 
my $class_name;
 19 
my $class_name;
20 
my $cnhan = $dbh->prepare ("select id, name from class where year(date) = year(now())");
 20 
my $cnhan = $dbh->prepare ("select id, name from class where year(date) = year(now())");
21 
$cnhan->execute ();
 21 
$cnhan->execute ();
22 
while (my ($id, $name) = $cnhan->fetchrow_array ()) { $class_name->{$id} = $name; }
 - 
 
23 
 
 - 
 
24 
my $sth1 = $dbh->prepare("select distinct RCid from v_class_signup_new where year(date) = year(now()) order by RCid");
 22 
while (my ($id, $name) = $cnhan->fetchrow_array ()) { $class_name->{$id} = $name; }
Line -... Line 23...
- 
 
 23 
my $sth2 = $dbh->prepare("select distinct id from v_class_signup_new where year(date) = year(now()) and RCid = ? order by id");
- 
 
 24 
 
- 
 
 25 
my $seminar_name;
- 
 
 26 
my $snhan = $dbh->prepare ("select id, name from seminar where year(date) = year(now())");
- 
 
 27 
$snhan->execute ();
- 
 
 28 
while (my ($id, $name) = $snhan->fetchrow_array ()) { $seminar_name->{$id} = $name; }
- 
 
 29 
my $sth3 = $dbh->prepare("select distinct id from v_seminar_signup_new where year(date) = year(now()) and RCid = ? order by id");
- 
 
 30 
 
25 
my $sth2 = $dbh->prepare("select distinct id from v_class_signup_new where year(date) = year(now()) and RCid = ? order by id");
 31 
 
26 
 
 32 
my $sth1 = $dbh->prepare("select RCid from v_class_signup_new where year(date) = year(now()) and isnull(RCid) = 0 union select RCid from v_seminar_signup_new where year(date) = year(now()) and isnull(RCid) = 0 order by RCid");
27 
$sth1->execute();
 33 
$sth1->execute();
28 
while (my ($RCid) = $sth1->fetchrow_array()) {
 34 
while (my ($RCid) = $sth1->fetchrow_array()) {
29 
	my $email = getUserEmail($RCid);
 - 
 
Line -... Line 35...
- 
 
 35 
	my $email = getUserEmail($RCid);
30 
	my $dname = getUserDerbyName($RCid);
 36 
	my $dname = getUserDerbyName($RCid);
31 
	my @classes = ();
 37
32
38 
	my @classes = ();
33 
	$sth2->execute($RCid);
 39 
	$sth2->execute($RCid);
Line -... Line 40...
- 
 
 40 
	while (my ($C) = $sth2->fetchrow_array()) {
- 
 
 41 
		push @classes, $C;
- 
 
 42 
	}
- 
 
 43
- 
 
 44 
	my @seminars = ();
- 
 
 45 
	$sth3->execute($RCid);
34 
	while (my ($C) = $sth2->fetchrow_array()) {
 46 
	while (my ($S) = $sth3->fetchrow_array()) {
35 
		push @classes, $C;
 47 
		push @seminars, $S;
36 
	}
 48 
	}
37
- 
 
- 
 
 49
38 
	my $message = $h->p ("Greetings $dname,",
 50 
	my $message = $h->p ("Greetings $dname,",
39 
	                     "Thanks for taking classes at RollerCon $year. Please take a minute to give us some feedback on the class(es) you took. To find out more about how we use this info, check out ".$h->a ({ href => "https://rollercon.com/about/mvp-star-ratings/" }, "RollerCon MVP Star Ratings"),
 51 
	                     "Thanks for taking classes at RollerCon $year. Please take a minute to give us some feedback on the class(es) you took. To find out more about how we use this info, check out ".$h->a ({ href => "https://rollercon.com/about/mvp-star-ratings/" }, "RollerCon MVP Star Ratings"),
- 
 
 52 
	                     "Thanks again and see you next year!",
- 
 
 53
40 
	                     "Thanks again and see you next year!",
 54 
	                    );
- 
 
 55
41 
	                     "Here are the links to review the classes that we have you registered for:"
 56 
	if (scalar @classes) {
- 
 
 57 
    $message .= $h->p ("Here are the links to review the MVP Classes we have you registered for:");
- 
 
 58 
    $message .= $h->ul ([ map { $h->li ($h->a ({ href => "https://volunteers.rollercon.com/schedule/survey.pl?classid=$_" }, $class_name->{$_})) } @classes ]);
- 
 
 59 
  }
- 
 
 60
Line 42... Line 61...
42 
	                    );
 61 
  if (scalar @seminars) {
43
62 
    $message .= $h->p ("Here are the links to review the Seminars we have you registered for:");
44 
  $message .= $h->ul ([ map { $h->li ($h->a ({ href => "https://volunteers.rollercon.com/schedule/survey.pl?classid=$_" }, $class_name->{$_})) } @classes ]);
 63 
    $message .= $h->ul ([ map { $h->li ($h->a ({ href => "https://volunteers.rollercon.com/schedule/seminar_survey.pl?seminarid=$_" }, $seminar_name->{$_})) } @seminars ]);
45 
 
 64 
  }
46
65
Line 47... Line 66...
47 
  $message .= $h->p (
 66 
  $message .= $h->p (
Line 48... Line 67...
48 
    $h->i ("(Note: We may be missing some 'walk up' attendees of some classes.  If you don't see a link to a class you took, that's ok.)"),
 67 
    $h->i ("(Note: We may be missing some 'walk up' attendees of some classes.  If you don't see a link to a class you took, that's ok.)"),
Line 49... Line 68...
49 
    $h->br,
 68 
    $h->br,
50 
    "--RollerCon HQ".$h->br.'rollercon@gmail.com'.$h->br."rollercon.com"
 69 
    "--RollerCon HQ".$h->br.'rollercon@gmail.com'.$h->br."rollercon.com"
51 
  );
 70 
  );
52 
 
 71