![[BACK]](/icons/back.gif){kind=icon}
Return to loncfile.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to loncfile.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.5, 2001/06/24 18:09:38 | version 1.6, 2001/06/24 18:21:09 |
|---|---|
| Line 164 sub phasetwo { | Line 164 sub phasetwo { |
| unless (mkdir($newdir,0770)) { | unless (mkdir($newdir,0770)) { |
| $r->print('<font color=red>Error: '.$!.'</font>'); | $r->print('<font color=red>Error: '.$!.'</font>'); |
| } | } |
| $r->print('<h3><a href="/priv/'.$uname.$fn.'/">Done</a></h3>'); | |
| return; | |
| } | } |
| $r->print('<h3><a href="/priv/'.$uname.$dir.'/">Done</a></h3>'); | $r->print('<h3><a href="/priv/'.$uname.$dir.'/">Done</a></h3>'); |
| } | } |