version 1.207, 2006/01/24 22:09:36
|
version 1.208, 2006/04/06 22:15:18
|
Line 1849 sub defaultmetapublish {
|
Line 1849 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('<html><head><title>LON-CAPA Publishing</title></head>'); |
$r->print(&Apache::loncommon::start_page('Catalog Information Publication')); |
$r->print(&Apache::loncommon::bodytag('Catalog Information Publication')); |
|
|
|
# ---------------------------------------------------------------- Write Source |
# ---------------------------------------------------------------- Write Source |
my $copyfile=$target; |
my $copyfile=$target; |
Line 1886 sub defaultmetapublish {
|
Line 1885 sub defaultmetapublish {
|
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 Catalog Information').'</a>'); |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
######################################### |
######################################### |
Line 2036 sub handler {
|
Line 2035 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
my $js=&Apache::loncommon::browser_and_searcher_javascript(); |
my $js='<script type="text/javascript">'. |
$r->print('<html><head><title>LON-CAPA Publishing</title> |
&Apache::loncommon::browser_and_searcher_javascript(). |
<script type="text/javascript">'.$js.' |
'</script>'; |
</script></head>'); |
$r->print(&Apache::loncommon::start_page('Resource Publication')); |
$r->print(&Apache::loncommon::bodytag('Resource Publication')); |
|
|
|
|
|
my $thisfn=$fn; |
my $thisfn=$fn; |
Line 2115 ENDDIFF
|
Line 2113 ENDDIFF
|
$r->print('<hr />'); |
$r->print('<hr />'); |
} |
} |
} |
} |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::end_page()); |
|
|
return OK; |
return OK; |
} |
} |