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.303 and 1.306

-version 1.303, 2006/02/18 01:27:07
+version 1.306, 2006/03/15 19:37:55
  Line 2787  table.thinborder { border-collapse: coll
  table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px}
  form, .inline { display: inline; }
  .center { text-align: center; }
+ .filename {font-family: monospace;}
  </style>
  <body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
  style="margin-top: 0px;$addstyle" $addentries>
- Line 2892  ENDROLE
+ Line 2893  ENDROLE
          $dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};
          $dc_info = '('.$dc_info.')';
      }
+     # Explicit link to get inline menu
+     my $menu='<br /><font size="2" face="Arial, Helvetica, sans-serif">&nbsp;<a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a></font>';
      #
      return(<<ENDBODY);
  $bodytag
- Line 2902  $upperleft</td>
+ Line 2905  $upperleft</td>
  </tr>
  <tr>
  <td rowspan="3" bgcolor="$tabbg">
- $titleinfo $dc_info
+ $titleinfo $dc_info $menu
  </td><td bgcolor="$tabbg" align="right">
  <font size="2" face="Arial, Helvetica, sans-serif">
      $env{'environment.firstname'}
- Line 2928  ENDBODY
+ Line 2931  ENDBODY
  =back
- =head1 HTTP Helpers
+ =head1 HTML Helpers
  =over 4
- Line 2936  ENDBODY
+ Line 2939  ENDBODY
  Returns a uniform footer for LON-CAPA web pages.
- Inputs:
+ Inputs: none
- =over 4
  =back
- Returns: A uniform footer for LON-CAPA web pages.
  =cut
  sub endbodytag {
- Line 2952  sub endbodytag {
+ Line 2951  sub endbodytag {
      return $endbodytag;
  }
+ =pod
+ =over 4
+ =item * &headtag()
+ Returns a uniform footer for LON-CAPA web pages.
+ Inputs: $title - optinal title for the head
+ =back
+ =cut
+ sub headtag {
+     my ($title) = @_;
+     my $result = '<head>';
+     if (!defined($title)) {
+ 	$title = 'The LearningOnline Network with CAPA';
+     }
+     $result .= '<title>'.&mt($title).'</title>';
+     return $result;
+ }
+ =pod
+ =over 4
+ =item * &endheadtag()
+ Returns a uniform </head> for LON-CAPA web pages.
+ Inputs: none
+ =back
+ =cut
+ sub endheadtag {
+     return '</head>';
+ }
+ =pod
+ =over 4
+ =item * &head()
+ Returns a uniform complete <head>..</head> section for LON-CAPA web pages.
+ Inputs: $title - optional title for the page
+ =back
+ =cut
+ sub head {
+     my ($title) = @_;
+     return &headtag($title).&endheadtag();
+ }
+ =pod
+ =over 4
+ =item * &start_page()
+ Returns a complete <html> .. <body> section for LON-CAPA web pages.
+ Inputs: $title - optional title for the page
+         $head_extra - optional extra HTML to incude inside the <head>
+ =back
+ =cut
+ sub start_page {
+     my ($title,$head_extra) = @_;
+     return
+ 	&Apache::lonxml::xmlbegin().
+ 	&headtag($title).$head_extra.&endheadtag().
+ 	&bodytag($title);
+ }
+ =pod
+ =over 4
+ =item * &head()
+ Returns a complete </body></html> section for LON-CAPA web pages.
+ Inputs: None
+ =back
+ =cut
+ sub end_page {
+     return &endbodytag."\n</html>";
+ }
  ###############################################
  =pod
+ =over 4
  =item get_users_function
  Used by &bodytag to determine the current users primary role.

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

Removed from v.1.303
changed lines
	Added in v.1.306