version 1.246, 2012/05/21 19:01:12
|
version 1.253, 2014/06/12 12:08:02
|
Line 351 sub pre_select_course {
|
Line 351 sub pre_select_course {
|
if ($group) { |
if ($group) { |
$group_input = '<input type="hidden" name="group" value="'.$group.'" />'; |
$group_input = '<input type="hidden" name="group" value="'.$group.'" />'; |
} |
} |
$r->print('<br /><br /><form method="post" action="'.$port_path.'">'. |
$r->print(' <form method="post" action="'.$port_path.'">'. |
'<input type="hidden" name="currentpath" value="'.$path.'" />'. |
'<input type="hidden" name="currentpath" value="'.$path.'" />'. |
$group_input. |
$group_input. |
'<input type="submit" name="cancel" value="'.&mt('Cancel').'" />'. |
'<input type="submit" name="cancel" value="'.&mt('Cancel').'" />'. |
Line 389 sub select_course {
|
Line 389 sub select_course {
|
&mt('You can choose to transfer data from the added fields to the "Notes" field if you are planning to change the course association.').'<br /><br />'. |
&mt('You can choose to transfer data from the added fields to the "Notes" field if you are planning to change the course association.').'<br /><br />'. |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
'<th>Copy to notes?</th>'."\n". |
'<th>'.&mt('Copy to notes?').'</th>'."\n". |
'<th>Field name</th>'."\n". |
'<th>'.&mt('Field Name').'</th>'."\n". |
'<th>Values</th>'."\n". |
'<th>'.&mt('Values').'</th>'."\n". |
&Apache::loncommon::end_data_table_header_row(). |
&Apache::loncommon::end_data_table_header_row(). |
$transfernotes. |
$transfernotes. |
&Apache::loncommon::end_data_table().'<br />'; |
&Apache::loncommon::end_data_table().'<br />'; |
Line 455 sub prettyprint {
|
Line 455 sub prettyprint {
|
} |
} |
# MIME |
# MIME |
if ($type eq 'mime') { |
if ($type eq 'mime') { |
return '<img src="'.&Apache::loncommon::icon($value).'" /> '. |
return '<img src="'.&Apache::loncommon::icon($value).'" alt="" /> '. |
&Apache::loncommon::filedescription($value); |
&Apache::loncommon::filedescription($value); |
} |
} |
# Person |
# Person |
Line 778 sub handler {
|
Line 778 sub handler {
|
|
|
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Construction Space', |
'text' => 'Authoring Space', |
'href' => &Apache::loncommon::authorspace($uri), |
'href' => &Apache::loncommon::authorspace($uri), |
}); |
}); |
} |
} |
Line 829 sub handler {
|
Line 829 sub handler {
|
$r->print(&pageheader()); |
$r->print(&pageheader()); |
&present_editable_metadata($r,$uri,'groups'); |
&present_editable_metadata($r,$uri,'groups'); |
} elsif ($uri=~m|^/priv|) { |
} elsif ($uri=~m|^/priv|) { |
# Construction space |
# Authoring space |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Edit Metadata', |
'text' => 'Edit Metadata', |
'href' => '', |
'href' => '', |
Line 872 sub report_bombs {
|
Line 872 sub report_bombs {
|
# Set document type |
# Set document type |
$uri =~ s:/adm/bombs/::; |
$uri =~ s:/adm/bombs/::; |
$uri = &Apache::lonnet::declutter($uri); |
$uri = &Apache::lonnet::declutter($uri); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
$r->print( |
|
'<p>'.&mt('Folder: [_1]', |
|
'<span class="LC_filename">'.&Apache::lonnet::clutter($uri).'</span>') |
|
.'</p>' |
|
); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
if (!&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
if (!&Apache::lonnet::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
$r->print('<p class="LC_error">'.&mt('Not authorized').'</p>'); |
$r->print('<p class="LC_error">'.&mt('Not authorized').'</p>'); |
return; |
return; |
} |
} |
Line 965 sub present_uneditable_metadata {
|
Line 969 sub present_uneditable_metadata {
|
$currentversion : |
$currentversion : |
&mt('information not available')).')'; |
&mt('information not available')).')'; |
} else { |
} else { |
$versiondisplay='Version: '.$currentversion; |
$versiondisplay=&mt('Version: [_1]',$currentversion); |
} |
} |
} |
} |
# crumbify displayed URL uri target prefix form |
# crumbify displayed URL uri target prefix form |
Line 983 sub present_uneditable_metadata {
|
Line 987 sub present_uneditable_metadata {
|
my $table=''; |
my $table=''; |
my $title = $content{'title'}; |
my $title = $content{'title'}; |
if (! defined($title)) { |
if (! defined($title)) { |
$title = 'Untitled Resource'; |
$title = &mt('Untitled Resource'); |
} |
} |
my @fields; |
my @fields; |
if ($uploaded) { |
if ($uploaded) { |
Line 1118 sub print_dynamic_metadata {
|
Line 1122 sub print_dynamic_metadata {
|
if (exists($dynmeta{'stats'})) { |
if (exists($dynmeta{'stats'})) { |
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('Domain').'</th>' |
.'<th>'.&mt('Course').'</th>' |
.'<th>'.&mt('Course').'</th>' |
.'<th>'.&mt('Section(s)').'</th>' |
.'<th>'.&mt('Section(s)').'</th>' |
.'<th>'.&mt('Num Students').'</th>' |
.'<th>'.&mt('Num Students').'</th>' |
Line 1138 sub print_dynamic_metadata {
|
Line 1143 sub print_dynamic_metadata {
|
next; |
next; |
} |
} |
$table .= &Apache::loncommon::start_data_table_row(); |
$table .= &Apache::loncommon::start_data_table_row(); |
|
$table .= |
|
'<td><span class="LC_nobreak">'.$courseinfo{'domain'}.'</span></td>'; |
$table .= |
$table .= |
'<td><span class="LC_nobreak">'.$courseinfo{'description'}.'</span></td>'; |
'<td><span class="LC_nobreak">'.$courseinfo{'description'}.'</span></td>'; |
$table .= |
$table .= |
Line 1174 sub print_dynamic_metadata {
|
Line 1181 sub print_dynamic_metadata {
|
&mt('No Assessment Statistical Data is available for this resource'). |
&mt('No Assessment Statistical Data is available for this resource'). |
'</h4>'); |
'</h4>'); |
} |
} |
|
|
# |
# |
# Evaluation Data |
# Evaluation Data |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'); |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'); |
Line 1289 sub print_dynamic_metadata {
|
Line 1295 sub print_dynamic_metadata {
|
##################################################### |
##################################################### |
sub present_editable_metadata { |
sub present_editable_metadata { |
my ($r,$uri,$file_type) = @_; |
my ($r,$uri,$file_type) = @_; |
# Construction Space Call |
# Authoring Space Call |
# Header |
# Header |
my $disuri=$uri; |
my $disuri=$uri; |
my $fn=&Apache::lonnet::filelocation('',$uri); |
my $fn=&Apache::lonnet::filelocation('',$uri); |
Line 1306 sub present_editable_metadata {
|
Line 1312 sub present_editable_metadata {
|
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); |
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); |
if ($bombs) { |
if ($bombs) { |
# Display Bombs, not Metadata |
# Display Bombs, not Metadata |
$r->print("<h1>$disuri</h1>"); |
$r->print( |
|
'<h2>'.&mt('Error Messages').'</h2>' |
|
.'<p>'.&mt('Folder: [_1]', |
|
'<span class="LC_filename">'.$disuri.'</span>') |
|
.'</p>' |
|
); |
my $showbuttons=1; |
my $showbuttons=1; |
my $message=''; |
my $message=''; |
my $rc=''; |
my $rc=''; |
Line 1365 sub present_editable_metadata {
|
Line 1376 sub present_editable_metadata {
|
} else { |
} else { |
|
|
# Display Metadata, not Bombs |
# Display Metadata, not Bombs |
my $displayfile=&mt('Metadata for [_1]',$disuri); |
my $displayfile = |
|
&mt('Metadata for [_1]' |
|
,'<span class="LC_filename">'.$disuri.'</span>'); |
if ($disuri=~/\/default$/) { |
if ($disuri=~/\/default$/) { |
my $dir=$disuri; |
my $dir=$disuri; |
$dir=~s/default$//; |
$dir=~s/default$//; |
Line 1376 sub present_editable_metadata {
|
Line 1389 sub present_editable_metadata {
|
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
my $result=&Apache::lonnet::getfile($fn); |
my $result=&Apache::lonnet::getfile($fn); |
if ($result == -1){ |
if ($result == -1){ |
$r->print(&mt('Creating new file [_1]'),$meta_uri); |
my $message = &Apache::lonhtmlcommon::confirm_success( |
|
&mt('Creating new file [_1]' |
|
,'<span class="LC_filename"'.$meta_uri.'</span>')); |
|
$message = &Apache::loncommon::confirmwrapper($message); |
|
$r->print($message); |
} else { |
} else { |
&Apache::lonpublisher::metaeval($result); |
&Apache::lonpublisher::metaeval($result); |
} |
} |
Line 1397 sub present_editable_metadata {
|
Line 1414 sub present_editable_metadata {
|
} |
} |
} |
} |
$r->print(<<ENDEDIT); |
$r->print(<<ENDEDIT); |
<p>$displayfile</p> |
<h2>$displayfile</h2> |
<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 1423 ENDEDIT
|
Line 1440 ENDEDIT
|
@fields = (split(/,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})); |
@fields = (split(/,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})); |
} else { |
} else { |
# no saved field list, use default list |
# no saved field list, use default list |
@fields = ('author','title','subject','keywords','abstract', |
@fields = ('title','author','subject','keywords','abstract', |
'notes','lowestgradelevel', |
'notes','lowestgradelevel', |
'highestgradelevel','standards'); |
'highestgradelevel','standards'); |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} =~ /^course\.($match_domain\_$match_courseid)$/) { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} =~ /^course\.($match_domain\_$match_courseid)$/) { |
Line 1436 ENDEDIT
|
Line 1453 ENDEDIT
|
} |
} |
} |
} |
} else { |
} else { |
@fields = ('author','title','subject','keywords','abstract','notes', |
@fields = ('title','author','subject','keywords','abstract','notes', |
'copyright','customdistributionfile','language', |
'copyright','customdistributionfile','language', |
'standards', |
'standards', |
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', |
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', |
Line 1463 ENDEDIT
|
Line 1480 ENDEDIT
|
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
|
|
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
$r->print(&mt('Associated with course [_1]', |
$r->print( |
'<strong><a href="'.$uri.'?changecourse=true">'. |
&mt('Associated with course [_1]' |
$env{$Apache::lonpublisher::metadatafields{'courserestricted'}. |
,'<strong>' |
".description"}. |
.$env{$Apache::lonpublisher::metadatafields{'courserestricted'} |
'</a></strong>').'<br />'); |
.".description"}.'</strong>') |
|
.' <a href="'.$uri.'?changecourse=true">' |
|
.&mt('Change') |
|
.'</a>'.'<br />' |
|
); |
|
|
} else { |
} else { |
$r->print(&mt('Associated with course [_1]', |
$r->print(&mt('Associated with course [_1]', |
'<strong>'. |
'<strong>'. |
$env{$Apache::lonpublisher::metadatafields{'courserestricted'}. |
$env{$Apache::lonpublisher::metadatafields{'courserestricted'}. |
".description"}.'</strong>').'<br />'); |
".description"}.'</strong>').'<br />'); |
} |
} |
} else { |
} else { |
$r->print('<a href="'.$uri.'?changecourse=true">'.&mt('This resource is not associated with a course.').'</a><br />'); |
$r->print( |
} |
&mt('This resource is not associated with a course.') |
} |
.' <a href="'.$uri.'?changecourse=true">'.&mt('Change').'</a><br />' |
|
); |
|
} |
|
} |
if (@added_order) { |
if (@added_order) { |
foreach my $field_name (@added_order) { |
foreach my $field_name (@added_order) { |
push(@fields,$field_name); |
push(@fields,$field_name); |