|
version 1.250, 2009/02/10 12:12:08
|
version 1.252, 2009/03/09 20:10:55
|
|
Line 1652 sub phasetwo {
|
Line 1652 sub phasetwo {
|
| unlink($srcd.'/'.$filename); |
unlink($srcd.'/'.$filename); |
| unlink($srcd.'/'.$filename.'.meta'); |
unlink($srcd.'/'.$filename.'.meta'); |
| } else { |
} else { |
| if ($filename=~/\Q$srcf\E\.(\d+)\.\Q$srct\E$/) { |
if ($filename=~/^\Q$srcf\E\.(\d+)\.\Q$srct\E$/) { |
| $maxversion=($1>$maxversion)?$1:$maxversion; |
$maxversion=($1>$maxversion)?$1:$maxversion; |
| } |
} |
| } |
} |
|
Line 1949 sub defaultmetapublish {
|
Line 1949 sub defaultmetapublish {
|
| &Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
| $r->send_http_header; |
$r->send_http_header; |
| |
|
| $r->print(&Apache::loncommon::start_page('Catalog Information Publication')); |
$r->print(&Apache::loncommon::start_page('Metadata Publication')); |
| |
|
| # ---------------------------------------------------------------- Write Source |
# ---------------------------------------------------------------- Write Source |
| my $copyfile=$target; |
my $copyfile=$target; |
|
Line 1984 sub defaultmetapublish {
|
Line 1984 sub defaultmetapublish {
|
| # ------------------------------------------------------------------- Link back |
# ------------------------------------------------------------------- Link back |
| my $link=$fn; |
my $link=$fn; |
| $link=~s/^\/home\/$cuname\/public_html\//\/priv\/$cuname\//; |
$link=~s/^\/home\/$cuname\/public_html\//\/priv\/$cuname\//; |
| $r->print("<a href='$link'>".&mt('Back to Catalog Information').'</a>'); |
$r->print("<a href='$link'>".&mt('Back to Metadata').'</a>'); |
| $r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
| return OK; |
return OK; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher