version 1.212.2.2, 2008/12/13 22:17:15
|
version 1.212.2.4, 2008/12/17 18:47:08
|
Line 945 sub present_uneditable_metadata {
|
Line 945 sub present_uneditable_metadata {
|
'obsolete', |
'obsolete', |
'obsoletereplacement'); |
'obsoletereplacement'); |
} |
} |
|
my $rownum = 0; |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
|
my $lastrow = ''; |
|
$rownum ++; |
|
$lastrow = 1 if ($rownum == @fields); |
$table.=&Apache::lonhtmlcommon::row_title($lt{$field}) |
$table.=&Apache::lonhtmlcommon::row_title($lt{$field}) |
.&prettyprint($field,$content{$field}). |
.&prettyprint($field,$content{$field}) |
.&Apache::lonhtmlcommon::row_closure(); |
.&Apache::lonhtmlcommon::row_closure($lastrow); |
delete($content{$field}); |
delete($content{$field}); |
} |
} |
# |
# |
Line 989 sub print_dynamic_metadata {
|
Line 993 sub print_dynamic_metadata {
|
exists($dynmeta{'course'})) { |
exists($dynmeta{'course'})) { |
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'. |
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'. |
&Apache::lonhtmlcommon::start_pick_box()); |
&Apache::lonhtmlcommon::start_pick_box()); |
foreach my $item ('count', |
my @counts = ('count','sequsage','sequsage_list', |
'sequsage','sequsage_list', |
'comefrom','comefrom_list','goto', |
'comefrom','comefrom_list', |
'goto_list','course','course_list'); |
'goto','goto_list', |
my $rownum = 0; |
'course','course_list') { |
foreach my $item (@counts) { |
|
my $lastrow = ''; |
|
$rownum ++; |
|
$lastrow = 1 if ($rownum == @counts); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
.&prettyprint($item,$dynmeta{$item}) |
.&prettyprint($item,$dynmeta{$item}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure($lastrow) |
); |
); |
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
Line 1019 sub print_dynamic_metadata {
|
Line 1026 sub print_dynamic_metadata {
|
.&prettyprint('stdno',$dynmeta{'stdno'}) |
.&prettyprint('stdno',$dynmeta{'stdno'}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
foreach my $item ('avetries','difficulty','disc') { |
my @stats = ('avetries','difficulty','disc'); |
|
my $rownum = 0; |
|
foreach my $item (@stats) { |
|
my $lastrow = ''; |
|
$rownum ++; |
|
$lastrow = 1 if ($rownum == @stats); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
.&prettyprint($item,sprintf('%5.2f',$dynmeta{$item})). |
.&prettyprint($item,sprintf('%5.2f',$dynmeta{$item})) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure($lastrow) |
); |
); |
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
Line 1035 sub print_dynamic_metadata {
|
Line 1047 sub print_dynamic_metadata {
|
'</h4>'); |
'</h4>'); |
my $table=&Apache::loncommon::start_data_table() |
my $table=&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table_header_row() |
.&Apache::loncommon::start_data_table_header_row() |
.'<th>'.&mt('Course').'</th>'. |
.'<th>'.&mt('Course').'</th>' |
.'<th>'.&mt('Section(s)').'</th>'. |
.'<th>'.&mt('Section(s)').'</th>' |
.'<th>'.&mt('Num Student').'s</th>'. |
.'<th>'.&mt('Num Student').'s</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>' |
.'<th>'.&mt('Time of computation').'</th>'. |
.'<th>'.&mt('Time of computation').'</th>' |
.&Apache::loncommon::end_data_table_header_row().$/; |
.&Apache::loncommon::end_data_table_header_row().$/; |
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { |
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { |
my $data = $dynmeta{'stats'}->{$identifier}; |
my $data = $dynmeta{'stats'}->{$identifier}; |
Line 1095 sub print_dynamic_metadata {
|
Line 1107 sub print_dynamic_metadata {
|
exists($dynmeta{'technical'})){ |
exists($dynmeta{'technical'})){ |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'. |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'. |
&Apache::lonhtmlcommon::start_pick_box()); |
&Apache::lonhtmlcommon::start_pick_box()); |
foreach my $item ('clear','depth','helpful','correct','technical') { |
my @criteria = ('clear','depth','helpful','correct','technical'); |
|
my $rownum = 0; |
|
foreach my $item (@criteria) { |
|
my $lastrow = ''; |
|
$rownum ++; |
|
$lastrow = 1 if ($rownum == @criteria); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
.&prettyprint($item,$dynmeta{$item}) |
.&prettyprint($item,$dynmeta{$item}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure($lastrow) |
); |
); |
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
Line 1131 sub print_dynamic_metadata {
|
Line 1148 sub print_dynamic_metadata {
|
&mt('Additional Metadata (non-standard, parameters, exports)'). |
&mt('Additional Metadata (non-standard, parameters, exports)'). |
'</h3>'); |
'</h3>'); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
foreach my $name (sort(keys(%content))) { |
my @names; |
if ($name!~/\.display$/) { |
foreach my $key (sort(keys(%content))) { |
|
if ($key!~/\.display$/) { |
|
push(@names,$key); |
|
} |
|
} |
|
if (@names > 0) { |
|
my $rownum = 0; |
|
foreach my $name (@names) { |
|
my $lastrow = ''; |
|
$rownum ++; |
|
$lastrow = 1 if ($rownum == @names); |
|
|
my $display=&Apache::lonnet::metadata($uri, |
my $display=&Apache::lonnet::metadata($uri, |
$name.'.display'); |
$name.'.display'); |
if (! $display) { |
if (! $display) { |
Line 1152 sub print_dynamic_metadata {
|
Line 1180 sub print_dynamic_metadata {
|
if ($otherinfo) { |
if ($otherinfo) { |
$r->print(' ('.$otherinfo.')'); |
$r->print(' ('.$otherinfo.')'); |
} |
} |
$r->print(&Apache::lonhtmlcommon::row_closure()); |
$r->print(&Apache::lonhtmlcommon::row_closure($lastrow)); |
} |
} |
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |