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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.79 and 1.80

version 1.79, 2009/02/20 17:45:40 version 1.80, 2009/02/25 13:25:52
Line 161  ENDSCRIPT Line 161  ENDSCRIPT
               ({href=>$r->uri,                ({href=>$r->uri,
                text=>"Course syllabus"});                 text=>"Course syllabus"});
             $r->print(&Apache::lonhtmlcommon::breadcrumbs());              $r->print(&Apache::lonhtmlcommon::breadcrumbs());
         }          }
  $r->print('<div class="LC_ContentBoxSpecial">');  
  $r->print('<h2 class="LC_hcell">'.$courseenv{'description'}.'</h2>');   
  $r->print('<blockquote>');         
  $r->print('<h3>'.  &Apache::lonnet::domain($cdom,'description').'</h3>');  
     } else {  
  $r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.  
   &Apache::lonnet::domain($cdom,'description').'}\\\\');  
     }  
   
 # -------------------------------------------------------- Get course personnel  
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);  
     if ($target ne 'tex') {  
  $r->print(&Apache::lonhtmlcommon::start_pick_box());  
     } else {  
  $r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline');  
     }  
     my @personnel=sort(keys(%coursepersonnel));  
     my $lastpers=$personnel[$#personnel];  
     foreach my $element (@personnel) {  
  if ($target ne 'tex') {  
     $r->print(&Apache::lonhtmlcommon::row_title($element));  
  } else {  
     $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & ');   
  }  
         foreach (split(/\,/,$coursepersonnel{$element})) {  
     my ($puname,$pudom)=split(/\:/,$_);  
     if ($target ne 'tex') {  
                 my $courseperson = &Apache::loncommon::plainname($puname,$pudom);  
                 if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') ||  
                     ($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) {  
     $r->print(' '.$courseperson);  
                 } else {  
                     $r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson,  
                               $puname,$pudom));  
                 }  
     } else {  
  $r->print(' '.&Apache::loncommon::plainname($puname,  
                               $pudom).' ');  
     }  
  }  
  if ($target ne 'tex') {  
             my $lastclose=$element eq $lastpers?1:0;  
             $r->print(&Apache::lonhtmlcommon::row_closure($lastclose));  
  } else {  
     $r->print('\\\\ \hline');  
  }  
     }  
     if ($target ne 'tex') {  
  $r->print(&Apache::lonhtmlcommon::end_pick_box());  
     } else {  
  $r->print('\end{tabular}\\\\');  
     }      }
 # ---------------------------------------------------------- Load syllabus info  # ---------------------------------------------------------- Load syllabus info
     my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);      my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
Line 232  ENDSCRIPT Line 182  ENDSCRIPT
       $forcestudent='student';        $forcestudent='student';
   }    }
           if ($forcestudent or $target eq 'tex') { $allowed=0; }            if ($forcestudent or $target eq 'tex') { $allowed=0; }
        }         }    
        if ($allowed) {  
           my $protocol = $Apache::lonnet::protocol{$homeserver};  
           $protocol = 'http' if ($protocol ne 'https');  
           $r->print('<p>'.&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'</p><p>'.&mt('This syllabus can be publicly viewed at')  
     .' <tt>'.$protocol.'://'.  
     &Apache::lonnet::hostname($homeserver).$r->uri.'</tt>'.  
                &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.  
           '<p>'.&mt('You can specify an external URL as Syllabus in the [_1].','<a href="/adm/parmset?action=crsenv">'.&mt('Course Parameters').'</a>').'</p>');  
       }   
        if (($allowed) && ($env{'form.storesyl'})) {         if (($allowed) && ($env{'form.storesyl'})) {
    foreach my $syl_field (keys(%syllabusfields)) {     foreach my $syl_field (keys(%syllabusfields)) {
                my $field=$env{'form.'.$syl_field};                 my $field=$env{'form.'.$syl_field};
Line 288  ENDSCRIPT Line 229  ENDSCRIPT
            &Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum);             &Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum);
        }         }
     }      }
   #--------Functions
   if ($target ne 'tex') {
    if($allowed || $privileged){
    &Apache::lontemplate::print_start_page_functions($r);
    if($allowed){
    &Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forcestudent=1">'.&mt('Show Public View').'</a>'.&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'));      
    &Apache::lontemplate::print_functions_content($r,&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')));
    }elsif($privileged){
    &Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forceedit=1">'.&mt('Edit').'</a>'); 
    }
    &Apache::lontemplate::print_end_page_functions($r);
    }
    }
   #----------------------------Print Headtitle
   if($target ne 'tex'){
    $r->print('<h1>'.$courseenv{'description'}.'</h1>');
    $r->print('<h3>'.  &Apache::lonnet::domain($cdom,'description').'</h3>');
   }else{
    $r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.
    &Apache::lonnet::domain($cdom,'description').'}\\\\');
   }
   # -------------------------------------------------------- Get course personnel
       my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
       if ($target ne 'tex') {
    $r->print(&Apache::lonhtmlcommon::start_pick_box());
       } else {
    $r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline');
       }
       my @personnel=sort(keys(%coursepersonnel));
       my $lastpers=$personnel[$#personnel];
       foreach my $element (@personnel) {
    if ($target ne 'tex') {
       $r->print(&Apache::lonhtmlcommon::row_title($element));
    } else {
       $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); 
    }
           foreach (split(/\,/,$coursepersonnel{$element})) {
       my ($puname,$pudom)=split(/\:/,$_);
       if ($target ne 'tex') {
                   my $courseperson = &Apache::loncommon::plainname($puname,$pudom);
                   if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') ||
                       ($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) {
       $r->print(' '.$courseperson);
                   } else {
                       $r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson,
                                 $puname,$pudom));
                   }
       } else {
    $r->print(' '.&Apache::loncommon::plainname($puname,
                                 $pudom).' ');
       }
    }
    if ($target ne 'tex') {
               my $lastclose=$element eq $lastpers?1:0;
               $r->print(&Apache::lonhtmlcommon::row_closure($lastclose));
    } else {
       $r->print('\\\\ \hline');
    }
       }
       if ($target ne 'tex') {
    $r->print(&Apache::lonhtmlcommon::end_pick_box());
       } else {
    $r->print('\end{tabular}\\\\');
       }
 #----------Print last update  #----------Print last update
  my $lastmod=$syllabus{'uploaded.lastmodified'};   my $lastmod=$syllabus{'uploaded.lastmodified'};
        $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));         $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
