version 1.207, 2007/05/12 23:04:07
|
version 1.209, 2007/06/15 23:01:07
|
Line 1212 ENDBOMBS
|
Line 1212 ENDBOMBS
|
<input type="submit" name="clearmsg" value="$clear" /> |
<input type="submit" name="clearmsg" value="$clear" /> |
ENDDEL |
ENDDEL |
} else { |
} else { |
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>'); |
$r->print('<p><a href="'.$disuri.'">'.$goback.'</a></p>'); |
if ($env{'form.clearmsg'}) { |
if ($env{'form.clearmsg'}) { |
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
$r->print('<p><a href="'.$diruri.'" />'. |
$r->print('<p><a href="'.$diruri.'">'. |
&mt('Back To Directory').'</a></p>'); |
&mt('Back To Directory').'</a></p>'); |
} |
} |
} |
} |
Line 1312 ENDEDIT
|
Line 1312 ENDEDIT
|
$Apache::lonpublisher::metadatafields{'owner'} = |
$Apache::lonpublisher::metadatafields{'owner'} = |
$env{'user.name'}.':'.$env{'user.domain'}; |
$env{'user.name'}.':'.$env{'user.domain'}; |
} |
} |
|
if (! $Apache::lonpublisher::metadatafields{'author'}) { |
|
$Apache::lonpublisher::metadatafields{'author'} = |
|
&Apache::loncommon::plainname($env{'user.name'}, |
|
$env{'user.domain'}); |
|
} |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
|
|
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |