version 1.144, 2003/12/12 15:03:26
|
version 1.149, 2004/01/28 17:16:27
|
Line 306 sub startpage {
|
Line 306 sub startpage {
|
'oi' => "or ID", |
'oi' => "or ID", |
'ad' => "at Domain" |
'ad' => "at Domain" |
); |
); |
|
my $overallhelp= |
|
&Apache::loncommon::help_open_topic("Course_Setting_Parameters"). |
|
&Apache::loncommon::help_open_faq(10). |
|
&Apache::loncommon::help_open_bug('Instructor Interface'); |
|
my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters"); |
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
<html> |
<html> |
<head> |
<head> |
Line 354 sub startpage {
|
Line 359 sub startpage {
|
$selscript |
$selscript |
</head> |
</head> |
$bodytag |
$bodytag |
|
$overallhelp |
ENDHEAD |
ENDHEAD |
|
|
unless ($trimheader) {$r->print(<<ENDHEAD2); |
unless ($trimheader) {$r->print(<<ENDHEAD2); |
Line 362 ENDHEAD
|
Line 368 ENDHEAD
|
<input type="submit" name="crsenv" value="$lt{'scep'}" /> |
<input type="submit" name="crsenv" value="$lt{'scep'}" /> |
</form> |
</form> |
<hr /> |
<hr /> |
|
$assessparmhelp |
<form method="post" action="/adm/helper/parameter.helper" name="helpform"> |
<form method="post" action="/adm/helper/parameter.helper" name="helpform"> |
<h4>$lt{'caphm'}</h4> |
<h4>$lt{'caphm'}</h4> |
<input type="submit" value="$lt{'smcap'}" /> |
<input type="submit" value="$lt{'smcap'}" /> |
Line 1596 sub crsenv {
|
Line 1603 sub crsenv {
|
'languages' => '<b>'.&mt('Languages used').'</b>', |
'languages' => '<b>'.&mt('Languages used').'</b>', |
'disable_receipt_display' |
'disable_receipt_display' |
=> '<b>'.&mt('Disable display of problem receipts').'</b><br />'. |
=> '<b>'.&mt('Disable display of problem receipts').'</b><br />'. |
' ("<tt>'.&mt('yes').'</tt>" '.&mt('to disable, anything else if not').')' |
' ("<tt>'.&mt('yes').'</tt>" '.&mt('to disable, anything else if not').')', |
|
'tthoptions' |
|
=> '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>' |
); |
); |
my @Display_Order = ('url','description','courseid','grading', |
my @Display_Order = ('url','description','courseid','grading', |
'default_xml_style','pageseparators', |
'default_xml_style','pageseparators', |
Line 1614 sub crsenv {
|
Line 1623 sub crsenv {
|
'hideemptyrows', |
'hideemptyrows', |
'default_enrollment_start_date', |
'default_enrollment_start_date', |
'default_enrollment_end_date', |
'default_enrollment_end_date', |
|
'tthoptions' |
); |
); |
foreach my $parameter (sort(keys(%values))) { |
foreach my $parameter (sort(keys(%values))) { |
unless ($parameter =~ m/^internal\./) { |
unless ($parameter =~ m/^internal\./) { |
Line 1790 ENDOVER
|
Line 1800 ENDOVER
|
my $oldpart=''; |
my $oldpart=''; |
my $pointer=0; |
my $pointer=0; |
$tableopen=0; |
$tableopen=0; |
|
my $foundkeys=0; |
foreach my $thiskey (sort keys %resourcedata) { |
foreach my $thiskey (sort keys %resourcedata) { |
if ($resourcedata{$thiskey.'.type'}) { |
if ($resourcedata{$thiskey.'.type'}) { |
my ($course,$middle,$part,$name)= |
my ($course,$middle,$part,$name)= |
Line 1827 ENDOVER
|
Line 1838 ENDOVER
|
$r->print(&tablestart().'<tr><td><b>'.$name. |
$r->print(&tablestart().'<tr><td><b>'.$name. |
':</b></td><td><input type="checkbox" name="del_'. |
':</b></td><td><input type="checkbox" name="del_'. |
$thiskey.'" /></td><td>'); |
$thiskey.'" /></td><td>'); |
|
$foundkeys++; |
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
my $jskey='key_'.$pointer; |
my $jskey='key_'.$pointer; |
$pointer++; |
$pointer++; |
Line 1845 ENDOVER
|
Line 1857 ENDOVER
|
} |
} |
} |
} |
|
|
$r->print(&tableend(). |
$r->print(&tableend().'<p>'. |
'<p><input type="submit" value="'.&mt('Modify Parameters').'" /></p></form></body></html>'); |
($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>'); |
} |
} |
|
|
################################################## |
################################################## |