[LON-CAPA-cvs] cvs: modules /raeburn/register registrations.pm
raeburn
lon-capa-cvs@mail.lon-capa.org
Wed, 21 Mar 2007 22:38:10 -0000
This is a MIME encoded message
--raeburn1174516690
Content-Type: text/plain
raeburn Wed Mar 21 18:38:10 2007 EDT
Modified files:
/modules/raeburn/register registrations.pm
Log:
Use registration.css
--raeburn1174516690
Content-Type: text/plain
Content-Disposition: attachment; filename="raeburn-20070321183810.txt"
Index: modules/raeburn/register/registrations.pm
diff -u modules/raeburn/register/registrations.pm:1.1 modules/raeburn/register/registrations.pm:1.2
--- modules/raeburn/register/registrations.pm:1.1 Fri Feb 3 20:08:58 2006
+++ modules/raeburn/register/registrations.pm Wed Mar 21 18:38:07 2007
@@ -233,27 +233,20 @@
}
$r->print(<<"END_OF_A");
-<html><head><title>View LON-CAPA Event Registrations</title>
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
+<head><title>View LON-CAPA Event Registrations</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-<style type="text/css">
-<!--
-.buttonred
-{
- font-size: 13px; font-family: arial, Trebuchet MS, verdana, helvetica, san-serif; padding: 4px;
- line-height: 15px; color: #FFFFFF; text-align: center; background: #CC6633; font-weight: bold;
-}
--->
-</style>
+<link type="text/css" rel="stylesheet" href="/css/registration.css">
</head>
-<body bgcolor="#ffffff" link="#003333" alink="#003333" vlink="#003333">
+<body>
END_OF_A
&main_box($r,$year,$event);
$r->print(<<"END_OF_B");
- <table cellpadding="0" cellspacing="0" width="100%" border="0">
- <tr bgcolor="#ffffff">
- <td><font face="Arial,Helvetica,sans-serif">
- <a HREF="http://loncapa.org/">Home</a> --> <a href="$exitpage">Support</a> --> <b>Choose an event</b></font>
+ <table class="LC_breadcrumb">
+ <tr>
+ <td>
+ <a href="http://loncapa.org/">Home</a> --> <a href="$exitpage">Support</a> --> <b>Choose an event</b>
</td>
<td> </td>
<td align="right" valign="top">
@@ -273,7 +266,7 @@
<table border="0" width="100%">
<tr>
<td> </td>
- <td><font face='arial,helvetica,sans serif'>
+ <td>
<br /><br />Sorry, you are not currently authorized to view information about registration for any LON-CAPA conferences or workshops. Please use the LON-CAPA <a href="http://support.loncapa.org/help">support form</a> to request addition of your username to the list of administrators. In your request please include a list of the event(s) for which you would like to be able to access registration information.<br /><br />A list of all LON-CAPA events for which registration information is available is shown below.
<br /><br />
END_OF_C
@@ -282,12 +275,12 @@
<table border="0" width="100%">
<tr>
<td> </td>
- <td><font face='arial,helvetica,sans serif'>
+ <td>
<br /><br />Click on the link to the LON-CAPA event for which you wish to display registration information:<br /><br />
END_OF_C
}
$r->print(<<"END_OF_D");
- <table>
+ <table class="LC_finder">
<tr>
<th>Event</th>
<th>Location</th>
@@ -328,22 +321,22 @@
<table border="0">
<tr>
<td align="middle">
-<table width="800" BORDER="0" CELLSPACING="0" CELLPADDING="4" WIDTH="100%">
+<table class="LC_mainbox">
<tr>
- <td colspan="4" valign="top" align="center" bgcolor="#CC6633">
+ <td colspan="4" valign="top" align="center" class="LC_darker">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td align="left">
<img border='0' src="/images/login/tmcc.jpg" width="420" height="60">
</td>
- <td><font face="arial,helvetica,sans-serif" size="+2" color="#ffffff"><b>LON-CAPA <br />$event $year</b></font></td>
+ <td class="LC_boxtitle"><b>LON-CAPA<br />$event $year</b></td>
</tr>
</table>
</td>
</tr>
<tr>
- <td width="8" bgcolor="#CC6633"> </td>
- <td bgcolor="#FFFF99" width="100%" height="350" valign="top">
+ <td width="8" class="LC_darker"> </td>
+ <td width="100%" height="350" valign="top" class="LC_lighter">
END_OF_BOX
}
@@ -351,11 +344,11 @@
my ($r,$page,$year,$event,$returnpage,$sponsors,$sponsorinfo) = @_;
$r->print(<<"START_OF_FOOT");
</td>
- <td bgcolor="#FFFF99" width="8"> </td>
- <td width="8" bgcolor="#CC6633"> </td>
+ <td class="LC_lighter" width="8"> </td>
+ <td width="8" class="LC_darker"> </td>
</tr>
<tr>
- <td colspan="4" height="4" bgcolor="#CC6633"> </td>
+ <td colspan="4" height="4" class="LC_darker"> </td>
</tr>
</table>
</td>
@@ -450,32 +443,25 @@
}
END_OF_SCRIPT
$r->print(<<"END_OF_A");
-<html><head><title>View LON-CAPA Event Registrations</title>
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
+<head><title>View LON-CAPA Event Registrations</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-<style type="text/css">
-<!--
-.buttonred
-{
- font-size: 13px; font-family: arial, Trebuchet MS, verdana, helvetica, san-serif; padding: 4px;
- line-height: 15px; color: #FFFFFF; text-align: center; background: #CC6633; font-weight: bold;
-}
--->
-</style>
+<link type="text/css" rel="stylesheet" href="/css/registration.css">
<script type="text/javascript">
$jscript
</script>
</head>
-<body bgcolor="#ffffff" link="#003333" alink="#003333" vlink="#003333">
+<body>
<form method="post" name="adminForm">
END_OF_A
&main_box($r,$year,$event);
$r->print(<<"END_OF_B");
- <table cellpadding="0" cellspacing="0" width="100%" border="0">
- <tr bgcolor="#ffffff">
- <td><font face="Arial,Helvetica,sans-serif">
- <a HREF="http://loncapa.org/">Home</a> --> <a href="$exitpage">Support</a> --> <a href="$portal">Choose an Event</a> --> <b>Choose data to display or export to Excel</b></font>
+ <table class="LC_breadcrumb">
+ <tr>
+ <td>
+ <a href="http://loncapa.org/">Home</a> --> <a href="$exitpage">Support</a> --> <a href="$portal">Choose an Event</a> --> <b>Choose data to display or export to Excel</b>
</td>
<td> </td>
<td align="right" valign="top">
@@ -488,20 +474,15 @@
</tr>
</table>
END_OF_B
- my $rowcount = 0;
- my $rowCol;
- my @rowcolors = ('#ffeebb','#ffffbb');
- my $rowCol = $rowcolors[0];
$r->print(<<"END_OF_BLOCK");
<br />
<table cellpadding="2" cellspacing="0" border="0" width="100%">
- <tr bgcolor="#ffcc33">
+ <tr class="LC_adminbar">
<td> </td>
<td valign="bottom"><nobr><img src="/images/requests/bl_step1.gif" width="21" height="24" valign="middle""> </nobr>
</td>
- <td align="left"><nobr>
- <font face="arial,helvetica,sans-serif"><b>Fields to display</b></nobr>
- </font>
+ <td align="left">
+ <nobr><b>Fields to display</b></nobr>
</td>
<td width="100%"> </td>
</tr>
@@ -512,10 +493,10 @@
<td> </td>
<td colspan="3">
<nobr>
- <input type="button" class="buttonred" value="check all"
+ <input type="button" class="buttoncolored" value="check all"
onclick="javascript:checkAll(document.adminForm.fields)" />
- <input type="button" class="buttonred" value="uncheck all"
+ <input type="button" class="buttoncolored" value="uncheck all"
onclick="javascript:uncheckAll(document.adminForm.fields)" />
</nobr>
</td>
@@ -523,14 +504,11 @@
<tr>
<td> </td>
<td colspan="3">
- <table width="90%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
- <tr>
- <td>
- <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
- <tr>
- <td>
- <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"><tr bgcolor="$rowCol">
+ <table class="LC_adminform">
END_OF_BLOCK
+ my $rowcount = 0;
+ my $css = $rowcount%2?' class="LC_oddrow"':' class="LC_evenrow"';
+ $r->print('<tr'.$css.'>');
my $total = @{$rowitems};
my $cells = 4;
my $remainder = ($total)%($cells);
@@ -541,9 +519,8 @@
for (my $i=0; $i<@{$rowitems}; $i++) {
if ($i>0 && $i%$cells == 0) {
$rowcount ++;
- my $rowindex = $rowcount%2;
- $rowCol = $rowcolors[$rowindex];
- $r->print('</tr><tr bgcolor="'.$rowCol.'">');
+ $css = $rowcount%2?' class="LC_oddrow"':' class="LC_evenrow"';
+ $r->print('</tr><tr'.$css.'>');
}
$r->print('<td valign="top" ');
if ($i == @{$rowitems}-1) {
@@ -551,7 +528,7 @@
$r-print('colspan="'.$colspan.'"');
}
}
- $r->print('><font face="arial,helvetica,sans-serif"');
+ $r->print('>');
if (@{$$rowitems[$i]} > 1) {
$r->print('<b>'.$$rowtitles[$i].'</b><br /><nobr>');
for (my $j=0; $j<@{$$rowitems[$i]}; $j++) {
@@ -561,20 +538,19 @@
} else {
$r->print('<nobr><label><input type="checkbox" name="fields" value="'.$$rowitems[$i][0].'" /> <b>'.$$rowtitles[$i].'</b></label></nobr>');
}
- $r->print('</font></td>');
+ $r->print('</td>');
}
- $r->print('</tr></table></td></tr></table></td></tr></table>');
+ $r->print('</tr></table></td></tr>');
$r->print(<<"END_OF_THREE");
<tr>
<td colspan="4"> </td>
</tr>
- <tr bgcolor="#ffcc33">
+ <tr class="LC_adminbar">
<td> </td>
<td valign="bottom"><nobr><img src="/images/requests/bl_step2.gif" width="21" height="24" valign="middle""> </nobr>
</td>
- <td align="left"><nobr>
- <font face="arial,helvetica,sans-serif"><b>Registration status of users</b></nobr>
- </font>
+ <td align="left">
+ <nobr><b>Registration status of users</b></nobr>
</td>
<td width="100%"> </td>
</tr>
@@ -595,13 +571,12 @@
<tr>
<td colspan="4"> </td>
</tr>
- <tr bgcolor="#ffcc33">
+ <tr class="LC_adminbar">
<td> </td>
<td valign="bottom"><nobr><img src="/images/requests/bl_step3.gif" width="21" height="24" valign="middle""> </nobr>
</td>
- <td align="left"><nobr>
- <font face="arial,helvetica,sans-serif"><b>Date Range</b></nobr>
- </font>
+ <td align="left">
+ <nobr><b>Date Range</b></nobr>
</td>
<td width="100%"> </td>
</tr>
@@ -613,31 +588,28 @@
<td colspan="3">
<table border="0" cellpadding="2" cellspacing="0">
<tr>
- <td><font face="Arial, Helvetica, sans-serif">Registrations last modified after: </td><td> </td>
- <td><font face="Arial, Helvetica, sans-serif">
- <table border="0" cellpadding="4" align="left">
- <tr>
- <td valign="top" align="center">
- <font face="Arial, Helvetica, sans-serif">
- <b>Month</b><br>
- <select name="month_start">
- <option value=-1>Please select</option>
+ <td>Registrations last modified after: </td><td> </td>
+ <td>
+ <table border="0" cellpadding="4" align="left">
+ <tr>
+ <td valign="top" align="center">
+ <b>Month</b><br>
+ <select name="month_start">
+ <option value=-1>Please select</option>
END_OF_THREE
for (my $k = 0; $k<12; $k ++) {
if ($month == $k) {
- $r->print(qq( <option value="$k" selected>$months[$k]</option>)); }
+ $r->print(qq( <option value="$k" selected>$months[$k]</option>)); }
else {
- $r->print(qq( <option value="$k">$months[$k]</option>));
+ $r->print(qq( <option value="$k">$months[$k]</option>));
}
}
- $r->print(qq( </select>
- </font>
- </td>
- <td valign="top" align="center">
- <font face="Arial, Helvetica, sans-serif">
- <b>Day</b><br>
- <select name="day_start">
- <option value=-1>Please select</option>));
+ $r->print(qq( </select>
+ </td>
+ <td valign="top" align="center">
+ <b>Day</b><br>
+ <select name="day_start">
+ <option value=-1>Please select</option>));
for (my $j = 1; $j<32; $j++) {
if ($day == $j) {
$r->print(qq( <option value="$j" selected>$j</option>\n));
@@ -648,13 +620,11 @@
}
$r->print(qq( </select>
- </font>
- </td>
- <td valign="top" align="center">
- <font face="Arial, Helvetica, sans-serif">
- <b>Year</b><br>
- <select name="year_start">
- <option value=-1>Please select</option>
+ </td>
+ <td valign="top" align="center">
+ <b>Year</b><br>
+ <select name="year_start">
+ <option value=-1>Please select</option>
));
for (my $i = $long_year; $i<$long_year+5; $i++) {
$short_year = substr($i,2);
@@ -666,26 +636,23 @@
}
}
$r->print(<<"END_OF_FOUR");
- </select>
- </font>
- </td>
- <td valign="bottom" align="center">
- <nobr><label><font face="Arial, Helvetica, sans-serif"><b>
- No start date?</b> </font><input type="checkbox" name="nostartdate" value="1"/></label></nobr>
- </td>
- </tr>
- </table>
+ </select>
+ </td>
+ <td valign="bottom" align="center">
+ <nobr><label><b> No start date?</b> <input type="checkbox" name="nostartdate" value="1"/></label></nobr>
+ </td>
+ </tr>
+ </table>
</td>
<tr>
- <td><font face="Arial, Helvetica, sans-serif">Registrations last modified before: </td><td> </td>
- <td><font face="Arial, Helvetica, sans-serif">
- <table border="0" cellpadding="4" align="left">
- <tr>
- <td valign="top" align="center">
- <font face="Arial, Helvetica, sans-serif">
- <b>Month</b><br>
- <select name="month_end">
- <option value=-1>Please select</option>
+ <td>Registrations last modified before: </td><td> </td>
+ <td>
+ <table border="0" cellpadding="4" align="left">
+ <tr>
+ <td valign="top" align="center">
+ <b>Month</b><br>
+ <select name="month_end">
+ <option value=-1>Please select</option>
END_OF_FOUR
for (my $k = 0; $k<12; $k ++) {
@@ -696,13 +663,11 @@
}
}
$r->print(qq( </select>
- </font>
- </td>
- <td valign="top" align="center">
- <font face="Arial, Helvetica, sans-serif">
- <b>Day</b><br>
- <select name="day_end">
- <option value=-1>Please select</option>));
+ </td>
+ <td valign="top" align="center">
+ <b>Day</b><br>
+ <select name="day_end">
+ <option value=-1>Please select</option>));
for (my $j = 1; $j<32; $j++) {
if ($day == $j) {
$r->print(qq( <option value="$j" selected>$j</option>\n));
@@ -713,13 +678,11 @@
}
$r->print(qq( </select>
- </font>
- </td>
- <td valign="top" align="center">
- <font face="Arial, Helvetica, sans-serif">
- <b>Year</b><br>
- <select name="year_end">
- <option value=-1>Please select</option>
+ </td>
+ <td valign="top" align="center">
+ <b>Year</b><br>
+ <select name="year_end">
+ <option value=-1>Please select</option>
));
for (my $i = $long_year; $i<$long_year+5; $i++) {
$short_year = substr($i,2);
@@ -731,15 +694,13 @@
}
}
$r->print(<<"END_OF_FIVE");
- </select>
- </font>
- </td>
- <td valign="bottom" align="center">
- <nobr><label><font face="Arial, Helvetica, sans-serif"><b>
- No end date?</b> </font><input type="checkbox" name="noenddate" value="1"/></label></nobr>
- </td>
- </tr>
- </table>
+ </select>
+ </td>
+ <td valign="bottom" align="center">
+ <nobr><label><b>No end date?</b> </font><input type="checkbox" name="noenddate" value="1"/></label></nobr>
+ </td>
+ </tr>
+ </table>
</td>
</tr>
</table>
@@ -748,7 +709,7 @@
<tr>
<td colspan="4"> </td>
</tr>
- <tr bgcolor="#ffcc33">
+ <tr class="LC_adminbar">
<td> </td>
<td valign="bottom"><nobr><img src="/images/requests/bl_step4.gif" width="21" height="24" valign="middle""> </nobr>
</td>
@@ -798,7 +759,7 @@
</tr>
<tr>
<td> </td>
- <td colspan="3"><input type="button" class="buttonred" name="display" value="Display data" onClick="javascript:validForm()"></td>
+ <td colspan="3"><input type="button" class="buttoncolored" name="display" value="Display data" onClick="javascript:validForm()"></td>
</tr>
<tr>
<td colspan="4"> </td>
@@ -960,9 +921,6 @@
my @header = ();
my @data = ();
my $rowcount = 0;
- my $rowCol;
- my @rowcolors = ('#ffeebb','#ffffbb');
- my $rowCol = $rowcolors[0];
if (@users > 0) {
foreach my $field (@fields) {
if ($field eq 'workshop') {
@@ -977,22 +935,21 @@
}
foreach my $user_id (@users) {
@{$data[$rowcount]} = ();
- my $rowindex = $rowcount%2;
- $rowCol = $rowcolors[$rowindex];
- $webcontent[$rowcount] = '<tr bgcolor="'.$rowCol.'">';
+ my $css = $rowcount%2?' class="LC_oddrow"':' class="LC_evenrow"';
+ $webcontent[$rowcount] = '<tr'.$css.'>';
foreach my $field (@fields) {
if ($field eq 'workshop') {
foreach my $workshop (@workshopnames) {
if (defined($workshops{$user_id}{$workshop})) {
- $webcontent[$rowcount] .= '<td align="right"><font face="Arial,Helvetica,sans-serif">Y</font></td>';
+ $webcontent[$rowcount] .= '<td align="right">Y</td>';
push(@{$data[$rowcount]},'Y');
} else {
- $webcontent[$rowcount] .= '<td align="right"><font face="Arial,Helvetica,sans-serif">N</font></td>';
+ $webcontent[$rowcount] .= '<td align="right">N</td>';
push(@{$data[$rowcount]},'N');
}
}
} else {
- $webcontent[$rowcount] .= '<td align="right"><font face="Arial,Helvetica,sans-serif">'.$currvalue{$user_id}{$field}.'</font></td>';
+ $webcontent[$rowcount] .= '<td align="right">'.$currvalue{$user_id}{$field}.'</td>';
push(@{$data[$rowcount]},$currvalue{$user_id}{$field});
}
}
@@ -1001,32 +958,25 @@
}
}
$r->print(<<"END_OF_A");
-<html><head><title>View LON-CAPA Event Registrations</title>
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
+<head><title>View LON-CAPA Event Registrations</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-<style type="text/css">
-<!--
-.buttonred
-{
- font-size: 13px; font-family: arial, Trebuchet MS, verdana, helvetica, san-serif; padding: 4px;
- line-height: 15px; color: #FFFFFF; text-align: center; background: #CC6633; font-weight: bold;
-}
--->
-</style>
+<link type="text/css" rel="stylesheet" href="/css/registration.css">
<script type="text/javascript">
$jscript
</script>
</head>
-<body bgcolor="#ffffff" link="#003333" alink="#003333" vlink="#003333">
+<body>
<form method="post" name="adminForm">
END_OF_A
&main_box($r,$year,$event);
$r->print(<<"END_OF_B");
- <table cellpadding="0" cellspacing="0" width="100%" border="0">
- <tr bgcolor="#ffffff">
- <td><font face="Arial,Helvetica,sans-serif">
- <a HREF="http://loncapa.org/">Home</a> --> <a href="$exitpage">Support</a> --> <a href="$portal">Choose an Event</a> --> <a href="/registrations?$regurl">Choose data to display/export</a> --> <b>Result</b></font>
+ <table class="LC_breadcrumb">
+ <tr>
+ <td>
+ <a href="http://loncapa.org/">Home</a> --> <a href="$exitpage">Support</a> --> <a href="$portal">Choose an Event</a> --> <a href="/registrations?$regurl">Choose data to display/export</a> --> <b>Result</b></font>
</td>
<td> </td>
<td align="right" valign="top">
@@ -1052,26 +1002,16 @@
<tr>
<td> </td>
<td>
- <table width="90%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000"> <tr>
- <td>
- <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
- <tr>
- <td>
- <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
- <tr bgcolor="#ffcc33">
+ <table class="LC_adminform">
+ <tr class="LC_adminbar">
'.$headerweb.'</tr>');
foreach my $line (@webcontent) {
$r->print("$line\n");
}
$r->print('
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
+ </tr>
+ </table>
+ </td>
');
}
$r->print('
--raeburn1174516690--