--- loncom/interface/lonmeta.pm 2012/05/21 19:01:12 1.246 +++ loncom/interface/lonmeta.pm 2023/03/28 23:17:18 1.255 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.246 2012/05/21 19:01:12 bisitz Exp $ +# $Id: lonmeta.pm,v 1.255 2023/03/28 23:17:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -351,7 +351,7 @@ sub pre_select_course { if ($group) { $group_input = ''; } - $r->print('

'. + $r->print(' '. ''. $group_input. ''. @@ -389,9 +389,9 @@ 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.').'

'. &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(). - 'Copy to notes?'."\n". - 'Field name'."\n". - 'Values'."\n". + ''.&mt('Copy to notes?').''."\n". + ''.&mt('Field Name').''."\n". + ''.&mt('Values').''."\n". &Apache::loncommon::end_data_table_header_row(). $transfernotes. &Apache::loncommon::end_data_table().'
'; @@ -455,7 +455,7 @@ sub prettyprint { } # MIME if ($type eq 'mime') { - return ' '. + return ' '. &Apache::loncommon::filedescription($value); } # Person @@ -550,13 +550,17 @@ sub direct { } sub selectbox { - my ($name,$value,$functionref,@idlist)=@_; + my ($name,$value,$readonly,$functionref,@idlist)=@_; if (! defined($functionref)) { $functionref=\&direct; } + my $disabled; + if ($readonly) { + $disabled = ' disabled="disabled"'; + } my $selout='".&mt('Select').''. - &relatedfield(0,$relatedsearchflag,$relatedsep); + my $disabled; + if ($readonly) { + $disabled = ' disabled="disabled"'; + } + my $output; + $output = ''; + unless ($readonly) { + $output .= '".&mt('Select').''; + } + $output .= &relatedfield(0,$relatedsearchflag,$relatedsep); + return $output; } # Source Customdistribution file if ($type eq 'sourcerights') { @@ -763,7 +776,7 @@ sub pageheader { sub handler { my $r=shift; &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['currentpath','changecourse']); + ['currentpath','changecourse','modal']); my $uri=$r->uri; # # Set document type @@ -778,7 +791,7 @@ sub handler { if ($env{'request.state'} eq 'construct') { &Apache::lonhtmlcommon::add_breadcrumb({ - 'text' => 'Construction Space', + 'text' => 'Authoring Space', 'href' => &Apache::loncommon::authorspace($uri), }); } @@ -829,7 +842,7 @@ sub handler { $r->print(&pageheader()); &present_editable_metadata($r,$uri,'groups'); } elsif ($uri=~m|^/priv|) { - # Construction space + # Authoring space &Apache::lonhtmlcommon::add_breadcrumb({ 'text' => 'Edit Metadata', 'href' => '', @@ -854,7 +867,21 @@ sub handler { 'only_body' => 1,}) .'

'.&mt('Metadata').'

' ); + if ($env{'form.modal'}) { + my $width = 500; + my $height = 400; + my $machine = &Apache::lonnet::absolute_url(); + $r->print(&Apache::loncommon::nicescroll_javascript('metadatawrapper', + {cursorcolor => '#00F', + railalign => 'right', + railoffset => '{top:5,left:40}'}, + undef,1,$machine.$uri)); + $r->print('
'); + } &present_uneditable_metadata($r,$uri); + if ($env{'form.modal'}) { + $r->print('
'); + } } $r->print(&Apache::loncommon::end_page()); return OK; @@ -872,9 +899,13 @@ sub report_bombs { # Set document type $uri =~ s:/adm/bombs/::; $uri = &Apache::lonnet::declutter($uri); - $r->print('

'.&Apache::lonnet::clutter($uri).'

'); + $r->print( + '

'.&mt('Folder: [_1]', + ''.&Apache::lonnet::clutter($uri).'') + .'

' + ); my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); - if (!&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) { + if (!&Apache::lonnet::constructaccess('/priv/'.$domain.'/'.$author.'/')) { $r->print('

'.&mt('Not authorized').'

'); return; } @@ -965,7 +996,7 @@ sub present_uneditable_metadata { $currentversion : &mt('information not available')).')'; } else { - $versiondisplay='Version: '.$currentversion; + $versiondisplay=&mt('Version: [_1]',$currentversion); } } # crumbify displayed URL uri target prefix form @@ -983,7 +1014,7 @@ sub present_uneditable_metadata { my $table=''; my $title = $content{'title'}; if (! defined($title)) { - $title = 'Untitled Resource'; + $title = &mt('Untitled Resource'); } my @fields; if ($uploaded) { @@ -1118,6 +1149,7 @@ sub print_dynamic_metadata { if (exists($dynmeta{'stats'})) { my $table=&Apache::loncommon::start_data_table() .&Apache::loncommon::start_data_table_header_row() + .''.&mt('Domain').'' .''.&mt('Course').'' .''.&mt('Section(s)').'' .''.&mt('Num Students').'' @@ -1138,6 +1170,8 @@ sub print_dynamic_metadata { next; } $table .= &Apache::loncommon::start_data_table_row(); + $table .= + ''.$courseinfo{'domain'}.''; $table .= ''.$courseinfo{'description'}.''; $table .= @@ -1174,7 +1208,6 @@ sub print_dynamic_metadata { &mt('No Assessment Statistical Data is available for this resource'). ''); } - # # Evaluation Data $r->print('

