version 1.36, 2010/05/14 18:29:52
|
version 1.38, 2010/11/10 14:44:50
|
Line 413 sub print_selection_form {
|
Line 413 sub print_selection_form {
|
$jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles); |
$jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles); |
} |
} |
} |
} |
|
my @standardnames = &Apache::loncommon::get_standard_codeitems(); |
|
|
my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom); |
my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom); |
|
|
Line 436 function setCourseCat(formname) {
|
Line 437 function setCourseCat(formname) {
|
if (formname.Year.options[formname.Year.selectedIndex].value == -1) { |
if (formname.Year.options[formname.Year.selectedIndex].value == -1) { |
return; |
return; |
} |
} |
courseSet('Year'); |
courseSet('$codetitles[0]'); |
for (var j=0; j<formname.Semester.length; j++) { |
for (var j=0; j<formname.Semester.length; j++) { |
if (formname.Semester.options[j].value == "$env{'form.Semester'}") { |
if (formname.Semester.options[j].value == "$env{'form.Semester'}") { |
formname.Semester.options[j].selected = true; |
formname.Semester.options[j].selected = true; |
Line 445 function setCourseCat(formname) {
|
Line 446 function setCourseCat(formname) {
|
if (formname.Semester.options[formname.Semester.selectedIndex].value == -1) { |
if (formname.Semester.options[formname.Semester.selectedIndex].value == -1) { |
return; |
return; |
} |
} |
courseSet('Semester'); |
courseSet('$codetitles[1]'); |
for (var j=0; j<formname.Department.length; j++) { |
for (var j=0; j<formname.Department.length; j++) { |
if (formname.Department.options[j].value == "$env{'form.Department'}") { |
if (formname.Department.options[j].value == "$env{'form.Department'}") { |
formname.Department.options[j].selected = true; |
formname.Department.options[j].selected = true; |
Line 454 function setCourseCat(formname) {
|
Line 455 function setCourseCat(formname) {
|
if (formname.Department.options[formname.Department.selectedIndex].value == -1) { |
if (formname.Department.options[formname.Department.selectedIndex].value == -1) { |
return; |
return; |
} |
} |
courseSet('Department'); |
courseSet('$codetitles[2]'); |
for (var j=0; j<formname.Number.length; j++) { |
for (var j=0; j<formname.Number.length; j++) { |
if (formname.Number.options[j].value == "$env{'form.Number'}") { |
if (formname.Number.options[j].value == "$env{'form.Number'}") { |
formname.Number.options[j].selected = true; |
formname.Number.options[j].selected = true; |
Line 481 function setCourseCat(formname) {
|
Line 482 function setCourseCat(formname) {
|
my $submit_text = $lt{'comp'}; |
my $submit_text = $lt{'comp'}; |
my $cmd = 'compose'; |
my $cmd = 'compose'; |
$output .= &Apache::lonhtmlcommon::role_select_row(\@roles,&mt('Roles')); |
$output .= &Apache::lonhtmlcommon::role_select_row(\@roles,&mt('Roles')); |
$output .= &Apache::lonhtmlcommon::course_select_row(&mt('Courses'),$formname,$totcodes,\@codetitles,\%idlist,\%idlist_titles); |
$output .= &Apache::lonhtmlcommon::course_select_row(&mt('Courses'),$formname,$totcodes,\@codetitles,\%idlist,\%idlist_titles,undef,undef,\@standardnames); |
$output .= &Apache::lonhtmlcommon::status_select_row(\%longtypes,&mt('Access status')); |
$output .= &Apache::lonhtmlcommon::status_select_row(\%longtypes,&mt('Access status')); |
$output .= &Apache::lonhtmlcommon::email_default_row(\%authtypes,&mt('Username -> E-mail conversion'),$descrip); |
$output .= &Apache::lonhtmlcommon::email_default_row(\%authtypes,&mt('Username -> E-mail conversion'),$descrip); |
$output .= &Apache::lonhtmlcommon::submit_row(&mt('Submit'),$cmd,$submit_text); |
$output .= &Apache::lonhtmlcommon::submit_row(&mt('Submit'),$cmd,$submit_text); |
Line 526 function goBack(target) {
|
Line 527 function goBack(target) {
|
%courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.', |
%courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.', |
undef,undef,'Course'); |
undef,undef,'Course'); |
} elsif ($coursefilter eq 'category') { |
} elsif ($coursefilter eq 'category') { |
my $instcode = ''; |
my $instcode = &Apache::courseclassifier::instcode_from_selectors($cdom); |
my @cats = ('Semester','Year','Department','Number'); |
my $regexp = ''; |
foreach my $category (@cats) { |
|
if (defined($env{'form.'.$category})) { |
|
unless ($env{'form.'.$category} eq '-1') { |
|
$instcode .= $env{'form.'.$category}; |
|
} |
|
} |
|
} |
|
if ($instcode eq '') { |
if ($instcode eq '') { |
$instcode = '.'; |
$instcode = '.'; |
|
} else { |
|
$regexp = 1; |
} |
} |
%courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.', |
%courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.', |
undef,undef,'Course'); |
undef,undef,'Course',$regexp); |
} elsif ($coursefilter eq 'specific') { |
} elsif ($coursefilter eq 'specific') { |
if ($env{'form.coursetotal'} > 1) { |
if ($env{'form.coursetotal'} > 1) { |
my @course_ids = split(/&&/,$env{'form.courselist'}); |
my @course_ids = split(/&&/,$env{'form.courselist'}); |
Line 746 sub broadcast_email {
|
Line 742 sub broadcast_email {
|
$msg->to($to); |
$msg->to($to); |
$msg->subject($subject); |
$msg->subject($subject); |
$msg->add('From',"$from"); |
$msg->add('From',"$from"); |
|
$msg->add('Content-type','text/plain; charset=UTF-8'); |
if (my $fh = $msg->open()) { |
if (my $fh = $msg->open()) { |
print $fh $message; |
print $fh $message; |
$fh->close; |
$fh->close; |