version 1.237, 2009/12/01 18:07:50
|
version 1.245, 2012/03/16 02:12:26
|
Line 638 sub prettyinput {
|
Line 638 sub prettyinput {
|
|
|
if ($values) { |
if ($values) { |
if ($only_one) { |
if ($only_one) { |
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options)); |
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,\%meta_options)); |
} else { |
} else { |
$output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options)); |
$output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options)); |
} |
} |
Line 744 sub prettyinput {
|
Line 744 sub prettyinput {
|
|
|
# Create pageheader |
# Create pageheader |
sub pageheader { |
sub pageheader { |
my $output = &Apache::lonhtmlcommon::breadcrumbs(); |
my $output = ''; |
|
# No CSTR? Include breadcrumbs |
|
if ($env{'request.state'} ne 'construct') { |
|
# loncommon::bodytag already includes breadcrumbs for CSTR |
|
# by calling lonmenu::innerregister |
|
$output = &Apache::lonhtmlcommon::breadcrumbs(); |
|
} |
|
# CSTR? Include CSTR header |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
$output .= &Apache::loncommon::head_subbox( |
$output .= &Apache::loncommon::head_subbox( |
&Apache::loncommon::CSTR_pageheader()); |
&Apache::loncommon::CSTR_pageheader()); |
Line 773 sub handler {
|
Line 779 sub handler {
|
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Construction Space', |
'text' => 'Construction Space', |
'href' => &Apache::loncommon::authorspace(), |
'href' => &Apache::loncommon::authorspace($uri), |
}); |
}); |
} |
} |
|
|
Line 822 sub handler {
|
Line 828 sub handler {
|
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
$r->print(&pageheader()); |
$r->print(&pageheader()); |
&present_editable_metadata($r,$uri,'groups'); |
&present_editable_metadata($r,$uri,'groups'); |
} elsif ($uri=~m|^/~|) { |
} elsif ($uri=~m|^/priv|) { |
# Construction space |
# Construction space |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Edit Metadata', |
'text' => 'Edit Metadata', |
Line 840 sub handler {
|
Line 846 sub handler {
|
'text' => 'Metadata', |
'text' => 'Metadata', |
'href' => '', |
'href' => '', |
}); |
}); |
$r->print(&Apache::loncommon::start_page('Metadata', |
$r->print( |
undef, |
&Apache::loncommon::start_page( |
{'domain' => $resdomain,})); |
'Metadata', |
$r->print(&pageheader()); |
undef, |
|
{'domain' => $resdomain, |
|
'only_body' => 1,}) |
|
.'<h1>'.&mt('Metadata').'</h1>' |
|
); |
&present_uneditable_metadata($r,$uri); |
&present_uneditable_metadata($r,$uri); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
Line 864 sub report_bombs {
|
Line 874 sub report_bombs {
|
$uri = &Apache::lonnet::declutter($uri); |
$uri = &Apache::lonnet::declutter($uri); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) { |
if (&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
if ($env{'form.clearbombs'}) { |
if ($env{'form.clearbombs'}) { |
&Apache::lonmsg::clear_author_res_msg($uri); |
&Apache::lonmsg::clear_author_res_msg($uri); |
} |
} |
Line 1043 sub print_dynamic_metadata {
|
Line 1053 sub print_dynamic_metadata {
|
} |
} |
# |
# |
# Assessment statistics |
# Assessment statistics |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($uri=~/$LONCAPA::assess_re/) { |
if (exists($dynmeta{'stdno'}) || |
if (exists($dynmeta{'stdno'}) || |
exists($dynmeta{'avetries'}) || |
exists($dynmeta{'avetries'}) || |
exists($dynmeta{'difficulty'}) || |
exists($dynmeta{'difficulty'}) || |
Line 1082 sub print_dynamic_metadata {
|
Line 1092 sub print_dynamic_metadata {
|
.'<th>'.&mt('Course').'</th>' |
.'<th>'.&mt('Course').'</th>' |
.'<th>'.&mt('Section(s)').'</th>' |
.'<th>'.&mt('Section(s)').'</th>' |
.'<th>'.&mt('Num Students').'</th>' |
.'<th>'.&mt('Num Students').'</th>' |
|
.'<th>'.&mt('Part').'</th>' |
.'<th>'.&mt('Mean Tries').'</th>' |
.'<th>'.&mt('Mean Tries').'</th>' |
.'<th>'.&mt('Degree of Difficulty').'</th>' |
.'<th>'.&mt('Degree of Difficulty').'</th>' |
.'<th>'.&mt('Degree of Discrimination').'</th>' |
.'<th>'.&mt('Degree of Discrimination').'</th>' |
Line 1104 sub print_dynamic_metadata {
|
Line 1115 sub print_dynamic_metadata {
|
'<td align="right">'.$data->{'sections'}.'</td>'; |
'<td align="right">'.$data->{'sections'}.'</td>'; |
$table .= |
$table .= |
'<td align="right">'.$data->{'stdno'}.'</td>'; |
'<td align="right">'.$data->{'stdno'}.'</td>'; |
|
$table .= |
|
'<td align="right">'.$data->{'part'}.'</td>'; |
foreach my $item ('avetries','difficulty','disc') { |
foreach my $item ('avetries','difficulty','disc') { |
$table .= '<td align="right">'; |
$table .= '<td align="right">'; |
if (exists($data->{$item})) { |
if (exists($data->{$item})) { |