[BACK]Return to lonrss.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrss.pm between versions 1.18 and 1.19

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').
Removed from v.1.18  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>