'.&mt('Evaluation Data').'

'); @@ -1289,9 +1322,19 @@ sub print_dynamic_metadata { ##################################################### sub present_editable_metadata { my ($r,$uri,$file_type) = @_; - # Construction Space Call + # Authoring Space Call # Header my $disuri=$uri; + my ($courseauthor,$crsaurights,$readonly); + if ($env{'request.course.id'}) { + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + if ($uri =~ m{^\Q/priv/$cdom/$cnum/\E}) { + $courseauthor = $cnum.':'.$cdom; + $crsaurights = "/res/$cdom/$cnum/default.rights"; + $readonly = 1; + } + } my $fn=&Apache::lonnet::filelocation('',$uri); $disuri=~s{^/\~}{/priv/}; $disuri=~s/\.meta$//; @@ -1306,7 +1349,12 @@ sub present_editable_metadata { my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); if ($bombs) { # Display Bombs, not Metadata - $r->print("

$disuri

"); + $r->print( + '

'.&mt('Error Messages').'

' + .'

'.&mt('Folder: [_1]', + ''.$disuri.'') + .'

' + ); my $showbuttons=1; my $message=''; my $rc=''; @@ -1365,7 +1413,9 @@ sub present_editable_metadata { } else { # Display Metadata, not Bombs - my $displayfile=&mt('Metadata for [_1]',$disuri); + my $displayfile = + &mt('Metadata for [_1]' + ,''.$disuri.''); if ($disuri=~/\/default$/) { my $dir=$disuri; $dir=~s/default$//; @@ -1376,7 +1426,11 @@ sub present_editable_metadata { %Apache::lonpublisher::metadatakeys=(); my $result=&Apache::lonnet::getfile($fn); if ($result == -1){ - $r->print(&mt('Creating new file [_1]'),$meta_uri); + my $message = &Apache::lonhtmlcommon::confirm_success( + &mt('Creating new file [_1]' + ,'')); + $message = &Apache::loncommon::confirmwrapper($message); + $r->print($message); } else { &Apache::lonpublisher::metaeval($result); } @@ -1397,7 +1451,7 @@ sub present_editable_metadata { } } $r->print(<$displayfile

+

$displayfile

ENDEDIT my %lt=&fieldnames($file_type); @@ -1423,7 +1477,7 @@ ENDEDIT @fields = (split(/,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})); } else { # no saved field list, use default list - @fields = ('author','title','subject','keywords','abstract', + @fields = ('title','author','subject','keywords','abstract', 'notes','lowestgradelevel', 'highestgradelevel','standards'); if ($Apache::lonpublisher::metadatafields{'courserestricted'} =~ /^course\.($match_domain\_$match_courseid)$/) { @@ -1436,12 +1490,16 @@ ENDEDIT } } } else { - @fields = ('author','title','subject','keywords','abstract','notes', + @fields = ('title','author','subject','keywords','abstract','notes', 'copyright','customdistributionfile','language', 'standards', 'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', 'obsolete','obsoletereplacement'); } + if ($courseauthor) { + $Apache::lonpublisher::metadatafields{'copyright'}='custom'; + $Apache::lonpublisher::metadatafields{'customdistributionfile'}=$crsaurights; + } if (! $Apache::lonpublisher::metadatafields{'copyright'}) { $Apache::lonpublisher::metadatafields{'copyright'}= 'default'; @@ -1463,21 +1521,29 @@ ENDEDIT if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { if ($file_type eq 'portfolio') { - $r->print(&mt('Associated with course [_1]', - ''. - $env{$Apache::lonpublisher::metadatafields{'courserestricted'}. - ".description"}. - '').'
'); + $r->print( + &mt('Associated with course [_1]' + ,'' + .$env{$Apache::lonpublisher::metadatafields{'courserestricted'} + .".description"}.'') + .' ' + .&mt('Change') + .''.'
' + ); + } else { $r->print(&mt('Associated with course [_1]', ''. $env{$Apache::lonpublisher::metadatafields{'courserestricted'}. ".description"}.'').'
'); } - } else { - $r->print(''.&mt('This resource is not associated with a course.').'
'); - } - } + } else { + $r->print( + &mt('This resource is not associated with a course.') + .' '.&mt('Change').'
' + ); + } + } if (@added_order) { foreach my $field_name (@added_order) { push(@fields,$field_name); @@ -1515,17 +1581,16 @@ ENDEDIT $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name}) .&prettyinput($field_name, $Apache::lonpublisher::metadatafields{$field_name}, - 'new_'.$field_name,'defaultmeta', + $readonly,'new_'.$field_name,'defaultmeta', undef,undef,undef,undef, $Apache::lonpublisher::metadatafields{'courserestricted'}); $output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0); } } else { - $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name}) .&prettyinput($field_name, $Apache::lonpublisher::metadatafields{$field_name}, - 'new_'.$field_name,'defaultmeta') + $readonly,'new_'.$field_name,'defaultmeta') .&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0); }