#!/usr/bin/perl
require "sm.pl";
require "sm_html.pl";
require "sm-lib.pl";

require "cookie-lib.pl";
require "Date.pl";


&formdata;
$uid=$FORM{'uid'};
$mbr_id=$FORM{'i'};

&chkuid;

if ($mbr_id eq ""){
 if (&GetCookies($cookiename)){
  &GetCompressedCookies($cookiename);
  $cookie_id=$Cookies{'a'};
  if ($cookie_id ne ""){
   &chkmbr_cookie;
  }
  else{
   &delete_cookie($cookiename);   
  }
 }
}

if ($cookieset eq "N"){
 &sh_header;
}
&sh_title ("$title");
&sh_body ($bg);
&tabs("EX");
&menubar;
&leftbar;
&listexhibit;
&rightbar;
&sh_mainpg4;
&sh_footer;

#************************************************************************
sub listexhibit{
print <<HTML;
<font face="$font2" size="$fsize">
<strong>$ext1_m</strong><br>
Below you will find a list of our upcoming exhibitions (as and when dates/venues become available).
<p>
If you would like to be reminded of a particular exhibition simply press the <strong>Send me a Reminder</strong> button
below the details for that exhibition and we will send you an email 7 days before. 
<p>
If you would like to receive further details of a particular exhibition please send an email (with your postal address)
to <a href="mailto:exhibitions\@sallymitchell.com">exhibitions\@sallymitchell.com</a>.
<hr size="1">
<p>
HTML


$q = "Select f_exhibition_id, f_exhibition_title, f_exhibition_desc, f_exhibition_datetxt, f_exhibition_dateint, f_exhibition_day, f_exhibition_month, f_exhibition_year, f_subject_id from t_exhibition ORDER BY f_exhibition_dateint";
&dbmain ($d1, $d2, $q);
&dbmain ($d1, $d2, $q);
$numrows=$data->numrows;
$j=0;
while ($j<$numrows){
 @record=$data->fetchrow;
 $exhibition_id=@record[0];
 $exhibition_title=@record[1];
 $exhibition_desc=@record[2];
 $exhibition_datetxt=@record[3];
 $exhibition_dateint=@record[4];
 $exhibition_day=@record[5];
 $exhibition_month=@record[6];
 $exhibition_year=@record[7];
 $exhibit_subject_id=@record[8];
 $exhibition_desc=~ s/\n/<br>/g;
 &showexhibit;
 $j++;
} 
print <<HTML;
</font>
HTML
}


sub showexhibit{
print <<HTML;
<strong>$exhibition_title</strong><br>
$exhibition_datetxt<br>
$exhibition_desc<br>
HTML

if ($exhibit_subject_id ne ""){
print <<HTML;
<p>
<a href="/cgi-bin/sm-tabc.cgi?si=$exhibit_subject_id&uid=$uid&ti=25&wi=26">Click here to see pictures in this exhibition</a>
HTML
}



print <<HTML;
<form method="POST" action="/cgi-bin/sm-reminder.cgi">
<input type="submit" name="submit" value="Send me a Reminder">
HTML

if ($mbr_id ne ""){
print <<HTML;
<input type="hidden" name="a" value="Add this Reminder">
<input type="hidden" name="i" value="$mbr_id">
<input type="hidden" name="m" value="2">
<input type="hidden" name="occasion_o" value="10000">
<input type="hidden" name="occasion_r" value="none">
<input type="hidden" name="reminder_name" value="$exhibition_title">
<input type="hidden" name="relation_a" value="10000">
<input type="hidden" name="reminder_day" value="$exhibition_day">
<input type="hidden" name="reminder_month" value="$exhibition_month">
<input type="hidden" name="reminder_year" value="$exhibition_year">
<input type="hidden" name="reminder_daysb4" value="7">
<input type="hidden" name="uid" value="$uid">
HTML
}
else{
print <<HTML;
<input type="hidden" name="m" value="">
<input type="hidden" name="lif" value="2">
HTML
}

print <<HTML;
</form>
<p>&nbsp;</p>
HTML
}