Diff for /loncom/interface/portfolio.pm between versions 1.156.2.1 and 1.156.2.2

version 1.156.2.1, 2006/08/14 21:35:04 version 1.156.2.2, 2006/08/18 20:55:44
Line 644  sub display_access { Line 644  sub display_access {
 #    $info .= &mt('Alternatively access can be granted to people with specific LON-CAPA usernames and domains.');  #    $info .= &mt('Alternatively access can be granted to people with specific LON-CAPA usernames and domains.');
     $info .= '</li></ul>';      $info .= '</li></ul>';
     if ($group eq '') {      if ($group eq '') {
         $info .= (&mt("Direct others to the 'Display file listing' link (shown when there are viewable files) on your personal information page:<br /><a href='/adm/$udom/$uname/aboutme'>http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme</a>"));          $info .= (&mt("A listing of files viewable without log-in is available at: <a href='/adm/$udom/$uname/aboutme/portfolio'>http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme/portfolio</a>.<br />For logged in users a 'Display file listing' link will also appear (when there are viewable files) on your personal information page:<br /><a href='/adm/$udom/$uname/aboutme'>http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme</a><br />"));
     }      }
           
     if ($can_setacl) {      if ($can_setacl) {
Line 1678  sub createdir { Line 1678  sub createdir {
 }  }
   
 sub get_portfolio_root {  sub get_portfolio_root {
     my ($uname,$udom) = &get_name_dom();      my ($udom,$uname) = @_;
       if (!(defined($udom)) || !(defined($uname))) {
           ($uname,$udom) = &get_name_dom();
       }
     my $path;      my $path;
     if (defined($env{'form.group'})) {      if (defined($env{'form.group'})) {
         $path = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';          $path = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';

Removed from v.1.156.2.1  
changed lines
  Added in v.1.156.2.2


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