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

Diff for /loncom/interface/lonsimplepage.pm between versions 1.101 and 1.102

version 1.101, 2012/12/07 17:15:56 version 1.102, 2013/03/11 02:04:36
Line 44  use HTML::Entities(); Line 44  use HTML::Entities();
 use LONCAPA;  use LONCAPA;
   
 sub get_db_name {  sub get_db_name {
     my ($url) = @_;      my ($url,$marker,$cdom,$cnum) = @_;
     my ($udom,$uname,$marker)=(split(m{/},$url))[2,3,4];      my ($udom,$uname,$timemark)=(split(m{/},$url))[2,3,4];
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      if ($marker eq '') {
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};          $marker = $timemark;
       }
       if (($cdom eq '') || ($cnum eq '')) {
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       }
     my $db_name;      my $db_name;
   
     if ($dom && $crs && ($udom eq $dom) && ($uname eq $crs)) {      if ($cdom && $cnum && ($udom eq $cdom) && ($uname eq $cnum)) {
         $marker =~ s/\W//g;          $marker =~ s/\W//g;
         $db_name = 'grppage_'.$marker;          $db_name = 'grppage_'.$marker;
     } else {      } else {
Line 59  sub get_db_name { Line 63  sub get_db_name {
         $db_name = 'smppage_'.$marker;          $db_name = 'smppage_'.$marker;
     }      }
     return if (!defined($marker));      return if (!defined($marker));
   
     return $db_name;      return $db_name;
 }  }
   
Line 84  sub handler { Line 87  sub handler {
         return OK;          return OK;
     }      }
   
     my $db_name = &get_db_name($r->uri);      my $marker = (split(m{/},$r->uri))[4];
       my $db_name = &get_db_name($r->uri,$marker);
   
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 93  sub handler { Line 97  sub handler {
     my %curr_group = ();      my %curr_group = ();
     my %groupinfo = ();      my %groupinfo = ();
     if ($db_name =~ /^grppage_/) {      if ($db_name =~ /^grppage_/) {
         $group = (split(m{/},$r->uri))[4];          $group = $marker;
         $group =~ s/\W//g;          $group =~ s/\W//g;
         my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group);          my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group);
         if (!%curr_groups) {          if (!%curr_groups) {
Line 233  sub handler { Line 237  sub handler {
             }              }
             if ($group ne '') {              if ($group ne '') {
                 $syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload(                  $syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload(
                                               'uploaddoc','coursedoc',"grouppage/$group");                                                'uploaddoc','coursedoc',
                                                 "grouppage/$group");
             } else {              } else {
                 $syllabus{'uploaded.photourl'}=                  $syllabus{'uploaded.photourl'}=
                 &Apache::lonnet::userfileupload('uploaddoc','coursedoc','simplepage');                  &Apache::lonnet::userfileupload('uploaddoc','coursedoc',
                                                   "simplepage/$marker");
             }              }
         }          }
         $syllabus{'uploaded.lastmodified'}=time;          $syllabus{'uploaded.lastmodified'}=time;
Removed from v.1.101  
changed lines
  Added in v.1.102

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