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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.26 and 1.27

version 1.26, 2004/01/15 04:46:36 version 1.27, 2004/02/13 15:01:29
Line 76  ENDDOCUMENT Line 76  ENDDOCUMENT
   
 # ------------------------------------------------------------ Get query string  # ------------------------------------------------------------ Get query string
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                         ($ENV{'QUERY_STRING'},['forcestudent','register']);                          ($ENV{'QUERY_STRING'},['forcestudent','register','forceedit']);
 # ----------------------------------------------------- Force menu registration  # ----------------------------------------------------- Force menu registration
     my $addentries='';      my $addentries='';
     if ($ENV{'form.register'}) {      if ($ENV{'form.register'}) {
Line 87  ENDDOCUMENT Line 87  ENDDOCUMENT
 # --------------------------------------------------------------- Force Student  # --------------------------------------------------------------- Force Student
     my $forcestudent='';      my $forcestudent='';
     if ($ENV{'form.forcestudent'}) { $forcestudent='student'; };      if ($ENV{'form.forcestudent'}) { $forcestudent='student'; };
       my $forceedit='';
       if ($ENV{'form.forceedit'}) { $forceedit='edit'; }
                 
 # ------------------------------------- There is such a course, get environment  # ------------------------------------- There is such a course, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
Line 114  ENDDOCUMENT Line 116  ENDDOCUMENT
 # ---------------------------------------------------------- Load syllabus info  # ---------------------------------------------------------- Load syllabus info
     my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);      my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
     my $allowed=0;      my $allowed=0;
       my $privileged=0;
   
 # This handler might be called anonymously ...  # This handler might be called anonymously ...
 # ----------------------------------------------------- Only if not public call  # ----------------------------------------------------- Only if not public call
Line 121  ENDDOCUMENT Line 124  ENDDOCUMENT
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
        if ($ENV{'request.course.id'}) {         if ($ENV{'request.course.id'}) {
           $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});            $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
     $privileged=$allowed;
     if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
         $forcestudent='student';
     }
           if ($forcestudent) { $allowed=0; }            if ($forcestudent) { $allowed=0; }
        }         }
        if ($allowed) {         if ($allowed) {
Line 129  ENDDOCUMENT Line 136  ENDDOCUMENT
     .' <tt>http://'.      .' <tt>http://'.
     $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.      $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.
                &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.                 &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.
   '<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">Show Public View</font></a>'.    '<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.
   &mt('Show Public View').'</font></a>'.
           &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').            &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
           '</p>');            '</p>');
         } elsif ($privileged) {
     $r->print('<p><a href="'.$r->uri.'?forceedit=1"><font size="+1">'.
   &mt('Edit').'</font></a>');
       }        }
        if (($allowed) && ($ENV{'form.storesyl'})) {         if (($allowed) && ($ENV{'form.storesyl'})) {
    foreach (keys %syllabusfields) {     foreach (keys %syllabusfields) {
Line 185  ENDDOCUMENT Line 196  ENDDOCUMENT
  $lastmod.'</td><td>'.&mt('by').' '.$who.   $lastmod.'</td><td>'.&mt('by').' '.$who.
  '</td></tr></table><p>');   '</td></tr></table><p>');
        if ($allowed) {         if ($allowed) {
    $r->print('<form method="post">');     $r->print('<form method="post">'.
        '<input type="hidden" name="forceedit" value="edit" />');
        }         }
        foreach (sort keys %syllabusfields) {         foreach (sort keys %syllabusfields) {
           if (($syllabus{$_}) || ($allowed)) {            if (($syllabus{$_}) || ($allowed)) {
Line 210  ENDDOCUMENT Line 222  ENDDOCUMENT
                   if ($allowed) {                    if ($allowed) {
                      $r->print('<h3>'.$syllabusfields{$_}.                       $r->print('<h3>'.$syllabusfields{$_}.
           &Apache::loncommon::help_open_topic('Syllabus_URLs').'</h3>'.            &Apache::loncommon::help_open_topic('Syllabus_URLs').'</h3>'.
   '<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">Show Public View</font></a>'.    '<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.&mt('Show Public View').'</font></a>'.
  &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');   &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
  } else {   } else {
                   $r->print($message);                    $r->print($message);
Removed from v.1.26  
changed lines
  Added in v.1.27

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