![[BACK]](/icons/back.gif){kind=icon}
Return to lonpubdir.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to lonpubdir.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.4, 2001/04/09 23:49:04 | version 1.5, 2001/05/03 11:04:07 |
|---|---|
| Line 92 sub handler { | Line 92 sub handler { |
| } else { | } else { |
| $status='Modified'; | $status='Modified'; |
| $bgcol='#FFFFBB'; | $bgcol='#FFFFBB'; |
| if | |
| (&Apache::lonnet::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') { | |
| $status.='<br><a href="/adm/diff?filename='.$filename. | |
| '&versionone=priv" target=cat>Diffs</a>'; | |
| } | |
| } | } |
| } | } |
| $r->print('<tr bgcolor='.$bgcol. | $r->print('<tr bgcolor='.$bgcol. |