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.544 and 1.549

version 1.544, 2007/07/03 00:30:47	version 1.549, 2007/07/11 20:37:52
Line 3338 sub designparm {	Line 3338 sub designparm {

=back	=back

=head1 HTTP Helpers	=head1 HTML Helpers

=over 4	=over 4

Line 3632 sub make_attr_string {	Line 3632 sub make_attr_string {

=pod	=pod

=back

=head1 HTML Helpers

=over 4

=item * &endbodytag()	=item * &endbodytag()

Returns a uniform footer for LON-CAPA web pages.	Returns a uniform footer for LON-CAPA web pages.

Inputs: none	Inputs: none

=back

=cut	=cut

sub endbodytag {	sub endbodytag {
Line 3662 sub endbodytag {	Line 3654 sub endbodytag {

=pod	=pod

=over 4

=item * &standard_css()	=item * &standard_css()

Returns a style sheet	Returns a style sheet
Line 3674 Inputs: (all optional)	Line 3664 Inputs: (all optional)
function -> force usage of a specific rolish color scheme	function -> force usage of a specific rolish color scheme
bgcolor -> override the default page bgcolor	bgcolor -> override the default page bgcolor

=back

=cut	=cut

sub standard_css {	sub standard_css {
Line 4435 span.LC_nobreak {	Line 4423 span.LC_nobreak {
white-space: nowrap;	white-space: nowrap;
}	}

.LC_docs_course_commands div{	table.LC_docs_documents {
float: left;	background: #BBBBBB;
border: 4px solid #AAAAAA;	border-width: 0px;
padding: 4px;	border-collapse: collapse;
background: #DDDDCC;	}

	table.LC_docs_documents td.LC_docs_document {
	border: 2px solid black;
	padding: 4px;
	}

	.LC_docs_course_commands div {
	float: left;
	border: 4px solid #AAAAAA;
	padding: 4px;
	background: #DDDDCC;
}	}

	.LC_docs_entry_move {
	border: 0px;
	border-collapse: collapse;
	}

	.LC_docs_entry_move td {
	border: 2px solid #BBBBBB;
	background: #DDDDDD;
	}

	.LC_docs_editor td.LC_docs_entry_commands {
	background: #DDDDDD;
	font-size: x-small;
	}
.LC_docs_copy {	.LC_docs_copy {
color: #000099;	color: #000099;
font-size: x-small;
}	}
.LC_docs_cut {	.LC_docs_cut {
color: #550044;	color: #550044;
font-size: x-small;
}	}
.LC_docs_rename {	.LC_docs_rename {
color: #009900;	color: #009900;
font-size: x-small;
}	}
.LC_docs_remove {	.LC_docs_remove {
color: #990000;	color: #990000;
font-size: x-small;	}

	.LC_docs_reinit_warn,
	.LC_docs_ext_edit {
	font-size: x-small;
	}

	.LC_docs_editor td.LC_docs_entry_title,
	.LC_docs_editor td.LC_docs_entry_icon {
	background: #FFFFBB;
	}
	.LC_docs_editor td.LC_docs_entry_parameter {
	background: #BBBBFF;
	font-size: x-small;
	white-space: nowrap;
	}

	table.LC_docs_adddocs td,
	table.LC_docs_adddocs th {
	border: 1px solid #BBBBBB;
	padding: 4px;
	background: #DDDDDD;
}	}

END	END
Line 4464 END	Line 4495 END

=pod	=pod

=over 4

=item * &headtag()	=item * &headtag()

Returns a uniform footer for LON-CAPA web pages.	Returns a uniform footer for LON-CAPA web pages.
Line 4489 Inputs: $title - optional title for the	Line 4518 Inputs: $title - optional title for the
no_auto_mt_title	no_auto_mt_title
-> prevent &mt()ing the title arg	-> prevent &mt()ing the title arg

=back

=cut	=cut

sub headtag {	sub headtag {
Line 4546 ADDMETA	Line 4573 ADDMETA

=pod	=pod

=over 4

=item * &font_settings()	=item * &font_settings()

Returns neccessary <meta> to set the proper encoding	Returns neccessary <meta> to set the proper encoding

Inputs: none	Inputs: none

=back

=cut	=cut

sub font_settings {	sub font_settings {
Line 4572 sub font_settings {	Line 4595 sub font_settings {

=pod	=pod

=over 4

=item * &xml_begin()	=item * &xml_begin()

Returns the needed doctype and <html>	Returns the needed doctype and <html>

Inputs: none	Inputs: none

=back

=cut	=cut

sub xml_begin {	sub xml_begin {
Line 4606 sub xml_begin {	Line 4625 sub xml_begin {

=pod	=pod

=over 4

=item * &endheadtag()	=item * &endheadtag()

Returns a uniform </head> for LON-CAPA web pages.	Returns a uniform </head> for LON-CAPA web pages.

Inputs: none	Inputs: none

=back

=cut	=cut

sub endheadtag {	sub endheadtag {
Line 4624 sub endheadtag {	Line 4639 sub endheadtag {

=pod	=pod

=over 4

=item * &head()	=item * &head()

Returns a uniform complete <head>..</head> section for LON-CAPA web pages.	Returns a uniform complete <head>..</head> section for LON-CAPA web pages.
Line 4633 Returns a uniform complete <head>..</hea	Line 4646 Returns a uniform complete <head>..</hea
Inputs: $title - optional title for the page	Inputs: $title - optional title for the page
$head_extra - optional extra HTML to put inside the <head>	$head_extra - optional extra HTML to put inside the <head>

=back

=cut	=cut

sub head {	sub head {
Line 4644 sub head {	Line 4655 sub head {

=pod	=pod

=over 4

=item * &start_page()	=item * &start_page()

Returns a complete <html> .. <body> section for LON-CAPA web pages.	Returns a complete <html> .. <body> section for LON-CAPA web pages.
Line 4684 Inputs: $title - optional title for the	Line 4693 Inputs: $title - optional title for the

no_auto_mt_title -> prevent &mt()ing the title arg	no_auto_mt_title -> prevent &mt()ing the title arg

=back

=cut	=cut

sub start_page {	sub start_page {
Line 4737 sub start_page {	Line 4744 sub start_page {

=pod	=pod

=over 4

=item * &head()	=item * &head()

Returns a complete </body></html> section for LON-CAPA web pages.	Returns a complete </body></html> section for LON-CAPA web pages.
Line 4896 sub simple_error_page {	Line 4901 sub simple_error_page {
}	}
}	}

	=pod

	=item * &inhibit_menu_check($arg)

	Checks for a inhibitmenu state and generates output to preserve it

	Inputs: $arg - can be any of
	- undef - in which case the return value is a string
	to add into arguments list of a uri
	- 'input' - in which case the return value is a HTML
	<form> <input> field of type hidden to
	preserve the value
	- a url - in which case the return value is the url with
	the neccesary cgi args added to preserve the
	inhibitmenu state
	- a ref to a url - no return value, but the string is
	updated to include the neccessary cgi
	args to preserve the inhibitmenu state

	=cut

	sub inhibit_menu_check {
	my ($arg) = @_;
	&get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
	if ($arg eq 'input') {
	if ($env{'form.inhibitmenu'}) {
	return '<input type="hidden" name="inhibitmenu" value="'.$env{'form.inhibitmenu'}.'" />';
	} else {
	return
	}
	}
	if ($env{'form.inhibitmenu'}) {
	if (ref($arg)) {
	$$arg .= '?inhibitmenu='.$env{'form.inhibitmenu'};
	} elsif ($arg eq '') {
	$arg .= 'inhibitmenu='.$env{'form.inhibitmenu'};
	} else {
	$arg .= '?inhibitmenu='.$env{'form.inhibitmenu'};
	}
	}
	if (!ref($arg)) {
	return $arg;
	}
	}

###############################################	###############################################

=pod	=pod

	=back

	=head1 User Information Routines

	=over 4

=item * &get_users_function()	=item * &get_users_function()

Used by &bodytag to determine the current users primary role.	Used by &bodytag to determine the current users primary role.
Line 5462 sub get_secgrprole_info {	Line 5518 sub get_secgrprole_info {

=pod	=pod

	=back

	=head1 HTTP Helpers

	=over 4

=item * get_unprocessed_cgi($query,$possible_names)	=item * get_unprocessed_cgi($query,$possible_names)

Modify the %env hash to contain unprocessed CGI form parameters held in	Modify the %env hash to contain unprocessed CGI form parameters held in

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

Removed from v.1.544
changed lines
	Added in v.1.549