version 1.216, 2008/11/20 15:19:39
|
version 1.241, 2011/10/22 22:16:07
|
Line 164 sub evalgraph {
|
Line 164 sub evalgraph {
|
my $val=int($value*10.+0.5)-10; |
my $val=int($value*10.+0.5)-10; |
my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>'; |
my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>'; |
if ($val>=20) { |
if ($val>=20) { |
$output.='<td width="20" bgcolor="#555555">  </td>'; |
$output.='<td width="20" bgcolor="#555555">'.(' ' x2).'</td>'; |
} else { |
} else { |
$output.='<td width="'.($val).'" bgcolor="#555555"> </td>'. |
$output.='<td width="'.($val).'" bgcolor="#555555"> </td>'. |
'<td width="'.(20-$val).'" bgcolor="#FF3333"> </td>'; |
'<td width="'.(20-$val).'" bgcolor="#FF3333"> </td>'; |
Line 174 sub evalgraph {
|
Line 174 sub evalgraph {
|
$output.='<td width="'.($val-20).'" bgcolor="#33FF33"> </td>'. |
$output.='<td width="'.($val-20).'" bgcolor="#33FF33"> </td>'. |
'<td width="'.(40-$val).'" bgcolor="#555555"> </td>'; |
'<td width="'.(40-$val).'" bgcolor="#555555"> </td>'; |
} else { |
} else { |
$output.='<td width="20" bgcolor="#555555">  </td>'; |
$output.='<td width="20" bgcolor="#555555">'.(' ' x2).'</td>'; |
} |
} |
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>'; |
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>'; |
return $output; |
return $output; |
Line 338 sub pre_select_course {
|
Line 338 sub pre_select_course {
|
&Apache::lonpublisher::metaeval($result); |
&Apache::lonpublisher::metaeval($result); |
} |
} |
$r->print('<hr /><form method="post" action="" >'); |
$r->print('<hr /><form method="post" action="" >'); |
$r->print('<p>'.&mt('If you would like to associate this resource ([_1]) with a current or previous course, please select one from the list below, otherwise select, \'None\'','<tt>'.$res_uri.'</tt>').'</p>'); |
$r->print('<p>'.&mt('If you would like to associate this resource ([_1]) with a current or previous course, please select one from the list below, otherwise select, "None".','<tt>'.$res_uri.'</tt>').'</p>'); |
$output = &select_course(); |
$output = &select_course(); |
$r->print($output.'<br /><input type="submit" name="store" value="'. |
$r->print($output.'<br /><input type="submit" name="store" value="'. |
&mt('Associate Resource With Selected Course').'" />'); |
&mt('Associate Resource With Selected Course').'" />'); |
Line 425 sub select_course {
|
Line 425 sub select_course {
|
# Pretty printing of metadata field |
# Pretty printing of metadata field |
|
|
sub prettyprint { |
sub prettyprint { |
my ($type,$value,$target,$prefix,$form,$noformat)=@_; |
my ($type,$value,$target,$prefix,$form)=@_; |
# $target,$prefix,$form are optional and for filecrumbs only |
# $target,$prefix,$form are optional and for filecrumbs only |
if (! defined($value)) { |
if (! defined($value)) { |
return ' '; |
return ' '; |
} |
} |
# Title |
# Title |
if ($type eq 'title') { |
if ($type eq 'title') { |
return '<font size="+1" face="arial">'.$value.'</font>'; |
return $value; |
} |
} |
# Dates |
# Dates |
if (($type eq 'creationdate') || |
if (($type eq 'creationdate') || |
Line 482 sub prettyprint {
|
Line 482 sub prettyprint {
|
($type eq 'comefrom_list') || |
($type eq 'comefrom_list') || |
($type eq 'sequsage_list') || |
($type eq 'sequsage_list') || |
($type eq 'dependencies')) { |
($type eq 'dependencies')) { |
return '<font size="-1"><ul>'.join("\n",map { |
return '<ul class="LC_fontsize_medium">'.join("\n",map { |
my $url = &Apache::lonnet::clutter_with_no_wrapper($_); |
my $url = &Apache::lonnet::clutter_with_no_wrapper($_); |
my $title = &Apache::lonnet::gettitle($url); |
my $title = &Apache::lonnet::gettitle($url); |
if ($title eq '') { |
if ($title eq '') { |
Line 500 sub prettyprint {
|
Line 500 sub prettyprint {
|
} |
} |
} |
} |
$_ = '<li>'.$title.' '. |
$_ = '<li>'.$title.' '. |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat). |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form). |
'</li>' |
'</li>' |
} split(/\s*\,\s*/,$value)).'</ul></font>'; |
} split(/\s*\,\s*/,$value)).'</ul>'; |
} |
} |
# Evaluations |
# Evaluations |
if (($type eq 'clear') || |
if (($type eq 'clear') || |
Line 519 sub prettyprint {
|
Line 519 sub prettyprint {
|
# List of courses |
# List of courses |
if ($type=~/\_list/) { |
if ($type=~/\_list/) { |
my @Courses = split(/\s*\,\s*/,$value); |
my @Courses = split(/\s*\,\s*/,$value); |
my $Str='<font size="-1"><ul>'; |
my $Str='<ul class="LC_fontsize_medium">'; |
my %descriptions; |
my %descriptions; |
foreach my $course (@Courses) { |
foreach my $course (@Courses) { |
my %courseinfo = |
my %courseinfo = |
Line 538 sub prettyprint {
|
Line 538 sub prettyprint {
|
$Str .= $descriptions{$course}; |
$Str .= $descriptions{$course}; |
} |
} |
|
|
return $Str.'</ul></font>'; |
return $Str.'</ul>'; |
} |
} |
# No pretty print found |
# No pretty print found |
return $value; |
return $value; |
Line 555 sub selectbox {
|
Line 555 sub selectbox {
|
$functionref=\&direct; |
$functionref=\&direct; |
} |
} |
my $selout='<select name="'.$name.'">'; |
my $selout='<select name="'.$name.'">'; |
foreach (@idlist) { |
foreach my $id (@idlist) { |
$selout.='<option value=\''.$_.'\''; |
$selout.='<option value="'.$id.'"'; |
if ($_ eq $value) { |
if ($id eq $value) { |
$selout.=' selected>'.&{$functionref}($_).'</option>'; |
$selout.=' selected="selected">'.&{$functionref}($id).'</option>'; |
} |
} else { |
else {$selout.='>'.&{$functionref}($_).'</option>';} |
$selout.='>'.&{$functionref}($id).'</option>'; |
|
} |
} |
} |
return $selout.'</select>'; |
return $selout.'</select>'; |
} |
} |
Line 577 sub relatedfield {
|
Line 578 sub relatedfield {
|
return $relatedsep.' '; |
return $relatedsep.' '; |
} |
} |
return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'. |
return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'. |
($relatedvalue?' checked="1"':'').' />'; |
($relatedvalue?' checked="checked"':'').' />'; |
} |
} |
|
|
sub prettyinput { |
sub prettyinput { |
Line 637 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 690 sub prettyinput {
|
Line 691 sub prettyinput {
|
# Obsolete |
# Obsolete |
if ($type eq 'obsolete') { |
if ($type eq 'obsolete') { |
return '<input type="checkbox" name="'.$fieldname.'"'. |
return '<input type="checkbox" name="'.$fieldname.'"'. |
($value?' checked="1"':'').' />'. |
($value?' checked="checked"':'').' />'. |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
} |
} |
# Obsolete replacement file |
# Obsolete replacement file |
Line 741 sub prettyinput {
|
Line 742 sub prettyinput {
|
$relatedvalue); |
$relatedvalue); |
} |
} |
|
|
|
# Create pageheader |
|
sub pageheader { |
|
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') { |
|
$output .= &Apache::loncommon::head_subbox( |
|
&Apache::loncommon::CSTR_pageheader()); |
|
} |
|
return $output; |
|
} |
|
|
# Main Handler |
# Main Handler |
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
Line 754 sub handler {
|
Line 772 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
my ($resdomain,$resuser)= |
my ($resdomain,$resuser)= |
(&Apache::lonnet::declutter($uri)=~/^($match_domain)\/($match_username)\//); |
(&Apache::lonnet::declutter($uri)=~/^($match_domain)\/($match_username)\//); |
|
|
|
# Breadcrumbs |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
|
|
if ($env{'request.state'} eq 'construct') { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Construction Space', |
|
'href' => &Apache::loncommon::authorspace(), |
|
}); |
|
} |
|
|
if ($uri=~m:/adm/bombs/(.*)$:) { |
if ($uri=~m:/adm/bombs/(.*)$:) { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Error Messages', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Error Messages')); |
$r->print(&Apache::loncommon::start_page('Error Messages')); |
|
$r->print(&pageheader()); |
# Looking for all bombs? |
# Looking for all bombs? |
&report_bombs($r,$uri); |
&report_bombs($r,$uri); |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) { |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Edit Portfolio File Metadata', |
|
'href' => '', |
|
}); |
($resdomain,$resuser)= |
($resdomain,$resuser)= |
(&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|); |
(&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|); |
$r->print(&Apache::loncommon::start_page('Edit Portfolio File Catalog Information', |
$r->print(&Apache::loncommon::start_page('Edit Portfolio File Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$r->print(&pageheader()); |
if ($env{'form.store'}) { |
if ($env{'form.store'}) { |
&present_editable_metadata($r,$uri,'portfolio'); |
&present_editable_metadata($r,$uri,'portfolio'); |
} else { |
} else { |
Line 780 sub handler {
|
Line 819 sub handler {
|
} |
} |
} |
} |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information', |
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Edit Group Portfolio File Metadata', |
|
'href' => '', |
|
}); |
|
$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$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 |
$r->print(&Apache::loncommon::start_page('Edit Catalog Information', |
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Edit Metadata', |
|
'href' => '', |
|
}); |
|
$r->print(&Apache::loncommon::start_page('Edit Metadata', |
"\n".'<script type="text/javascript">'."\n". |
"\n".'<script type="text/javascript">'."\n". |
&Apache::loncommon::browser_and_searcher_javascript(). |
&Apache::loncommon::browser_and_searcher_javascript(). |
"\n".'</script>', |
"\n".'</script>', |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$r->print(&pageheader()); |
&present_editable_metadata($r,$uri); |
&present_editable_metadata($r,$uri); |
} else { |
} else { |
$r->print(&Apache::loncommon::start_page('Metadata', |
&Apache::lonhtmlcommon::add_breadcrumb({ |
undef, |
'text' => 'Metadata', |
{'domain' => $resdomain,})); |
'href' => '', |
|
}); |
|
$r->print( |
|
&Apache::loncommon::start_page( |
|
'Metadata', |
|
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 832 sub report_bombs {
|
Line 890 sub report_bombs {
|
ENDCLEAR |
ENDCLEAR |
my %brokenurls = |
my %brokenurls = |
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
foreach (sort(keys(%brokenurls))) { |
foreach my $key (sort(keys(%brokenurls))) { |
if ($_=~/^\Q$uri\E/) { |
if ($key=~/^\Q$uri\E/) { |
$r->print |
$r->print |
('<a href="'.&Apache::lonnet::clutter($_).'">'.$_.'</a>'. |
('<a href="'.&Apache::lonnet::clutter($key).'">'.$key.'</a>'. |
&Apache::lonmsg::retrieve_author_res_msg($_). |
&Apache::lonmsg::retrieve_author_res_msg($key). |
'<hr />'); |
'<hr />'); |
} |
} |
} |
} |
Line 859 sub present_uneditable_metadata {
|
Line 917 sub present_uneditable_metadata {
|
my $uploaded = ($uri =~ m|/uploaded/|); |
my $uploaded = ($uri =~ m|/uploaded/|); |
my %content=(); |
my %content=(); |
# Read file |
# Read file |
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
foreach my $key (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
$content{$key}=&Apache::lonnet::metadata($uri,$key); |
} |
} |
# Render Output |
# Render Output |
# displayed url |
# displayed url |
Line 881 sub present_uneditable_metadata {
|
Line 939 sub present_uneditable_metadata {
|
$versiondisplay='Version: '.$currentversion; |
$versiondisplay='Version: '.$currentversion; |
} |
} |
} |
} |
# crumbify displayed URL uri target prefix form size |
# crumbify displayed URL uri target prefix form |
$disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1'); |
$disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef); |
$disuri =~ s:<br />::g; |
|
# obsolete |
# obsolete |
my $obsolete=$content{'obsolete'}; |
my $obsolete=$content{'obsolete'}; |
my $obsoletewarning=''; |
my $obsoletewarning=''; |
if (($obsolete) && ($env{'user.adv'})) { |
if (($obsolete) && ($env{'user.adv'})) { |
$obsoletewarning='<p><font color="red">'. |
$obsoletewarning='<p><span class="LC_warning">'. |
&mt('This resource has been marked obsolete by the author(s)'). |
&mt('This resource has been marked obsolete by the author(s)'). |
'</font></p>'; |
'</span></p>'; |
} |
} |
# |
# |
my %lt=&fieldnames(); |
my %lt=&fieldnames(); |
Line 926 sub present_uneditable_metadata {
|
Line 983 sub present_uneditable_metadata {
|
'obsolete', |
'obsolete', |
'obsoletereplacement'); |
'obsoletereplacement'); |
} |
} |
|
my $rownum = 0; |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$field}. |
my $lastrow = ''; |
'</td><td bgcolor="#CCCCCC">'. |
$rownum ++; |
&prettyprint($field,$content{$field}).'</td></tr>'; |
$lastrow = 1 if ($rownum == @fields); |
|
$table.=&Apache::lonhtmlcommon::row_title($lt{$field}) |
|
.&prettyprint($field,$content{$field}) |
|
.&Apache::lonhtmlcommon::row_closure($lastrow); |
delete($content{$field}); |
delete($content{$field}); |
} |
} |
# |
# |
$r->print(<<ENDHEAD); |
$r->print("<h2>$title</h2>" |
<h2>$title</h2> |
.'<p>' |
<p> |
.$disuri.'<br />' |
$disuri<br /> |
.$obsoletewarning |
$obsoletewarning |
.$versiondisplay |
$versiondisplay |
.'</p>' |
</p> |
.&Apache::lonhtmlcommon::start_pick_box() |
<table cellspacing="2" border="0"> |
.$table |
$table |
.&Apache::lonhtmlcommon::end_pick_box() |
</table> |
); |
ENDHEAD |
|
if (!$uploaded && $env{'user.adv'}) { |
if (!$uploaded && $env{'user.adv'}) { |
&print_dynamic_metadata($r,$uri,\%content); |
&print_dynamic_metadata($r,$uri,\%content); |
} |
} |
Line 964 sub print_dynamic_metadata {
|
Line 1024 sub print_dynamic_metadata {
|
my %dynmeta=&dynamicmeta($uri); |
my %dynmeta=&dynamicmeta($uri); |
# |
# |
# General Access and Usage Statistics |
# General Access and Usage Statistics |
|
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'); |
if (exists($dynmeta{'count'}) || |
if (exists($dynmeta{'count'}) || |
exists($dynmeta{'sequsage'}) || |
exists($dynmeta{'sequsage'}) || |
exists($dynmeta{'comefrom'}) || |
exists($dynmeta{'comefrom'}) || |
exists($dynmeta{'goto'}) || |
exists($dynmeta{'goto'}) || |
exists($dynmeta{'course'})) { |
exists($dynmeta{'course'})) { |
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'. |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
'<table cellspacing="2" border="0">'); |
my @counts = ('count','sequsage','sequsage_list', |
foreach ('count', |
'comefrom','comefrom_list','goto', |
'sequsage','sequsage_list', |
'goto_list','course','course_list'); |
'comefrom','comefrom_list', |
my $rownum = 0; |
'goto','goto_list', |
foreach my $item (@counts) { |
'course','course_list') { |
my $lastrow = ''; |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
$rownum ++; |
'<td bgcolor="#CCCCCC">'. |
$lastrow = 1 if ($rownum == @counts); |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
|
.&prettyprint($item,$dynmeta{$item}) |
|
.&Apache::lonhtmlcommon::row_closure($lastrow) |
|
); |
} |
} |
$r->print('</table>'); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
} else { |
} else { |
$r->print('<h4>'.&mt('No Access or Usages Statistics are available for this resource.').'</h4>'); |
$r->print('<p>' |
|
.&mt('No Access or Usages Statistics are available for this resource.') |
|
.'</p>' |
|
); |
} |
} |
# |
# |
# Assessment statistics |
# Assessment statistics |
Line 995 sub print_dynamic_metadata {
|
Line 1062 sub print_dynamic_metadata {
|
$r->print('<h4>'. |
$r->print('<h4>'. |
&mt('Overall Assessment Statistical Data'). |
&mt('Overall Assessment Statistical Data'). |
'</h4>'. |
'</h4>'. |
'<table cellspacing="2" border="0">'); |
&Apache::lonhtmlcommon::start_pick_box()); |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{'stdno'}.'</td>'. |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'stdno'}) |
'<td bgcolor="#CCCCCC">'. |
.&prettyprint('stdno',$dynmeta{'stdno'}) |
&prettyprint('stdno',$dynmeta{'stdno'}). |
.&Apache::lonhtmlcommon::row_closure() |
'</td>'."</tr>\n"); |
); |
foreach ('avetries','difficulty','disc') { |
my @stats = ('avetries','difficulty','disc'); |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
my $rownum = 0; |
'<td bgcolor="#CCCCCC">'. |
foreach my $item (@stats) { |
&prettyprint($_,sprintf('%5.2f',$dynmeta{$_})). |
my $lastrow = ''; |
'</td>'."</tr>\n"); |
$rownum ++; |
} |
$lastrow = 1 if ($rownum == @stats); |
$r->print('</table>'); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
} |
.&prettyprint($item,sprintf('%5.2f',$dynmeta{$item})) |
|
.&Apache::lonhtmlcommon::row_closure($lastrow) |
|
); |
|
} |
|
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
|
} |
|
# |
|
# New assessment statistics |
|
$r->print('<h4>' |
|
.&mt('Recent Detailed Assessment Statistical Data') |
|
.'</h4>' |
|
); |
if (exists($dynmeta{'stats'})) { |
if (exists($dynmeta{'stats'})) { |
# |
my $table=&Apache::loncommon::start_data_table() |
# New assessment statistics |
.&Apache::loncommon::start_data_table_header_row() |
$r->print('<h4>'. |
.'<th>'.&mt('Course').'</th>' |
&mt('Recent Detailed Assessment Statistical Data'). |
.'<th>'.&mt('Section(s)').'</th>' |
'</h4>'); |
.'<th>'.&mt('Num Students').'</th>' |
my $table = '<table cellspacing="2" border="0">'. |
.'<th>'.&mt('Mean Tries').'</th>' |
'<tr>'. |
.'<th>'.&mt('Degree of Difficulty').'</th>' |
'<th>'.&mt('Course').'</th>'. |
.'<th>'.&mt('Degree of Discrimination').'</th>' |
'<th>'.&mt('Section(s)').'</th>'. |
.'<th>'.&mt('Time of computation').'</th>' |
'<th>'.&mt('Num Student').'s</th>'. |
.&Apache::loncommon::end_data_table_header_row().$/; |
'<th>'.&mt('Mean Tries').'</th>'. |
|
'<th>'.&mt('Degree of Difficulty').'</th>'. |
|
'<th>'.&mt('Degree of Discrimination').'</th>'. |
|
'<th>'.&mt('Time of computation').'</th>'. |
|
'</tr>'.$/; |
|
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { |
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { |
my $data = $dynmeta{'stats'}->{$identifier}; |
my $data = $dynmeta{'stats'}->{$identifier}; |
my $course = $data->{'course'}; |
my $course = $data->{'course'}; |
Line 1034 sub print_dynamic_metadata {
|
Line 1107 sub print_dynamic_metadata {
|
&Apache::lonnet::logthis('lookup for '.$course.' failed'); |
&Apache::lonnet::logthis('lookup for '.$course.' failed'); |
next; |
next; |
} |
} |
$table .= '<tr>'; |
$table .= &Apache::loncommon::start_data_table_row(); |
$table .= |
$table .= |
'<td><nobr>'.$courseinfo{'description'}.'</nobr></td>'; |
'<td><span class="LC_nobreak">'.$courseinfo{'description'}.'</span></td>'; |
$table .= |
$table .= |
'<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>'; |
foreach ('avetries','difficulty','disc') { |
foreach my $item ('avetries','difficulty','disc') { |
$table .= '<td align="right">'; |
$table .= '<td align="right">'; |
if (exists($data->{$_})) { |
if (exists($data->{$item})) { |
$table .= sprintf('%.2f',$data->{$_}).' '; |
$table .= sprintf('%.2f',$data->{$item}).' '; |
} else { |
} else { |
$table .= ''; |
$table .= ''; |
} |
} |
$table .= '</td>'; |
$table .= '</td>'; |
} |
} |
$table .= |
$table .= |
'<td><nobr>'. |
'<td><span class="LC_nobreak">'. |
&Apache::lonlocal::locallocaltime($data->{'timestamp'}). |
&Apache::lonlocal::locallocaltime($data->{'timestamp'}). |
'</nobr></td>'; |
'</span></td>'; |
$table .= |
$table .= &Apache::loncommon::end_data_table_row().$/; |
'</tr>'.$/; |
|
} |
} |
$table .= '</table>'.$/; |
$table .= &Apache::loncommon::end_data_table().$/; |
$r->print($table); |
$r->print($table); |
} else { |
} else { |
$r->print(&mt('No new dynamic data found.')); |
$r->print('<p>' |
|
.&mt('No new dynamic data found.') |
|
.'</p>' |
|
); |
} |
} |
} else { |
} else { |
$r->print('<h4>'. |
$r->print('<h4>'. |
Line 1069 sub print_dynamic_metadata {
|
Line 1144 sub print_dynamic_metadata {
|
} |
} |
|
|
# |
# |
# |
# Evaluation Data |
|
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'); |
if (exists($dynmeta{'clear'}) || |
if (exists($dynmeta{'clear'}) || |
exists($dynmeta{'depth'}) || |
exists($dynmeta{'depth'}) || |
exists($dynmeta{'helpful'}) || |
exists($dynmeta{'helpful'}) || |
exists($dynmeta{'correct'}) || |
exists($dynmeta{'correct'}) || |
exists($dynmeta{'technical'})){ |
exists($dynmeta{'technical'})){ |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'. |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
'<table cellspacing="2" border="0">'); |
my @criteria = ('clear','depth','helpful','correct','technical'); |
foreach ('clear','depth','helpful','correct','technical') { |
my $rownum = 0; |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
foreach my $item (@criteria) { |
'<td bgcolor="#CCCCCC">'. |
my $lastrow = ''; |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
$rownum ++; |
|
$lastrow = 1 if ($rownum == @criteria); |
|
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
|
.&prettyprint($item,$dynmeta{$item}) |
|
.&Apache::lonhtmlcommon::row_closure($lastrow) |
|
); |
} |
} |
$r->print('</table>'); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
} else { |
} else { |
$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>'); |
$r->print('<p>' |
|
.&mt('No Evaluation Data is available for this resource.') |
|
.'</p>' |
|
); |
} |
} |
|
# Evaluation Comments |
$uri=~/^\/res\/($match_domain)\/($match_username)\//; |
$uri=~/^\/res\/($match_domain)\/($match_username)\//; |
if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2)) |
if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2)) |
|| ($env{'user.role.ca./'.$1.'/'.$2})) { |
|| ($env{'user.role.ca./'.$1.'/'.$2})) { |
|
$r->print('<h4>'.&mt('Evaluation Comments').'</h4>' |
|
.'<div>(' |
|
.&mt('visible to author and co-authors only') |
|
.')</div>' |
|
); |
if (exists($dynmeta{'comments'})) { |
if (exists($dynmeta{'comments'})) { |
$r->print('<h4>'.&mt('Evaluation Comments').' ('. |
$r->print('<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
&mt('visible to author and co-authors only'). |
|
')</h4>'. |
|
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
|
} else { |
} else { |
$r->print('<h4>'.&mt('There are no Evaluation Comments on this resource.').'</h4>'); |
$r->print('<p>' |
|
.&mt('There are no Evaluation Comments on this resource.') |
|
.'</p>' |
|
); |
} |
} |
my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri); |
my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri); |
if (defined($bombs) && $bombs ne '') { |
if (defined($bombs) && $bombs ne '') { |
$r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('. |
$r->print('<a name="bombs" />' |
&mt('visible to author and co-authors only').')'. |
.'<h4 class="LC_error">'.&mt('Error Messages').'</h4>' |
'</h4>'.$bombs); |
.'<div>(' |
} else { |
.&mt('visible to author and co-authors only') |
$r->print('<h4>'.&mt('There are currently no Error Messages for this resource.').'</h4>'); |
.')</div>' |
} |
.$bombs |
|
); |
|
} #else { |
|
# $r->print('<h4>'.&mt('There are currently no Error Messages for this resource.').'</h4>'); |
|
#} |
} |
} |
# |
# |
# All other stuff |
# All other stuff |
$r->print('<h3>'. |
$r->print('<h3>'. |
&mt('Additional Metadata (non-standard, parameters, exports)'). |
&mt('Additional Metadata (non-standard, parameters, exports)'). |
'</h3><table border="0" cellspacing="1">'); |
'</h3>'); |
foreach (sort(keys(%content))) { |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
my $name=$_; |
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) { |
$display=$name; |
$display=$name; |
}; |
}; |
my $otherinfo=''; |
my $otherinfo=''; |
foreach ('name','part','type','default') { |
foreach my $item ('name','part','type','default') { |
if (defined(&Apache::lonnet::metadata($uri, |
if (defined(&Apache::lonnet::metadata($uri, |
$name.'.'.$_))) { |
$name.'.'.$item))) { |
$otherinfo.=' '.$_.'='. |
$otherinfo.=' '.$item.'='. |
&Apache::lonnet::metadata($uri, |
&Apache::lonnet::metadata($uri, |
$name.'.'.$_).'; '; |
$name.'.'.$item).'; '; |
} |
} |
} |
} |
$r->print('<tr><td bgcolor="#bbccbb"><font size="-1" color="#556655">'.$display.'</font></td><td bgcolor="#ccddcc"><font size="-1" color="#556655">'.$content{$name}); |
$r->print(&Apache::lonhtmlcommon::row_title($display) |
|
.$content{$name} |
|
); |
if ($otherinfo) { |
if ($otherinfo) { |
$r->print(' ('.$otherinfo.')'); |
$r->print(' ('.$otherinfo.')'); |
} |
} |
$r->print("</font></td></tr>\n"); |
$r->print(&Apache::lonhtmlcommon::row_closure($lastrow)); |
} |
} |
} |
} |
$r->print("</table>"); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
return; |
return; |
} |
} |
|
|
Line 1211 ENDDEL
|
Line 1318 ENDDEL
|
if ($disuri=~/\/default$/) { |
if ($disuri=~/\/default$/) { |
my $dir=$disuri; |
my $dir=$disuri; |
$dir=~s/default$//; |
$dir=~s/default$//; |
$displayfile=&mt('Default Metadata for Directory [_1]',$dir); |
$displayfile=&mt('Default Metadata for Directory [_1]' |
|
,'<span class="LC_filename">'.$dir.'</span>'); |
} |
} |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
Line 1238 ENDDEL
|
Line 1346 ENDDEL
|
} |
} |
} |
} |
$r->print(<<ENDEDIT); |
$r->print(<<ENDEDIT); |
<h1>$displayfile</h1> |
<p>$displayfile</p> |
<form method="post" action="" name="defaultmeta"> |
<form method="post" action="" name="defaultmeta"> |
ENDEDIT |
ENDEDIT |
my %lt=&fieldnames($file_type); |
my %lt=&fieldnames($file_type); |
Line 1330 ENDEDIT
|
Line 1438 ENDEDIT
|
$lt{$field_name} = $$added_metadata_fields{$field_name}; |
$lt{$field_name} = $$added_metadata_fields{$field_name}; |
} |
} |
} |
} |
$output .= &Apache::loncommon::start_data_table(); |
$output .= &Apache::lonhtmlcommon::start_pick_box(); |
my $row_alt = 1; |
my $last = $#fields + 1; |
|
my $rowcount = 0; |
foreach my $field_name (@fields) { |
foreach my $field_name (@fields) { |
|
$rowcount++; |
if (defined($env{'form.new_'.$field_name})) { |
if (defined($env{'form.new_'.$field_name})) { |
my @values = &Apache::loncommon::get_env_multiple('form.new_'.$field_name); |
my @values = &Apache::loncommon::get_env_multiple('form.new_'.$field_name); |
my $newvalue = ''; |
my $newvalue = ''; |
Line 1351 ENDEDIT
|
Line 1461 ENDEDIT
|
($field_name eq 'courserestricted'))&& |
($field_name eq 'courserestricted'))&& |
(!($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/))){ |
(!($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/))){ |
|
|
$output .= "\n".&Apache::loncommon::start_data_table_row(); |
$output .= &Apache::lonhtmlcommon::row_title($lt{$field_name}) |
$output .= ('<td><span class="LC_metadata">'.$lt{$field_name}.':</span></td><td> '. |
.&prettyinput($field_name, |
&prettyinput($field_name, |
|
$Apache::lonpublisher::metadatafields{$field_name}, |
$Apache::lonpublisher::metadatafields{$field_name}, |
'new_'.$field_name,'defaultmeta', |
'new_'.$field_name,'defaultmeta', |
undef,undef,undef,undef, |
undef,undef,undef,undef, |
$Apache::lonpublisher::metadatafields{'courserestricted'}).'</td>'); |
$Apache::lonpublisher::metadatafields{'courserestricted'}); |
$output .= &Apache::loncommon::end_data_table_row(); |
$output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0); |
} |
} |
} else { |
} else { |
|
|
$output.=(&Apache::loncommon::start_data_table_row().'<td><span class="LC_metadata">'.$lt{$field_name}.':</span></td><td> '. |
$output .= &Apache::lonhtmlcommon::row_title($lt{$field_name}) |
&prettyinput($field_name, |
.&prettyinput($field_name, |
$Apache::lonpublisher::metadatafields{$field_name}, |
$Apache::lonpublisher::metadatafields{$field_name}, |
'new_'.$field_name,'defaultmeta').'</td>'.&Apache::loncommon::end_data_table_row()); |
'new_'.$field_name,'defaultmeta') |
|
.&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0); |
|
|
} |
} |
} |
} |
$output .= &Apache::loncommon::end_data_table(); |
$output .= &Apache::lonhtmlcommon::end_pick_box(); |
if ($env{'form.store'}) { |
if ($env{'form.store'}) { |
my ($outcome,$result) = &store_metadata($fn,$uri,'store'); |
my ($outcome,$result) = &store_metadata($fn,$uri,'store'); |
$r->print($result); |
$r->print($result); |
} |
} |
$r->print($output.'<br /><input type="submit" title="Save Metadata" name="store" value="'. |
my $savebutton = '<p><input type="submit" name="store"' |
&mt('Save').'" />'); |
.' value="'.&mt('Save').'" title="'.&mt('Save Metadata').'" /></p>'; |
|
$r->print($savebutton.$output.$savebutton); |
|
|
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
my ($port_path,$group) = &get_port_path_and_group($uri); |
my ($port_path,$group) = &get_port_path_and_group($uri); |
Line 1436 sub store_metadata {
|
Line 1547 sub store_metadata {
|
$output .= $result; |
$output .= $result; |
} else { |
} else { |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
$output .= '<p><font color="red">'; |
$output .= '<p class="LC_error">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Could not transfer data in added fields to notes'); |
$output .= &mt('Could not transfer data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Could not write metadata'); |
$output .= &mt('Could not write metadata'); |
} |
} |
$output .= ', '.&mt('FAIL').'</font></p>'; |
$output .= ', '.&mt('FAIL').'</p>'; |
$outcome = 'fail'; |
$outcome = 'fail'; |
} else { |
} else { |
print $mfh ($file_content); |
print $mfh ($file_content); |
close($mfh); |
close($mfh); |
&update_metadata_table($uri); |
&update_metadata_table($uri); |
$output .= '<p><font color="blue">'; |
my $confirmtext; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Transferred data in added fields to notes'); |
$confirmtext = &mt('Transferred data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Wrote Metadata'); |
$confirmtext = &mt('Wrote Metadata'); |
} |
} |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
$output .= &Apache::loncommon::confirmwrapper( |
'</font></p>'; |
&Apache::lonhtmlcommon::confirm_success( |
|
$confirmtext.' '.&Apache::lonlocal::locallocaltime(time))); |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
} |
} |
Line 1483 sub store_portfolio_metadata {
|
Line 1595 sub store_portfolio_metadata {
|
$env{'form.'.$formname.'.filename'}=$new_fn; |
$env{'form.'.$formname.'.filename'}=$new_fn; |
my $result =&Apache::lonnet::userfileupload($formname,'',$path); |
my $result =&Apache::lonnet::userfileupload($formname,'',$path); |
if ($result =~ /(error|notfound)/) { |
if ($result =~ /(error|notfound)/) { |
$output = '<p><font color="red">'; |
$output = '<p class="LC_error">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= |
$output .= |
&mt('Could not transfer data in added fields to notes'); |
&mt('Could not transfer data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Could not write metadata'); |
$output .= &mt('Could not write metadata'); |
} |
} |
$output .= ', '.&mt('FAIL').'</font></p>'; |
$output .= ', '.&mt('FAIL').'</p>'; |
$outcome = 'fail'; |
$outcome = 'fail'; |
} else { |
} else { |
&update_metadata_table($uri); |
&update_metadata_table($uri); |
$output = '<p><font color="blue">'; |
$output = '<p class="LC_success">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Transferred data in added fields to notes'); |
$output .= &mt('Transferred data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Wrote Metadata'); |
$output .= &mt('Wrote Metadata'); |
} |
} |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
'</font></p>'; |
'</p>'; |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
return ($outcome,$output); |
return ($outcome,$output); |