version 1.84, 2003/09/28 00:14:25
|
version 1.87, 2003/10/22 19:47:52
|
Line 138 sub dumpcourse {
|
Line 138 sub dumpcourse {
|
# Do the dumping |
# Do the dumping |
unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; } |
unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; } |
my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'}); |
my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'}); |
$r->print('<h3>Copying Files</h3>'); |
$r->print('<h3>'.&mt('Copying Files').'</h3>'); |
my $title=$ENV{'form.authorfolder'}; |
my $title=$ENV{'form.authorfolder'}; |
$title=~s/[^\w\/]+/\_/g; |
$title=~s/[^\w\/]+/\_/g; |
my %replacehash=(); |
my %replacehash=(); |
Line 395 sub entryline {
|
Line 395 sub entryline {
|
) { |
) { |
$foldertitle=&Apache::lontexconvert::msgtexconverted($4); |
$foldertitle=&Apache::lontexconvert::msgtexconverted($4); |
$renametitle=$4; |
$renametitle=$4; |
$title='<i>'.localtime($1).'</i> '. |
$title='<i>'.&Apache::lonlocal::locallocaltime($1).'</i> '. |
&Apache::loncommon::plainname($2,$3).': <br>'. |
&Apache::loncommon::plainname($2,$3).': <br />'. |
$foldertitle; |
$foldertitle; |
} |
} |
$renametitle=~s/\"\;/\\\"/g; |
$renametitle=~s/\"\;/\\\"/g; |
Line 490 sub checkonthis {
|
Line 490 sub checkonthis {
|
my $result=&Apache::lonnet::repcopy( |
my $result=&Apache::lonnet::repcopy( |
&Apache::lonnet::filelocation('',$url)); |
&Apache::lonnet::filelocation('',$url)); |
if ($result==OK) { |
if ($result==OK) { |
$r->print('<font color="green">ok</font>'); |
$r->print('<font color="green">'.&mt('ok').'</font>'); |
$r->rflush(); |
$r->rflush(); |
&Apache::lonnet::countacc($url); |
&Apache::lonnet::countacc($url); |
$url=~/\.(\w+)$/; |
$url=~/\.(\w+)$/; |
Line 511 sub checkonthis {
|
Line 511 sub checkonthis {
|
($Apache::lonxml::warningcount)) { |
($Apache::lonxml::warningcount)) { |
if ($Apache::lonxml::errorcount) { |
if ($Apache::lonxml::errorcount) { |
$r->print('<font color="red"><b>'. |
$r->print('<font color="red"><b>'. |
$Apache::lonxml::errorcount.' error(s)</b></font> '); |
$Apache::lonxml::errorcount.' '. |
|
&mt('error(s)').'</b></font> '); |
} |
} |
if ($Apache::lonxml::warningcount) { |
if ($Apache::lonxml::warningcount) { |
$r->print('<font color="blue">'. |
$r->print('<font color="blue">'. |
Line 519 sub checkonthis {
|
Line 520 sub checkonthis {
|
&mt('warning(s)').'</font>'); |
&mt('warning(s)').'</font>'); |
} |
} |
} else { |
} else { |
$r->print('<font color="green">ok</font>'); |
$r->print('<font color="green">'.&mt('ok').'</font>'); |
} |
} |
$r->rflush(); |
$r->rflush(); |
} |
} |
Line 594 sub checkversions {
|
Line 595 sub checkversions {
|
} |
} |
my $starttime=time-$ENV{'form.timerange'}; |
my $starttime=time-$ENV{'form.timerange'}; |
if ($ENV{'form.timerange'}==2592000) { |
if ($ENV{'form.timerange'}==2592000) { |
$seltext=&mt('during the last month').' ('.localtime($starttime).')'; |
$seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')'; |
$monthsel='selected'; |
$monthsel='selected'; |
} elsif ($ENV{'form.timerange'}==604800) { |
} elsif ($ENV{'form.timerange'}==604800) { |
$seltext=&mt('during the last week').' ('.localtime($starttime).')'; |
$seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')'; |
$weeksel='selected'; |
$weeksel='selected'; |
} elsif ($ENV{'form.timerange'}==86400) { |
} elsif ($ENV{'form.timerange'}==86400) { |
$seltext=&mt('since yesterday').' ('.localtime($starttime).')'; |
$seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')'; |
$daysel='selected'; |
$daysel='selected'; |
} |
} |
my %lt=&Apache::lonlocal::texthash |
my %lt=&Apache::lonlocal::texthash |
Line 612 sub checkversions {
|
Line 613 sub checkversions {
|
'cc' => 'Content changed', |
'cc' => 'Content changed', |
'fi' => 'File', |
'fi' => 'File', |
'md' => 'Modification Date', |
'md' => 'Modification Date', |
've' => 'Version', |
'mr' => 'Most recently published Version', |
|
've' => 'Version used in Course', |
|
'vu' => 'Set Version to be used in Course', |
'di' => 'Differences'); |
'di' => 'Differences'); |
$r->print(<<ENDHEADERS); |
$r->print(<<ENDHEADERS); |
<form action="/adm/coursedocs" method="post"> |
<form action="/adm/coursedocs" method="post"> |
Line 627 sub checkversions {
|
Line 630 sub checkversions {
|
<h3>$lt{'cc'} $seltext</h3> |
<h3>$lt{'cc'} $seltext</h3> |
<table border="2"> |
<table border="2"> |
<tr> |
<tr> |
<th>$lt{'fi'}</th><th>$lt{'md'}</th> |
<th>$lt{'fi'}</th><th>$lt{'md'}</th><th>$lt{'mr'}</th> |
<th>$lt{'ve'}</th><th>$lt{'di'}</th></tr> |
<th>$lt{'ve'}</th><th>$lt{'vu'}</th><th>$lt{'di'}</th></tr> |
ENDHEADERS |
ENDHEADERS |
foreach (keys %changes) { |
foreach (keys %changes) { |
if ($changes{$_}>$starttime) { |
if ($changes{$_}>$starttime) { |
Line 638 ENDHEADERS
|
Line 641 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>'. |
localtime($changes{$_}).'</td><td>'.$currentversion.'</td>'. |
&Apache::lonlocal::locallocaltime($changes{$_}).'</td><td>'. |
'<td>'); |
$currentversion.'</td><td>'); |
|
# Used in course |
|
$r->print('</td><td>'); |
|
# Set version |
|
$r->print('</td><td>'); |
my $lastold=1; |
my $lastold=1; |
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) { |
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) { |
my $url=$root.'.'.$prevvers.'.'.$extension; |
my $url=$root.'.'.$prevvers.'.'.$extension; |
Line 651 ENDHEADERS
|
Line 658 ENDHEADERS
|
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) { |
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) { |
my $url=$root.'.'.$prevvers.'.'.$extension; |
my $url=$root.'.'.$prevvers.'.'.$extension; |
$r->print('<a href="'.&Apache::lonnet::clutter($url). |
$r->print('<a href="'.&Apache::lonnet::clutter($url). |
'">Version '.$prevvers.' ('. |
'">'.&mt('Version').' '.$prevvers.' ('. |
localtime(&Apache::lonnet::metadata($url,'lastrevisiondate')). |
&Apache::lonlocal::locallocaltime(&Apache::lonnet::metadata($url,'lastrevisiondate')). |
')</a>'); |
')</a>'); |
if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') { |
if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') { |
$r->print(' <a href="/adm/diff?filename='. |
$r->print(' <a href="/adm/diff?filename='. |
&Apache::lonnet::clutter($root.'.'.$extension). |
&Apache::lonnet::clutter($root.'.'.$extension). |
'&versionone='.$prevvers. |
'&versionone='.$prevvers. |
'">Diffs</a>'); |
'">'.&mt('Diffs').'</a>'); |
} |
} |
$r->print('<br />'); |
$r->print('<br />'); |
} |
} |
Line 694 sub handler {
|
Line 701 sub handler {
|
'Docs_About_Syllabus,Docs_Editing_Templated_Pages'); |
'Docs_About_Syllabus,Docs_Editing_Templated_Pages'); |
$help{'Simple Page'} = &Apache::loncommon::help_open_topic( |
$help{'Simple Page'} = &Apache::loncommon::help_open_topic( |
'Docs_About_Simple_Page,Docs_Editing_Templated_Pages'); |
'Docs_About_Simple_Page,Docs_Editing_Templated_Pages'); |
|
$help{'Simple Problem'} = &Apache::loncommon::help_open_topic( |
|
'Option_Response_Simple'); |
$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic( |
$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic( |
'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages'); |
'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages'); |
$help{'My Personal Info'} = &Apache::loncommon::help_open_topic( |
$help{'My Personal Info'} = &Apache::loncommon::help_open_topic( |