version 1.42, 2008/12/12 02:32:27
|
version 1.44, 2009/03/26 16:50:12
|
Line 421 function verifyForm() {
|
Line 421 function verifyForm() {
|
my $fn; |
my $fn; |
if ($env{'form.filename'}) { |
if ($env{'form.filename'}) { |
$fn=$env{'form.filename'}; |
$fn=$env{'form.filename'}; |
$fn=~s/^http\:\/\/[^\/]+\///; |
$fn=~s/^https?\:\/\/[^\/]+\///; |
$fn=~s/^\///; |
$fn=~s/^\///; |
$fn=~s{(~|priv/)($LONCAPA::username_re)}{}; |
$fn=~s{(~|priv/)($LONCAPA::username_re)}{}; |
$fn=~s/\/+/\//g; |
$fn=~s/\/+/\//g; |
Line 444 function verifyForm() {
|
Line 444 function verifyForm() {
|
$javascript)); |
$javascript)); |
|
|
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><span class="LC_error">'.&mt('Co-Author').': '.$uname. |
$r->print('<p class="LC_warning">' |
&mt(' at ').$udom.'</span></h3>'); |
.&mt('Co-Author [_1]:[_2]',$uname,$udom) |
|
.'</p>' |
|
); |
} |
} |
|
|
if ($env{'form.phase'} eq 'three') { |
if ($env{'form.phase'} eq 'three') { |