'.
' | '.
+ $Apache::lonnet::perlvar{'lonIconsURL'}.'/navmap.folder.closed.gif" alt="folder" />'.
''.$actionitem.' | '.
''.
$disfilename.' | '.
- ''.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
+ ' | '.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {
$r->print(' '.
$Apache::lonpublisher::metadatafields{'subject'}.
@@ -571,6 +598,7 @@ sub putresource {
my $css_class='LC_browser_file';
my $title=' ';
my $publish_button=&mt('Publish');
+ my $cstr_dir = '/home/'.$uname.'/public_html/'.$thisdisfn.'/';
# my $action_buttons=
# '
'.
@@ -585,44 +613,74 @@ sub putresource {
$same=1;
} else {
if (&Apache::londiff::are_different_files($resdir.'/'.$filename,
- '/home/'.$uname.'/public_html/'.$thisdisfn.'/'.$filename)) {
+ $cstr_dir.'/'.$filename)) {
$same=0;
} else {
$same=1;
}
}
+ my $meta_cmtime = (stat($cstr_dir.'/'.$filename.'.meta'))[9];
+ my $meta_rmtime = (stat($resdir.'/'.$filename.'.meta'))[9];
+ my $meta_same = 1;
+ if ($meta_rmtime < $meta_cmtime
+ && &Apache::londiff::are_different_files($resdir.'/'.$filename.'.meta',
+ $cstr_dir.'/'.$filename.'.meta')) {
+ $meta_same = 0;
+ }
$publish_button=&mt('Re-publish');
+
+ my $rights_status =
+ &mt(&getCopyRightString($targetdir.'/'.$filename)).', ';
+
+ my %lt_SourceRight = &Apache::lonlocal::texthash(
+ 'open' => 'Source: open',
+ 'closed' => 'Source: closed',
+ );
+ $rights_status .=
+ $lt_SourceRight{&getSourceRightString($targetdir.'/'.$filename)};
+
+ $title = ''.
+ &getTitleString($targetdir.'/'.$filename).'';
if ($same) {
- $pubstatus = 'published';
- $status=&mt('Published').'
'.
- &mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
- &mt(&getSourceRightString($targetdir.'/'.$filename));
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
$pubstatus = 'obsolete';
$status=&mt('Obsolete');
- }
+ } else {
+ if (!$meta_same) {
+ $pubstatus = 'metamodified';
+ } else {
+ $pubstatus = 'published';
+ }
+ $status=&mt('Published').
+ '
'. $rights_status;
+ }
# } else {
# $action_buttons='';
# }
- $title=''.
- &getTitleString($targetdir.'/'.$filename).'';
} else {
$pubstatus = 'modified';
- $status=&mt('Modified').'
'.
- &mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
- &mt(&getSourceRightString($targetdir.'/'.$filename));
+ $status=&mt('Modified').
+ '
'. $rights_status;
# $action_buttons='';
- $title=''.
- &getTitleString($targetdir.'/'.$filename).'';
if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
$status.='
'.&mt('Diffs').'';
}
- }
+ }
+
$title.="\n".'
'.
- ($$bombs{$targetdir.'/'.$filename}?' ':'Edit Metadata').'';
+ ($$bombs{$targetdir.'/'.$filename}?'':&mt('Edit Metadata')).'';
+
+ if (!$meta_same) {
+ $title = &mt('Metadata Modified').'
'.$title.
+ '
'.&mt('Metadata Diffs').'';
+ $title.="\n".'
'.&mt('Retrieve Metadata').'';
+ }
$status.="\n".'
'.&mt('Retrieve').'';
}
@@ -645,18 +703,20 @@ sub putresource {
}
my $pub_select = '';
&create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
- $r->print(''.
+ $r->print(&Apache::loncommon::start_data_table_row().
''.($filename=~/[\#\~]$/?' ':
'.') ').' | '.
''.$pub_select.' | '.
- ' '.
+ ' | '.
''.
$filename.''.$editlink2.$editlink.
' | '.
''.$title.' | '.
- ''.$status.' | '.
+ ' | '. # Display publication status
+ ''.$status.' | '.
''.&Apache::lonlocal::locallocaltime($cmtime).' | '.
- " \n");
+ &Apache::loncommon::end_data_table_row()
+ );
return OK;
}
@@ -688,7 +748,9 @@ sub create_pubselect {
''.
'
';
+ &HTML::Entities::encode($uname.$thisdisfn.'/'.$filename,'<>&"').'" />
+ ';
$$numres ++;
}
@@ -740,6 +802,7 @@ sub CategorizeFiles {
1;
__END__
+
=head1 NAME
Apache::lonpubdir - Construction space directory lister
@@ -795,4 +858,64 @@ run through list of files and attempt to
=back
+=head1 SUBROUTINES:
+
+=over
+
+=item startpage($r, $uame, $udom, $thisdisfn)
+
+Output the header of the page. This includes:
+ - The HTML header
+ - The H1/H3 stuff which includes the directory.
+
+ startpage($r, $uame, $udom, $thisdisfn);
+ $r - The apache request object.
+ $uname - User name.
+ $udom - Domain name the user is logged in under.
+ $thisdisfn - Displayable version of the filename.
+
+=item getTitleString($fullname)
+
+ Get the title string or "[untitled]" if the file has no title metadata:
+ Without the latter substitution, it's impossible to examine metadata for
+ untitled resources. Resources may be legitimately untitled, to prevent
+ searches from locating them.
+
+ $str = getTitleString($fullname);
+ $fullname - Fully qualified filename to check.
+
+=item putdirectory(r, base, here, dirname, modtime)
+
+ Put out a directory table row:
+
+ putdirectory($r, $base, $here, $dirname, $modtime)
+ $r - Apache request object.
+ $reqfile - File in request.
+ $here - Where we are in directory tree.
+ $dirname - Name of directory special file.
+ $modtime - Encoded modification time.
+
+=item CategorizeFiles($location, $files)
+
+ Categorize files in the directory.
+ For each file in a list of files in a file directory,
+ the file categorized as one of:
+ - directory
+ - sequence
+ - problem
+ - Other resource.
+
+ For each file the modification date is determined as well.
+ Returned is a list of sublists:
+ (directories, sequences, problems, other)
+ each of the sublists contains entries of the following form (sorted by filename):
+ (filename, typecode, lastmodtime)
+
+ $list = CategorizeFiles($location, $files)
+ $location - Directory in which the files live (relative to our execution)
+ $files - list of files.
+
+=back
+
=cut
+
|