';
}
@@ -1282,11 +1282,11 @@ END
$keywordout.='';
@@ -1504,7 +1504,7 @@ sub phasetwo {
return 0;
}
if ($target=~/\.(\d+)\.(\w+)$/) {
- $r->print(''.&mt('Cannot publish versioned resource, FAIL').'');
+ $r->print(''.&mt('Filename of resource contains internal version number. Cannot publish such resources, FAIL').'');
return 0;
}
}
@@ -1640,8 +1640,7 @@ sub phasetwo {
my $srcf=$2;
my $srct=$3;
my $srcd=$1;
- my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
- unless ($srcd=~/^\Q$docroot\E\/res/) {
+ unless ($srcd=~/^\/home\/httpd\/html\/res/) {
print $logfile "\nPANIC: Target dir is ".$srcd;
$r->print(
"".&mt('Invalid target directory, FAIL')."");
@@ -1660,7 +1659,7 @@ sub phasetwo {
}
closedir(DIR);
$maxversion++;
- $r->print('
Creating old version '.$maxversion.'
');
+ $r->print('
'.&mt('Creating old version [_1]',$maxversion).'
');
print $logfile "\nCreating old version ".$maxversion."\n";
my $copyfile=$srcd.'/'.$srcf.'.'.$maxversion.'.'.$srct;
@@ -1773,7 +1772,7 @@ sub phasetwo {
&mt('Back to Source Directory').'');
}
$logfile->close();
- $r->print('
'.&mt('Done').'
');
+ $r->print('
'.&mt('Done').'
');
return 1;
}
@@ -1840,7 +1839,11 @@ sub batchpublish {
my $thisembstyle=&Apache::loncommon::fileembstyle($thistype);
- $r->print('