version 1.219, 2008/12/12 10:01:25
|
version 1.220, 2008/12/13 19:44:52
|
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>'.&{$functionref}($id).'</option>'; |
} |
} else { |
else {$selout.='>'.&{$functionref}($_).'</option>';} |
$selout.='>'.&{$functionref}($id).'</option>'; |
|
} |
} |
} |
return $selout.'</select>'; |
return $selout.'</select>'; |
} |
} |
Line 832 sub report_bombs {
|
Line 833 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 860 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 970 sub print_dynamic_metadata {
|
Line 971 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 ('count', |
foreach my $item ('count', |
'sequsage','sequsage_list', |
'sequsage','sequsage_list', |
'comefrom','comefrom_list', |
'comefrom','comefrom_list', |
'goto','goto_list', |
'goto','goto_list', |
'course','course_list') { |
'course','course_list') { |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
.&prettyprint($_,$dynmeta{$_}) |
.&prettyprint($item,$dynmeta{$item}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
} |
} |
Line 1000 sub print_dynamic_metadata {
|
Line 1001 sub print_dynamic_metadata {
|
.&prettyprint('stdno',$dynmeta{'stdno'}) |
.&prettyprint('stdno',$dynmeta{'stdno'}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
foreach ('avetries','difficulty','disc') { |
foreach my $item ('avetries','difficulty','disc') { |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
.&prettyprint($_,sprintf('%5.2f',$dynmeta{$_})) |
.&prettyprint($item,sprintf('%5.2f',$dynmeta{$item})) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
} |
} |
Line 1041 sub print_dynamic_metadata {
|
Line 1042 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>'; |
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 .= ''; |
} |
} |
Line 1076 sub print_dynamic_metadata {
|
Line 1077 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 ('clear','depth','helpful','correct','technical') { |
foreach my $item ('clear','depth','helpful','correct','technical') { |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$_}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{$item}) |
.&prettyprint($_,$dynmeta{$_}) |
.&prettyprint($item,$dynmeta{$item}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
} |
} |
Line 1112 sub print_dynamic_metadata {
|
Line 1113 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 (sort(keys(%content))) { |
foreach my $name (sort(keys(%content))) { |
my $name=$_; |
|
if ($name!~/\.display$/) { |
if ($name!~/\.display$/) { |
my $display=&Apache::lonnet::metadata($uri, |
my $display=&Apache::lonnet::metadata($uri, |
$name.'.display'); |
$name.'.display'); |
Line 1121 sub print_dynamic_metadata {
|
Line 1121 sub print_dynamic_metadata {
|
$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(&Apache::lonhtmlcommon::row_title($display) |
$r->print(&Apache::lonhtmlcommon::row_title($display) |