--- loncom/interface/lonparmset.pm 2006/06/12 23:17:48 1.313
+++ loncom/interface/lonparmset.pm 2006/06/23 05:56:35 1.317
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.313 2006/06/12 23:17:48 albertel Exp $
+# $Id: lonparmset.pm,v 1.317 2006/06/23 05:56:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,7 +65,6 @@ use Apache::lonlocal;
use Apache::lonnavmaps;
use Apache::longroup;
use Apache::lonrss;
-use lib '/home/httpd/lib/perl/';
use LONCAPA;
# --- Caches local to lonparmset
@@ -495,7 +494,7 @@ sub storeparm_by_symb_inner {
}
if ($reply=~/^error\:(.*)/) {
- return "Write Error: $1";
+ return "Write Error: $1";
}
return '';
}
@@ -703,7 +702,7 @@ sub print_row {
}
my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
if ($automatic) {
- $parm.='
'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'';
+ $parm.='
'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'';
}
$r->print('
'); $cnt++; if ($cnt==3) { $r->print(" | |||||||||||||||||||||||
+ | |||||||||||||||||||||||
Select All Select Common Only |
@@ -1478,8 +1477,8 @@ sub assessparms {
$id='';
} else {
$message=
- "".&mt("Unknown ID")." '$id' ".
- &mt('at domain')." '$udom'";
+ ''.&mt("Unknown ID")." '$id' ".
+ &mt('at domain')." '$udom'";
}
} else {
$uname=$env{'form.uname'};
@@ -1490,17 +1489,17 @@ sub assessparms {
$uhome=&Apache::lonnet::homeserver($uname,$udom);
if ($uhome eq 'no_host') {
$message=
- "".&mt("Unknown user")." '$uname' ".
- &mt("at domain")." '$udom'";
+ ''.&mt("Unknown user")." '$uname' ".
+ &mt("at domain")." '$udom'";
$uname='';
} else {
$csec=&Apache::lonnet::getsection($udom,$uname,
$env{'request.course.id'});
if ($csec eq '-1') {
- $message="".
+ $message=''.
&mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
- &mt("not in this course")."";
+ &mt("not in this course")."";
$uname='';
$csec=$env{'form.csec'};
$cgroup=$env{'form.cgroup'};
@@ -2079,6 +2078,10 @@ sub crsenv {
}
}
}
+
+ my $start_table =&Apache::loncommon::start_data_table();
+ my $start_header_row=&Apache::loncommon::start_data_table_header_row();
+ my $end_header_row =&Apache::loncommon::end_data_table_header_row();
# ------------------------- Re-init course environment entries for this session
&Apache::lonnet::coursedescription($env{'request.course.id'},
@@ -2095,9 +2098,9 @@ sub crsenv {
('url' => ''.&mt('Top Level Map').' '.
'".
- &mt('Select Map').' '. + &mt('Select Map').' '. &mt('Modification may make assessment data inaccessible'). - '', + '', 'description' => ''.&mt('Course Description').'', 'courseid' => ''.&mt('Course ID or number'). ' '. @@ -2168,8 +2171,8 @@ sub crsenv { '('.&mt('or set value to "[_1]" to allow all roles',"yes").')', 'rndseed' => ''.&mt('Randomization algorithm used').' '. - ''.&mt('Modifying this will make problems').' '. - &mt('have different numbers and answers').'', + ''.&mt('Modifying this will make problems').' '. + &mt('have different numbers and answers').'', 'receiptalg' => ''.&mt('Receipt algorithm used').' '. &mt('This controls how receipt numbers are generated.'), @@ -2244,13 +2247,15 @@ sub crsenv { } } } + foreach my $parameter (@Display_Order) { my $description = $descriptions{$parameter}; # onchange is javascript to automatically check the 'Set' button. my $onchange = 'onFocus="javascript:window.document.forms'. "['envform'].elements['".$parameter."_setparmval']". '.checked=true;"'; - $output .= ' | ||||||||||||||||||||||
'.$description.' | '; + $output .= &Apache::loncommon::start_data_table_row(). + ''.$description.' | '; if ($parameter =~ /^default_enrollment_(start|end)_date$/) { $output .= ''. &Apache::lonhtmlcommon::date_setter('envform', @@ -2267,17 +2272,19 @@ sub crsenv { $output .= ' | '. &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval'). ' | '; - $output .= "||||||||||||||||||||
'.&mt('Create New Environment Variable').' '. + $output.=&Apache::loncommon::start_data_table_row(). + ' | '.&mt('Create New Environment Variable').' '. ' | '. ' | '. - ' |
$lt{'par'} | $lt{'val'} | $lt{'set'}? | $lt{'par'} | $lt{'val'} | $lt{'set'}? | +$end_header_row $output -
---|
');
+ $r->print('
|