/[webpac2]/trunk/web/browse.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/web/browse.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 54 by dpavlin, Mon Nov 14 16:16:57 2005 UTC revision 58 by dpavlin, Tue Nov 15 14:30:26 2005 UTC
# Line 48  if ($q->path_info =~ m#xml#) { Line 48  if ($q->path_info =~ m#xml#) {
48          if (@ds && $#ds > 0) {          if (@ds && $#ds > 0) {
49                  print qq{<response>                  print qq{<response>
50  <action type='html' target='div_record' errorCode='' errorMessage='' >  <action type='html' target='div_record' errorCode='' errorMessage='' >
51                  }, $out->apply(                  }, $iconv_utf8->convert( $out->apply(
52                          template => $template,                          template => $template,
53                          data => \@ds,                          data => \@ds,
54                  ), qq{                  ) ), qq{
55    
56  <script type='text/javascript'>  </action>
57    <action type='javascript' errorCode='' errorMessage='' >
58  <!--  <!--
59          var el = iwfGetById('div_record_nr');          var el = iwfGetById('div_record_nr');
60          if (el) el.innerHTML = '# <b>$rec</b>';          if (el) el.innerHTML = '# <b>$rec</b>';
61          //iwfShow('div_record');          //iwfShow('div_record');
62          iwfOpacity('div_record', 100);          iwfOpacity('div_record', 100);
63  //-->  //-->
 </script>  
   
64  </action>  </action>
65  </response>  </response>
66  };  };
# Line 71  if ($q->path_info =~ m#xml#) { Line 70  if ($q->path_info =~ m#xml#) {
70  <action type='html' target='div_record' errorCode='' errorMessage='' >  <action type='html' target='div_record' errorCode='' errorMessage='' >
71    
72  <b>Record $rec not found!</b>  <b>Record $rec not found!</b>
73  <script type='text/javascript'>  </action>
74    <action type='javascript' errorCode='' errorMessage='' >
75  <!--  <!--
76          var el = iwfGetById('div_record_nr');          var el = iwfGetById('div_record_nr');
77          if (el) el.innerHTML = '<strike>$rec</strike>';          if (el) el.innerHTML = '<strike>$rec</strike>';
78  //-->  //-->
 </script>  
   
79  </action>  </action>
80  </response>  </response>
81  };  };
# Line 90  if ($q->path_info =~ m#xml#) { Line 88  if ($q->path_info =~ m#xml#) {
88    
89                  if ($q->param('save_template')) {                  if ($q->param('save_template')) {
90    
91                          my $tmpl = $q->param('tt_template') || die "no template?";                          my $tmpl = $iconv_loc->convert( $q->param('tt_template') ) || die "no template?";
92                            sub _conv_js {
93                                    my $t = shift || return;
94                                    return $iconv_loc->convert(chr(hex($t)));
95                            }
96                            $tmpl =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
97    
98                          my $tmpl_file = $out->{'include_path'} . '/' . $template;                          my $tmpl_file = $out->{'include_path'} . '/' . $template;
99                          write_file($tmpl_file . '.new', $iconv_loc->convert($tmpl)) || die "can't save $tmpl_file: $!";                          write_file($tmpl_file . '.new', $tmpl) || die "can't save $tmpl_file: $!";
100                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";
101    
102                          print qq{<response>                          print qq{<response>
Legend:
Removed from v.54  
changed lines
  Added in v.58
  ViewVC Help
Powered by ViewVC 1.1.26