Subversion Repositories PEEPS

Rev

Rev 2 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 33
Line 75... Line 75...
75 
  $ERR = $ERR ? $h->p ( {class=>"hint"}, $ERR) : "";
 75 
  $ERR = $ERR ? $h->p ( {class=>"hint"}, $ERR) : "";
76 
  use CGI qw/header/;
 76 
  use CGI qw/header/;
77 
  print header ();
 77 
  print header ();
78 
  print $h->html ([ $h->head ( [ $h->title ( "PEEPS - Database Error" ), $h->link ( { rel=>"stylesheet", href=>"/style.css" }) ] ),
 78 
  print $h->html ([ $h->head ( [ $h->title ( "PEEPS - Database Error" ), $h->link ( { rel=>"stylesheet", href=>"/style.css" }) ] ),
79 
	  [ $h->div ({ class=>"sp0", style=>"max-width:700px" }, [
 79 
	  [ $h->div ({ class=>"sp0", style=>"max-width:700px" }, [
80 
	                               $h->div ({ class=>"spLeft"  },  $h->a ({ href=>"/schedule/" }, $h->img ({ src=>"/logo.jpg", width=>"75", height=>"75" }))),
 80 
	                               $h->div ({ class=>"spLeft"  },  $h->a ({ href=>"/" }, $h->img ({ src=>"/images/wftdapeeps-powerby-wftdainsurance-2.svg", width=>"400", height=>"75" }))),
81 
	                               $h->div ({ class=>"spRight" },  $h->h1 ("PEEPS Database Error"))
 81 
	                               $h->div ({ class=>"spRight" },  $h->h1 ("PEEPS Database Error"))
82 
	                               ]),
 82 
	                               ]),
83 
	    $h->div ({ class=>"error" }, [ $h->br, $h->br, "If you're seeing this, there was an error connecting to the database:", $h->br, $ERR, "Apologies." ])
 83 
	    $h->div ({ class=>"error" }, [ $h->br, $h->br, "If you're seeing this, there was an error connecting to the database:", $h->br, $ERR, "Apologies." ])
84 
	  ]
 84 
	  ]
85 
	]);
 85 
	]);