--- loncom/interface/londocs.pm 2003/10/08 17:34:33 1.86 +++ loncom/interface/londocs.pm 2003/10/22 21:41:11 1.88 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.86 2003/10/08 17:34:33 albertel Exp $ +# $Id: londocs.pm,v 1.88 2003/10/22 21:41:11 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -138,7 +138,7 @@ sub dumpcourse { # Do the dumping unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; } my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'}); - $r->print('
$lt{'fi'} | $lt{'md'} | -$lt{'ve'} | $lt{'di'} | $lt{'fi'} | $lt{'md'} | $lt{'mr'} | +$lt{'ve'} | $lt{'vu'} | $lt{'di'} | ENDHEADERS foreach (keys %changes) { if ($changes{$_}>$starttime) { @@ -638,8 +646,24 @@ ENDHEADERS $r->print( '
---|---|---|---|---|---|---|---|
'.$linkurl. ' | '. - &Apache::lonlocal::locallocaltime($changes{$_}).' | '.$currentversion.' | '. - ''); + &Apache::lonlocal::locallocaltime($changes{$_}). + ' | '. + $currentversion.' | '); +# Used in course + my $usedversion=$hash{'version_'.$linkurl}; + if ($usedversion) { + $r->print($usedversion); + } else { + $r->print($currentversion); + } + $r->print(' | '); +# Set version + $r->print(&Apache::loncommon::select_form($usedversion, + 'set_version_'.$linkurl, + ('' => '', + 'current' => 'current', + map {$_,$_} (1..$currentversion)))); + $r->print(' | ');
my $lastold=1;
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
my $url=$root.'.'.$prevvers.'.'.$extension;
@@ -658,7 +682,7 @@ ENDHEADERS
$r->print(' Diffs');
+ '">'.&mt('Diffs').'');
}
$r->print(' '); } @@ -877,6 +901,10 @@ ENDNEWSCRIPT # ----------------------------------------------------------------------------- if ($allowed) { my $dumpbut=&dumpbutton(); + my %lt=&Apache::lonlocal::texthash( + 'vc' => 'Verify Content', + 'cv' => 'Check/Set Resource Versions', + ); $r->print(< |