version 1.21, 2004/12/31 02:46:18
|
version 1.24, 2005/04/07 03:58:02
|
Line 1
|
Line 1
|
|
# |
|
# $Id$ |
|
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
|
|
package Apache::lonsupportreq; |
package Apache::lonsupportreq; |
|
|
use strict; |
use strict; |
Line 6 use MIME::Types;
|
Line 32 use MIME::Types;
|
use MIME::Lite; |
use MIME::Lite; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
Line 36 sub handler {
|
Line 62 sub handler {
|
sub print_request_form { |
sub print_request_form { |
my ($r,$origurl,$function) = @_; |
my ($r,$origurl,$function) = @_; |
my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server); |
my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server); |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0",marginheight="0"',1); |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0" onLoad="initialize_codes()"',1); |
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) { |
if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) { |
$tablecolor = '#EEEE99'; |
$tablecolor = '#EEEE99'; |
Line 135 END
|
Line 161 END
|
my $totcodes = 0; |
my $totcodes = 0; |
my $format_reply; |
my $format_reply; |
my $jscript = ''; |
my $jscript = ''; |
|
my $loaditems = qq| |
|
function initialize_codes() { |
|
return; |
|
} |
|
|; |
if ($cdom) { |
if ($cdom) { |
$codedom = $cdom; |
$codedom = $cdom; |
} |
} |
Line 152 END
|
Line 182 END
|
$totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes); |
$totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes); |
} |
} |
if ($totcodes > 0) { |
if ($totcodes > 0) { |
$format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); |
|
if ($ccode eq '') { |
if ($ccode eq '') { |
my $numtypes = @codetitles; |
$format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); |
&build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
if ($format_reply eq 'ok') { |
&javascript_code_selections($numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles); |
my $numtypes = @codetitles; |
|
&build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
|
&javascript_code_selections($numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles); |
|
$loaditems = ''; |
|
} |
} |
} |
} |
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
<html> |
$html |
<head> |
<head> |
<title>LON-CAPA support request</title> |
<title>LON-CAPA support request</title> |
<script type"text/javascript"> |
<script type"text/javascript"> |
Line 392 END
|
Line 426 END
|
} else { |
} else { |
$longitems[0] = $idlist_titles{$codetitles[0]}; |
$longitems[0] = $idlist_titles{$codetitles[0]}; |
} |
} |
|
for (my $i=0; $i<@longitems; $i++) { |
|
if ($longitems[$i] eq '') { |
|
$longitems[$i] = $items[$i]; |
|
} |
|
} |
} else { |
} else { |
@longitems = @items; |
@longitems = @items; |
} |
} |
Line 452 END
|
Line 491 END
|
<td> |
<td> |
END |
END |
if ($sectionlist) { |
if ($sectionlist) { |
$r->print("<select name=\"section\">"); |
$r->print("<select name=\"section\"\n>". |
|
" <option value=\"\" selected=\"selected\">Select</option>\n"); |
foreach (sort keys %groupid) { |
foreach (sort keys %groupid) { |
if ($_ eq $groupid{$_} || $groupid{$_} eq '') { |
if ($_ eq $groupid{$_} || $groupid{$_} eq '') { |
$r->print("<option value=\"$_\" />$_"); |
$r->print(" <option value=\"$_\" >$_</option>\n"); |
} else { |
} else { |
$r->print("<option value=\"$_\" />$_ - (LON-CAPA sec: $groupid{$_})"); |
$r->print(" <option value=\"$_\" >$_ - (LON-CAPA sec: $groupid{$_})</option>\n"); |
} |
} |
} |
} |
$r->print("</select>"); |
$r->print("</select>"); |
Line 650 Date/Time: $reporttime
|
Line 690 Date/Time: $reporttime
|
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$ENV{'form.sourceurl'}</font><br /> |
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$ENV{'form.sourceurl'}</font><br /> |
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
|; |
|; |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<html> |
$html |
<head> |
<head> |
<title>LON-CAPA support request recorded</title> |
<title>LON-CAPA support request recorded</title> |
</head> |
</head> |
Line 1206 END
|
Line 1247 END
|
} |
} |
} |
} |
$$script_tag .= (<<END_OF_BLOCK); |
$$script_tag .= (<<END_OF_BLOCK); |
|
var display = new Array($numtitles) |
|
if (caller == "") { |
|
document.logproblem.Year.length = 0 |
|
document.logproblem.Year.options[0] = new Option("Select","-1",true,true) |
|
display[0] = new Array(idyears.length) |
|
for (var i=0; i<idyears.length; i++) { |
|
display[0][i] = idyears[i] |
|
if (longtitles[0] == 1) { |
|
if (idyearslongs[i] != "") { |
|
display[0][i] = idyearslongs[i] |
|
} |
|
} |
|
document.logproblem.Year.options[i+1] = new Option(display[0][i],idyears[i],false,false) |
|
} |
|
document.logproblem.Year.selectedIndex = 0; |
|
} |
if (caller == "$$codetitles[0]") { |
if (caller == "$$codetitles[0]") { |
document.logproblem.Department.length = 0 |
document.logproblem.Department.length = 0 |
document.logproblem.Number.length = 0 |
document.logproblem.Number.length = 0 |
Line 1218 END
|
Line 1275 END
|
else { |
else { |
document.logproblem.Semester.length = 0 |
document.logproblem.Semester.length = 0 |
document.logproblem.Semester.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Semester.options[0] = new Option("Select","-1",true,true) |
|
display[1] = new Array(idsems[idyr-1].length) |
for (var i=0; i<idsems[idyr-1].length; i++) { |
for (var i=0; i<idsems[idyr-1].length; i++) { |
|
display[1][i] = idsems[idyr-1][i] |
if (longtitles[1] == 1) { |
if (longtitles[1] == 1) { |
document.logproblem.Semester.options[i+1] = new Option(idsemslongs[idyr-1][i],idsems[idyr-1][i],false,false) |
if (idsemslongs[idyr-1][i] != "") { |
} |
display[1][i] = idsemslongs[idyr-1][i] |
else { |
} |
document.logproblem.Semester.options[i+1] = new Option(idsems[idyr-1][i],idsems[idyr-1][i],false,false) |
|
} |
} |
|
document.logproblem.Semester.options[i+1] = new Option(display[1][i],idsems[idyr-1][i],false,false) |
} |
} |
} |
} |
document.logproblem.Semester.selectedIndex = 0; |
document.logproblem.Semester.selectedIndex = 0; |
Line 1238 END
|
Line 1297 END
|
} |
} |
else { |
else { |
document.logproblem.Department.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Department.options[0] = new Option("Select","-1",true,true) |
|
display[2] = new Array(idcodes[idyr-1][idsem-1].length) |
for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) { |
for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) { |
|
display[2][i] = idcodes[idyr-1][idsem-1][i] |
if (longtitles[2] == 1) { |
if (longtitles[2] == 1) { |
document.logproblem.Department.options[i+1] = new Option(idcodeslongs[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false) |
if (idcodeslongs[idyr-1][idsem-1][i] != "") { |
} |
display[2][i] = idcodeslongs[idyr-1][idsem-1][i] |
else { |
} |
document.logproblem.Department.options[i+1] = new Option(idcodes[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false) |
|
} |
} |
|
document.logproblem.Department.options[i+1] = new Option(display[2][i],idcodes[idyr-1][idsem-1][i],false,false) |
} |
} |
} |
} |
document.logproblem.Department.selectedIndex = 0 |
document.logproblem.Department.selectedIndex = 0 |
Line 1256 END
|
Line 1317 END
|
} |
} |
else { |
else { |
document.logproblem.Number.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Number.options[0] = new Option("Select","-1",true,true) |
|
display[3] = new Array (idcourses[idyr-1][idsem-1][iddept-1].length) |
for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) { |
for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) { |
|
display[3][i] = idcourses[idyr-1][idsem-1][iddept-1][i] |
if (longtitles[3] == 1) { |
if (longtitles[3] == 1) { |
document.logproblem.Number.options[i+1] = new Option(idcourseslongs[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
if (idcourseslongs[idyr-1][idsem-1][iddept-1][i] != "") { |
} |
display[3][i] = idcourseslongs[idyr-1][idsem-1][iddept-1][i] |
else { |
} |
document.logproblem.Number.options[i+1] = new Option(idcourses[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
|
} |
} |
|
document.logproblem.Number.options[i+1] = new Option(display[3][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
} |
} |
} |
} |
document.logproblem.Number.selectedIndex = 0 |
document.logproblem.Number.selectedIndex = 0 |
} |
} |
} |
} |
|
|
|
function initialize_codes() { |
|
courseSet(); |
|
return; |
|
} |
END_OF_BLOCK |
END_OF_BLOCK |
} |
} |
|
|