version 1.220, 2008/12/13 19:44:52
|
version 1.226, 2009/03/17 20:07:45
|
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 432 sub prettyprint {
|
Line 432 sub prettyprint {
|
} |
} |
# 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,'0',$noformat). |
'</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 556 sub selectbox {
|
Line 556 sub selectbox {
|
} |
} |
my $selout='<select name="'.$name.'">'; |
my $selout='<select name="'.$name.'">'; |
foreach my $id (@idlist) { |
foreach my $id (@idlist) { |
$selout.='<option value=\''.$id.'\''; |
$selout.='<option value="'.$id.'"'; |
if ($id eq $value) { |
if ($id eq $value) { |
$selout.=' selected>'.&{$functionref}($id).'</option>'; |
$selout.=' selected>'.&{$functionref}($id).'</option>'; |
} else { |
} else { |
Line 762 sub handler {
|
Line 762 sub handler {
|
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) { |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) { |
($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,})); |
if ($env{'form.store'}) { |
if ($env{'form.store'}) { |
Line 781 sub handler {
|
Line 781 sub handler {
|
} |
} |
} |
} |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information', |
$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
&present_editable_metadata($r,$uri,'groups'); |
&present_editable_metadata($r,$uri,'groups'); |
} elsif ($uri=~m|^/~|) { |
} elsif ($uri=~m|^/~|) { |
# Construction space |
# Construction space |
$r->print(&Apache::loncommon::start_page('Edit Catalog Information', |
$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>', |
Line 927 sub present_uneditable_metadata {
|
Line 927 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 971 sub print_dynamic_metadata {
|
Line 975 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 1001 sub print_dynamic_metadata {
|
Line 1008 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 1077 sub print_dynamic_metadata {
|
Line 1089 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 1113 sub print_dynamic_metadata {
|
Line 1130 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 1135 sub print_dynamic_metadata {
|
Line 1163 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()); |