Line 307  ENDSCRIPT Line 312  ENDSCRIPT
             &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})              &Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})
           :'')            :'')
      .'\\\\');       .'\\\\');
        }         }
 #--------Functions  #---------------------Print Extern URL Course Info
 if ($target ne 'tex') {  if( ($allowed) && ($target ne 'tex') ) {
  if($allowed || $privileged){   my $protocol = $Apache::lonnet::protocol{$homeserver};
  &Apache::lontemplate::print_start_page_functions($r);    $protocol = 'http' if ($protocol ne 'https');
  if($allowed){   $r->print('<p>'.&mt('This syllabus can be publicly viewed at').' <tt>'.$protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>'.&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.'<p>'.&mt('You can specify an external URL as Syllabus in the [_1].','<a href="/adm/parmset?action=crsenv">'.&mt('Course Parameters').'</a>').'</p>');
  &Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forcestudent=1">'.&mt('Show Public View').'</a>'. &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'));        }
  }elsif($privileged){  
  &Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forceedit=1">'.&mt('Edit').'</a>');   
  }  
  &Apache::lontemplate::print_end_page_functions($r);  
  }  
  }  
 # -------------------------------------------------------------- Announcements?  # -------------------------------------------------------------- Announcements?
     my $day = &Apache::lonannounce::showday(time,2,      my $day = &Apache::lonannounce::showday(time,2,
  &Apache::lonannounce::readcalendar($cdom.'_'.$cnum));   &Apache::lonannounce::readcalendar($cdom.'_'.$cnum));
     if ($target ne 'tex') {      if ($target ne 'tex') {
  &Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit),1,'LC_ContentBoxSpecial');   if($allowed){
    &Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit),1,'LC_ContentBoxSpecial');
    }
    elsif(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){
    &Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom,$forceedit),1,'LC_ContentBoxSpecial');
    }
   
     } else {      } else {
  $r->print(&Apache::lonxml::xmlparse($r,'tex',$day));   $r->print(&Apache::lonxml::xmlparse($r,'tex',$day));
     }      }
Line 405  if ($target ne 'tex') { Line 410  if ($target ne 'tex') {
  if ($target ne 'tex') {$r->print('</p>');}   if ($target ne 'tex') {$r->print('</p>');}
     }      }
     if ($target ne 'tex') {      if ($target ne 'tex') {
  $r->print('</blockquote>');  
     $r->print('</div>');  
         if ($env{'form.backto'} eq 'coursecatalog') {          if ($env{'form.backto'} eq 'coursecatalog') {
             $r->print('<form name="backtocat" method="post" action="/adm/coursecatalog">'.              $r->print('<form name="backtocat" method="post" action="/adm/coursecatalog">'.
                       &Apache::lonhtmlcommon::echo_form_input(['backto','courseid']).                        &Apache::lonhtmlcommon::echo_form_input(['backto','courseid']).
Removed from v.1.79  
changed lines
  Added in v.1.80

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