version 1.87, 2003/10/22 19:47:52
|
version 1.88, 2003/10/22 21:41:11
|
Line 588 sub checkversions {
|
Line 588 sub checkversions {
|
my $monthsel=''; |
my $monthsel=''; |
my $weeksel=''; |
my $weeksel=''; |
my $daysel=''; |
my $daysel=''; |
|
my $allsel=''; |
if ($ENV{'form.timerange'}==-1) { |
if ($ENV{'form.timerange'}==-1) { |
$seltext='since start of course'; |
$seltext='since start of course'; |
$startsel='selected'; |
$startsel='selected'; |
Line 603 sub checkversions {
|
Line 604 sub checkversions {
|
} elsif ($ENV{'form.timerange'}==86400) { |
} elsif ($ENV{'form.timerange'}==86400) { |
$seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')'; |
$seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')'; |
$daysel='selected'; |
$daysel='selected'; |
|
} elsif ($ENV{'form.timerange'} eq 'all') { |
|
$allsel='all'; |
} |
} |
my %lt=&Apache::lonlocal::texthash |
my %lt=&Apache::lonlocal::texthash |
('st' => 'Since Start of Course', |
('st' => 'Version changes since start of Course', |
'lm' => 'Last Month', |
'lm' => 'Version changes since last Month', |
'lw' => 'Last Week', |
'lw' => 'Version changes since last Week', |
'sy' => 'Since Yesterday', |
'sy' => 'Version changes since Yesterday', |
'di' => 'Display', |
'al' => 'All Resources', |
|
'sd' => 'Display', |
'cc' => 'Content changed', |
'cc' => 'Content changed', |
'fi' => 'File', |
'fi' => 'File', |
'md' => 'Modification Date', |
'md' => 'Modification Date', |
Line 620 sub checkversions {
|
Line 624 sub checkversions {
|
$r->print(<<ENDHEADERS); |
$r->print(<<ENDHEADERS); |
<form action="/adm/coursedocs" method="post"> |
<form action="/adm/coursedocs" method="post"> |
<select name="timerange"> |
<select name="timerange"> |
|
<option value='all' $allsel>$lt{'al'}</option> |
<option value="-1" $startsel>$lt{'st'}</option> |
<option value="-1" $startsel>$lt{'st'}</option> |
<option value="2592000" $monthsel>$lt{'lm'}</option> |
<option value="2592000" $monthsel>$lt{'lm'}</option> |
<option value="604800" $weeksel>$lt{'lw'}</option> |
<option value="604800" $weeksel>$lt{'lw'}</option> |
<option value="86400" $daysel>$lt{'sy'}</option> |
<option value="86400" $daysel>$lt{'sy'}</option> |
</select> |
</select> |
<input type="submit" name="versions" value="$lt{'di'}" /> |
<input type="submit" name="versions" value="$lt{'sd'}" /> |
</form> |
</form> |
<h3>$lt{'cc'} $seltext</h3> |
<h3>$lt{'cc'} $seltext</h3> |
<table border="2"> |
<table border="2"> |
Line 641 ENDHEADERS
|
Line 646 ENDHEADERS
|
$r->print( |
$r->print( |
'<tr><td><a href="'.$linkurl.'" target="cat">'.$linkurl. |
'<tr><td><a href="'.$linkurl.'" target="cat">'.$linkurl. |
'</a></td><td>'. |
'</a></td><td>'. |
&Apache::lonlocal::locallocaltime($changes{$_}).'</td><td>'. |
&Apache::lonlocal::locallocaltime($changes{$_}). |
$currentversion.'</td><td>'); |
'</td><td><font size="+2">'. |
|
$currentversion.'</font></td><td><font size="+2">'); |
# Used in course |
# Used in course |
$r->print('</td><td>'); |
my $usedversion=$hash{'version_'.$linkurl}; |
|
if ($usedversion) { |
|
$r->print($usedversion); |
|
} else { |
|
$r->print($currentversion); |
|
} |
|
$r->print('</font></td><td>'); |
# Set version |
# Set version |
|
$r->print(&Apache::loncommon::select_form($usedversion, |
|
'set_version_'.$linkurl, |
|
('' => '', |
|
'current' => 'current', |
|
map {$_,$_} (1..$currentversion)))); |
$r->print('</td><td>'); |
$r->print('</td><td>'); |
my $lastold=1; |
my $lastold=1; |
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) { |
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) { |
Line 884 ENDNEWSCRIPT
|
Line 901 ENDNEWSCRIPT
|
# ----------------------------------------------------------------------------- |
# ----------------------------------------------------------------------------- |
if ($allowed) { |
if ($allowed) { |
my $dumpbut=&dumpbutton(); |
my $dumpbut=&dumpbutton(); |
|
my %lt=&Apache::lonlocal::texthash( |
|
'vc' => 'Verify Content', |
|
'cv' => 'Check/Set Resource Versions', |
|
); |
$r->print(<<ENDCOURSEVERIFY); |
$r->print(<<ENDCOURSEVERIFY); |
<form name="renameform" method="post" action="/adm/coursedocs"> |
<form name="renameform" method="post" action="/adm/coursedocs"> |
<input type="hidden" name="title" /> |
<input type="hidden" name="title" /> |
Line 897 ENDNEWSCRIPT
|
Line 918 ENDNEWSCRIPT
|
<form action="/adm/coursedocs" method="post" name="courseverify"> |
<form action="/adm/coursedocs" method="post" name="courseverify"> |
<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4"> |
<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4"> |
<tr><td bgcolor="#DDDDCC"> |
<tr><td bgcolor="#DDDDCC"> |
<input type="submit" name="verify" value="Verify Content" /> |
<input type="submit" name="verify" value="$lt{'vc'}" /> |
</td><td bgcolor="#DDDDCC"> |
</td><td bgcolor="#DDDDCC"> |
<input type="submit" name="versions" value="Check Resource Versions" /> |
<input type="submit" name="versions" value="$lt{'cv'}" /> |
$dumpbut |
$dumpbut |
</td></tr></table> |
</td></tr></table> |
</form> |
</form> |