version 1.31, 2006/09/13 21:43:26
|
version 1.32, 2006/09/19 21:47:29
|
Line 54 sub phaseone {
|
Line 54 sub phaseone {
|
my ($main,$suffix,$is_meta) = &get_file_info($fn); |
my ($main,$suffix,$is_meta) = &get_file_info($fn); |
|
|
if (-e $resfn) { |
if (-e $resfn) { |
$r->print('<form action=/adm/retrieve method=post>'. |
$r->print('<form action="/adm/retrieve" method="POST">'. |
'<input type=hidden name=filename value="/~'.$uname.$fn.'">'. |
'<input type="hidden" name="filename" value="/~'.$uname.$fn.'" />'. |
'<input type=hidden name=phase value=two>'. |
'<input type="hidden" name="phase" value="two" />'. |
'<table border=2><tr><th>'.&mt('Select').'</th><th>'. |
&Apache::loncommon::start_data_table(). |
&mt('Version').'</th>'. |
&Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Published on ...').'</th>'); |
'<th>'.&mt('Select').'</th>'. |
if (!$is_meta) { |
'<th>'.&mt('Version').'</th>'. |
$r->print('<th>'.&mt('Metadata').'</th>'); |
'<th>'.&mt('Published on ...').'</th>'); |
} |
if (!$is_meta) { |
if ($is_meta |
$r->print('<th>'.&mt('Metadata').'</th>'); |
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
} |
$r->print('<th>'.&mt('Diffs').'</th>'); |
if ($is_meta |
} |
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
$r->print('</tr>'); |
$r->print('<th>'.&mt('Diffs').'</th>'); |
|
} |
opendir(DIR,$resdir); |
$r->print(&Apache::loncommon::end_data_table_header_row()); |
my @files = grep(/^\Q$main\E\.(\d+)\.\Q$suffix\E$/,readdir(DIR)); |
|
@files = sort { |
opendir(DIR,$resdir); |
my ($aver) = ($a=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/); |
my @files = grep(/^\Q$main\E\.(\d+)\.\Q$suffix\E$/,readdir(DIR)); |
my ($bver) = ($b=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/); |
@files = sort { |
return $aver <=> $bver; |
my ($aver) = ($a=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/); |
} (@files); |
my ($bver) = ($b=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/); |
closedir(DIR); |
return $aver <=> $bver; |
|
} (@files); |
foreach my $filename (@files) { |
closedir(DIR); |
if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) { |
|
my $version=$1; |
foreach my $filename (@files) { |
my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate'); |
if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) { |
$r->print('<tr><td><input type=radio name=version value="'. |
my $version=$1; |
$version.'"></td><td>'.&mt('Previously published version').' '.$version.'</td><td>'. |
my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate'); |
localtime($rmtime).'</td>'); |
$r->print(&Apache::loncommon::start_data_table_row(). |
|
'<td><input type="radio" name="version" value="'. |
if (!$is_meta) { |
$version.'" /></td><td>'.&mt('Previously published version').' '.$version.'</td><td>'. |
$r->print('<td><a href="'.$urldir.$filename.'.meta" target=cat>'. |
localtime($rmtime).'</td>'); |
&mt('Metadata Version').' '.$version.'</a></td>'); |
|
} |
if (!$is_meta) { |
if ($is_meta |
$r->print('<td><a href="'.$urldir.$filename.'.meta" target=cat>'. |
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
&mt('Metadata Version').' '.$version.'</a></td>'); |
$r->print( |
} |
'<td><a target=cat href="/adm/diff?filename=/~'. |
if ($is_meta |
$uname.$fn. |
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
'&versiontwo=priv&versionone='.$version. |
$r->print( |
'">'.&mt('Diffs with Version').' '.$version. |
'<td><a target="cat" href="/adm/diff?filename=/~'. |
'</a></td>'); |
$uname.$fn. |
} |
'&versiontwo=priv&versionone='.$version. |
$r->print('</tr>'); |
'">'.&mt('Diffs with Version').' '.$version. |
} |
'</a></td>'); |
} |
} |
closedir(DIR); |
$r->print(&Apache::loncommon::end_data_table_row()); |
my $rmtime=&Apache::lonnet::metadata($resfn,'lastrevisiondate'); |
} |
$r->print('<tr><td><input type=radio name=version value="new"></td>'. |
} |
'<th>'.&mt('Currently published version').'</th><td>'.localtime($rmtime). |
closedir(DIR); |
'</td>'); |
my $rmtime=&Apache::lonnet::metadata($resfn,'lastrevisiondate'); |
if (!$is_meta) { |
$r->print(&Apache::loncommon::start_data_table_row(). |
$r->print('<td><a href="'.$urldir.$main.'.'.$suffix.'.meta" target=cat>'. |
'<td><input type="radio" name="version" value="new" /></td>'. |
&mt('Metadata current version').'</a></td>'); |
'<td><b>'.&mt('Currently published version').'</b></td><td>'.localtime($rmtime). |
|
'</td>'); |
|
if (!$is_meta) { |
|
$r->print('<td><a href="'.$urldir.$main.'.'.$suffix.'.meta" target=cat>'. |
|
&mt('Metadata current version').'</a></td>'); |
|
} |
|
if ($is_meta |
|
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
|
$r->print( |
|
'<td><a target="cat" href="/adm/diff?filename=/~'. |
|
$uname.$fn. |
|
'&versiontwo=priv'. |
|
'">'.&mt('Diffs with current Version').'</a></td>'); |
|
} |
|
$r->print(&Apache::loncommon::end_data_table_row(). |
|
&Apache::loncommon::end_data_table(). |
|
'<p>'. |
|
'<span class="LC_error">'. |
|
&mt('Retrieval of an old version will overwrite the file currently in construction space').'</span><p>'. |
|
'<input type="submit" value="'.&mt('Retrieve version').'" /></form>'); |
|
} else { |
|
$r->print('<h3>'.&mt('No previous versions published.').'</h3>'); |
} |
} |
if ($is_meta |
|
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
|
$r->print( |
|
'<td><a target=cat href="/adm/diff?filename=/~'. |
|
$uname.$fn. |
|
'&versiontwo=priv'. |
|
'">'.&mt('Diffs with current Version').'</a></td>'); |
|
} |
|
$r->print('</tr></table><p>'. |
|
'<font size=+1 color=red>'. |
|
&mt('Retrieval of an old version will overwrite the file currently in construction space').'</font><p>'. |
|
'<input type=submit value="'.&mt('Retrieve version').'"></form>'); |
|
} else { |
|
$r->print('<h3>'.&mt('No previous versions published.').'</h3>'); |
|
} |
|
$r->print('<p><a href="/priv/'.$uname.$fn.'">'.&mt('Back to').' '.$fn. |
$r->print('<p><a href="/priv/'.$uname.$fn.'">'.&mt('Back to').' '.$fn. |
'</a></p>'); |
'</a></p>'); |
} |
} |
Line 173 sub phasetwo {
|
Line 179 sub phasetwo {
|
$r->print('<font size=+2><a href="/priv/'.$uname.$fn. |
$r->print('<font size=+2><a href="/priv/'.$uname.$fn. |
'">'.&mt('Back to').' '.$fn.'</a></font>'); |
'">'.&mt('Back to').' '.$fn.'</a></font>'); |
} else { |
} else { |
$r->print( |
$r->print('<span class="LC_warning">'.&mt('Please pick a version to retrieve').'</span><p>'); |
'<font size=+1 color=red>'.&mt('Please pick a version to retrieve').'</font><p>'); |
|
&phaseone($r,$fn,$uname,$udom); |
&phaseone($r,$fn,$uname,$udom); |
} |
} |
} |
} |
Line 244 sub handler {
|
Line 249 sub handler {
|
$r->print('<h1>'.&mt('Retrieve previous versions of').' <tt>'.$fn.'</tt></h1>'); |
$r->print('<h1>'.&mt('Retrieve previous versions of').' <tt>'.$fn.'</tt></h1>'); |
|
|
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
$r->print('<h3><font color=red>'.&mt('Co-Author').': '.$uname. |
$r->print('<h3><span class="LC_diff_coauthor">'.&mt('Co-Author').': '.$uname. |
&mt(' at ').$udom. |
&mt(' at ').$udom. |
'</font></h3>'); |
'</span></h3>'); |
} |
} |
|
|
|
|