--- rat/lonsequence.pm	2008/12/21 04:53:39	1.32.2.1
+++ rat/lonsequence.pm	2009/05/16 23:21:12	1.39
@@ -2,7 +2,7 @@
 #
 # Sequence Handler
 #
-# $Id: lonsequence.pm,v 1.32.2.1 2008/12/21 04:53:39 raeburn Exp $
+# $Id: lonsequence.pm,v 1.39 2009/05/16 23:21:12 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,6 +27,8 @@
 # http://www.lon-capa.org/
 #
 
+
+
 package Apache::lonsequence;
 
 use strict;
@@ -100,10 +102,10 @@ ENDSCRIPT
 	      '<h1>'.$url.'</h1>');
 # ------------------ This is trying to select. Provide buttons and tie %selhash
     if ($env{'form.forceselect'}) { $r->print(<<ENDSELECT);
-<form name=fileattr><input type=hidden name=acts value=''>
-<input type="button" name="close" value='CLOSE' onClick="self.close()">
-<input type="button" name="groupimport" value='GROUP IMPORT'
-onClick="javascript:select_group()">
+<form name="fileattr"><input type="hidden" name="acts" value="" />
+<input type="button" name="close" value="CLOSE" onClick="self.close()" />
+<input type="button" name="groupimport" value="GROUP IMPORT"
+onClick="javascript:select_group()" />
 </form>   
 ENDSELECT
     my $diropendb = 
@@ -124,7 +126,9 @@ 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))) {
@@ -147,7 +151,7 @@ ENDSELECT
 		if ($successtied) {
 		    my $checked='';
 	           if ($selhash{'store_'.$url}) {
-	       	      $checked=" checked";
+	       	      $checked=' checked="checked"';
 	           }
 	           $selhash{"pre_${idx}_link"}=$url;
 	           $selhash{"pre_${idx}_title"}=$title;
@@ -166,7 +170,7 @@ ENDCHECKBOX
             if ($successtied) {
 		$r->print('</form>');
             } else {
-		$r->print('<br>');
+		$r->print('<br />');
             }
         }
     }
@@ -323,7 +327,35 @@ ENDNONE
 1;
 __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