version 1.229, 2009/04/04 20:06:37
|
version 1.236, 2009/10/23 11:01:49
|
Line 742 sub prettyinput {
|
Line 742 sub prettyinput {
|
$relatedvalue); |
$relatedvalue); |
} |
} |
|
|
|
# Create pageheader |
|
sub pageheader { |
|
my $output = &Apache::lonhtmlcommon::breadcrumbs(); |
|
|
|
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 755 sub handler {
|
Line 766 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 Metadata', |
$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 781 sub handler {
|
Line 813 sub handler {
|
} |
} |
} |
} |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Edit Group Portfolio File Metadata', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata', |
$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|^/~|) { |
# Construction space |
# Construction space |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Edit Metadata', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Edit Metadata', |
$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 { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Metadata', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Metadata', |
$r->print(&Apache::loncommon::start_page('Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$r->print(&pageheader()); |
&present_uneditable_metadata($r,$uri); |
&present_uneditable_metadata($r,$uri); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
Line 968 sub print_dynamic_metadata {
|
Line 1015 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()); |
&Apache::lonhtmlcommon::start_pick_box()); |
|
my @counts = ('count','sequsage','sequsage_list', |
my @counts = ('count','sequsage','sequsage_list', |
'comefrom','comefrom_list','goto', |
'comefrom','comefrom_list','goto', |
'goto_list','course','course_list'); |
'goto_list','course','course_list'); |
Line 990 sub print_dynamic_metadata {
|
Line 1037 sub print_dynamic_metadata {
|
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$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 1021 sub print_dynamic_metadata {
|
Line 1071 sub print_dynamic_metadata {
|
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$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'})) { |
# |
|
# New assessment statistics |
|
$r->print('<h4>'. |
|
&mt('Recent Detailed Assessment Statistical Data'). |
|
'</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>' |
Line 1072 sub print_dynamic_metadata {
|
Line 1123 sub print_dynamic_metadata {
|
$table .= &Apache::loncommon::end_data_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 1081 sub print_dynamic_metadata {
|
Line 1135 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()); |
&Apache::lonhtmlcommon::start_pick_box()); |
|
my @criteria = ('clear','depth','helpful','correct','technical'); |
my @criteria = ('clear','depth','helpful','correct','technical'); |
my $rownum = 0; |
my $rownum = 0; |
foreach my $item (@criteria) { |
foreach my $item (@criteria) { |
Line 1102 sub print_dynamic_metadata {
|
Line 1156 sub print_dynamic_metadata {
|
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$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 |
Line 1242 ENDDEL
|
Line 1309 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 1269 ENDDEL
|
Line 1337 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 1361 ENDEDIT
|
Line 1429 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 1382 ENDEDIT
|
Line 1452 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="'.&mt('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 1479 sub store_metadata {
|
Line 1550 sub store_metadata {
|
print $mfh ($file_content); |
print $mfh ($file_content); |
close($mfh); |
close($mfh); |
&update_metadata_table($uri); |
&update_metadata_table($uri); |
$output .= '<p class="LC_success">'; |
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( |
'</p>'; |
&Apache::lonhtmlcommon::confirm_success( |
|
$confirmtext.' '.&Apache::lonlocal::locallocaltime(time))); |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
} |
} |