version 1.36.10.1, 2009/09/23 02:05:38
|
version 1.37.2.2, 2010/11/29 14:57:20
|
Line 278 sub selfenroll_crumbs {
|
Line 278 sub selfenroll_crumbs {
|
my ($r,$courseid,$desc) = @_; |
my ($r,$courseid,$desc) = @_; |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:ToCatalog('backupcrumbs','')", |
({href=>"javascript:ToCatalog('backupcrumbs','')", |
text=>"Course Catalog"}); |
text=>"Course/Community Catalog"}); |
if ($env{'form.coursenum'} ne '') { |
if ($env{'form.coursenum'} ne '') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:ToCatalog('backupcrumbs','details')", |
({href=>"javascript:ToCatalog('backupcrumbs','details')", |
Line 374 function validate_email() {
|
Line 374 function validate_email() {
|
if (validmail(field) == false) { |
if (validmail(field) == false) { |
alert("$lt{'email'}: "+field.value+" $lt{'notv'}."); |
alert("$lt{'email'}: "+field.value+" $lt{'notv'}."); |
return false; |
return false; |
|
} else { |
|
var emailaddr = field.value; |
|
var lcemail = emailaddr.toLowerCase(); |
|
if (emailaddr != lcemail) { |
|
field.value = lcemail; |
|
alert("WebCenter usernames are all lower case.\\nAccordingly your username will be "+lcemail+" once activated."); |
|
} |
} |
} |
return true; |
return true; |
} |
} |
Line 420 sub print_username_form {
|
Line 427 sub print_username_form {
|
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_title(&mt('Validation'), |
&Apache::lonhtmlcommon::row_title(&mt('Validation'), |
'LC_pick_box_title')."\n". |
'LC_pick_box_title')."\n". |
$captchaform."\n".'<br /><br />'; |
$captchaform."\n". |
|
&mt('If either word is hard to read, [_1] will replace them.','<image src="/res/adm/pages/refresh.gif" alt="reCAPTCHA refresh" />').'<br /><br />'; |
if ($courseid ne '') { |
if ($courseid ne '') { |
$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n"; |
$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n"; |
} |
} |
Line 467 sub login_box {
|
Line 475 sub login_box {
|
my $unameform = '<input type="text" name="uname" size="20" value="" />'; |
my $unameform = '<input type="text" name="uname" size="20" value="" />'; |
my $upassform = '<input type="password" name="upass'.$now.'" size="20" />'; |
my $upassform = '<input type="password" name="upass'.$now.'" size="20" />'; |
$output .= '<form name="client" method="post" onsubmit="return(send());">'."\n". |
$output .= '<form name="client" method="post" onsubmit="return(send());">'."\n". |
'<input type="hidden" name="udom" size="10" value="'.$domain.'" />'. |
'<input type="hidden" name="udom" value="'.$domain.'" />'. |
&Apache::lonhtmlcommon::start_pick_box()."\n". |
&Apache::lonhtmlcommon::start_pick_box()."\n". |
&Apache::lonhtmlcommon::row_title($titles{$context}, |
&Apache::lonhtmlcommon::row_title($titles{$context}, |
'LC_pick_box_title')."\n". |
'LC_pick_box_title')."\n". |
Line 497 sub login_box {
|
Line 505 sub login_box {
|
sub process_email_request { |
sub process_email_request { |
my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate, |
my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate, |
$server,$settings,$courseid) = @_; |
$server,$settings,$courseid) = @_; |
$useremail = $env{'form.useremail'}; |
$useremail = lc($env{'form.useremail'}); |
my $output; |
my $output; |
if (ref($cancreate) eq 'ARRAY') { |
if (ref($cancreate) eq 'ARRAY') { |
if (!grep(/^email$/,@{$cancreate})) { |
if (!grep(/^email$/,@{$cancreate})) { |