version 1.20, 2004/12/30 21:16:38
|
version 1.21, 2004/12/31 02:46:18
|
Line 52 sub print_request_form {
|
Line 52 sub print_request_form {
|
$urole = $ENV{'request.role'}; |
$urole = $ENV{'request.role'}; |
$usec = $ENV{'request.course.sec'}; |
$usec = $ENV{'request.course.sec'}; |
$cid = $ENV{'request.course.id'}; |
$cid = $ENV{'request.course.id'}; |
$server = $ENV{'SERVER_NAME'}; |
if ($origurl =~ m-^http://-) { |
|
$server = $origurl; |
|
} else { |
|
$server = 'http://'.$ENV{'SERVER_NAME'}.$origurl; |
|
} |
my $scripttag = (<<'END'); |
my $scripttag = (<<'END'); |
function validate() { |
function validate() { |
if (validmail(document.logproblem.email) == false) { |
if (validmail(document.logproblem.email) == false) { |
Line 115 END
|
Line 119 END
|
if (exists($ENV{'form.codedom'})) { |
if (exists($ENV{'form.codedom'})) { |
$codedom = $ENV{'form.codedom'}; |
$codedom = $ENV{'form.codedom'}; |
} |
} |
|
my $details_title; |
|
if ($codedom) { |
|
$details_title = '<br />('.$codedom.')'; |
|
} |
my %coursecodes = (); |
my %coursecodes = (); |
my %codes = (); |
my %codes = (); |
my @codetitles = (); |
my @codetitles = (); |
Line 298 END
|
Line 306 END
|
<table width="100%" border="0" cellpadding="8" cellspacing="0"> |
<table width="100%" border="0" cellpadding="8" cellspacing="0"> |
<tr> |
<tr> |
<td> |
<td> |
http://$server$origurl<input type="hidden" name="sourceurl" value="http://$server$origurl" /> |
$server<input type="hidden" name="sourceurl" value="$server" /> |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
Line 337 END
|
Line 345 END
|
<td width="140" bgcolor="$tablecolor"> |
<td width="140" bgcolor="$tablecolor"> |
<table width="140" border="0" cellpadding="8" cellspacing="0"> |
<table width="140" border="0" cellpadding="8" cellspacing="0"> |
<tr> |
<tr> |
<td align="right"><b>Course Details:</b> |
<td align="right"><b>Course Details:</b>$details_title |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
Line 834 sub print_header {
|
Line 842 sub print_header {
|
ask => 'Ask helpdesk', |
ask => 'Ask helpdesk', |
getst => 'Getting started guide', |
getst => 'Getting started guide', |
back => 'Back to last location' |
back => 'Back to last location' |
); |
); |
|
my ($getstartlink,$getstarttext); |
|
if (-e $Apache::lonnet::perlvar{'lonDocRoot'}.'/adm/gettingstarted.html') { |
|
$getstartlink = qq|<td align="center"> <b><a href="/adm/gettingstarted.html">$lt{'getst'}</a></td>|; |
|
$getstarttext = ' '.&mt('and the "Getting started" guide').' '; |
|
} |
$r->print(<<END); |
$r->print(<<END); |
<table width="620" border="0" cellspacing="0" cellpadding="0" height="55"> <tr height="50"> <td width='5'> </td> |
<table width="620" border="0" cellspacing="0" cellpadding="0" height="55"> <tr height="50"> <td width='5'> </td> |
<td> |
<td> |
Line 851 sub print_header {
|
Line 864 sub print_header {
|
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
<tr bgcolor="$tablecolor"> |
<tr bgcolor="$tablecolor"> |
<td align="center"><img src="$location/help/gif/smallHelp.gif" border="0" alt="(Login help)" valign="middle" /> <b><a href="/adm/loginproblems.html">$lt{'login'}</a></td> |
<td align="center"><img src="$location/help/gif/smallHelp.gif" border="0" alt="(Login help)" valign="middle" /> <b><a href="/adm/loginproblems.html">$lt{'login'}</a></td> |
<td align="center"> <b>$helpdesk_link<img src="$location/lonIcons/helpdesk.gif" border="0" alt="(Ask helpdesk)" valign="middle" /> $lt{'ask'}</a></b> </td> |
<td align="center"> <b>$helpdesk_link<img src="$location/lonIcons/helpdesk.gif" border="0" alt="(Ask helpdesk)" valign="middle" /> $lt{'ask'}</a></b> </td>$getstartlink |
<td align="center"> <b><a href="/adm/gettingstarted.html">$lt{'getst'}</a></td> |
|
<td align="center"> <b><a href="$origurl" target="_top"><img src="$location/lonIcons/move_up.gif" border="0" alt="(Back to last location)" valign="middle" /> $lt{'back'}</a></b> </td> |
<td align="center"> <b><a href="$origurl" target="_top"><img src="$location/lonIcons/move_up.gif" border="0" alt="(Back to last location)" valign="middle" /> $lt{'back'}</a></b> </td> |
</tr> |
</tr> |
</table> |
</table> |
Line 877 END
|
Line 889 END
|
$r->print(' |
$r->print(' |
<tr> |
<tr> |
<td colspan="3">'.&mt(' |
<td colspan="3">'.&mt(' |
Please read the "Log-in help" and "Getting started guide" if you can not log-in').'. '.&mt('If your problem is still unresolved, the form below can be used to send a question to the LON-CAPA helpdesk').'.<br /><font size="-1"><b>'.&mt('Note').':</b> '.&mt('Student questions about course content should be directed to the course instructor').'.</font><br /><br /> |
Please review the information in "Log-in help"').$getstarttext.' '.&mt('if you are unable to log-in').'. '.&mt('If your problem is still unresolved, the form below can be used to send a question to the LON-CAPA helpdesk').'.<br /><font size="-1"><b>'.&mt('Note').':</b> '.&mt('Student questions about course content should be directed to the course instructor').'.</font><br /><br /> |
</td> |
</td> |
</tr>'); |
</tr>'); |
} |
} |