loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.83 and 1.89

-version 1.83, 2003/02/24 23:32:32
+version 1.89, 2003/03/20 19:20:31
  Line 601  sub get_domains {
  =pod
+ =item select_form($defdom,$name,%hash)
+ Returns a string containing a <select name='$name' size='1'> form to
+ allow a user to select options from a hash option_name => displayed text.
+ See lonrights.pm for an example invocation and use.
+ =cut
+ #-------------------------------------------
+ sub select_form {
+     my ($def,$name,%hash) = @_;
+     my $selectform = "<select name=\"$name\" size=\"1\">\n";
+     foreach (sort keys %hash) {
+         $selectform.="<option value=\"$_\" ".
+             ($_ eq $def ? 'selected' : '').
+                 ">".$hash{$_}."</option>\n";
+     }
+     $selectform.="</select>";
+     return $selectform;
+ }
+ #-------------------------------------------
+ =pod
  =item select_dom_form($defdom,$name)
  Returns a string containing a <select name='$name' size='1'> form to
- Line 674  sub home_server_option_list {
+ Line 700  sub home_server_option_list {
  ###############################################################
  ###############################################################
+ ###############################################################
+ =pod
+ =item &decode_user_agent()
+ Inputs: $r
+ Outputs:
+ =over 4
+ =item $httpbrowser
+ =item $clientbrowser
+ =item $clientversion
+ =item $clientmathml
+ =item $clientunicode
+ =item $clientos
+ =back
+ =cut
+ ###############################################################
+ ###############################################################
+ sub decode_user_agent {
+     my @browsertype=split(/\&/,$Apache::lonnet::perlvar{"lonBrowsDet"});
+     my %mathcap=split(/\&/,$$Apache::lonnet::perlvar{"lonMathML"});
+     my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
+     my $clientbrowser='unknown';
+     my $clientversion='0';
+     my $clientmathml='';
+     my $clientunicode='0';
+     for (my $i=0;$i<=$#browsertype;$i++) {
+         my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\:/,$browsertype[$i]);
+ 	if (($httpbrowser=~/$match/i)  && ($httpbrowser!~/$notmatch/i)) {
+ 	    $clientbrowser=$bname;
+             $httpbrowser=~/$vreg/i;
+ 	    $clientversion=$1;
+             $clientmathml=($clientversion>=$minv);
+             $clientunicode=($clientversion>=$univ);
+ 	}
+     }
+     my $clientos='unknown';
+     if (($httpbrowser=~/linux/i) ||
+         ($httpbrowser=~/unix/i) ||
+         ($httpbrowser=~/ux/i) ||
+         ($httpbrowser=~/solaris/i)) { $clientos='unix'; }
+     if (($httpbrowser=~/vax/i) ||
+         ($httpbrowser=~/vms/i)) { $clientos='vms'; }
+     if ($httpbrowser=~/next/i) { $clientos='next'; }
+     if (($httpbrowser=~/mac/i) ||
+         ($httpbrowser=~/powerpc/i)) { $clientos='mac'; }
+     if ($httpbrowser=~/win/i) { $clientos='win'; }
+     if ($httpbrowser=~/embed/i) { $clientos='pda'; }
+     return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
+             $clientunicode,$clientos,);
+ }
+ ###############################################################
+ ###############################################################
+ ###############################################################
  ##    Authentication changing form generation subroutines    ##
  ###############################################################
  ##
- Line 1530  Inputs:
+ Line 1625  Inputs:
   $addentries, extra parameters for the <body> tag.
   $bodyonly, if defined, only return the <body> tag.
   $domain, if defined, force a given domain.
+  $forcereg, if page should register as content page (relevant for
+             text interface only)
  Returns: A uniform header for LON-CAPA web pages.
  If $bodyonly is nonzero, a string containing a <body> tag will be returned.
- Line 1543  other decorations will be returned.
+ Line 1640  other decorations will be returned.
  ###############################################
  sub bodytag {
-     my ($title,$function,$addentries,$bodyonly,$domain)=@_;
+     my ($title,$function,$addentries,$bodyonly,$domain,$forcereg)=@_;
      unless ($function) {
  	$function='student';
          if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
- Line 1587  END
+ Line 1684  END
      if ($bodyonly) {
          return $bodytag;
      } elsif ($ENV{'browser.interface'} eq 'textual') {
-         return $bodytag.&Apache::lonmenu::menubuttons(undef,'web').
+         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
+                                                       $forcereg).
                 '<h1>LON-CAPA: '.$title.'</h1>';
      } else {
          return(<<ENDBODY);
- Line 1920  sub csv_samples_select_table {
+ Line 2018  sub csv_samples_select_table {
      $i--;
      return($i);
  }
+ =pod
+ =item check_if_partid_hidden($id,$symb,$udom,$uname)
+ Returns either 1 or undef
+if the part is to be hidden, undef if it is to be shown
+ Arguments are:
+ $id the id of the part to be checked
+ $symb, optional the symb of the resource to check
+ $udom, optional the domain of the user to check for
+ $uname, optional the username of the user to check for
+ =cut
+ sub check_if_partid_hidden {
+     my ($id,$symb,$udom,$uname) = @_;
+     my $hiddenparts=&Apache::lonnet::EXT('resource.0.parameter_hiddenparts',
+ 					 $symb,$udom,$uname);
+     my @hiddenlist=split(/,/,$hiddenparts);
+     foreach my $checkid (@hiddenlist) {
+ 	if ($checkid =~ /^\s*\Q$id\E\s*$/) { return 1; }
+     }
+     return undef;
+ }
 ;
  __END__;

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

Removed from v.1.83
changed lines
	Added in v.1.89