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

Diff for /loncom/interface/lonrss.pm between versions 1.16 and 1.17

version 1.16, 2006/04/13 18:12:49 version 1.17, 2006/04/22 20:58:32
Line 119  sub addentry { Line 119  sub addentry {
 }  }
   
 sub editentry {  sub editentry {
     my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enclength,$enctype)=@_;      my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype)=@_;
     if ($status eq 'deleted') {      if ($status eq 'deleted') {
  return &changestatus($id,$uname,$udom,$filename,$status);   return &changestatus($id,$uname,$udom,$filename,$status);
     }      }
Line 132  sub editentry { Line 132  sub editentry {
  $id.'_description' => $description,   $id.'_description' => $description,
  $id.'_link' => $url,   $id.'_link' => $url,
  $id.'_enclosureurl' => $encurl,   $id.'_enclosureurl' => $encurl,
  $id.'_enclosurelength' => $enclength,  
  $id.'_enclosuretype' => $enctype,   $id.'_enclosuretype' => $enctype,
  $id.'_status' => $status},$udom,$uname);   $id.'_status' => $status},$udom,$uname);
 }  }
Line 145  sub changestatus { Line 144  sub changestatus {
        $id.'_description',         $id.'_description',
        $id.'_link',         $id.'_link',
        $id.'_enclosureurl',         $id.'_enclosureurl',
        $id.'_enclosurelength',  
        $id.'_enclosuretype',         $id.'_enclosuretype',
        $id.'_status'],$udom,$uname);         $id.'_status'],$udom,$uname);
     } else {      } else {
Line 163  sub changed_js { Line 161  sub changed_js {
 ENDSCRIPT  ENDSCRIPT
 }  }
   
   sub determine_enclosure_types {
       my ($url)=@_;
       my ($ending)=($url=~/\.(\w+)$/);
       return &Apache::loncommon::filemimetype($ending);
   }
   
 sub handler {  sub handler {
     my ($r) = @_;      my ($r) = @_;
   
Line 289  ENDEDIT Line 293  ENDEDIT
       "http://".$ENV{'HTTP_HOST'}.        "http://".$ENV{'HTTP_HOST'}.
       $newsfeed{$id.'_link'}.        $newsfeed{$id.'_link'}.
       ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));        ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));
   # Enclosure? Get stats
     if ($newsfeed{$id.'_enclosureurl'}) {      if ($newsfeed{$id.'_enclosureurl'}) {
  $r->print(($html?"<a href='":"\n<enclosure url='").   my @stat=&Apache::lonnet::stat_file($newsfeed{$id.'_enclosureurl'});
   $newsfeed{$id.'_enclosureurl'}."' length='".$newsfeed{$id.'_enclosurelength'}.   if ($stat[7]) {
   "' type='".$newsfeed{$id.'_enclosuretype'}.($html?"'>".&mt('Enclosure')."</a>":"' />"));  # Has non-zero length (and exists)
       my $enclosuretype=$newsfeed{$id.'_enclosetype'};
       $r->print(($html?"<a href='":"\n<enclosure url='").
         $newsfeed{$id.'_enclosureurl'}."' length='".$stat[7].
         "' type='".$enclosuretype.($html?"'>".&mt('Enclosure')."</a>":"' />"));
    }
     }      }
     if ($html) {      if ($html) {
  $r->print("\n<hr /></li>\n");   $r->print("\n<hr /></li>\n");
Removed from v.1.16  
changed lines
  Added in v.1.17

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