version 1.18, 2006/05/10 15:52:11
|
version 1.19, 2006/05/11 02:08:48
|
Line 69 sub displayfeedname {
|
Line 69 sub displayfeedname {
|
return $name; |
return $name; |
} |
} |
|
|
sub renamefeed { |
sub namefeed { |
my ($rawname,$uname,$udom,$newname)=@_; |
my ($rawname,$uname,$udom,$newname)=@_; |
return &Apache::lonnet::put('nohist_all_rss_feeds', |
return &Apache::lonnet::put('nohist_all_rss_feeds', |
{ &filterfeedname($rawname) => $newname }, |
{ &filterfeedname($rawname) => $newname }, |
Line 212 sub handler {
|
Line 212 sub handler {
|
# Is this user for real? |
# Is this user for real? |
my $homeserver=&Apache::lonnet::homeserver($uname,$udom); |
my $homeserver=&Apache::lonnet::homeserver($uname,$udom); |
if ($html) { |
if ($html) { |
|
# Any new feeds or renaming of feeds? |
|
if ($edit) { |
|
# New feed? |
|
if ($env{'form.namenewblog'}=~/\w/) { |
|
&namefeed($env{'form.namenewblog'},$uname,$udom,$env{'form.namenewblog'}); |
|
} |
|
# Old feed that is being renamed? |
|
if (($displayfeedname) && ($env{'form.newblogname'}=~/\w/)) { |
|
if ($env{'form.newblogname'} ne $displayfeedname) { |
|
&namefeed($feedname,$uname,$udom,$env{'form.newblogname'}); |
|
$displayfeedname=&displayfeedname($filename,$uname,$udom); |
|
} |
|
} |
|
} |
$r->print(&advertisefeeds($uname,$udom,$edit)); |
$r->print(&advertisefeeds($uname,$udom,$edit)); |
} |
} |
if ($homeserver eq 'no_host') { |
if ($homeserver eq 'no_host') { |
Line 225 sub handler {
|
Line 239 sub handler {
|
} else { |
} else { |
$name=&Apache::loncommon::nickname($uname,$udom); |
$name=&Apache::loncommon::nickname($uname,$udom); |
} |
} |
|
# Add a new feed |
|
if (($html) && ($edit)) { |
|
$r->print('<form method="post">'); |
|
$r->print(&mt('Name for New Blog').": <input type='text' size='40' name='namenewblog' />"); |
|
$r->print('<input type="submit" value="'.&mt('Start a New Blog').'" />'); |
|
$r->print('</form>'); |
|
} |
if ($displayfeedname) { # this is an existing feed |
if ($displayfeedname) { # this is an existing feed |
# Anything to store? |
# Anything to store? |
if ($edit) { |
if ($edit) { |
Line 241 sub handler {
|
Line 262 sub handler {
|
} |
} |
} |
} |
} |
} |
if ($env{'form.newblogname'} ne $displayfeedname) { |
|
&Apache::lonnet::put('nohist_all_rss_feeds',{ $filterfeedname => $env{'form.newblogname'} },$udom,$uname); |
|
$displayfeedname=&displayfeedname($filename,$uname,$udom); |
|
} |
|
} #done storing |
} #done storing |
|
|
$r->print("\n". |
$r->print("\n". |
($html?'<h3>':'<title>'). |
($html?'<hr /><h3>':'<title>'). |
&mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name). |
&mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name). |
($html?'</h3>'.($edit?'<form method="post"><br />'. |
($html?'</h3>'.($edit?'<form method="post"><br />'. |
&mt('Name of blog/journal'). |
&mt('Name of blog/journal'). |