version 1.21, 2005/06/03 15:47:29
|
version 1.22, 2006/03/21 18:37:51
|
Line 71 sub handler {
|
Line 71 sub handler {
|
|
|
sub display_help_banner { |
sub display_help_banner { |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
my $bodytag = &Apache::loncommon::bodytag('',$function,'rightmargin="0" leftmargin="0" marginwidth="0" topmargin="1" marginheight="1"',1); |
|
$bodytag=~s/[\n\r]/ /g; |
|
my $fontcolor = &Apache::loncommon::designparm($function.'.font'); |
my $fontcolor = &Apache::loncommon::designparm($function.'.font'); |
my $alinkcolor = &Apache::loncommon::designparm($function.'.alink'); |
my $alinkcolor = &Apache::loncommon::designparm($function.'.alink'); |
my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink'); |
my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink'); |
Line 118 function validmail(field) {
|
Line 116 function validmail(field) {
|
var str = field.value; |
var str = field.value; |
if (window.RegExp) { |
if (window.RegExp) { |
var reg1str = "(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)"; |
var reg1str = "(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)"; |
var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$"; |
var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$"; //" |
var reg1 = new RegExp(reg1str); |
var reg1 = new RegExp(reg1str); |
var reg2 = new RegExp(reg2str); |
var reg2 = new RegExp(reg2str); |
if (!reg1.test(str) && reg2.test(str)) { |
if (!reg1.test(str) && reg2.test(str)) { |
Line 138 function validmail(field) {
|
Line 136 function validmail(field) {
|
</script> |
</script> |
SCRIPT_TWO |
SCRIPT_TWO |
} |
} |
|
|
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<END); |
my $body_layout = 'rightmargin="0" leftmargin="0" marginwidth="0" topmargin="1" marginheight="1"'; |
$html |
my $start_page = |
<head> |
&Apache::loncommon::start_page('',$scripttag, |
<title>Help Banner</title> |
{'function' => $function, |
<style type="text/css"> |
'add_entries' => $body_layout, |
<!-- |
'only_body' => 1,}); |
a:link {text-decoration: none; color: $fontcolor; } |
$r->print($start_page); |
a:visited {text-decoration: none; color: $fontcolor; } |
|
a:active {text-decoration: none; color: $fontcolor; } |
|
a:hover {text-decoration: underline; color: $vlinkcolor; } |
|
--> |
|
</style> |
|
$scripttag |
|
</head> |
|
$bodytag |
|
END |
|
if ($stayOnPage) { |
if ($stayOnPage) { |
$r->print('<table width="700" border="0" cellspacing="0" cellpadding="0" height="55">'); |
$r->print('<table width="700" border="0" cellspacing="0" cellpadding="0" height="55">'); |
} else { |
} else { |
Line 226 END
|
Line 217 END
|
<td colspan='3' height='5'> </td> |
<td colspan='3' height='5'> </td> |
</tr> |
</tr> |
</table> |
</table> |
</body> |
|
</html> |
|
END |
END |
|
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
|
sub display_help_mainpage { |
sub display_help_mainpage { |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_; |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1); |
|
$bodytag=~s/[\n\r]/ /g; |
|
my %lt =&Apache::lonlocal::texthash( |
my %lt =&Apache::lonlocal::texthash( |
'heco' => 'Help Content', |
|
'topp' => 'Topic Page', |
'topp' => 'Topic Page', |
'chen' => 'Choose an entry below to go directly to a relevant help page', |
'chen' => 'Choose an entry below to go directly to a relevant help page', |
'orto' => 'or to submit a help request to the LON-CAPA support staff at your institution.', |
'orto' => 'or to submit a help request to the LON-CAPA support staff at your institution.', |
Line 255 sub display_help_mainpage {
|
Line 243 sub display_help_mainpage {
|
'crea' => 'Create an account for yourself in the LON-CAPA Bugzilla tracking system, if you wish to report bugs you have encountered in the LON-CAPA software,or if you have suggestions for improvements in LON-CAPA.', |
'crea' => 'Create an account for yourself in the LON-CAPA Bugzilla tracking system, if you wish to report bugs you have encountered in the LON-CAPA software,or if you have suggestions for improvements in LON-CAPA.', |
'suim' => ' Suggested improvements may include additional functionality, improved usability, or changes to wording used in LON-CAPA pages, including the embedded help system.' |
'suim' => ' Suggested improvements may include additional functionality, improved usability, or changes to wording used in LON-CAPA pages, including the embedded help system.' |
); |
); |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<END); |
my $start_page = |
$html |
&Apache::loncommon::start_page('Help Content',undef, |
<head> |
{'function' => $function, |
<title>$lt{'heco'}</title> |
'add_entries' => 'topmargin="0" marginheight="0"', |
</head> |
'only_body' => 1,}); |
$bodytag |
$r->print($start_page); |
END |
|
$r->print($lt{'chen'}); |
$r->print($lt{'chen'}); |
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
$r->print(', '.$lt{'orto'}); |
$r->print(', '.$lt{'orto'}); |
Line 317 END
|
Line 304 END
|
<p>$lt{'crea'} $lt{'suim'}</p> |
<p>$lt{'crea'} $lt{'suim'}</p> |
"); |
"); |
} |
} |
$r->print(<<END); |
$r->print(&Apache::loncommon::end_page()); |
</body> |
|
</html> |
|
END |
|
} |
} |
|
|
1; |
1; |