rat/lonsequence.pm - diff

Return to lonsequence.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonsequence.pm between versions 1.33 and 1.37

-version 1.33, 2008/11/11 16:40:38
+version 1.37, 2009/02/16 13:52:04
  Line 27
  # http://www.lon-capa.org/
  #
- =head1 NAME
- Apache::lonsequence
- =head1 SYNOPSIS
- Handler for showing sequence objects of
- educational resources.
- This is part of the LearningOnline Network with CAPA project
- described at http://www.lon-capa.org.
- =head1 HANDLER SUBROUTINE
- handler()
- and
- viewmap()
- =head1 OTHER SUBROUTINES
- =over
- =item *
- attemptread()
- =item *
- mapread()
- =item *
- start_fresh_session()
- =back
- =cut
  package Apache::lonsequence;
- Line 164  ENDSELECT
+ Line 126  ENDSELECT
  # ----------------------------- successtied is now '1' if in working selectmode
      my ($errtext,$fatal)=&mapread(&Apache::lonnet::filelocation('',$url),'');
      if ($fatal==1) {
-        $r->print('<p><b><font color="red">'.&mt('Map contents are not shown in order.').'</font></b></p><br />');
+        $r->print('<p class="LC_warning">'
+                 .&mt('Map contents are not shown in order.')
+                 .'</p><br />');
      }
      my $idx=0;
      foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
- Line 318  sub handler {
+ Line 282  sub handler {
        &Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],
  				'last_known' => [$disurl,$dismapid]);
        &Apache::loncommon::content_type($r,'text/html');
-       $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);
+       $r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}).
+                                  $disurl);
        return REDIRECT;
     } else {
         &Apache::loncommon::content_type($r,'text/html');
- Line 362  ENDNONE
+ Line 327  ENDNONE
 ;
  __END__
+ =head1 NAME
+ Apache::lonsequence
+ =head1 SYNOPSIS
+ Handler for showing sequence objects of
+ educational resources.
+ This is part of the LearningOnline Network with CAPA project
+ described at http://www.lon-capa.org.
+ =head1 SUBROUTINES
+ =over
+ =item handler()
+ =item viewmap()
+ =item attemptread()
+ =item mapread()
+ =item start_fresh_session()
+ =back
+ =cut

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

Removed from v.1.33
changed lines
	Added in v.1.37