loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.282, 2007/03/12 17:09:23	version 1.284, 2007/04/13 23:05:40
Line 764 sub setup_basic_search {	Line 764 sub setup_basic_search {
'&launch='.$env{'form.launch'}.	'&launch='.$env{'form.launch'}.
'&mode='.$env{'form.mode'}.	'&mode='.$env{'form.mode'}.
'&area='.$area.	'&area='.$area.
	'&form='.$env{'form.form'}.
	'&titleelement='.$env{'form.titleelement'}.
	'&element='.$env{'form.element'}.
'">'.&mt('Advanced Search').'</a>';	'">'.&mt('Advanced Search').'</a>';
#	#
$scrout.='<form name="loncapa_search" method="post" '.	$scrout.='<form name="loncapa_search" method="post" '.
Line 1392 sub parse_advanced_search {	Line 1395 sub parse_advanced_search {
'lastrevisiondatestart_month','lastrevisiondatestart_day',	'lastrevisiondatestart_month','lastrevisiondatestart_day',
'lastrevisiondatestart_year','lastrevisiondateend_month',	'lastrevisiondatestart_year','lastrevisiondateend_month',
'lastrevisiondateend_day','lastrevisiondateend_year') {	'lastrevisiondateend_day','lastrevisiondateend_year') {
$env{'form.'.$field}=~s/[^\w\/\s\=\-\"\']//g;	$env{'form.'.$field}=~s/[^\w\/\s\=\-\"\'.]//g;
}	}
foreach ('mode','form','element') {	foreach ('mode','form','element') {
# is this required? Hmmm.	# is this required? Hmmm.
Line 1855 sub process_phrase_input {	Line 1858 sub process_phrase_input {
$item[1];	$item[1];
}	}
term:	term:
/[\w\Q:!@#$%^&*()+_=\|{}<>,.;\\\/?\E]+/ {	/[\w\Q:!@#$%^&*()+_=\|{}<>,.;\\\/?\E\-]+/ {
$item[1];	$item[1];
}	}
ENDGRAMMAR	ENDGRAMMAR